EXCEL操作について教えてください！

質問

１．B3/B2*100の結果をB4に出力するのですが、「0であれば0と表示(0.0ではなくて)(文字列ではなくあくまで数値として表示)」「マイナスであればAと表示」「100であればCと表示」「DIV/0!であればSと表示」「それ以外であれば小数点第2位を四捨五入して第1位まで表示」という条件はIF関数とかISERROR関数とか使ってどう書けばよいでしょうか？　とてもややこしく感じて答えが出ません。お助け下さい。
２．また別の作業なのですが、例えばA列からC列に順番に大分類、中分類、小分類と項目を決め、数値を集計してあるような場合に、小分類が多い為に大分類が用紙3枚くらいに渡るとします。1ページ20行の設定で、ある1つの大分類内の小分類が合計54行ある場合などです。
普通このような場合、A列の1行目から54目までに、外枠にのみ罫線を引くと思いますが、そうしますと実際に印刷すると1ページの最後の行、2行目の最後の行に罫線が無い不自然な結果となってしまいます。
緊急避難的に、見た目不自然にならないよう途中に罫線を入れることは可能ですが、行の追加や削除があった場合、そのたびに罫線を引きなおさなければいけません。
改ページになるところは必ず罫線で閉じる設定が出来る便利な方法はありませんか？

回答No.4

taisuke555 · ベストアンサー

回答しておいてから質問で申し訳無いですが、
（１）例えば、B2に9999、B3に9998と入力されていると
　　B3/B2*100=98.9899・・・
　　となって、小数第２位を四捨五入すると、100になるのですが、
　　その場合もCと表示するのでしょうか？

その場合は、
=IF(B2=0,"S",IF(ROUND(B3/B2*100,1)=100,"C",IF(B3/B2<0,"A",ROUND(B3/B2*100,1))))

又は
=IF(B2=0,"S",IF(ROUND(B3/B2,3)=1,"C",IF(B3/B2<0,"A",ROUND(B3/B2*100,1))))
にしてください。

（２）例えばB2に10000、B3に1と入力されていると
　　　B3/B2*100=0.01
　　　となって四捨五入すると0ですが、
　　　0.0と表示するのか、0で良いのか？
　　　＃３では0で表示されます。

いろいろと数式を書いてしまったので、混乱してしまったらすみません。

もし混乱してしまったら、
１．上記（１）について
２．上記（２）について
３．上記（２）と同じような事ですが、
　　例えば B2に-10000、C2に1と入力されていると
　　B3/B2*100=-0.01
　　になって四捨五入すると0ですが
　　[A]と表示するのか
　　0と表示するのか
４．マイナスは[A]　は見た目のみ[A]（セルの値はマイナスの数値）
　　又は、セルの値も[A]
　　のどちらか？
５．B2又はB3に文字が入力されていた場合はどうするのか？
　　（B3/B2*100が#VALUE!になる場合の処理）

以上についての補足をいれて頂ければ、
（大体は四捨五入する前の値を処理するのか、した後の値を処理するのかと言うことですが）
もう１度、きちんと回答し直します。

回答No.5

imogasi

前半のに付いて
関数式でもご回答がでています。式が長くなります。
それでユーザー関数を作るやり方をやって見ました。
ＶＢＡを使うのですが、Ｃａｓｅ文の使い方だけ勉強すれば他のことは不必要です。他に応用が効きそうです。
全体では文字数も関数に比べ多いですが、論理を思いつくまま記述が出来るので、たやすい面もあります。
（１）書式はＣ列を「数値」の「標準」にします。０を０と表示させるため。
（２）ＡＬＴ＋Ｆ１１でＶＢＥ画面にして
ＡＬＴ＋Ｉ、ＡＬＴ＋Ｍで標準モジュール画面にする。
Function xyz(a As Range, b As Range)
Select Case b
Case 0
xyz = "S"
Exit Function
End Select
Select Case a / b
Case 0
xyz = 0
Case Is < 0
xyz = "A"
Case 100
xyz = "C"
Case Else
xyz = Round(a / b, 1)
End Select
End Function
をコピーし標準モジュールへ貼りつける。
（３）Ａ列、Ｂ列に数値を入れるとして、Ｃ１に関数
=xyz(A1,B1)といれ、Ｃ２以下に複写します。
（４）結果一例
0 -3 0
1 -3 A
100 1 C
20 0 S
12 0 S
13 4 3.2
13 4 3.2
0 3 0
0 3 0
2 9 0.2
0 3 0

