コードを実行すると、このエラーが発生します。これは、この投稿の続きです: スクロール バーをラベルに追加する
最初に、ワークシートから情報を取得するラベルを持つ userForm を作成しました。スクロール バーを追加して、ラベルよりも長い場合にラベル内のリストを表示できるようにしました。テキストボックスを試すように言われました。私は自分のコードから次の行を取り出しました:
reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf
それをコピーして、テキスト ボックスの後に番号 1 を追加したので、テキスト ボックスのコードは次のようになります。
reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf
エラーがあるのはこの行です(投稿のタイトル)。