|
このコードで実現できました。
どうもありがとうございました。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim colx As Long
Dim str As String
If Target.EntireColumn.OutlineLevel > 1 Then
colx = 1
Do Until Target.Offset(0, colx).EntireColumn.OutlineLevel = 1
colx = colx + 1
Loop
str = ""
colx = colx - 1
Do Until Target.Offset(0, colx).EntireColumn.OutlineLevel = 1
If Target.Offset(0, colx).Value = "×" Then str = "×"
colx = colx - 1
Loop
Target.Offset(0, colx).Value = str
End If
Application.EnableEvents = True
End Sub
|
|