[已解决]敬请老师帮忙解决代码问题，非常感谢！

lsyylw

2021-12-27.zip (5.59 KB, 下载次数: 4)

2021-12-27 07:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sam-wang

2021-12-27 08:18

1.利用Auto_Open，打開檔案時將資料裝入Arr。
2. 如您的需求: 點擊B23 原資料(Arr) / 0 的變化

一般模組:
Public Arr, ck%
Sub Auto_Open()
Arr = Range("h24:h29")
End Sub


工作表:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$23" Then
If ck = 1 Then Range("h24:h29") = Arr: ck = 0 Else Range("h24:h29") = 0: ck = 1
[B24].Select
End If
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看，謝謝

sam-wang

1.利用Auto_Open，打開檔案時將資料裝入Arr。
2. 如您的需求: 點擊B23 原資料(Arr) / 0 的變化

一般模組:
Public Arr, ck%
Sub Auto_Open()
Arr = Range("h24:h29")
End Sub


工作表:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$23" Then
If ck = 1 Then Range("h24:h29") = Arr: ck = 0 Else Range("h24:h29") = 0: ck = 1
[B24].Select
End If
End Sub

lsyylw

sam-wang 发表于 2021-12-27 08:18
1.利用Auto_Open，打開檔案時將資料裝入Arr。
2. 如您的需求: 點擊B23 原資料(Arr) / 0 的變化

[size=13.3333px]老师过年好！祝您春节快乐！