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

更新 vba_code_kukan_detail_master.txt

Browse Source
This commit is contained in:
simple321vip
2026-04-13 08:10:05 +00:00
parent 1746dc4b57
commit 01b5dadb2b
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
vba_code_kukan_detail_master.txt
View File

@@ -22,7 +22,7 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
Dim code As String Dim code As String
On Error Resume Next On Error Resume Next
Set wsKukan = ThisWorkbook.Worksheets("Kukan_Master") Set wsKukan = ThisWorkbook.Worksheets("M1")
If wsKukan Is Nothing Then Exit Sub If wsKukan Is Nothing Then Exit Sub
On Error GoTo 0 On Error GoTo 0
code = Trim(ws.Cells(rowNum, 3).Value) code = Trim(ws.Cells(rowNum, 3).Value)