Excel VBA質問箱 IV

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

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


21508 / 76738 ←次へ | 前へ→

【60625】Re:リストボックスで選択した名前をセルに入れたいんですが
発言  Jaka  - 09/3/5(木) 16:28 -

引用なし
パスワード
   リストの数が多いのでトロイ私のPCだとかなり遅いです。

該当シートモジュール

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)
  For Each Cel In Range("F1:F120") '営業担当者の入ったセル範囲
    With .Controls.Add(Type:=msoControlButton)
      .Caption = Cel.Value
      .FaceId = 45
      .OnAction = "マクロ1"
    End With
  Next
  .ShowPopup
End With
End Su


標準モジュール

Sub マクロ1()
Dim BBt As CommandBarControl
Set BBt = Application.CommandBars.ActionControl
ActiveCell.Value = BBt.Caption
Set BBt = Nothing
End Sub

それと、営業担当者の入ったセル範囲は、あらかじめソートして置いてください。
3 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 お礼

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