|
>処理後に右クリックのメニューが表示される
これはコードの冒頭に
Cancel = True
を追加するだけで回避できます。
>コマンドボタンを押した後にこのコードを実行させよう
もし右クリックイベントを止めて、ユーザーフォームのコマンドボタンの
クリックイベントに変えたいなら、冒頭部分は
略
If TypeName(Selection) <> "Range" Then Exit Sub
Set Sh = Worksheets("運送実績")
For Each C In Selection
略
というように変更すれば良いでしょう。
また、このように書き換えたコードなら、任意の適当なタイトルを付けて
標準モジュールに入れておくことで、任意のイベントマクロから
Call ステートメント で呼び出して使うことができます。その場合、例えば
先の右クリックイベントなら
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
Call 任意のマクロ名
End Sub
というように「そのイベントに特有の引数」のみを、適当な位置に入れる
ようにします。
|
|