エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27291 for マクロ (0.014 sec.)

[[20200528161906]]: #score: 2168; @digest: 266bac099076a10a49debf3f97ffc898; @id: 83794; @mdate: 2020-05-28T08:17:52Z; @size: 3533; @type: text/plain; #keywords: ロs (21016), ロp (19043), 業表 (14531), ロb (11394), ロa (8391), 行" (5646), 認時 (3649), beforedoubleclick (3613), falcon (3330), 除se (2730), cancel (2642), intersect (2423), target (2277), （fa (1689), 再考 (1689), boolean (1379), case (1278), ルク (1234), マク (1210), ダブ (1132), nothing (1128), クロ (1088), 起動 (1015), 構文 (830), msgbox (816), 様有 (815), を起 (804), ル番 (705), worksheet (705), 名前 (683), private (669), 番地 (663); 『セルをダブルクリックしてマクロを起動』（FALCON）
よろしくお願いしますセル内の文字をダブルクリックしてマクロを起動したいと思います Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not (Target.Row = 1 And Target.Column = 4) Then Exit Sub ●マクロ End Sub こういう構文をみつけ出来たのですがセルが表になって複数あるのですがセルの範囲に名前を付けて、その名前の範囲のセルならマクロを起動するにはどういう構文にすればいいでしょうか A B C D 1 マクロA マクロB マクロP 2 3 マクロS A1〜D3に作業表という名前を付けてダブルクリックでおのおののマクロを実行したいと考えています＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- いろいろな方法があると思いますが例をいくつか Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True 'セルの選択を解除 Select Case True Case Target.Address(0, 0) = "A1" 'アドレスがA1 MsgBox "Hello" Case Not Intersect(Target, Range("B1:C3")) Is Nothing 'B1〜C3の範囲 MsgBox "World" Case Target.Row = 5 '5行目 MsgBox "Good" End Select End Sub （ごむのおすし） 2020/05/28(木) 16:44 ---- 参考に Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case True Case Not Intersect(Range("作業表1"), Target) Is Nothing MsgBox "マクロA実行" Case Not Intersect(Range("作業表2"), Target) Is Nothing MsgBox "マクロB実行" Case Not Intersect(Range("作業表3"), Target) Is Nothing MsgBox "マクロP実行" Case Not Intersect(Range("作業表4"), Target) Is Nothing MsgBox "マクロS実行" Case Else Exit Sub End Select Cancel = True End Sub （ピンク） 2020/05/28(木) 16:55 ---- 書き込もうとしたら、編集がかぶったのでついでにちょっと再考。＞セルの範囲に名前を付けて、その名前の範囲のセルならマクロを起動というところに反応して Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:D3")) Is Nothing Then Cancel = True MsgBox Target.Address(False, False) & "で右クリックされました" End If End Sub ↑みたいに、Intersectメソッドで右クリックしたセルが「名前を付けたセル範囲」と重なるか判定してから、特定のセルだったら、対応するマクロに移行すればよいと思います・・・とかんがえましたが、ごむのおすしさんが示されているように、【名前をつけたセル番地は関係なく】ダブルクリックしたセル番地で分岐すればいい話なのかもしれませんね。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:D3")) Is Nothing Then Cancel = True Select Case Target.Address(False, False) Case Is = "A1": 'Call マクロA Case Is = "B1": 'Call マクロB Case Is = "C1": 'Call マクロP Case Is = "D3": 'Call マクロS End Select End Sub （もこな2 ） 2020/05/28(木) 16:59 ---- 皆様有難うございます作業を進めながら質問をさせて頂いております確認時間がなくなってしまい」ましたので明日改めて確認させて頂きます少しお時間を頂きます有難うございました。（FALCON） 2020/05/28(木) 17:17 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200528161906.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