Excel VBA質問箱 IV

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

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


33389 / 76734 ←次へ | 前へ→

【48566】Re:マクロボタンの名前を変数にしたい
発言  ichinose  - 07/4/22(日) 20:16 -

引用なし
パスワード
   ▼ユニフ さん:
>失礼しました。
>
>>・xxxxxxxxxxx
>>・yyyyyyyyyyy
>
>↑という書き方はわからないのですが、
つまり、誰がみてもオブジェクトを特定できるように
作成手順を箇条書きに記述してほしかったのです。


>ツール ユーザー設定 コマンド フォーム で出てくる
>ボタンで作っています。
このように形容してもらえばわかります。


新規ブックの標準モジュールに

'===========================================================
Sub test1()
  Dim idx As Long
  With ActiveSheet.Buttons
    For idx = 0 To 7
     With .Add(100, 30 + 30 * idx, 60, 20)
       .Name = "封筒入力" & idx + 1
       .Caption = "ボタン" & idx + 1
       End With
     Next
    End With
End Sub
'===================================================================
Sub test2()
  Dim idx As Long
  With ActiveSheet
    For idx = 0 To 7
     With .Buttons("封筒入力" & idx + 1)
       MsgBox .Caption
       End With
     Next
    End With
End Sub

test1で 封筒入力1から封筒入力8という名前を付けたボタンを
作成します。

test2では、
作成した封筒入力1から封筒入力8のボタンのCaption(表示テキスト)を
Buttonsコレクションを使用して、表示しています。


これは、変数を使うという方法ではありませんが、
こういうことが知りたいのではないですか?

6 hits

【48563】マクロボタンの名前を変数にしたい ユニフ 07/4/22(日) 19:25 質問
【48564】Re:マクロボタンの名前を変数にしたい ichinose 07/4/22(日) 19:32 発言
【48565】Re:マクロボタンの名前を変数にしたい ユニフ 07/4/22(日) 19:42 発言
【48566】Re:マクロボタンの名前を変数にしたい ichinose 07/4/22(日) 20:16 発言
【48567】題名を間違えました ユニフ 07/4/22(日) 20:58 発言
【48568】うまくいきました。 ユニフ 07/4/22(日) 21:08 お礼

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