updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20260515指摘対応7

Browse Source
This commit is contained in:
guanxiangwei
2026-05-21 09:57:18 +09:00
parent 5b4ffe87aa
commit bee1cd9810
2 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/sh/tuk/sheet/M1.cls
View File

@@ -152,6 +152,7 @@ Private Sub Refresh(ws As Worksheet, ByVal startRow As Long, ByVal lastDataRow A
End If End If
Next r Next r
Application.EnableEvents = True
Exit Sub Exit Sub
ErrorHandler: ErrorHandler:

1
src/sh/tuk/sheet/M2.cls
View File

@@ -408,6 +408,7 @@ Private Sub Refresh(ws As Worksheet, ByVal startRow As Long, ByVal lastDataRow A
NextRow: NextRow:
Next r Next r
Application.EnableEvents = True
Exit Sub Exit Sub
ErrorHandler: ErrorHandler: