単独セルをダブルクリックして「レ」を入力する、
マクロは組めたのですが、
結合されたセルに適用しようとして、エラーではじかれています。
下記のマクロ構文のどこを変えれば、対応できますでしょうか?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim flag As Object
Const adr As String = "W98:W100,W102:W107,AM98:AM100,AM102:AM107,BC98:BC107,BS98:BS107"
Set flag = Application.Intersect(Target, Range(adr))
If flag Is Nothing Then Exit Sub
Cancel = True
If Target.Value = "レ" Then
Target.Value = Clear
Else
Target.Value = "レ"
End If
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
変数のflg は、常識的には、boolean ですね。
If Target.Cells(1).Value = "レ" Then
Target.Cells(1).Value = ""
''または、Target.Cells(1).ClearContents
Else
Target.Cells(1).Value = "レ"
End If
''//
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Rng As Range
Const ADR As String = "W98:W100,W102:W107,AM98:AM100,AM102:AM107,BC98:BC107,BS98:BS107"
Cancel = True '←これを忘れないこと
Set Rng = Intersect(Target, Range(ADR))
If Rng Is Nothing Then Exit Sub
Cancel = True
If Target.Cells(1).Value = "レ" Then
Target.Cells(1).ClearContents
Else
Target.Cells(1).Value = "レ"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
マクロを使って結合セルに丸を付ける+αな難題。。
Visual Basic(VBA)
-
-
4
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
5
excelで結合セルの場合にエラーが出てしまう
Visual Basic(VBA)
-
6
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
7
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
8
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
9
ExcelVBA 結合セル
Excel(エクセル)
-
10
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
11
エクセルVBA intersect columnsの複数列のやり方
Visual Basic(VBA)
-
12
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
13
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
14
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
15
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
16
VBAでセルをクリックする回数で表示が変わる
その他(プログラミング・Web制作)
-
17
ExcelVBAでセルをクリックしてユーザーフォームを表示するには
Excel(エクセル)
-
18
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
19
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
20
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ギャル文字の文章です。訳して...
-
無所属 不可分 有備無患 傍若無...
-
漢文の書き下しと訳をどなたか...
-
チェックボックスにレ点を入れ...
-
詳しい方教えてください(*^^*) ...
-
レ点の入力方法がわかりません...
-
このギャル文字の意味を教えて...
-
エクセルマクロで結合されたセ...
-
相談させてください。 バックレ...
-
広島県の方、この方言は普段自...
-
□に入れたレ点を消したい
-
(*´꒳`*)、(^^)、╰(*´︶`*)╯♡の...
-
(*´∀`*)と(*´꒳`*)の顔文字の...
-
スペイン人からのメールでxD、...
-
XVideosの旗マークはどういう意...
-
早急な回答をお願いします。 三...
-
夫からのメール いつも夫からは...
-
このような顔文字見て、何か気...
-
こんな顔文字ありますか?
-
ハンカチ振っている顔文字
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
このギャル文字の意味を教えて...
-
所以見賢 これで けんとせらる...
-
エクセルマクロで結合されたセ...
-
「レレレのレ」って・・・
-
無所属 不可分 有備無患 傍若無...
-
ギャル文字の文章です。訳して...
-
相談させてください。 バックレ...
-
レ点の入力方法がわかりません...
-
レ点が連続で付く場合・・・
-
ゲーミングマウスのg703hの初期...
-
努力と才能に関する漢文生まれ...
-
[至急]作文の数字の書き方に...
-
チェックボックスにレ点を入れ...
-
立川駅の米タンについて
-
返り点の問題まじでわかりませ...
-
わかる方ご回答お願い致します...
-
漢文のレ点について
-
漢文について。
-
【エクセル】 レ点をつける□を...
-
返り点の問題で質問です ○ レ ○...
おすすめ情報