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

Split E column into E and F

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

3
vba_code_kukan_detail_master.txt
View File

@@ -51,7 +51,8 @@ Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional By
For i = 7 To lastRow For i = 7 To lastRow
If Trim(wsKukan.Cells(i, 3).Value) = code Then If Trim(wsKukan.Cells(i, 3).Value) = code Then
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) & "~" & Trim(wsKukan.Cells(i, 7).Value) ws.Cells(rowNum, 5).Value = Trim(wsKukan.Cells(i, 6).Value)
ws.Cells(rowNum, 6).Value = Trim(wsKukan.Cells(i, 7).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)