Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


21476 / 76732 ←次へ | 前へ→

【60653】Re:リストボックスで選択した名前をセルに入れたいんですが
質問  みどり  - 09/3/6(金) 15:47 -

引用なし
パスワード
   Jaka さん、お返事が遅くなって申し訳御座いませんでした。
凄いです、ユーザーフォームを使わずに
出来るんですね。
有難う御座いました。
ただ、教えていただいた方法を私が理解できずに
うまく動かせなくて悪戦苦闘していましたのでごめんなさい。

もう一つ質問なんですが、教えていただいたものを繰り返し
行なうにはどうしたらいいのでしょうか?


>なんか見てないみたいだけど、まあ良いや。
>
>今までできないと思って、やったこと事がなかったのですが、
>夜中にやってみたらできたので、中途半端なコードを載せます。
>右クリックで起動します。
>
>事前に用意して置いてください。
>
>名簿シートをSheet2とします。
>あ行の名簿を A1:A5
>か行の名簿を B1:B5
>さ行の名簿を C1:C5
>た行の名簿を D1:D5
>とします。
>
>標準モジュールは前回と同じ。
>
>シートモジュールだけ変更。
>
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
>Dim Cel As Range
>'If Target.Column > 1 Then Exit Sub
>Cancel = True
>With Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True)
>  With .Controls.Add(Type:=msoControlPopup)
>     .Caption = "あ行"
>     For Each Cel In Sheets("Sheet2").Range("A1:A5") '営業担当者の入ったセル範囲、あ行
>       With .Controls.Add(Type:=msoControlButton)
>         .Caption = Cel.Value
>         .FaceId = 80
>         .OnAction = "マクロ1"
>       End With
>     Next
>  End With
>  With .Controls.Add(Type:=msoControlPopup)
>     .Caption = "か行"
>     For Each Cel In Sheets("Sheet2").Range("B1:B5") '営業担当者の入ったセル範囲、か行
>       With .Controls.Add(Type:=msoControlButton)
>         .Caption = Cel.Value
>         .FaceId = 90
>         .OnAction = "マクロ1"
>       End With
>     Next
>  End With
>  With .Controls.Add(Type:=msoControlPopup)
>     .Caption = "さ行"
>     For Each Cel In Sheets("Sheet2").Range("C1:C5") '営業担当者の入ったセル範囲、さ行
>       With .Controls.Add(Type:=msoControlButton)
>         .Caption = Cel.Value
>         .FaceId = 98
>         .OnAction = "マクロ1"
>       End With
>     Next
>  End With
>  With .Controls.Add(Type:=msoControlPopup)
>     .Caption = "た行"
>     For Each Cel In Sheets("Sheet2").Range("D1:D5") '営業担当者の入ったセル範囲、た行
>       With .Controls.Add(Type:=msoControlButton)
>         .Caption = Cel.Value
>         .FaceId = 99
>         .OnAction = "マクロ1"
>       End With
>     Next
>  End With
>  .ShowPopup
>End With
>End Sub
>
>追伸
>前回、遅いと思っていたのは遅いPCのせいだったみたいです。
>Pen4 1.6Gでやってみたら、ストレスなくあっさり表示されました。
2 hits

【60620】リストボックスで選択した名前をセルに入れたいんですが みどり 09/3/5(木) 12:51 質問
【60621】Re:リストボックスで選択した名前をセルに... kanabun 09/3/5(木) 13:18 発言
【60622】Re:リストボックスで選択した名前をセルに... みどり 09/3/5(木) 15:33 質問
【60623】Re:リストボックスで選択した名前をセルに... kanabun 09/3/5(木) 15:50 発言
【60625】Re:リストボックスで選択した名前をセルに... Jaka 09/3/5(木) 16:28 発言
【60626】Re:リストボックスで選択した名前をセルに... Jaka 09/3/5(木) 16:33 発言
【60636】Re:リストボックスで選択した名前をセルに... Jaka 09/3/6(金) 9:19 発言
【60653】Re:リストボックスで選択した名前をセルに... みどり 09/3/6(金) 15:47 質問
【60654】Re:リストボックスで選択した名前をセルに... Jaka 09/3/6(金) 16:22 発言
【60656】Re:リストボックスで選択した名前をセルに... みどり 09/3/6(金) 16:58 質問
【60690】Re:リストボックスで選択した名前をセルに... Jaka 09/3/9(月) 9:43 発言
【60696】Re:リストボックスで選択した名前をセルに... みどり 09/3/9(月) 16:41 質問
【60697】Re:リストボックスで選択した名前をセルに... Jaka 09/3/9(月) 17:30 発言
【60700】Re:リストボックスで選択した名前をセルに... みどり 09/3/9(月) 20:03 質問
【60706】Re:リストボックスで選択した名前をセルに... Jaka 09/3/10(火) 9:15 発言
【60709】Re:リストボックスで選択した名前をセルに... みどり 09/3/10(火) 11:34 お礼
【60713】Re:リストボックスで選択した名前をセルに... Jaka 09/3/10(火) 11:47 発言
【60714】Re:リストボックスで選択した名前をセルに... みどり 09/3/10(火) 14:41 お礼

21476 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free