|
ichinose さん、こんにちわ。
>> If .MergeCells = True Then
>↑の参照だとエラーにならないんですね。 メモメモ・・。
>wk=.MergeCells は、結合セルと非結合セルを一緒に選択すると
>エラーになったのでon Error 〜にしましたが・・・。
NullはBooleanではないのでwkに代入するところでエラーになってました。
(同時に選択するとTrueでもFalseでもないNullが返る)
というわけで、この4つに分岐しました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wk As Variant ’何でも来い型
With Target
wk = .MergeCells
'4つに分岐
If TypeName(wk) = "Null" Then
res$ = "結合セルを含む複数セル範囲"
Else
If wk = True Then
res$ = "結合セル範囲"
Else
If .Cells.Count = 1 Then
res$ = "単一セル"
Else
res$ = "複数セル"
End If
End If
End If
MsgBox res$, vbInformation, .Address(False, False)
End With
End Sub
こんな感じです。
|
|