| |
こんばんは。
セルを編集中の右クリックメニューについて、
ご存知の方がいれば教えてください。
環境はWin2000/Excel2000です。
セルに文字列を入力中に右クリックメニューから定型文を挿入したい思い、
チャレンジしてみたのですがうまくいきません。
編集状態（この言い方が正しいのかわかりませんが）でなければ
下記マクロで文字列の最後に追加することはできるのですが・・・
困っているのは下記2点です。
１、
セルの編集中のメニューCommandBars("ここがわからない")
Sub Test()
Dim Obj As Object
For Each Obj In Application.CommandBars
Debug.Print Obj.Name
Next Obj
End Sub
で、吐き出してみてあたりをつけていたのですが見つかりません。
２、
セルの編集中に文字列を挿入することができるのでしょうか？
というよりマクロを動作させることができるのでしょうか？
よろしくお願い致します。
'ThisWorkbookモジュール
Option Explicit
Const BarName As String = "定型挿入"
Const MyAction As String = "Put_Str"
Private Sub Workbook_Open()
'2重登録を防ぐ
On Error Resume Next
Application.CommandBars("Cell").Controls(BarName).Delete
On Error GoTo 0
'セルの右クリックメニューに追加
With Application.CommandBars("Cell")
With .Controls.Add(msoControlButton, , , , True)
.Caption = BarName
.OnAction = MyAction
End With
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'閉じるときに右クリックメニュー削除
On Error Resume Next
Application.CommandBars("Cell").Controls(BarName).Delete
On Error GoTo 0
End Sub
'---------------
'標準モジュール
Option Explicit
Sub Put_Str()
Dim Str As String
Str = "決まり文句"
ActiveCell.Value = ActiveCell.Value & Str
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
