セルを空白にしたら「０（ゼロ）」を表記させる方法

質問

セルを空白にしたら「０（ゼロ）」を表記させる方法の質問です。

「Ｆ５～Ｆ３８」「Ｈ５～Ｈ３８」「Ｊ５～Ｊ３８」「Ｌ５～Ｌ３８」「Ｎ５～Ｎ３８」「Ｐ５～Ｐ３８」「Ｒ５～Ｒ３８」「Ｄ６～Ｄ３８」「Ｅ５～Ｅ３６」「Ｔ５～Ｔ３６」「Ｕ５～Ｕ３８」の範囲のセルに数字や文字を入力します。

上記範囲のセルに入力した数字や文字を消して、空白表示にした場合は自動で「０（ゼロ）」と表記させる方法はあるのでしょうか？

回答No.3

tom04 · ベストアンサー

こんばんは！

＞セルを空白にしたら「０（ゼロ）」を表記させる方法
超ベタなVBAでの一例です。
質問文通りのセル配置だとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りデータを入力・消去してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("D6:F36,E5:F5,D37:D38,F37:F38,H5:H38,J5:J38,L5:L38,N5:N38,P5:P38,R5:R38,T5:U36,U37:U38")) Is Nothing _
Or Target.Count > 1 Then Exit Sub
With Target
If .Value = "" Then
.Value = 0
End If
End With
End Sub 'この行まで

※　最初から空白の場合は変化しません、一旦データ入力　→　消去　で「0」が表示されます。m(_ _)m

お礼

この度は回答して頂き誠にありがとうございましたm(_ _)m

凄くベターで分かりやすかったです。これからも宜しくお願いします！！

回答No.2

mshr1962

＞空白表示にした場合は自動で「０（ゼロ）」と表記させる方法はあるのでしょうか？

・書式設定では、「０」の表示は出来ません。

・条件付き書式では、塗りつぶし設定等で強調は出来るけど、「０」の表示は出来ません。

・入力規則では、空白時にメッセージを表示できますが、セルへの「０」の表示は出来ません。

・VBAでなら、空白に変更時にイベントでチェックして、内容を「０」に置換させることは可能です。

お礼

この度は回答して頂き誠にありがとうございましたm(_ _)m

色々な方法があるのですね！！

補足

ＶＢＡで組むのが一番効率が良いのでしょうか？

今回のＶＢＡの一例としてどの様に書けば良いでしょうか？

回答No.1

Naomi1995

こんにちは！

単に空白のセルに「０」を表示させるのであれば下記のURLの
ような方法があります。
私はその方法で一応問題無く使えているのですが…
ご参考になれば良いのですが！

参考URL：

http://office.microsoft.com/ja-jp/excel-help/HA102809803.aspx

お礼

この度は回答して頂き誠にありがとうございましたm(_ _)m

今回はVBAを使用した方法が一番良かったです。

また宜しくお願いします！！