回答No.3

taisuke555

１について
＞100であればCと表示
　B2=B3の時
＞DIV/0!であればSと表示
　B2=0の時
＞マイナスであればAと表示
　B3/B2<0の時
＞0であれば0と表示・それ以外であれば小数点第2位を四捨五入して第1位まで表示
　セルの書式設定でユーザ定義[0.0;;0]と入力する
　（0以上の時には0.0表示,0の時には0表示で対応する）

でいいと思いますので、
=IF(B2=0,"S",IF(B2=B3,"C",IF(B3/B2<0,"A",ROUND(B3/B2*100,1))))
セルの書式設定でユーザ定義[0.0;;0]
でどうでしょうか？（間違っていたらごめんなさい）

文字が入力された場合の処理はしてませんが、必要なら
=IF(ISERROR(B3/B2),"S",IF(B2=B3,"C",IF(B3/B2<0,"A",ROUND(B3/B2*100,1))))
（この場合、文字入力の時にもSが表示されます）

＞マイナスであればAと表示の部分は見た目がAでよければ、
セルの書式設定でユーザ定義[0.0;"A";0]
という方法もあります（セルの中身はマイナスで入っていますが）

＃１さんの　ROUND(B3/B2*100,2)は小数点第３位を四捨五入しているように思うのですが、
もし私の勘違いでしたら、私の方を直してください。

２については
私もよくわかりません。
１ページ２０行と決まっていれば、
A1セルで
「書式」→「条件付き書式」
「数式が」=MOD(ROW(A1),20)=0
「書式」ボタンで下線を引いて
後は、印刷範囲全てにコピーしておけば可能だと思います。
・最初に印刷範囲を選択してから、条件付き書式を設定すれば簡単です
・1行目が見出しだったりすると少し式を変えないといけません

＃２さんの方法は、各ページの最初の行は罫線付きますが、
最後の行にも罫線入りますか？（勘違いならすみません）

お礼

ご回答ありがとうございました。とてもよいヒントをいただけましたのでじっくり検討してみます。

回答No.2

ISO9002

2.について回答(アドバイス)します。

印刷する場合は、見出しをつけますよね。
２ページ目以降にも行のタイトルである「大分類、中分類、小分類」を表示するほうが、見る人にとっては親切だと思います。その場合の操作方ですが(ご存知でしたらすみません)

１．[ファイル]-[ページ設定]
２．「シート」タブを選択
３．「印刷タイトル」の「行のタイトル」で「大分類、中分類、小分類」が書かれた行を選択

これで全てのページに見出しがつくようになります。
これにより罫線が消えることはなくなります。

ストレートな回答ではありませんが、ご参考まで。

お礼

ありがとうございました。参考にします。

回答No.1

Fat01ton

freefmさん　こんばんは

１.については以下の式ではどうでしょう
質問中の”Aと表示”というのは文字としてAと
　表示するという意味で書きました。
わかりにくい式ですがご参考になれば幸いです。

=IF(ISERROR(B3/B2*100),"S",IF(B3/B2*100=100,"C",IF(B3/B2*100<0,"A",IF(B3/B2*100=0,B3/B2*100,ROUND(B3/B2*100,2)))))

２．についてはわかりませんでした。
　お役に立てず申し訳ありません。

お礼

参考にさせていただきます。ありがとうございました。