- 帖子
- 41
- 主題
- 7
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- 2019
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-11-28
- 最後登錄
- 2025-3-4

|
2#
發表於 2021-8-20 14:21
| 只看該作者
你可以使用
Private Sub Worksheet_Change 來執行哦
你在工作表1 VBA 貼上這個
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then Sheets("工作表2").Range("A1").Value = [A1].Value
Application.EnableEvents = True
End Sub
在工作表2 VBA 貼上這個
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then Sheets("工作表1").Range("A1").Value = [A1].Value
Application.EnableEvents = True
End Sub
這樣就可以了 |
|