全く詳しくないので上手く質問できるか分からないのですが…
1つのシートの中で、かつ、別のエリアで
ダブルクリックで記号を表示させたいです。
①AK6からCG6 間の行に対して、ダブルクリックで○が表示されるようにしたい。
②AK17からCG500のすべてのセルに対して、ダブルクリックで⚫と◎が表示されるようにしたい
今自分なりに下記をコード?に入れてみたところ、②についてはクリアできたのですが①について追加できず困っています。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("AK17:CG500")) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case ""
.Value = "●"
Case "●"
.Value = "◎"
Case "◎"
.Value = ""
End Select
End With
End Sub
ご教授いただけますでしょうか?
No.2ベストアンサー
- 回答日時:
これでどうでしょうか。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AK6:CG6")) Is Nothing Then
With Target
Select Case .Value
Case ""
.Value = "○"
Case "○"
.Value = ""
End Select
End With
End If
If Not Intersect(Target, Range("AK17:CG500")) Is Nothing Then
With Target
Select Case .Value
Case ""
.Value = "●"
Case "●"
.Value = "◎"
Case "◎"
.Value = ""
End Select
End With
End If
End Sub
No.1
- 回答日時:
こんばんは
同種のイベント処理を複数作成することはできません。
ですので、同じ処理の中で場合分けをして処理することになります。
ご提示のコードでは、②の範囲以外なら処理を中断するようになっていますが、中断せずに続けて①の範囲かどうかを判断すれば良いでしょう。
(①の範囲と②の範囲に重複がないと仮定しています)
具体的には
If Not Intersect(Target, Range("AK17:CG500")) Is Nothing Then
' ②の範囲の場合の処理
ElseIf Not Intersect(Target, Range("AK6:CG6")) Is Nothing Then
' ①の範囲の場合の処理
End If
のような感じでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のファイルを他のプロセス...
-
【C#/Java?】try-catchでcatch...
-
ListViewから選択中の文字列を取得
-
特定の名前のオートシェイプの...
-
バッチファイルでのエラー処理...
-
フォルダのアクセス権確認について
-
エクセルVBAでロックをかけたい
-
VBAでBook読み込み時の非表示方...
-
EXCEL-VBAでキー入力で処理を分...
-
【C#】Page_Loadさせない方法に...
-
ドリブン??
-
Access プログレスバー 画面...
-
vbaのエラー対応(実行時エラー...
-
エクセル画面のちらつきなくす...
-
Excel VBA セルの名前があるか...
-
どうやってもFor文を抜けてしま...
-
IF文に時間(何時から何時ま...
-
シグナル 6(SIGABRT)とは?
-
複数個のTextBoxでいずれかの内...
-
basp21でメールが2通送信される
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【C#/Java?】try-catchでcatch...
-
IF文に時間(何時から何時ま...
-
vbaのエラー対応(実行時エラー...
-
マクロで、次のコードへ行く前...
-
private subモジュールを他のモ...
-
特定の名前のオートシェイプの...
-
シグナル 6(SIGABRT)とは?
-
Excel VBA セルの名前があるか...
-
特定のファイルを他のプロセス...
-
どうやってもFor文を抜けてしま...
-
VBA For Each 〜 複数条件について
-
ドリブン??
-
VB6にてネットワーク上にある共...
-
【VBA】エラー処理で別プロシー...
-
VBA 複数の行を高速で削除する...
-
【C#】Page_Loadさせない方法に...
-
どう増強すべきか
-
UWSCのTHREADについて
-
エクセル VBAで複数セル選択時...
-
Functionで戻り値を複数返す方法
おすすめ情報
ご回答ありがとうございます!
If Not Intersect(Target, Range("AK17:CG500")) Is Nothing Then
ElseIf Not Intersect(Target, Range("AK6:CG6")) Is Nothing Then
End If
とそのまま入力すればよいのでしょうか?
わからずコピペしてみたのですがうまくいきません(;_;)
ありがとうございます!明日出社後試してまた書かせていただきます!