Excel VBA質問箱 IV

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

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


72288 / 76732 ←次へ | 前へ→

【8928】Re:オリジナルツールバーへのマクロの登録
お礼  猫おじさん  - 03/11/10(月) 11:50 -

引用なし
パスワード
   ichinose さん ありがとうございました。

>>'目玉アイコンに変える
>> Set con = newBar.Controls.Add(Type:=msoControlButton, ID:=23)
>>  con.FaceId = 2174 '2174は目玉です
>'   ↑ ここで、コマンドボタンをconにセットしていますよね?

>> その後、コマンドボタンをクリックしたときに、
>>標準モジュールにある「Sub 検算()」マクロを実行したいので   
>>   
>> newBar.OnAction = ThisWorkbook.Name & "!.検算"
>' よって、マクロの登録は、変数newBarではなく、conに対して行って下さい
>' con.OnAction = ThisWorkbook.Name & "!.検算"
>
>>や
>> newBar.OnAction = 確認.xls & ".検算"
>>等いろいろ試していますが、うまくいきません。
>>
>> 正しい、書き方をご教示ねがえれば幸いです。 
>>
>> なお、「Sub 検算()」は、「Sub aバッチ処理マクロ()」からも
>>Private Sub Worksheet_BeforeDoubleClickもcallしています。
>

con.OnAction = ThisWorkbook.Name & "!検算"
でうまく行きました。
 「検算」の前の「.」も余分でした。
0 hits

【8907】オリジナルツールバーへのマクロの登録 猫おじさん 03/11/7(金) 21:48 質問
【8910】Re:オリジナルツールバーへのマクロの登録 ichinose 03/11/7(金) 22:25 回答
【8928】Re:オリジナルツールバーへのマクロの登録 猫おじさん 03/11/10(月) 11:50 お礼

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