![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
「Sub 個別印刷()」でオブジェクトが必要です (エラー 424)の解決策をご教示ください。
「立会者シート」に入力した日別データ(5~14行目)を、立会者氏名(C列)を基準に「入館届シート」に複写して印刷します。
(立会者シート)
4行目 番号(A列) 立会日(B列) 立会者(C列) 同伴者1(D列) 同伴者2(E列)
5行目
6行目
「Sub 一括印刷()」は問題なくできるのですが、特定の番号のみを個別印刷する「Sub 個別印刷()」では、★印の箇所で”オブジェクトが必要です (エラー 424)”となります。解決策をご教示ください。
Sub 一括印刷()
Dim i As Long
For i = 5 To 14
If Worksheets("立会者").Cells(i, 3).Value <> "" Then
Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = Sheets("立会者").Cells(i, 2).Resize(, 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next
End Sub
Sub 個別印刷()
Dim n As Variant
Dim foundcell As Variant
For Each n In Split(InputBox("印刷する立会日の番号を入力して下さい" _
& vbCrLf & vbCrLf & "複数の場合は番号をカンマで区切って下さい"), ",")
Worksheets("立会者").Select
Set foundcell = Range("A5:A14").Find(n, after:=Range("A14"), lookat:=xlWhole)
If foundcell Is Nothing Then
MsgBox "番号が見つかりません。"
Else
★Worksheets("入館届").Cells(4, 11).Resize(, 4).Value = _
★Worksheets("立会者").Range("B4:E4").Offset(foundsell.Row - 4).Value
Worksheets("入館届").PrintOut copies:=1
End If
Next n
End Sub
No.2ベストアンサー
- 回答日時:
・・・Offset(foundsell.Row - 4)・・・
foundcell が正しいような気がする!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
セルのコピーで「オブジェクトが必要です。」
Visual Basic(VBA)
-
(初心者です)VBAについて。「実行時エラー424、オブジェクトが必要です」について
Visual Basic(VBA)
-
VBAで Set wb = Sheets(1).Copyができないわけ?
PowerPoint(パワーポイント)
-
-
4
VBAのエラーについて、”実行時エラー424オブジェクトが必要です”
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Userform内のFrameのCaptionが...
-
VBSでExcelファイル印刷時のプ...
-
ご存知の方がいましたら教えて...
-
VBScriptでエクセル印刷モード起動
-
VBからプリンタに出力する時に...
-
mscorlib.dllの初回例外について
-
VB.NETで参照設定したDLLの修正...
-
Visual Studio 有料と無料比較
-
Designer.vbは直接コードをいじ...
-
Comctl32.dllの配布
-
VBSでExcelのUserFormをエクス...
-
Visual Studio 「AnyCpu」について
-
VC++6.0 で 16bit アプリケーシ...
-
意味不明の実行時エラーで困っ...
-
C++初心者です。 debug asserti...
-
byte型をstring型として扱うには
-
C++の統合開発環境について
-
Microsoft Visual C++ をアンイ...
-
exeファイルのアンインストール...
-
Web(?)からのリクエストに応じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷要求順番と印刷出力順番が...
-
印刷ダイアログを表示させない方法
-
ActiveReportsを使って[印刷ダ...
-
印刷ダイアログを表示させたくない
-
プリンターを指定して印刷するには
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
VBscriptでPDFファイルを直接印...
-
VBからのプリンタ制御について
-
ACCESSで設定した帳票の用紙サ...
-
イベントプロシージャ 印刷が...
-
VBSでExcelファイル印刷時のプ...
-
phpでの自動印刷
-
VBAにて指定したセルをプルダウ...
-
EXCELファイルの複数ダウンロー...
-
VBAで印刷スプール終了の判定を...
-
プリンタの印刷ジョブを削除し...
-
PHPでPDFファイルの直接印刷
-
A4の2枚をA3の1枚にする編集方法?
-
VBでExcel印刷する時のプリンタ...
おすすめ情報