指定したセルは○ではなく△が表示されるようにしたいのですが上手くいきません。
Intersectで実行すると下記みたいに削除ができません。
If Intersect(Target, Range("a5:d5")) Is Nothing Then
exit sub
else
Target.Value = "△"
end if
★a5:d5は△でそれ以外は○を表示したい
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("d:i")) Is Nothing Then
Exit Sub
Else
End If
If Target.Value = "○" Then 'クリックで入力
Target.Value = "" 'クリックで削除
Else
Target.Value = "○"
Application.EnableEvents = False
Range("a1").Activate
Application.EnableEvents = True
End Sub
どうぞよろしくお願いします。
No.2ベストアンサー
- 回答日時:
D5って 〇 or △?
>★a5:d5は△でそれ以外は○を表示したい
なら、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect(.Cells, Range("a5:d5")) Is Nothing Then
.Value = IIf(.Value = "△", "", "△")
ElseIf Not Intersect(.Cells, Range("d:i")) Is Nothing Then
.Value = IIf(.Value = "○", "", "○")
End If
End With
Application.EnableEvents = False
Range("a1").Activate
Application.EnableEvents = True
End Sub
No.1
- 回答日時:
こんばんは。
質問と幾つかコードがあって、何を希望されていて、何が分からないのか、
イマイチ、良く分かりませんが、下記の様な事でしょうか?
Intersectで実行すると下記みたいに削除ができません。
If Intersect(Target, Range("a5:d5")) Is Nothing Then
Target.Value = "○"
else
Target.Value = "△"
end if
★a5:d5は△でそれ以外は○を表示したい
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指数関数近似を行うプログラム...
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
select caseの入れ子
-
VBAバーコード照合 バーコード...
-
xlookup関数の引数を利用して検...
-
vbs 文字位置を中央に
-
エクセルで選択したセルがディ...
-
スペース区切りのAND検索
-
ASPでバイナリ(ビッグエンディ...
-
半透明ブラシ重ね塗りのアルゴ...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
おすすめ情報