表示形式を変えるマクロのコードは？エクセル2010

質問

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

特定の範囲のセル範囲（I7:M29）の表示形式が数値、-1234　文字色赤となっています。

それを　特定のセル範囲に数値を入力し終わって　セル範囲のあるセルを選択した状態で

あるコマンドボタンをクリックしたら、そのセルの表示形式を（1234）　文字色赤　としたいのですが

また　あるコマンドボタンをクリックしたら　

特定の範囲（I7:M29）を最初の状態、　表示形式　-1234 文字色赤にしたいのですが

マクロでの使用は　どういったコードが　考えられますでしょうか？

回答No.2

keithin · ベストアンサー

開発タブからActiveXコントロールのコマンドボタンを２個，シート上に配置する
それぞれ右クリックしてコードの表示を選び，下記のようにする

private sub CommandButton1_Click()
　if activecell.address <> "$A$1" then
　msgbox "所定のセルが選択されていません"
　exit sub
　end if

　if application.count(range("I7:M29")) < 115 then
　msgbox "所定のセル範囲に数値が入力し終わっていません"
　exit sub
　end if

　range("I7:M29").numberformatlocal = "0_);[赤](0)"
end sub

private sub CommandButton2_Click()
　if activecell.address <> "$A$1" then
　msgbox "所定のセルが選択されていません"
　exit sub
　end if

　if application.count(range("I7:M29")) < 115 then
　msgbox "所定のセル範囲に数値が入力し終わっていません"
　exit sub
　end if

　range("I7:M29").numberformatlocal = "0_ ;[赤]-0_ "
end sub

＃エクセルでは２種類の「コマンドボタン」が利用できます。具体的にナニを使いたいのかによって，正しいマクロの書きぶりが変わります。

＃「あるセル」とか「所定のセル範囲」では，具体的なサンプルマクロは書けません。コピーしてツカエル回答が必要なときは，具体的なセル番地とか漏れなくキチンと情報を出すように覚えてください。

お礼

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

コマンドボタンを配置してできました。
ありがとうございます。

補足

keithinさん　いつも回答していたき　ありがとうございます。

今日中に　ためさせてもらいます。

具体的なセル番地　もれなく記入するようします。すみません。

回答No.3

imogasi

質問の表現をもっと文章で明確に出来ないのか？
数値セルの表示形式で、負の数の場合に、
A.文字色を赤色にし
B.マイナス符号つきにしたい。
とかね。
＞そのセルの表示形式を（1234）　文字色赤　としたいのですが
上記に比べて、マイナス符号をつけなくしたいのか？
ーー
それぐらいなら、マクロの記録を取ってコードを見たら仕舞いではないか。わざわざ質問する意味は何か？
初心者はマクロの記録のありがたさを忘れている風な質問が多いが。
＞　セル範囲のあるセルを選択した状態で
この意味は何？
＞コマンドボタンをクリックしたら　
これのコードが判らないのか。
それならGoogleで「VBA　コマンドボタン　クリック」で照会してみたら。
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200904/09040051.txt

お礼

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

以後　気おつけたいとおもいます。

もうしわけありませんでした。

回答No.1

DreamyCat

マクロの記録ではこのようになりました。
Selectionの部分を特定の範囲に変えるだけでできそうです。

Selection.NumberFormatLocal = "0;[赤]0"
Selection.NumberFormatLocal = "0_ ;[赤]-0 "

お礼

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

自分もそのようになりましたです。