VBAで文字と数値のセルを計算したい
EXCEL2000でＶＢＡ作成中です。
以下のコードで計算式を入れています。
セルの値が0のときは、セルの値を表示しないようにしています。
ところが印刷すると0が表示されてしまいます。
Range("F18").Formula = "=if(+G18>0,""朝"","""")"
Range("h18").Formula = "=if(+Ｉ18>0,""昼"","""")"
Range("J18").Formula = "=if(+Ｋ18>0,""夕"","""")"
Range("G18").Formula = "=IF(COUNTIF(Q18:AB19, ""
朝"")=0,0,COUNTIF(Q18:AB19, ""朝""))"
Range("I18").Formula = "=IF(COUNTIF(Q18:AB19, ""
昼"")=0,0,COUNTIF(Q18:AB19, ""昼""))"
Range("K18").Formula = "=IF(COUNTIF(Q18:AB19, ""
夕"")=0,0,COUNTIF(Q18:AB19, ""夕""))"
Range("L18").Formula = "=-(+G18*300+I18*350+K18*
400)"
そこで
Range("G18").Formula = "=IF(COUNTIF(Q18:AB19, ""
朝"")=0,"""",COUNTIF(Q18:AB19, ""朝""))"
とすると、L18にエラーが出て計算してくれません。
ゼロを非表示にしてしかも計算させるようにするには
どうしたらよろしいか。
お礼
D11に文字が入ってました。 ありがとうございました。