Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71879 / 76733 ←次へ | 前へ→

【9345】Re:結合セルのSelectionChangeイベント
お礼  ichinose  - 03/11/30(日) 14:42 -

引用なし
パスワード
   ▼りん さん:

>>
>>>   If .MergeCells = True Then
>>↑の参照だとエラーにならないんですね。 メモメモ・・。
>>wk=.MergeCells は、結合セルと非結合セルを一緒に選択すると
>>エラーになったのでon Error 〜にしましたが・・・。

> NullはBooleanではないのでwkに代入するところでエラーになってました。
>(同時に選択するとTrueでもFalseでもないNullが返る)
そうですねえ、私も確認しました。
 
>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
選択範囲の種類を厳密に限定するとなると、個々の範囲での処理も考えると
やっぱりFunctionにしておいてもよいかもしれませんね
りんさんのコードをFunctionにして、プールしておきました。
ありがとうございました。

2 hits

【9321】結合セルのSelectionChangeイベント ぴかる 03/11/28(金) 16:53 質問
【9322】Re:結合セルのSelectionChangeイベント ハマゾウ 03/11/28(金) 17:01 回答
【9323】Re:結合セルのSelectionChangeイベント INA 03/11/28(金) 17:18 回答
【9324】Re:結合セルのSelectionChangeイベント つん 03/11/28(金) 17:28 発言
【9325】Re:結合セルのSelectionChangeイベント ぴかる 03/11/28(金) 17:54 お礼
【9326】やっぱり、自分のミスでした。 ぴかる 03/11/28(金) 18:09 発言
【9327】こんな時は? ぴかる 03/11/28(金) 18:32 質問
【9328】Re:こんな時は? ichinose 03/11/28(金) 20:35 回答
【9329】Re:こんな時は?(無駄コードが・・) ichinose 03/11/28(金) 20:49 発言
【9342】Re:結合セルのSelectionChangeイベント りん 03/11/30(日) 10:38 回答
【9343】Re:結合セルのSelectionChangeイベント ichinose 03/11/30(日) 14:05 発言
【9344】Re:結合セルのSelectionChangeイベント りん 03/11/30(日) 14:22 発言
【9345】Re:結合セルのSelectionChangeイベント ichinose 03/11/30(日) 14:42 お礼
【9370】今、やりたい事が出来ず・・・。 ぴかる 03/12/1(月) 10:44 質問
【9374】Re:今、やりたい事が出来ず・・・。 ichinose 03/12/1(月) 12:50 回答
【9376】出来ました。 ぴかる 03/12/1(月) 13:43 お礼

71879 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free