Excel VBA質問箱 IV

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

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


39069 / 76732 ←次へ | 前へ→

【42784】セルを編集中の右クリックメニューは?
質問  ハチ  - 06/9/21(木) 20:10 -

引用なし
パスワード
   こんばんは。

セルを編集中の右クリックメニューについて、
ご存知の方がいれば教えてください。
環境はWin2000/Excel2000です。

セルに文字列を入力中に右クリックメニューから定型文を挿入したい思い、
チャレンジしてみたのですがうまくいきません。
編集状態(この言い方が正しいのかわかりませんが)でなければ
下記マクロで文字列の最後に追加することはできるのですが・・・

困っているのは下記2点です。
1、
セルの編集中のメニューCommandBars("ここがわからない")
Sub Test()
  Dim Obj As Object
  
  For Each Obj In Application.CommandBars
    Debug.Print Obj.Name
  Next Obj
End Sub
で、吐き出してみてあたりをつけていたのですが見つかりません。

2、
セルの編集中に文字列を挿入することができるのでしょうか?
というよりマクロを動作させることができるのでしょうか?

よろしくお願い致します。


'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

0 hits

【42784】セルを編集中の右クリックメニューは? ハチ 06/9/21(木) 20:10 質問
【42787】Re:セルを編集中の右クリックメニューは? kobasan 06/9/21(木) 21:18 発言
【42802】Re:セルを編集中の右クリックメニューは? ハチ 06/9/22(金) 9:31 お礼

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