No.6ベストアンサー
- 回答日時:
おかしいですね。
検証サンプルX3からY15の範囲でダブルクリックするとダブルクリックしたセルの値がB1に入力される。
Sheet1のモジュールにコピペ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("X3:Y15")) Is Nothing Then
Range("B1") = Target.Value
Cancel = True
End If
End Sub
あ、なるほど
Ifからの分は、宣言プロージャ? の中に含むんですね、その部分が違っていました。
おかげさまで動きました。
最後まで教えて頂き大変感謝しております。
ありがとうございました。
No.5
- 回答日時:
>と入れてダブルクリックしてみたのですが、何も起こりません。
なにか他にやるべきなんでしょうか?>VBAの画面に
この画面とは何を指していますか?
質問にシート名がないのですが、ダブルクリックする 該当のシートモジュールにコードを書きます。
参考 https://ateitexe.com/excel-vba-module/
再回答ありがとうございます。
利用する実際に数式が入っているシートのモジュールに記述しました。
コードは以下の部分が全てですよね?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
If Not Intersect(Target, Range("X3:Y15")) Is Nothing Then
Range("B1") = Target.Value
Cancel = True
End If
ダブルクリックしてみましたが、普通通りセルが入力状態に変わるだけのようです。
No.4
- 回答日時:
めぐみんさん
その通りですね。(ByVal Target As Range, Cancel As Boolean)ですものね。
趣味の範疇で回答しているのは、良くないなぁと思うこの頃です。
力技や処理をそのまま進めたり(やりたい事の言葉通り)、、Objectがごっちゃになったり、、
仕事でVBA書くこともないので、、具体的な例を挙げられるレベルではないですね。。
ご指摘、ありがとうございます。感謝いたします。
知識として出来れば良いと言う事ではないので
#3にあるように、次のようにするべきです。
If Not Intersect(Target, Range("X3:Y15")) Is Nothing Then
Range(Target.Address)に付いては、RangeからAddressをわざわざ取り出し
それをまたRangeとすると言う無駄な事を行っています。
Targetと言う名前で変数を使う癖があり、変な癖がついてしまったのと、
正しい認識がなく書いたものなどで反省します。
gekikaraouさんすみません。
回答ありがとうございます。
VBAの画面に
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
If Not Intersect(Target, Range("X3:Y15")) Is Nothing Then 'TargetがRange範囲にあれば、、
Range("B1") = Target.Value
Cancel = True
End If
と入れてダブルクリックしてみたのですが、何も起こりません。
なにか他にやるべきなんでしょうか?
No.3
- 回答日時:
回答ではないですが。
No.2さんの
>If Not Intersect(Range(Target.Address), Range("X3:Y15")) Is Nothing Then
は
If Not Intersect(Target, Range("X3:Y15")) Is Nothing Then
で良かったと記憶しているのですが。。。
Target は Range型ですので。
もし遠い記憶違いであればごめんなさい。
No.2
- 回答日時:
やっぱり、条件設定の方法をExcelVBAらしく?しないと叱られるかも知れないので下記も参考に
If Not Intersect(Range(Target.Address), Range("X3:Y15")) Is Nothing Then ’TargetがRange範囲にあれば、、
Range("B1") = Target.Value
Cancel = True
End If
結果は#1と同じです。
No.1
- 回答日時:
VBEを起動して(Alt+F11)該当のシートモジュールにダブルクリックイベントを拾うプロシージャを作ります。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
その中に、セルの条件(実行条件)を設定してメインコードを書きます。
例として Target の列番号範囲、行番号範囲で条件を設定します。
Targetは、ダブルクリックしたセルオブジェクトで、Columnなら列番号 Xは24番
同様に.Row は、行番号です。他にもAddressなどでセルの場所を認識できます。
If Target.Column = 24 Or Target.Column = 25 Then ’X,Y列ならば、次を実行
If Target.Row >= 3 And Target.Row <= 15 Then ’3~15行ならば、次を実行
Range("B1") = Target.Value ’ダブルクリックしたTargetの値をB1セルに(貼り付けとありますが、参照形式で。貼り付けにしたい場合は、この行部分を変えます)
Cancel = True ’ダブルクリックをCancel そのままセル内にカーソルを入れたい場合は削除、要りません。
End If
End If
内容や意味を確認して、このコードをプロシージャ内にコピー
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- Excel(エクセル) エクセルマクロ セルをクリックするたびに記号を入力 1 2022/10/13 19:47
- Excel(エクセル) エクセルの計算式について教えて下さい。 sheet1のA1セルの値をsheet2のB1セルに返し、尚 1 2022/05/25 11:32
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセルで月末、月初の判定をしたい。 4 2022/05/18 23:22
- Excel(エクセル) エクセルの関数(式)を教えてください。 1 2022/09/27 09:28
- Excel(エクセル) エクセルで 例えばA1のセルに1+1 と入力すると B1のセルに2 と答えが出る関数があったと思いま 8 2022/12/16 20:57
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA セルをダブルクリック→違うセルに値をコピー
Excel(エクセル)
-
エクセルでセルをダブルクリックしたらそのブックの別のシートに飛ぶ動作
Excel(エクセル)
-
エクセル クリックした値を転記
Excel(エクセル)
-
-
4
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
5
エクセルVBAでダブルクリックをしたらA列のデータが別シートに転記されるにはどうしたらよいですか?
Visual Basic(VBA)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
8
選択したセルでダブルクリックをするとエクセルマクロによりそのセルがコピ
Visual Basic(VBA)
-
9
同じシート内にイベントプロシージャが二つある時
Excel(エクセル)
-
10
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
11
Excelマクロでセルの値を他のセルに表示する方法
その他(Microsoft Office)
-
12
VBAのテキストボックスに文字列を貼り付ける方法
Access(アクセス)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
VBAで文字列を数値に変換したい
Excel(エクセル)
-
15
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
16
エクセルにて、クリックした場所にテキストボックスを貼り付け
Excel(エクセル)
-
17
エクセル ボタンに設定したマクロごとボタンをコピー
Excel(エクセル)
-
18
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
19
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
至急!尿検査前日にオナニーし...
-
精子が黄色?
-
甲状腺が腫れているが血液検査...
-
腕を見たら黄色くなってる部分...
-
風俗店へ行く前のご飯
-
Excelで""で囲む方法
-
エクセル指定した範囲からラン...
-
EXCELで条件付き書式で空白セル...
-
尿検査前日に自慰行為した時の...
-
精子に血が・・・
-
EXCELで式からグラフを描くには?
-
筋トレするとチンコが縮んじゃ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報