- 締切済み
エクセルのマクロで、特殊な印刷をするには?
C1:Q10まで罫線を引いた帳簿表があります。 その表のなかで、合計が2回、3回あり、印刷をその都度 プリントアウトして紙がもったいないなぁっと。 そこで、合計ボタンを作成した時にTの列に1を入力させて その数値によって印刷を文字のみにする方法がないか?質問です。 条件としては 初めのT=1ならば表C1:Q10まで、普通にプリントアウト。 T=最新の1ならば、段の文字のみをプリントアウトする。 例)ボタン3押して、初めのQ=1なので印刷はC1:P10まで印刷 ボタン7押して、最新のQ=1のとき印刷は最新の1から 1つ前のQ=1の間の列の文字のみを印刷したい 罫線は白で印刷する。 どうかご教授お願いします。
- takajin831
- お礼率58% (47/81)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 質問のロジックが良く分かりません。もう一度、ご自身で読み直してみてください。 >T=1ならば 表C1:Q10まで、普通にプリントアウト。 -これはOK >T=最新の1ならば、段の文字のみをプリントアウトする。 ?(最新の1とは何か? 段の文字というのも不明) >ボタン3押して、 >初めのQ=1なので印刷はC1:P10まで印刷 ?(初めのQ=1 という意味が分からないし、Q<>1 でない場合の提示がありません) >ボタン7押して、 >最新のQ=1のとき印刷は最新の1から >1つ前のQ=1の間の列の文字のみを印刷したい ?1つ前のQ=1 の間というのも分かりません。 VBAは、基本的には、時系列の処理は非常に苦手です。 もう少し、きちんとまとめてみてください。ただ、あまりに質問で欲張りすぎると、レスが付きません。 'サンプル: 'ThisWorkbook モジュール Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet If .Range("Q1").Value = 1 Then If MsgBox("罫線が印刷されませんがよろしいですか?", vbQuestion + vbOKCancel) = vbCancel Then .PageSetup.Draft = False Else .PageSetup.Draft = True End If Else .PageSetup.Draft = False End If End With End Sub
関連するQ&A
- エクセル2007の印刷範囲の設定について
添付画像の表をA4の縦長のスタイルで プリントアウトしたいと考えて、以下の作業を行いました。 (1)ページレイアウト→印刷範囲→印刷範囲のクリア (2)A列からD列までの任意の行を範囲選択 (3)印刷範囲の設定 ところが印刷プレビューを見てみると、 1枚目はA,B列、2枚目はC列、3枚目はD列のみ と3枚バラバラに表示されます。 また画像では分かりにくいかもしれませんが、 D列右罫線には印刷範囲の設定の破線が表示されて いるにもかかわらず、C列の左右の罫線には 点線が表示されています。 C列の左右の罫線に点線が表示されていることが 何か怪しいと思いますが、何をどうすれば良いのか分かりません。 この状態で表をA4の縦長のスタイルでA列からD列までの 範囲を印刷できる状態にする方法をご存じの方ご教示願います。
- ベストアンサー
- Windows Vista
- 抽出印刷マクロ
sheet1に一行目は項目欄で A1氏名、B1山、C1川、D1谷、E1空、・・・L1合計 があり、A列に各人の氏名があり各項目欄に金額があったりなかったりする表があります。 sheet2には封筒サイズを設定してこれを印刷します。 ここで、sheet2のA1に氏名を印刷します。sheet1の項目中に1つの金額しかない人の分はA1に氏名、A2に該当の項目名、B2に金額、A3に合計の文字、B3に合計金額、罫線をA1:B3に引き印刷。 金額が3項目にある人(山、谷、空)は、A1に氏名、A2に山、B2に金額、A3に谷、B3に金額、A4に空、B4に金額、A5に合計、B5に合計金額、罫線をA1:B5に引き印刷。このように順次印刷するマクロの記述方を教えてください。お願いします。
- ベストアンサー
- Visual Basic
- エクセルマクロについて
お世話になります。 エクセルのマクロについて不慣れなためご質問させてください。 下のような表がありこれを集計して新しく表にしなおしたいと思っています。 1列目 2列目 A XXXX B XXXX C XXXX A XXXX A XXXX B XXXX 1列目の同じ文字列を数えて表を作りなおしたいのです。 1列目 2列目 A 3 ←数えた回数を入れたいと思います B 2 C 1 初めの表はマクロで作成出来たのですが2つめの表を作成する エクセルマクロを作成したいと思っています。 サンプルを頂けると助かります。
- ベストアンサー
- オフィス系ソフト
- マクロで罫線削除、下線削除、文字色変換
[EXCEL2007]A1:Z500に合計、累計、借方、貸方など10種類の文字列がばらばらに複数あります。印刷の際、その10種類の文字列(まだ増えます)を白色にし罫線、下線は無しにしたいです。条件付き書式でやってみましたが、印刷後はまた黒色に戻したり罫線を描いたり面倒です(印刷は1回じゃないため)。またマクロの記録でもやってみましたが、これから先、印刷時不要な文字列や罫線がどんどん増えるため、手動でのマクロ記録はあきらめました。 自動で指定した文字列の文字色を変え、罫線と下線を無しにするマクロを教えていただけませんか?
- ベストアンサー
- その他MS Office製品
- エクセル 印刷するとセルがくっつく
エクセルで表を作っています A列に日付、Bに商品名、Cに数量 という表です。罫線をセルごとにひいています。 印刷プレビューで確認すると正しく表示されるのですが印刷すると11行目12行目でCに入っているはずの数量が、Bの商品名にくっついて印刷され、Cの数量は空欄になってしまいます。罫線だけはは正しく印刷されます。また10行目迄と13行目からも正しく印刷できます。 11.12行目を削除して再入力してみたり他の行をコピーしたりしたのですがどうしても直りません。 原因と対処方法を教えて下さい。
- 締切済み
- オフィス系ソフト
- エクセルで、印刷プレビューで行の高さを変えたい
エクセルで、罫線を引いて表を作るとします。 印刷プレビューで、「余白」というボタンを押しますと、 余白(マージン)を変えられるのはもちろん、縦の罫線の間隔(列の幅)は変えられるんですが、 なぜか横の罫線の間隔(行の高さ)が変えられません。 (印刷プレビューでなくて)通常の表示状態で横の罫線の間隔(行の高さ)を変えることはできます。 しかし、印刷される状態を見ながら、行の高さを変えたいので、 印刷プレビューで行の高さを変えたいのですが、どのようにすればよいでしょうか。 #もともとそのようなことはできないのでしょうか? (・_・")? バージョンは、EXCEL2000です。 (関係ないと思いますが、Windows98SEです。)
- ベストアンサー
- オフィス系ソフト
- プリンタで罫線が印刷できない
罫線付きの表をプリントアウトしても、白紙のまま出てきてしまいます。 試しに写真を出力すると、写真は通常通りプリントされて出力されました。また、別の罫線付きの表(但し、罫線は緑色に指定、文字は黒。グラフ付き)は、緑色に罫線は出力されましたが、文字(数字)は出力されませんでした。 印刷時のメッセージには「黄色が残り少なくなっています」と言うメッセージだけで、黒はたっぷりと残ってます。 なお、プレビューで見ても、罫線などは出ており、プリントアウトする資料も、以前はそのまま綺麗にプリントアウト出来てました(その時からファイルは弄ってません)。 対処方法を教えて下さい。
- ベストアンサー
- プリンター・スキャナー
- エクセルの罫線について
エクセルを使用してある文字列を読み込んで表を作成し、印刷時に最終行に罫線を入れてます。 毎回この作業がわずらわしいのですが、読み込んだ文字列の最終行に罫線を入れる方法ってあるのでしょうか?
- ベストアンサー
- オフィス系ソフト