我的意思是这样的,如下 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”
可以使用目标单元格的行列号来标示希望执行的范围 比如只希望 A1改变时显示 则 if target.row=1 and target.column=1 then .... 也可以改为 >1 <100之类的范围
或者只在第一行的情况
select case target.row case 1 ....
end select
第3个回答 2010-04-14
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本回答被网友采纳