おはようございます。エクセルで印刷する時、印刷したいセルをランダムに数箇所指定したいのですが、(または印刷しないセルをランダムに指定でも良いのですが)。印刷されては困るところが何箇所かあります。使用時には普通にセル入力をして、なおかつ印刷したい箇所と、したくない箇所が点在しています。
ファイル→ページ設定→印刷範囲で複数指定しても印刷出来ません。どこかで間違っているのでしょうか。教えて下さい。わかりにくい説明でしょうが、補足しますので、よろしくお願いします。過去ログではわかりませんでした。
No.6ベストアンサー
- 回答日時:
条件付き書式はExcel97以降の機能でした。
これより前のバージョンなら読み飛ばして下さい。セルA1を判定用、A3に条件を設定する場合です。A3を選んで、書式→条件付き書式で出るダイアログボックスで、条件を、「数式が」、「=$A$1=1」に変えます。
書式(F)ボタンを押して、セルの書式設定ダイアログのフォントタブの「色」を白にします。
以下、OK→OKで閉じて、A1に1を入れてみます。指定したセルは見えなくなるはずです。
以下はExcel95でも動くはずです。(未確認ですが。Excel97では確認しました)
印刷範囲を設定し、myArray=myArray(・・・)に印刷したくないセル番地をセットします。
対応するシートのコードウインドウに貼り付けます。登録したセルは印刷しません。
Dim cellColor() As Long
Sub Print_ColorWhite()
Dim myArray, element As Variant '印刷しないセルを配列に設定
Dim RGcot As Integer '印刷しないセル数
Dim cot As Integer 'カウンタ
myArray = Array("A2", "A4", "A6") '*** これは例(印刷しないセルをセットする) ***
For Each element In myArray '登録個数を数える。他に方法は?
RGcot = RGcot + 1
Next
ReDim cellColor(RGcot) AS LONG
For cot = 1 To RGcot '最初の色の設定を保持する(セル毎に色が違うと想定)
cellColor(cot) = Range(myArray(cot - 1)).Font.ColorIndex
Range(myArray(cot - 1)).Font.ColorIndex = 2 '白にする
Next
ActiveSheet.PrintPreview '今はプレビュー。PrintOutに変えれば印刷
For cot = 1 To RGcot '最初の設定に戻す
Range(myArray(cot - 1)).Font.ColorIndex = cellColor(cot)
Next
End Sub
No.5
- 回答日時:
色々、方法はありそうですが、簡単そうな方法をひとつ・・・
セルを1つ判定用に使います。印刷したくないセルを選択して条件付書式で判定用のセルに何か入力(1でも)されていたらフォントの色を白にします。書式をコピーすればかなり自由に非表示個所を変更できます。
判定用セルの設定ミス等が心配ですので、ThisWorkbookのBeforePrintイベントでチェックなり設定をすれば良いと思います。参考までに。
回答ありがとうございます。いろいろやっているんですが、なかなかうまくいかなくて、もともとエクセルにはこのような機能は無いのでは?
No.4
- 回答日時:
またまた、きりんです。
なんとかなりそうですよー(^^
んと、印刷したくないセルを、複数選択して、
右クリックします。
で、
セルの書式設定から保護のタブをクリックして、
表示しない、をチェックします。
そうすると、印刷プレビューでは表示されませんよー。
でも実際に印刷してないから・・・どうなんでしょ(^^;
いまちょっと、他の作業中で、印刷できない状態なんですよー。
ごめんなさい。
・・とその前に質問なのですが、
列ごとに印刷したくないなら、列ごとに表示しないこともできますよー。
この回答への補足
回答ありがとうございます。セルの書式設定→保護→表示しないにチェックを入れてもプレビューで出てしまうのです。私のエクセルが悪いのかしら?
補足日時:2001/06/13 11:41No.2
- 回答日時:
こんにちは。
ちょっと面倒ですが、シートをコピーして印刷したくないセルを
消してから印刷するのは大変ですか?
消す量にもよると思いますが、規則性があるとかでしたら
マクロでセル内容を消すようにすればできます。
根本的な解決法ではありませんが、とりあえず
応急処置と言う感じですみません。
この回答への補足
アドバイスありがとうございます。セルを消したり、移動したりすると、参照している箇所があり、印刷するセル内容が変っちゃうと思いまして・・・
補足日時:2001/06/13 10:34No.1
- 回答日時:
おはよーございますっ!
印刷はちょっと試してないので分かりませんが、
セルを複数指定したいときは、
ctrlを押しながら、セルをクリックしていくと、
とびとびでも、複数のセルを選択できますよー。
(並んだセルを選択したいときは、shiftを押しながらクリックします。)
++セルをアクティブにしたまま、
印刷範囲を指定してあげると、
そこだけ印刷されますが・・・
・・・こんな答えでよかったでしょうか?
見当違いだったらごめんなさい。(^^;
この回答への補足
回答ありがとうございます。複数セルを指定して印刷するとセル1個ことに、1ページごとに印刷されてしまうのです。1枚に印刷されないのですが。
補足日時:2001/06/13 10:26お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報