値のクリアと表示形式を数値 赤1234に変更マクロ

質問

エクセル2010です。よろしくお願いします。

通常　作業する前提として　-1234 と　入力した時に

赤1234と表示させている場合と　赤（1234）と表示させる場合が

あります。（通常時は　表示形式　数値　赤1234　です。）

作業終了時に　表示形式を　数値　赤1234に　ボタンクリックで戻したいのですが・・・

※　入力エリアを　選択してからの　マクロ実行で選択したセルの値クリアと表示形式変更と

　　あらかじめ範囲（I17:M29、I32：M51）を決めての値クリアと表示形式変更

　　２つのパターンでは　どうなりますでしょうか？

1　選択したアクティブセルを　値をクリア

2　表示形式を　数値　赤1234に　

以上のすマクロは、どういう形になりますでしょうか？

よろしくお願いします

回答No.4

mar00 · ベストアンサー

ANo.2です。
入力エリアを選択してからの場合の2番目のマクロは入力された数値がなければエラーになります。
エラーの処理をしたマクロです。
Sub Macro2()
On Error GoTo LINE
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
Selection.NumberFormatLocal = "#,##0;[赤]#,##0"
LINE:
End Sub

お礼

mar00さん　お礼の方が遅れてしまい　大変失礼しました。

何回も　回答していただいたのに　もうしわけありませんでした。

質問の内容のものは　できました。

内容を理解するように　つとめたいとおもいます。

回答No.3

mar00

入力エリアを選択してからの場合　
Sub Macro1()
Selection.ClearContents
Selection.NumberFormatLocal = "#,##0;[赤]#,##0"
End Sub
(注)　誤って数式の入っている所も範囲に含めて指定してしまうと数式もクリアされてしまいます。

Sub Macro2()
Selection.SpecialCells(xlCellTypeConstants, 1).ClearContents
Selection.NumberFormatLocal = "#,##0;[赤]#,##0"
End Sub
(注)　範囲を指定しないで実行するとシート全体の入力した数値(数式と文字は対象外)が対象になってしまいます。

範囲（I17:M29、I32：M51）を決めてある場合　
Sub Macro3()
Range("I17:M29,I32:M51").ClearContents
Range("I17:M29,I32:M51").NumberFormatLocal = "#,##0;[赤]#,##0"
End Sub

回答No.2

tom04

こんにちは！
一例です。

＞ボタンクリックで戻したいのですが・・・

とありますので、コマンドボタンを配置しているとします。

（1）入力エリアを選択しての場合

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Selection
With c
.ClearContents
.NumberFormatLocal = "#,##0;[赤]#,##0"
End With
Next c
End Sub

（2）あらかじめ範囲が決まっている場合

Private Sub CommandButton2_Click()
With Range("I17:M29,I31:M51")
.ClearContents
.NumberFormatLocal = "#,##0;[赤]#,##0"
End With
End Sub

こういう感じではどうでしょうか？m(__)m

お礼

tom04さん　お礼のほう　遅くなりもうしわけありませんでした。

できました。もっとエクセル勉強しないとでめですので　こまめにしたいです。

回答No.1

mu2011

>２つのパターンでは　どうなりますでしょうか？
　⇒先ずは、マクロ記録を行ってそのコード（標準モジュールフォルダ以下に記録）を
　　確認されては如何でしょうか。

お礼

mu2011さん　回答ありがとうございます。

マクロの記録は　やりましたが　きれいなコードですと
どうなるか？聞きたかったもので　すみません。
説明不足でした。