色々とやってもうまくいきませんでしたので、教えていただければ嬉しいです。
Aワークブックを開けてシートをコピーして、シートを編集する。
Bシートの値を別シートに入れて、連続印刷していく。
この2つのプログラムを1つずつ実行したときはうまく作動するのですが、2つをcallステートメントで合わせて実行したときうまく作動しません。
不具合の内容は、印刷したい対象が3つあるのですが、1つだけ印刷して終了してしまいます。
Valueで値を代入した後の印刷処理を「 wS1.PrintOut」だけにした場合対象3つともうまく印刷されます。
お助けいただけると、嬉しいです。
Sub テスト()
Dim i As Long
Dim wS As Worksheet
Dim wS1 As Worksheet
Set wS = Worksheets("データ")
Set wS1 = Worksheets("KI-01")
wS.Activate
For i = 2 To Cells(Rows.Count, "I").End(xlUp).Row
If Cells(i, "I").Value = "KI" Then
wS.Activate
wS1.Cells(4, "B").Value = wS.Cells(i, "B").Value
wS1.Cells(4, "G").Value = wS.Cells(i, "A").Value
wS1.Cells(5, "G").Value = wS.Cells(i, "E").Value
wS1.Cells(5, "J").Value = wS.Cells(i, "C").Value
wS1.Cells(6, "B").Value = wS.Cells(i, "G").Value
If Cells(i, "F").Value < 24000 Then
Sheets(Array("KI-01", "KI-02", "KI-03")).PrintOut
Sheets("KI-04").PrintOut Copies:=2
Else
Sheets(Array("KI-01", "KI-02")).PrintOut
Sheets("KI-03").PrintOut Copies:=2
Sheets("KI-04").PrintOut Copies:=2
End If
Else
End If
Next i
End Sub
No.4ベストアンサー
- 回答日時:
実際のシート内容が分かりませんので、頓珍漢な回答かも知れませんが、
>If Cells(i, "F").Value < 24000 Then (いきなりCellsで始まるコード) が気になります。(行の空き方も含め)省略しているコードありますか?
いずれにしても、With などを使うなりして (ブック)シートオブジェクトを明確にされた方が良いと思います。
(検証時表示されているシートで結果が変わるなどがあります)
また、ご質問の事象なら、ステップ実行などで問題点が分かると思うので検証される事を勧めます。
検証された上での疑問や不具合のご質問の場合、ランクの違う情報などの習得につながると思います。
VBAを導入、プログラム作成される場合にイミディエイトウィンドウ出力、ローカルウインドウ表示、ブレークポイント、ステップインなどは
デバッグに必須の知識として認識していただきたいと思います。(自己解決に繋がります)
直接の回答ではありませんが、参考になれば幸いです。
お返事ありがとうございます。
ご指摘の通りでした。cellsで始まるコードの前に、「wS.」を3カ所入れたらうまく最後まで作動しました。
ありがとうございました。ようやく解決できました。
No.3
- 回答日時:
こんばんは!
コードを拝見すると
F列のデータが24000未満にかかわらず
KI-01・KI-02シートは各1部ずつ、KI-04シートは2部
KI-03シートのみがF列の値によって部数が変化するだけですよね。
そして、次々ループさせているようですが、印刷編集が追い付いていないのでは?
特に計算式などが入っていると少し待つ時間を持たせた方が良いコトがあります。
Worksheets("KI-01").PrintOut
Worksheets("KI-02").PrintOut
With Worksheets("KI-03")
If Cells(i, "F") < 24000 Then
.PrintOut
Else
.PrintOut copies:=2
End If
End With
Worksheets("KI-04").PrintOut copies:=2
Application.Wait Now() + TimeSerial(0, 0, 3) '//←3秒待ち//
Next i
のようにNextの前に待ち時間を作ってみたらどうなりますか?
(上記コードは3秒待つようにしています)
※ 未検証なのでダメだったらごめんなさい。m(_ _)m
お返事ありがとうございます。
いつも困ったときに助けていただきありがとうございます。
わたしが常時使用しているvbaには、tom04さんに教えていただいたエッセンスがたくさん詰まっています。
vbaの勉強を始めて2年くらい経ちますが、最初の頃から色々と助けていただいてとても感謝しています。
No.1
- 回答日時:
上手く作動しない、とは?
エラーが出る?
どんなエラー?
どこまでは処理されてる?
印刷したい対象が3つあります。
Sheets(Array("KI-01", "KI-02", "KI-03")).PrintOut
Sheets("KI-04").PrintOut Copies:=2
上記のプログラム通り、3枚+2枚=5枚を印刷しただけで終わります。
本当は対象A 3枚+2枚=5枚、
対象B 3枚+2枚=5枚、
対象C 2枚+2枚+2枚=6枚(24000以上のため)
合計 16枚印刷したいのですが対象Aだけ印刷して終わります。
エラーではありません。最後まで印刷がされないだけです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルVBA、ステップモードと結果が異なる
その他(Microsoft Office)
-
Excel/VBA ステップインと通常実行の違い
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 実行時エラー1004 rangeメ...
-
Unionでの他のシートの参照につ...
-
EXCELのSheet番号って変更でき...
-
VBA別シートの最終行の次行へ転...
-
VBA 最終行を選んだシートにコ...
-
【VBA】データを各シートに自動...
-
アクセスからエクセルへ出力時...
-
テキストボックスから、複数の...
-
祝日を除いた月曜から土曜まで...
-
Excel2013で切り取り禁止
-
【VBA】特定の条件でセルをコピー
-
楽天RSSからエクセルVBAを使用...
-
エクセルマクロで自動転記について
-
マクロ実行後に別シートの残像...
-
「段」と「行」の違いがよくわ...
-
エクセルでセルをクリックする...
-
B列の最終行までA列をオート...
-
VBAマクロ実行時エラーの修正に...
-
あああ..ああい..ああう とい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
EXCELのSheet番号って変更でき...
-
VBA 空白行に転記する
-
マクロ実行後に別シートの残像...
-
VBAで変数の数/変数名を動的に...
-
VBA別シートの最終行の次行へ転...
-
Changeイベントで複数セルへの...
-
アクセスからエクセルへ出力時...
-
VBA 別ブックからの転記の高速...
-
Count Ifのセルの範囲指定に変...
-
【VBA】特定の条件でセルをコピー
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
複数シートの複数列に入力され...
-
楽天RSSからエクセルVBAを使用...
-
Excel2013で切り取り禁止
-
Excel VBA オートフィルターで...
-
Unionでの他のシートの参照につ...
-
VBAを使って複数のシートから抽...
おすすめ情報