出産前後の痔にはご注意!

複数の店舗の売り上げを売り上げ額を10000円ごとの段階にして、その段階ごとに店舗数を集計したのですが、段階によっては0のところが出てきます。印刷すると、その0がわずらわしくて見づらくなります。そこで、印刷時には、0は印刷されず空白になるようにしたいのですがどうすればできるでしょうか。また、その集計表を同じ段階で累計表に直したとき、もとの集計表のセルが0の時は、それに対応した累計表のセルでもそのセルの数字を印刷しないようにするにはどうすればいいでしょうか。

A 回答 (3件)

ツール


オプション
表示で ゼロ値 のチェックを外すと 0 は表示されません。もちろん印刷もされません。
    • good
    • 1
この回答へのお礼

ありがとうございました。助かりました。

お礼日時:2008/06/17 00:08

カテゴリから考えてExcelのことと思いますが、IF文での分岐とワークシートを定義づけて、ゼロを表示しない方法の2つがあります。



簡単な方法は、値がゼロの場合はセルを空白にする方法ですが、バージョンがわからないので、ヘルプで「ゼロ表示」として検索してください。方法が書いてあります。
    • good
    • 0
この回答へのお礼

ありがとうございます。IF関数を使って、条件をつけて0の場合白文字にしろというような設定が必要なのかと思ったら、簡単な方法があるのですね。助かりました。

お礼日時:2008/06/17 00:04

Excelのことですよね。



http://officetanaka.net/excel/function/tips/tips …

↑に2種類の方法が紹介されています。
    • good
    • 0
この回答へのお礼

ありがとうございます。早速参考にさせてもらいました。簡単な操作なので助かりました。

お礼日時:2008/06/17 00:06

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルで「0(ゼロ)」を印刷しない方法

こんばんは。
すみません、かなり初心者です。
エクセルを使って会社で使う資料を作っているのですが、
集計の合計が「0(ゼロ)」の場合、その「0(ゼロ)」を
印刷しないで(空白)でプリントアウトする事って可能ですか?
上司に「数値がゼロなら空白にしろ!」といわれまして・・。
フォントを『白』にするしかないのでしょうか?

Aベストアンサー

ツール→オプション 表示タブの下のほうにある「ゼロ値」のチェックを外すと表示されなくなります。

Qエクセルで、空欄を印刷しない設定

エクセルで、
1行目 項目名
2行目以降 各データ
60行目 上記のデータの合計
61行目~70行目 メモ

としています。

2行目以降の何行かは入力済みですが、59行目までは空欄です。
ここを印刷せず、空のセルを詰めて、60行目~70行目のメモまでを印刷したいです。

例えば、3行目まで入力が行われていた場合、印刷結果として

1行目+2行目++3行目+60~70行目

となるようにしたいです。一発印刷ができればベストです。

入力されていないところを都度非表示にしたり、印刷する部分だけ選択するのもよいのですが、印刷する回数が多いので、手間がかからない方法を教えてほしいです。

VBAには疎いのですが、記載された内容をいただいて貼り付けたり、チェックすることは可能です。

また、マクロを使わなくてもできる方法があれば、そちらのほうが助かります。

Aベストアンサー

シートコピーして空白行を削除して印刷プレビューを表示してるだけでよろしければ以下でどうぞ。

Sub 空白行削除でプレビュー表示()
Dim i As Integer
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 70 To 2 Step -1
If WorksheetFunction.CountA(.Range("A" & i & ":AB" & i)) = 0 Then
.Rows(i).Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
.PrintPreview
End With
End Sub

シートコピーして空白行を削除して印刷プレビューを表示してるだけでよろしければ以下でどうぞ。

Sub 空白行削除でプレビュー表示()
Dim i As Integer
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 70 To 2 Step -1
If WorksheetFunction.CountA(.Range("A" & i & ":AB" & i)) = 0 Then
.Rows(i).Delete
End If
Next i
Application.Calculation = xlCalculati...続きを読む

Qエクセル VBA 条件つきの印刷

エクセルVBAにおいて、
例えば「セルA1が空白でないシートすべてを印刷する」
このようなコードは可能でしょうか?
よろしくお願いします。
(エクセル2000)

Aベストアンサー

こんばんは。

Sub Test1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
 If sh.Range("A1").Value <> "" Then
  sh.PrintOut 'Preview:=True
 End If
Next sh
End Sub

単に、こんな風にすればよいのですが、VBAを動かす前に、印刷範囲だけは確認したほうがよいかもしれません。

