単独セルをダブルクリックして「レ」を入力する、
マクロは組めたのですが、
結合されたセルに適用しようとして、エラーではじかれています。
下記のマクロ構文のどこを変えれば、対応できますでしょうか?
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
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
11
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
12
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
13
エクセルVBA intersect columnsの複数列のやり方
Visual Basic(VBA)
-
14
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
15
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
16
VBAでセルをクリックする回数で表示が変わる
その他(プログラミング・Web制作)
-
17
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
18
エクセルVBAでオプションボタンを無効にする方法
Excel(エクセル)
-
19
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
20
ExcelVBAでセルをクリックしてユーザーフォームを表示するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
無所属 不可分 有備無患 傍若無...
-
このギャル文字の意味を教えて...
-
ギャル文字の文章です。訳して...
-
レ点が連続で付く場合・・・
-
「レレレのレ」って・・・
-
チェックボックスにレ点を入れ...
-
【エクセル】 レ点をつける□を...
-
Google Chromeの拡張機能設定_...
-
返り点の問題まじでわかりませ...
-
(*´꒳`*)、(^^)、╰(*´︶`*)╯♡の...
-
(*´∀`*)と(*´꒳`*)の顔文字の...
-
ハンカチ振っている顔文字
-
意味のわからない顔文字があり...
-
_( . _ . )_
-
この顔文字なんて打ったらでて...
-
(≧∀≦)←この顔文字について
-
ペイターズのメッセージ機能の...
-
⊂⌒~⊃。Д。)⊃、の意味を教えてく...
-
WINDOWS2000の単語登録
-
Googleマップでみつけた変なマーク
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
このギャル文字の意味を教えて...
-
所以見賢 これで けんとせらる...
-
エクセルマクロで結合されたセ...
-
「レレレのレ」って・・・
-
無所属 不可分 有備無患 傍若無...
-
ギャル文字の文章です。訳して...
-
相談させてください。 バックレ...
-
レ点の入力方法がわかりません...
-
レ点が連続で付く場合・・・
-
ゲーミングマウスのg703hの初期...
-
努力と才能に関する漢文生まれ...
-
[至急]作文の数字の書き方に...
-
チェックボックスにレ点を入れ...
-
立川駅の米タンについて
-
返り点の問題まじでわかりませ...
-
わかる方ご回答お願い致します...
-
漢文のレ点について
-
漢文について。
-
【エクセル】 レ点をつける□を...
-
返り点の問題で質問です ○ レ ○...
おすすめ情報