0

コードを実行すると、このエラーが発生します。これは、この投稿の続きです: スクロール バーをラベルに追加する

最初に、ワークシートから情報を取得するラベルを持つ userForm を作成しました。スクロール バーを追加して、ラベルよりも長い場合にラベル内のリストを表示できるようにしました。テキストボックスを試すように言われました。私は自分のコードから次の行を取り出しました:

reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

それをコピーして、テキスト ボックスの後に番号 1 を追加したので、テキスト ボックスのコードは次のようになります。

reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf

エラーがあるのはこの行です(投稿のタイトル)。

ここに画像の説明を入力

4

2 に答える 2

2

というテキスト ボックス オブジェクトを作成したreportDate1か、それとも単にコードをコピーしたか?

オブジェクトが呼び出されreportDate1ず、変数Dimed がなくOption Explicit、モジュールの先頭にステートメントreportDate1がない場合、キャプション メソッドまたはプロパティを持たないバリアントになります。

近所に奇妙な何かが... 以下は、開発モードと実行モードでの簡単なテスト ケースのスクリーン ショットです。テキストは任意の文字列で、改行はありません。バージョン/OSが問題になる可能性がありますか? Windows Excel 2010 を使用しています。

ここに画像の説明を入力

于 2011-04-14T19:11:43.580 に答える
0

また、フォームにreportDate1という名前のオブジェクトを作成しましたか?

于 2011-04-14T19:10:39.633 に答える