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

Fix column mapping in FillFromKukanMaster

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

4
vba_code_kukan_detail_master.txt
View File

@@ -53,8 +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, 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, 5).Value = Trim(wsKukan.Cells(i, 6).Value)
ws.Cells(rowNum, 6).Value = Trim(wsKukan.Cells(i, 7).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, 7).Value = Trim(wsKukan.Cells(i, 9).Value)
ws.Cells(rowNum, 14).Value = Trim(wsKukan.Cells(i, 9).Value) ws.Cells(rowNum, 8).Value = Trim(wsKukan.Cells(i, 14).Value)
If setG Then If setG Then
ws.Cells(rowNum, 7).Value = "1" ws.Cells(rowNum, 7).Value = "1"
Call MakeFDropdownByG(ws, rowNum) Call MakeFDropdownByG(ws, rowNum)