| |
▼ユニフ さん：
>失礼しました。
>
>>・ｘｘｘｘｘｘｘｘｘｘｘ
>>・ｙｙｙｙｙｙｙｙｙｙｙ
>
>↑という書き方はわからないのですが、
つまり、誰がみてもオブジェクトを特定できるように
作成手順を箇条書きに記述してほしかったのです。
>ツール ユーザー設定 コマンド フォーム で出てくる
>ボタンで作っています。
このように形容してもらえばわかります。
新規ブックの標準モジュールに
'===========================================================
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コレクションを使用して、表示しています。
これは、変数を使うという方法ではありませんが、
こういうことが知りたいのではないですか？
|
|
ichinose
- 07/4/22(日) 20:16 -
