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中
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
