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

Add G and N column fill from Kukan_Master

Browse Source
This commit is contained in:
updsv7
2026-04-13 16:56:54 +09:00
parent b6d6101a7c
commit 4793431434
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
vba_code_kukan_detail_master.txt
View File

@@ -53,6 +53,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
ws.Cells(rowNum, 4).Value = Trim(wsKukan.Cells(i, 4).Value) & ": " & Trim(wsKukan.Cells(i, 5).Value)
ws.Cells(rowNum, 5).Value = Trim(wsKukan.Cells(i, 6).Value)
ws.Cells(rowNum, 6).Value = Trim(wsKukan.Cells(i, 7).Value)
ws.Cells(rowNum, 9).Value = Trim(wsKukan.Cells(i, 8).Value)
ws.Cells(rowNum, 14).Value = Trim(wsKukan.Cells(i, 9).Value)
If setG Then
ws.Cells(rowNum, 7).Value = "1"
Call MakeFDropdownByG(ws, rowNum)