エクセルで日付連続印刷したく下記のようなものが、別の質問の回答であり、
試してみましたが、印刷できません。
印刷できるようにするには、どのようにしたら良いのでしょうか?
Sub Test()
Dim myPrompt_s As String, myTitle_s As String
Dim myPrompt_e As String, myTitle_e As String
Dim startDay As Date, endDay As Date, I As Integer
On Error GoTo ExitMe
myPrompt_s = "何月何日から?"
myTitle_s = "印刷開始日付"
myPrompt_e = "何月何日まで?"
myTitle_e = "印刷終了日付"
startDay = Format(InputBox(myPrompt_s, myTitle_s), "m/d(aaa)") '開始
endDay = Format(InputBox(myPrompt_e, myTitle_e), "m/d(aaa)") '終了
For I = 0 To endDay - startDay
Range("b3").Value = Format(startDay + I, "m/d(aaa)")
ActiveSheets.PrintOut
Next I
ExitMe:
End Sub
No.3ベストアンサー
- 回答日時:
先の回答で、「 On Error GoTo ExitMe の行をコメントにして実行すれば、エラー箇所が分かる」と書きましたが、やってみましたか?
やってみると ActiveSheets.PrintOut の行でエラーが発生しているのが分かると思います。
ActiveSheets は、”s”なしで、ActiveSheet が正しいです。
ありがとうございます。
On Error GoTo ExitMe の行をコメントにして実行すれば、エラー箇所が分かるの意味がわかりませんでした。
ド素人ですみません。
印刷できました。
No.5
- 回答日時:
NO4です。
もう一つの方法を紹介するのを忘れていましたもうひとつのInputBox Application.InputBox を使います。
Application.InputBox(Prompt:=myPrompt_s, Type:=1)
にすると日付として認識できる、或いは数値のみ入力できます。
間違って数字を入力されたときは挙動不審になります。
詳しくは
http://officetanaka.net/excel/vba/tips/tips37.htm
この辺りを!!
No.4
- 回答日時:
蛇足ですが、間違って日付に認識できない文字など入力した場合処理も
必要ですね。
http://www.moug.net/tech/exvba/0110019.html
の辺りを参考にして下さい。
もっと簡単な入力方法で
カレンダーのコントロールを使う方法があります。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …
この辺りが参考になるでしょう。
No.2
- 回答日時:
>startDay = Format(DateValue(InputBox(myPrompt_s, myTitle_s)), "m/d(aaa)") '開始
上記の命令に誤りがあります。(endDay への代入も同様です)
Format関数の戻りは文字型です。それを日付型のstartDay に代入しようとしています。
(On Error の行をコメントにして実行すれば、エラーの発生個所が分かりますよ)
正しくは、こんな感じで。
startDay = DateValue(InputBox(myPrompt_s, myTitle_s)) '開始
Sub Test()
Dim myPrompt_s As String, myTitle_s As String
Dim myPrompt_e As String, myTitle_e As String
Dim startDay As Date, endDay As Date, I As Integer
On Error GoTo ExitMe
myPrompt_s = "何月何日から?"
myTitle_s = "印刷開始日付"
myPrompt_e = "何月何日まで?"
myTitle_e = "印刷終了日付"
startDay = DateValue(InputBox(myPrompt_s, myTitle_s)) '開始
endDay = DateValue(InputBox(myPrompt_e, myTitle_e)) '終了
For I = 0 To endDay - startDay
Range("b3").Value = Format(startDay + I, "m/d(aaa)")
ActiveSheets.PrintOut
Next I
ExitMe:
End Sub
こんな感じに修正しましたが、無理でした。
すみません。再度教えてください。
No.1
- 回答日時:
「印刷できません」というのが、どのような状態なのか分からないが…
(白紙だけプリンタから出てくるのか、プリンタが反応しないのか
”何月何日から?”の表示すらされない…など)
・マクロを有効にする。
・B3セルを印刷範囲に含める。
・印刷可能なプリンタを指定する。
・指定したプリンタを印刷可能な状態にする。(プリンタとの接続、印刷用紙・インクの補給、電源ON、プリンタをオンラインにすることを含める)
どれか、または全部抜けているのではないかと思う。
あるいはMicrosoft Excelではなく互換ソフトを使用しているのではないだろうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
日付だけを変更して印刷(Excel)
Excel(エクセル)
-
1ヶ月分の日付を一度に出す方法はありますか?
その他(パソコン・スマホ・電化製品)
-
エクセル 平日のみ連絡印刷
Excel(エクセル)
-
-
4
エクセル 日付 指定 連続印刷
Excel(エクセル)
-
5
エクセルVBAで日報自動印刷
Access(アクセス)
-
6
日誌を作るため印刷時に日付をずらしたい
その他(Microsoft Office)
-
7
EXCELで1ヶ月分の連続した日付をシート名+セルに表示させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WORDで色をつけたところは印刷...
-
wordで作った2ページをA3にま...
-
太字でないのに太字になります
-
エクセルでA3の大きさに資料...
-
バーコード(QRコード?)が...
-
エクセルでPCが変わると印刷範...
-
ワードでページ番号を入力した...
-
印刷が1枚のはずなのに2枚にわ...
-
プリンタの印刷履歴を削除した...
-
重いファイルが印刷できません
-
個別にステープルして印刷したい
-
逆向きに印刷する方法
-
IPPでインターネット経由での印刷
-
プリンタのスプール設定について
-
Canon LBP-1910の印刷でローカ...
-
PDFファイルの印刷部数が必ず2...
-
エクセル背面画像をA4サイズ印...
-
大判プリンタの寿命について
-
プリンターのドキュメントが削...
-
テキストファイル中で印刷改行方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordで作った2ページをA3にま...
-
WORDで色をつけたところは印刷...
-
エクセルでPCが変わると印刷範...
-
太字でないのに太字になります
-
A4R、B5Rの「R」とは?
-
エクセルでA3の大きさに資料...
-
印刷が1枚のはずなのに2枚にわ...
-
個別にステープルして印刷したい
-
プリンタのスプール設定について
-
エクセルでの印刷:回転
-
グーグルドキュメントの文字の...
-
プリンタの印刷履歴を削除した...
-
WordのA4サイズ文書を4倍(A4用...
-
wordの文章の文字が緑色になります
-
PDFファイルの印刷部数が必ず2...
-
エクセル画面を、b5ルーズリ...
-
EXCEL(エクセル)での用...
-
Canon LBP-1910の印刷でローカ...
-
Excelで作ったポスターを幅一杯...
-
印刷を行うと同じものが延々と...
おすすめ情報