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

Merge single/multiple cell handling

Browse Source
This commit is contained in:
updsv7
2026-04-13 12:06:36 +09:00
parent f17e228412
commit f29ea2874b
1 changed files with 6 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
vba_code_kukan_detail_master.txt
View File

@@ -20,22 +20,14 @@ Private Sub Worksheet_Change(ByVal Target As Range)
' === Fill D, E when C column changes === ' === Fill D, E when C column changes ===
If Target.Column = 3 And Target.Row >= 7 Then If Target.Column = 3 And Target.Row >= 7 Then
If Target.Count > 1 Then Dim cell As Range
Dim cell As Range For Each cell In Target
For Each cell In Target If Trim(cell.Value) = "" Then
If Trim(cell.Value) = "" Then Call ClearRowData(Me, cell.Row)
Call ClearRowData(Me, cell.Row)
Else
Call FillFromKukanMaster(Me, cell.Row)
End If
Next
Else
If Trim(Target.Value) = "" Then
Call ClearRowData(Me, Target.Row)
Else Else
Call FillFromKukanMaster(Me, Target.Row) Call FillFromKukanMaster(Me, cell.Row)
End If End If
End If Next
End If End If
End Sub End Sub