|
リストの数が多いのでトロイ私の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
それと、営業担当者の入ったセル範囲は、あらかじめソートして置いてください。
|
|