
コードは以下のとおりです。エラーメッセージは、「実行時エラー、-2147221005(800401f3),
クラス文字列が無効です」。ブレークポイントでは6行目の「Set lbl=Me.Controls.Add("Forms.Labl.1", ,True)のところで、エラーになります。Addメソッドが間違っているのでしょうか?
ご教授よろしくお願いします。
Dim lbl As MSForms.Label
Dim i As Integer, j As Integer, c As Integer
Dim Weekdays() As Variant 'データ型に注意
Weekdays() = Array("日", "月", "火", "水", "木", "金", "土")
For i = 1 To 7
Set lbl = Me.Controls.Add("Forms.Labl.1", , True)
With lbl
.Caption = Weekdays(i - 1)
.Width = 15
.Height = 15
.Left = 5 + (.Width + 2) * (i - 1)
.Top = 20
.BorderColor = &H666666
.BorderStyle = fmBorderStyleSingle
.Font.Size = 11
End With
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) IBM Notes9のメールをExcelVBAにて送信するコードについての質問です。 以下のコードを 3 2023/06/21 17:58
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
このQ&Aを見た人はこんなQ&Aも見ています
-
「クラス文字列が無効です」のメッセージ
Windows Vista・XP
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
VBAがブレークモードになっているため、この機能は実行できません。パワ
その他(Microsoft Office)
-
-
4
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
7
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
8
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
9
VBA Constの指定シートのセルを指定する方法
Visual Basic(VBA)
-
10
UserForm1.Showでエラーになります。
工学
-
11
VBA TEXTBOXテキストボックスの文字の大きさが一定にならない。 ユーザーフォームでテキストボ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBAがブレークモードになっ...
-
EXCEL VBAマクロ中断でデバッグ...
-
ExcelVBA Range クラスの Page...
-
VBAでのエラー
-
実行時エラー3001「引数が間違...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAで、定数式が必要ですのエラ...
-
XPでエラー
-
実行時エラー48発生時のDLL特定...
-
OLEDB.NETで接続できない
-
マクロについて教えてください...
-
AxMSFlexGridのset_TextMatrix...
-
VBAのエラー発生場所をメッセー...
-
VBAのコードがエラーになっ...
-
VB6+SQL サーバー 2000 で 実行...
-
SQL文をVBAで流すと「型...
-
ADODB.Streamを使用してUTF-8を...
-
エクセルVBAで以下のようなコー...
-
トランスポートレベルのエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー -'-2147417848
-
ExcelVBA Range クラスの Page...
-
マクロについて教えてください...
-
VBAでのエラー
-
【Excel VBA】マクロをボタンに...
-
実行時エラー48発生時のDLL特定...
-
EXCEL VBAマクロ中断でデバッグ...
-
なぜエラーになるのでしょうか...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
INSERT INTOステートメント構文...
-
VBAのエラー発生場所をメッセー...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
ADODB.Streamを使用してUTF-8を...
-
カーソルオープンでエラー(ORA...
-
Invalid procedure call or arg...
おすすめ情報