see if this will adapt to your needs make each rectangle call this macro. Sub doRectChange() Dim c c = Application.Caller MsgBox (c) With ActiveSheet.
確定! 回上一頁