--それなら、VBAの意味がないではないか、と思うかもしれませんがね。(^^; もちろん、それはそれなりに方法はあるのですが。--

印刷というのは、一旦、印刷が始まると、とまらないわけですから、それで、こんなことを言っています。

sh.PrintOut Preview:=True

最初は、こんな風にして、プレビューで調べてから、印刷実行という方法もあります。

Q条件によって印刷するシートを変える方法 EXCEL-VBA

エクセル2003を使用してます。
VBAで可能かどうか質問します。

以下の4つのシートがあります。
「データ」、「東京」「大阪」「福岡」

シート名「データ」のセル「A1」に入力された文字により、入力された
文字に対応するシートをマクロを使用して印刷できるようにしたいと思ってます。

例えば、シート名「データ」のセル「A1」に「東京」と入力してマクロを実行すると
別シートの「東京」というシートが印刷され、同様にA1に「大阪」と入力して実行
すると、シート名「大阪」が印刷されるようにしたいと思ってます。

マクロを実行して、今回の例にあった、それぞれの条件に対応したシートを印刷
する方法をご教示お願いします。

Aベストアンサー

Sub Macro1()

Dim a As String
a = Sheets("データ").Range("A1").Value
Sheets(a).PrintOut

End Sub


ページ範囲を限定したい場合は引数Fromに開始ページ、引数Toに終了ページを指定します。
Sheets(a).PrintOut From:=1, To:=3

さらに一度プレビューを表示してから印刷したい場合は引数Previewを追加します。
Sheets(a).PrintOut From:=1, To:=3, Preview:=True

プレビューだけなら
Sheets(a).PrintOut Preview:=True

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qエクセルで特定の列が0表示の場合、その行を非表示にしたい

エクセルで特定の列が0表示の場合、その行を非表示にしたいのですが…ただし、その0値は数式から反映されての0表示です。
よろしくお願いします。

Aベストアンサー

マクロを使用しないのであればオートフィルタを利用すればできます

「特定の列」にオートフィルタをかけて、プルダウンメニューの(オプション)→「0と等しくない」を設定すれば「0」以外の行だけが表示されます

数式の結果であっても、直接入力した値でも構いません

マクロがよければ補足して下さい。ただ「ツール」→「マクロ」→「新しいマクロの記録」で上記操作をすれば、マクロ(VBA)が全く分からなくてもできると思いますが…

Qマクロで印刷→セルの値から部数変更するには

エクセルの表を印刷するためのマクロを作っています。
印刷の都度、印刷部数が変わってくるので
「A1」に入力した部数を印刷するようにしたいのですが・・・

ActiveWindow.SelectedSheets.PrintOut Copies:=Range("A1").Value

これではエラーとなってしまいます。
正しくはどのようにすればよいのでしょか。

初歩的な事で申し訳ありませんが、よろしくご教授ください。

Aベストアンサー

提示のコードで上手くいくはずです。

ただ単に、セルA1に数値が入ってないだけでは?
それか、部数のセルA1は印刷するシートではなく
別シートなのでは?

もしそうなら、
Copies:=Sheets("Sheet2").Range("A1").Value
とシート名を明示しなければ。。。

それから、
印刷シートのA1に部数を入れると
それも印刷されてしまいますが。。。
ま、印刷範囲を選択していたら別ですが。

以上確認してください。
 

Qエクセルで空行を印刷しない方法

50行×30列の表を仕事で使っています。
51行目には1~50行の集計が出てきます。
印刷を押すとこの表が印刷されますが、
使っている行が1行目の場合だけのときも2~50行目の罫線が印刷されるので時間もかかります。
印刷範囲を指定すれば良いのですが沢山の人がこの表を使って印刷しているので面倒臭がっています。
簡単な方法で入力行と集計行のみ印刷する方法は有りますか?

Aベストアンサー

> 1.名前ボックスにプリントエリア、プリントタイトルという2つの名前も入っています

プリントタイトルの範囲が表の2行目より上であればこれは問題ないです。

2.空欄行に色々な計算式が入っています。これは選択した表のエリア外からデータを読みこんだりしています

式があっても、答えが "" で見えなくなっているのなら問題ないのですが・・・。ひょとして""ではなく"  "とかになってます?

エクセルで空白と判断されてるかどうか、関数で、つまり=COUNTBLANK(範囲)で調べてみてください。

Q【エクセルで】ゼロを入力すると表示されない→数字を表示させるには?

エクセルについて教えてください。
セルに数字を入力した時に,1以上だとその数字が表示されるのですが
0の時は何も表示されません。
0の時も「0」と表示させたいのですが,どうすれば良いのでしょうか?
(他の人が以前に使っていた表をそのまま引き継いで使っているため
分からなくて困ってます・・・)

Aベストアンサー

N01、No2の方の回答どおりやっても上手くいかない場合は
0表示しないように表示形式を変えてある可能性があります。
その場合は、0表示させたいセルを選択してから、
[書式]-[セル]-[表示形式]-[ユーザー定義]の順に
選び、種類(T)の下の入力欄に“#,##0”のように入力して
OKをクリックします。

ちなみに、#は0を表示しないようにする記号です。

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?


人気Q&Aランキング