Excel総合相談所 151

[0550 名無しさん＠そうだ選挙にいこう 2022/11/12(土) 22:35:53.87]

>>541
こういう事でしょ
https://imgur.com/a/YaUbmeC

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call foo(Sh, ActiveCell)
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal target As Range)
Call foo(Sh, target)
Debug.Print 3
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal target As Range)
Call foo(Sh, target)
End Sub

Sub foo(Sh, target)
Sheets("kakudai").Cells(1, 1) = target.Value
End Sub