標題: [發問] 如何第一張工作表執行巨集後，第二張工作表也一起執行 [打印本頁]

---

作者: onoff    時間: 2017-1-15 15:54     標題: 如何第一張工作表執行巨集後，第二張工作表也一起執行

有2個Module, Module1 and 2，有2張工作表

工作表1的一個按鈕設了一個巨集，當按下去後執行Module1的程式，同時希望更新工作表2的B1欄位，

這時因工作表2設定，若工作表2有任何變更，即執行工作表2的程式。
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
    ...
    ...
我想到的方式是
Sheets("工作表1").Select
Range("A2").Select
Set myRng = Range("A2")
...
...
Sheets("工作表1").Select '執行完後將"A2"清空後A3的往上一格到A2
    Range("A2").Select
    Selection.Delete Shift:=xlUp
-------------------------------------------------
Sheets("工作表2").Select
Range("B1").Select
但不知如何變更工作表2的"B1"欄位等於工作表1的"A2"
後又執行工作表2內的程式。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)