Excel VBA質問箱 IV

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

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


71896 / 76733 ←次へ | 前へ→

【9328】Re:こんな時は?
回答  ichinose  - 03/11/28(金) 20:35 -

引用なし
パスワード
   ▼ぴかる さん:
こんばんは。

>Target.Value = "" がネックでした。同じ意味でなんか回避出来ませんか?。
>よろしくお願いします。多分、確認が遅れます。ゴメンナサイです。
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
>  On Error GoTo ZZZ
>  If Target.Value = "" Then
>    MsgBox "普通のセルを選択したネ!"
>    Exit Sub
>  End If
>  
>ZZZ:
>  MsgBox "結合セル選択すると、エラーになるねん!"
>  
>End Sub
エラートラップが簡単みたいですよ。
ただ、上記のコードだと結合セル選択と複数セル選択の区別がつかないですよね?
'====================================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim m_rng As Range
  Dim crng As Range
  Set m_rng = Nothing
  Select Case mergechk(Target)
   Case 0
    Target.Value = "単一セル選択"
   Case 1
    Target.Cells(1, 1).Value = "複数セル選択"
   Case 2
    Target.Cells(1, 1).Value = "結合セル選択"
   End Select
End Sub
Function mergechk(rng As Range) As Long
'  INPUT : 調査セル範囲
'  OUTPUT: mergechk
'      0-単一セル
'      1-複数セル
'      2-結合セル
  On Error Resume Next
  Dim wk As Boolean
  If rng.Count > 1 Then
 
   wk = rng.MergeCells
   If Err.Number <> 0 Then
     wk = False
     End If
   If wk = True Then
     mergechk = 2
   Else
     mergechk = 1
     End If
  Else
   mergechk = 0
   End If
  On Error GoTo 0
End 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 お礼

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