- ベストアンサー
ダブルクリックイベント
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ワークブックの方のイベントに記述すればいいように思います Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
関連するQ&A
- 《VBA》セルをダブルクリックしたときのイベント
Worksheet/BeforeDoubleClickを使用して、 フォームを表示するという処理を行っています。 エクセルのセルにリストボックスが設定されているセルがあるのですが、 リストボックスのセルをダブルクリックした時にはイベントが動作しません。 通常のセルをダブルクリックした時にはイベントは正常に動作します。 リストボックスが設定されているセルでは動作することができないのでしょうか。
- 締切済み
- その他（プログラミング・開発）
- ダブルクリックイベントで良いのかどうか？
お世話になります。 ダブルクリックイベントで、そのセルを赤く色を塗り、尚且つ、 そのセルをダブルクリックした事により、別のワークブックを開き、 また、開いたワークブックのシートの中からある単語を検索して その属性を現在アクティブにしている、ブックのシートに記入しよう としていますが、 まず、下記の様に、ダブルクリックイベントで、セルを赤く塗るまではうまくいったのですが、別のブックを開く事がうまく出来ません。 記述が悪いのか、または標準モジュールに記述するべきなのか分からなく困っています。 どなたかご教授頂きたく宜しくお願い申し上げます。 記 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Rng As Range, myRng As Range Set Rng = Range("c2:d2,f2") Set myRng = Intersect(Target, Rng) If myRng Is Nothing Then Exit Sub Rng.Interior.ColorIndex = xlColorIndexNone myRng.Interior.ColorIndex = 3 Cancel = True If Intersect(Target, Range("c2")) Then Workbooks.Open Filename:="C:\Documents and Settings\Owner\デスクトップ\台帳.xls" End If End Sub
- ベストアンサー
- Visual Basic
- 複数のダブルクリックイベントを同一シートで
以前 質問して回答をいただいたシートで他のダブルクリックイベントを記述したいのですが・・・ 単独だと できるようですが 複数できるようにしたいのですが エクセル2010です。 ＞http://okwave.jp/qa/q7230128.html A1：N1 のセルをダブルクリックしたら 色が黄色 また ダブルクリックしたら 色なし 教えをうけたマクロコードが 以下です。 ダブルクリックイベント その１ Private Sub worksheet_beforedoubleclick(ByVal Target As Excel.Range, cancel As Boolean) If Application.Intersect(Target, Range("A1:N1")) Is Nothing Then Exit Sub If Target.Interior.ColorIndex = xlNone Then Target.Interior.Color = vbYellow Else Target.Interior.ColorIndex = xlNone End If cancel = True End Sub ダブルクリックイベントその２ J8:J9,L8:L9,N8:N9,P8:P9,R8:R9,T8:T9,V8:V9,J29:J30,L29:L30,N29:N30,P29:P30,R29:R30 上の セルをダブルクリックしたら 現在時刻を表示したい 記述コードは 以下です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("J8:J9,L8:L9,N8:N9,P8:P9,R8:R9,T8:T9,V8:V9,J29:J30,L29:L30,N29:N30,P29:P30,R29:R30")) Is Nothing Then Exit Sub If ActiveCell = "" Then ActiveCell = Time Cancel = True End If End Sub 2つのコードをうまくまとめたいのですが 知識不足でとまどっております。 詳しいかた、アドバイスお願いいたします。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- シングルクリックとダブルクリックのイベントについて
皆さん、こんばんは。 ちょっと疑問に感じたものがありましたので質問させてください。 今日のある質問、 内容はセルをシングルクリックした場合と ダブルクリックした場合のイベントの違い。 その質問に対する次の回答について。 （１）両方のイベントを機能させるとSelectionChangeが先になり その後、同セルＷクリックでDoubleClickイベントが機能します （２）SelectionChange のシングル・クリックとBeforeDoubleClickの ダブル・クリックとはダブル・クリックの過程にシングル・クリック があるので、論理的に、そのイベントは重なってシングル・クリックに 取られるはずです」 （１）はたぶん回答者の勘違いだろうと思うのでそれはいいのですが、 疑問に感じたのは（２）の方です。 （２）の意味は、ダブルクリックすると必ずシングルクリック 即ちSelectionChangeイベントのみが発生し、 BeforeDoubleClickは発生しないということでしょうか いままでBeforDoubleClickも発生する場合があると思っていましたので質問しました。 回答者がＶＢＡ熟知の方なので当方が何か勘違いしているのかも知れませんが・・・。 以上宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Excel セル境界をダブルクリックで連続データの末尾移動 イベント取得は可能？
Excel(2002)で連続して並んでいるデータの中で、アクティブセルの境界（カーソルが上下左右の矢印に変わるところ）をダブルクリックすると、ちょうどEndキー＋↑↓←→を押したように、連続データの末尾にアクティブセルが移動します。（私10年近くExcelを使っていましたが、この機能は今日初めて知りました。） で、このダブルクリックの機能をトラップすることは可能でしょうか。Worksheet_BeforeDoubleClickイベントでは捕まえられないようですが。
- ベストアンサー
- オフィス系ソフト
- セルに貼り付けた画像の上からダブルクリックを機能させたい
エクセルの各セルの上に写真を貼り付けています。 このとき写真の上からダブルクリックしても Worksheet_BeforeDoubleClick 等が働きません。 これを働かせる方法を教えてください。 よろしくお願いします。
- 締切済み
- Visual Basic
- 「セルをダブルクリックしたら」イベント VBA
エクセルのシートのイベントで、「セルをダブルクリックしたら」 というのはないですか？ ここになければないのでしょうか？
- 締切済み
- Excel（エクセル）
- エクセル マクロ ダブルクリックのイベント
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range) というマクロをしても動きません。どうしてでしょうか？ 他のsheetchaneとかのマクロは動くのですが・・ （ダブルクリックしてもセルが入力可能な状態になるだけです）
- ベストアンサー
- オフィス系ソフト
- 特定の列でダブルクリックのイベントを発生させたい
ExcelのA列に写真を挿入し、その他の列に文字を入力するようなシートを作成しており、 (1)A列では写真を挿入 (2)その他の列ではExcel本来の仕様通り(ダブルクリックした付近から文字列を編集できる)に動作する 上記のようなマクロを検討しております。 サンプルとして以下のようなマクロを作成しました。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Cancel = True '===============A列以外は処理を行わない If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub '===============写真挿入処理 ～略～ End Sub しかしながら、ダブルクリックをした段階でBeforeDoubleClickが呼ばれ、 何もせず終了するため(2)でやりたいことが実現できないでおります。 BeforeDoubleClickとは別のものを利用できるのか、 実直に(2)の処理をマクロで記載するしかないのかご教授いただければと思います。
- ベストアンサー
- Excel（エクセル）
- 選択したセルでダブルクリックをするとエクセルマクロによりそのセルがコピ
選択したセルでダブルクリックをするとエクセルマクロによりそのセルがコピーされて、メモ帳等のテキストエディタで貼りつけるとその値が出るようにしたいと思っています。 ほとんどイメージ通りにできたのですが、テキストエディタで貼りつけた値に加えて改行が入ってしまいます。 どのようにすると改行コードを消せますか？できないのなら、どのようにすればエクセルで任意のセルをダブルクリックをしたときに改行コードのないようにコピーできますか？ 参考に現在のVBEで記述したコードを示します。 ----------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Target.Interior.ColorIndex = 37 Cancel = True Target.Copy End Sub
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。