Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells(1, 1) = Cells(1, 1) + 1 'MsgBox Sh.Name & '!' & Target.Address(0, 0) End Sub 應(yīng)將以上代碼放到Thisworkbook中 |
|
來(lái)自: 覓書(shū)時(shí)代 > 《編程》