Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10951 / 76735

←次へ　｜　前へ→


	【71326】Re:ユーザーフォームのラベルキャプションの表示切替

hint - 12/2/21(火) 13:50 -


	引用なし

	パスワード

配列の()が抜けているのは、発言時のミスですか？

>lab = Array("1", "3", "5")
>としましたが、実際は("5", "6", "9")など、規則性が無いのですが、
>どうすればよいでしょうか？
一例です。
Option Explicit
Dim myLabel, myLabelText
Private Sub UserForm_Initialize()
　　Dim k As Long
　　myLabel = Array("5", "6", "9")
　　myLabelText = Array("あああ", "いいい", "ううう")
　　For k = 0 To 2
　　　 UserForm1.Controls("Label" & myLabel(k)).Caption = myLabelText(k)
　　Next
End Sub

これで、材料はすべてそろっているはずなので、あとは
あなたが正確に組み合わせるだけだと思います。
それでは私はこれで失礼します。

4 hits

▼

【71302】ユーザーフォームのラベルキャプションの表示切替 HoMa 12/2/20(月) 11:36