No.1
- 回答日時:
こんにちは!
一案です。
>Sheet1を印刷すると・・・
ではなく
Sheet1にコマンドボタン等を配置し、そのボタンをクリックすると
Sheet2にデータを保存 → 印刷
といった手順ではどうでしょうか?
Excel2010の場合で説明すると
コマンドボタンでなくオートシェイプを使う方法でやってみます。
① メニュー → 挿入 → 図形 → 好みの図形をSheet1上に配置
② 配置したオートシェイプ上で右クリック → マクロの登録 → 新規作成
③ 表示された画面に↓のコードをえコピー&ペースト
※ コードは「テキストボックス」を挿入した場合のコードで1行目と最終行は表示されていますので
2行目~最後から2行目までをコピー&ペーストします。
(オートシェイプによって1行目のボタンの名前が自動で変わります)
④ オートシェイプを印刷しない場合
オートシェイプ上で右クリック → 図形の書式設定 → プロパティ → 「オブジェクトを印刷する」のチェックを外しておきます。
Sub テキストボックス1_Click()
Dim wS As Worksheet
Set wS = Worksheets("Sheet2")
'▼A2~C2セルに未入力がなければ・・・
If WorksheetFunction.CountBlank(Range("A2:C2")) = 0 Then
'▼Sheet2のA列最終行の1行下のセル
With wS.Cells(Rows.Count, "A").End(xlUp).Offset(1)
'▼の値は「本日」
.Value = Date
'▼1列右側のセルはA2の値
.Offset(, 1) = Range("A2")
'▼2列右側の値はB2セルの値
.Offset(, 2) = Range("B2")
'▼3列右側の値はC2セルの値
.Offset(, 3) = Range("C2")
End With
'▼A2~C2セルのデータを消去
Range("A2:C2").ClearContents
'▼Sheet1を印刷プレビュー
ActiveSheet.PrintPreview '★
Else
MsgBox "未入力セルがあります"
End If
End Sub
※ 印刷プレビューでやめていますので、すぐに印刷する場合は「★」の行の
>ActiveSheet.PrintPreview '★
の行を
> ActiveSheet.PrintOut
に変更してください。
こんな感じではどうでしょうか?m(_ _)m
No.2ベストアンサー
- 回答日時:
定番の作業であり、定番のコードですので
きちんと理解してください。
Sub ボタン1_Click()
With Sheets("Sheet2")
GYOU = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & GYOU).Value = Date
.Range("B" & GYOU).Value = Range("A2").Value
.Range("C" & GYOU).Value = Range("B2").Value
.Range("D" & GYOU).Value = Range("C2").Value
End With
ActiveSheet.PrintPreview
End Sub
実際は
PrintPreview
を
PrintOut
でも良いです。
No.3
- 回答日時:
Workbook_BeforePrintイベントプロシャに書いちゃうっていう手もありますよ。
(すいません。プログラムはNo.2さんのパクリです)Workbook_BeforePrintイベントプロシャは、印刷の指示を行った時、その印刷の前に実行されます。
ただし、これには致命的欠点があります。これだとSheet2を印刷しても補完してしまいます。
やっぱり、No.2さんのが正解ですね。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim GYOU As Long
Cancel = True 'Trueを設定すると印刷動作はキャンセルされます。テストが終ったらこの行は削除してください。
With Sheets("Sheet2")
GYOU = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & GYOU).Value = Date
.Range("B" & GYOU).Value = Range("A2").Value
.Range("C" & GYOU).Value = Range("B2").Value
.Range("D" & GYOU).Value = Range("C2").Value
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) ZWCAD CUIXとLISPの関係について 1 2022/09/28 03:07
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) このプログラムなんですがsheetにデータを置いて表示できるようにしてありますがsheetに101を 2 2023/02/23 20:13
- スーパー・コンビニ 「コンビニで エクセルをプリントアウト」することができますか? 8 2022/06/16 15:54
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
腕を見たら黄色くなってる部分...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
精子が黄色?
-
勃起する時って痛いんですか? ...
-
尿検査前日に自慰行為した時の...
-
尿検査の前日は自慰控えたほう...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
精子に血が・・・
-
中出しをするとお腹が痛い・・・。
-
納豆食べた後の尿の納豆臭は何故?
-
甲状腺腫れ
-
EXCELで式からグラフを描くには?
-
EXCELで条件付き書式で空白セル...
-
筋トレするとチンコが縮んじゃ...
-
爪が紫色?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報