
二回連続でメッセージボックスで判断させて印刷をするコードを教えていただけるでしょうか。
大雑把な流れとしては、2つのファイル(Aファイル、Bファイル)
の印刷をどちらもメッセージで判断してもらうようにするものです。
1.「Aファイルを印刷しますか?」
(Yes)Aファイル.xlsの印刷→続いて2.に移る
(No)次のメッセージに移る
2.「Bファイルを印刷しますか?」
(Yes)Bファイル.xlsの印刷→印刷後終了
(No.)終了
こういうものです。
印刷対象のファイルはコードを記述するファイルと同じフォルダに入っています。
Aファイルはシートはひとつですが、ファイルが複数あり、共通点として「卒業生」という文字の共通があり、これに該当するものをすべて印刷。
Bファイルはファイルはひとつですが、中のシートが複数あります。
その中の「平成19年度」シートのみを印刷。
こういう条件ですが、どなたかお教えいただけないでしょうか。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
#1です。
> 質問のようなファイルの条件でコードの表現を...
条件そのものを理解出来てない部分があります。
また、もし最初からまる投げのつもりなら、それはどうかと思うところもあります。
例えば、前回フォルダ内の一覧に関して回答しましたが Aファイルは殆どその応用で良いと思います。
セルに書き出す代わりに Open して Printout すれば良いのです。
ファイル名に「卒業生」を含む物だけが対象ならば、InStr 等で判断出来ると思います。
Bファイルについては、マクロ記録を録って、フルパス部分の一部を 前回答のように Thisworkbook.path で置き換えてやればOKな気がします。
マクロ記録は融通が利きませんが、少し書き換え出来るようになれば結構役に立つ物になりますよ。
色々試して上手く行かないようなら、少しまとを絞って質問してみて下さい。
No.1
- 回答日時:
単純に IF を並べるだけで良いと思いますけど、、、
Sub Test()
Dim myMSG As String
myMSG = "Aファイルを印刷します。" & vbCrLf & "よろしいですか?"
If MsgBox(myMSG, vbYesNo + vbQuestion, "印刷") = vbYes Then
'ここに処理
MsgBox "Yesが押された"
End If
myMSG = "Bファイルを印刷します。" & vbCrLf & "よろしいですか?"
If MsgBox(myMSG, vbYesNo + vbQuestion, "印刷") = vbYes Then
'ここに処理
MsgBox "Yesが押された"
End If
End Sub
いつもありがとうございます。「ぜんぜん成長しないやつだな」と思われてそうで、恐縮しています。
恐縮ついでと言っては何ですが、質問のようなファイルの条件でコードの表現を教えていただけると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで特定のファイルだけ動作...
-
ワードに埋め込まれたファイル...
-
【ワード】表の罫線が消えてしまう
-
【至急回答願います】ワード文...
-
Wordの差込印刷のデータソース...
-
勝手にファイルのコピーが作成...
-
フォルダ内のエクセル文書をす...
-
花子のJHDファイル、wordかHPB...
-
rtf形式の文書ファイルの背...
-
複数ファイルからハイパーリン...
-
USBメモリー内のデータの文字化け
-
ワード文書の「Webページとして...
-
CD-RWへ書き込んだ際に現れる、...
-
ワードファイルdocxをdocに変換...
-
wordファイルを開いた時に、最...
-
Docuworksに代わるソフトを教え...
-
PDFを1ページ目から表示させた...
-
WORDの文字が赤になり取消...
-
メールでもらった画像をコピー...
-
Wordの差込印刷でNextRecordを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ワード】表の罫線が消えてしまう
-
【至急回答願います】ワード文...
-
ワードに埋め込まれたファイル...
-
docとdocxファイルの違いを教え...
-
フォルダ内のエクセル文書をす...
-
Wordの差込印刷のデータソース...
-
pc版のLINEでワードファイルを...
-
勝手にファイルのコピーが作成...
-
Wordで特定のファイルだけ動作...
-
ワード文書の「Webページとして...
-
.odtファイルを一括してwordフ...
-
ワード,エクセルの「編集を有...
-
USBのワードのファイルだけが開...
-
ワードのファイルが開きません。
-
複数ファイルからハイパーリン...
-
LibreOfficeで文字化けした場合
-
WORDをEXCELのようにシートで並...
-
テンポラリーファイルとは
-
windows11パソコンを再起動する...
-
USBメモリー内のデータの文字化け
おすすめ情報