Excel VBA質問箱 IV

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

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


71882 / 76733 ←次へ | 前へ→

【9342】Re:結合セルのSelectionChangeイベント
回答  りん E-MAIL  - 03/11/30(日) 10:38 -

引用なし
パスワード
   ぴかる さん、みなさん、おはようございます。

>もうちと、解析してみます。多分、自分の打ち間違いやと思いますけど・・・。
>なんか発見したら、報告いたしますネ。ありがとうございました。

こんな感じで分岐してみたり。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
   If .MergeCells = True Then
     Res$ = "結合セル選択"
   Else
     If .Cells.Count = 1 Then
      Res$ = "単一セル選択"
     Else
      Res$ = "複数セル範囲選択(結合セルを含むかも)"
     End If
   End If
   MsgBox Res$, vbInformation, .Address(False, False)
   'セルの値は左上端のみ有効にすればエラーになりません
   MsgBox Target.Cells(1).Value, vbInformation, "セルの値"
  End With
End Sub

 『結合セルを含むかも』ってのは、複数セルを選択したときに、結合セルを含んでもMergeCellsはあくまでTargetの左上端セルのみを結果を返すようなので、別に判定が必要になるってことです。
 今回の内容では、単一セルを選択したときしか必要ではなさそうなので、その部分は省きました。
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 お礼

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