|
下記コードで結合セルがある場合修正は
Intersectでいいと思うのですがうまくいきません。
修正方法おわかりになる方ご教授お願いします。
ちなみに結合セルは(F9:F10)と(M9:M10)です
ヘルプでMergeCellsとかRangeとかTarget調べたのですが???
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Dim R As Range
Cancel = True
Set R = Intersect(Range("F8:F15,M8:M15,G17,J17,M17,P17,S17,W17,Z17,AC17,AF17,G59,J59,M59,P59,S59,W59,Z59,AC59,AF59"), Target)
If R Is Nothing Then Exit Sub
With R
Select Case .Value
Case "□"
Target.Value = "■"
Case Else
Target.Value = "□"
End Select
End With
End Sub
|
|