現在のVBAに以下の仕組みを追加したいです。
T1に連動して変化するE7が0と表示された場合そのページの印刷をスキップする方法を教えてください!
現在このような状態です。
Sub Print2()
Dim i As Integer
Dim Start_Point As Integer
Dim End_Point As Integer
Start_Point = Worksheets("管理表").Range("V4").Value
End_Point = Worksheets("管理表").Range("X4").Value
For i = Start_Point To End_Point
Worksheets("表紙").Range("T1") = i
Worksheets("表紙").PrintOut
Next i
End Sub
E7は以下の式が入っています。
=VLOOKUP(T1,出力用ファイル!A2:F1995,2,FALSE)
よろしくお願いします!!
初心者なので式を教えて頂けると幸いです。
No.1
- 回答日時:
こんにちは!
>E7は以下の式が入っています。
というコトなので、E7セルに「0」が表示される場合は
「出力用ファイル」シートのA列には検索値があり、B列が空白の場合ですかね?
もしそうであれば、コードで処理はできると思いますが、
とりあえずお示しのコードを利用してみました。
Worksheets("表紙").Range("T1") = i
Worksheets("表紙").PrintOut
を
With Worksheets("表紙")
.Range("T1") = i
If .Range("E7") <> 0 Then
.PrintOut
End If
End With
に変更したらどうなりますか?
※ 印刷をしない場合でもT1セルは「i」が表示されます。
すなわちT1セルに連番を入れたいのであれば番号が飛んでしまうコトになります。
それを回避するには
>.Range("T1") = i
の行を
>If .Range("E7") <> 0 Then
の次に移動させてみてください。
未検証なのでお望みどおりにならなかったらごめんなさい。m(_ _)m
No.2ベストアンサー
- 回答日時:
こんにちは
すでに回答がでていますが、Eご質問の言葉通りに「E7の値によって印刷する/しないを決め」るようにすればよろしいかと。
すこし、書き直しましたが・・・
Sub Print2()
Dim i, sk, sh
Set sk = Worksheets("管理表")
Set sh = Worksheets("表紙")
For i = sk.Range("V4").Value To sk.Range("X4").Value
sh.Range("T1") = i
If sh.Range("E7").Value <> 0 Then sh.PrintOut
Next i
End Sub
とかではいかがでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントで7分の発表があ...
-
本の一番最後のページはなんて...
-
同人誌の処分方法
-
何で大人向け雑誌の表紙は女性...
-
動かすと絵が変わる
-
WORD ページ数の表示がおかしい...
-
90年代のスピリッツ、表紙キャ...
-
実験レポートの 大学名 と 学籍...
-
参考文献の著者の書き方
-
パスポートのbiographical page
-
牧野記代子をご存知の方いませ...
-
友達に数冊本を借りていたので...
-
表紙がマンガのような絵の小説...
-
本屋さんの本の撮影について
-
本屋で本の表紙を撮るのはダメ...
-
御朱印帳の表紙と名前
-
WORDで、余白にタイトル/...
-
インディヴィジュアル・プロジ...
-
表紙の反対は?
-
駅前?で西洋あたりの男女がキ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
本の一番最後のページはなんて...
-
パワーポイントで7分の発表があ...
-
油性ペン落とし方 写真のように...
-
パスポートのbiographical page
-
ペーパバックとは何ですか?
-
ワープロ検定の文書作成の1級、...
-
wordでセクションを区切ってい...
-
写真集の表紙カバーに付いた跡...
-
「表4」を英語で何といいますか
-
書籍の出版(初版。改訂新版。...
-
参考文献の著者の書き方
-
作文の表紙って何に書くんですか
-
百貨店の内渡し票について
-
何で大人向け雑誌の表紙は女性...
-
マンガ本に黄色い斑点が・・・
-
製本された本をきれいに分解したい
-
ISBNが同じなら内容も全く同じ...
-
本屋で立ち読みはいけないので...
-
回数券の切り離し無効の効力は
-
折り紙のクジャクの折り方
おすすめ情報