在excel中如何用VBA对指定单元格区域写代码

Question

我的意思是这样的，如下
Public mmmm
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target <> "" Then mmmm = Target
Sheet2.Cells(1, 2).Value = mmmm
End Sub
我只是想把“某些单元格区域改变的时候在sheet2.cells(1, 2)显示出来”而不是“workbood_sheetceetchange”

Answer 1

例如你要向C3写数据,用引用=, 就行了,
如Range("C3")=123
可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。
(1) Range("C3")
(2) [C3]
(3) Cells(3, 3)
(4) Cells(3, "C")
(5) Range("C4").Offset(-1)
Range("D3").Offset(, -1)
Range("A1").Offset(2, 2)
(6) 若C3为当前单元格，则可使用：ActiveCell
(7) 若将C3单元格命名为“Range1”，则可使用：Range("Range1")或[Range1]
(8) Cells(4, 3).Offset(-1)
(9) Range("A1").Range("C3")

不明白,你的代码已经可以实现了呀. 如果是说某此位格的话你可以参考下我在这里的回答
http://zhidao.baidu.com/question/147236626.html

Answer 2

可以使用目标单元格的行列号来标示希望执行的范围
比如只希望 A1改变时显示 则
if target.row=1 and target.column=1 then
....
也可以改为 >1 <100之类的范围

或者只在第一行的情况

select case target.row
case 1
....

end select

Answer 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "sheet2" And Target <> "" Then
Sheets("sheet2").Cells(1, 2) = Target.Value
Else
Exit Sub
End If
end sub本回答被网友采纳