Simplify C column handling - separate single and multiple cells

This commit is contained in:
updsv7
2026-04-13 12:06:08 +09:00
parent 1f94a53a58
commit f17e228412

View File

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