[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『表示形式変更のマクロについて』(Artyom)
マクロ初心者です。
選択範囲の表示形式を円単位、千円単位、パーセントで順に切り替わるようにマクロを設定したいのですが、選択範囲内に表示形式の異なるセル(ex.「標準」と「数値」等)が存在する場合に表示形式が変更されず困っています。
改善策を教えていただけると助かります。
Sub サンプル()
If Not Selection.NumberFormatLocal = "#,##0;[赤]-#,##0;""-""" And Not Selection.NumberFormatLocal = "#,##0,;[赤]-#,##0,;""-""" Then
Selection.NumberFormatLocal = "#,##0;[赤]-#,##0;""-""" '円 Else If Selection.NumberFormatLocal = "#,##0;[赤]-#,##0;""-""" Then Selection.NumberFormatLocal = "#,##0,;[赤]-#,##0,;""-""" '千円 Else If Selection.NumberFormatLocal = "#,##0,;[赤]-#,##0,;""-""" Then Selection.NumberFormatLocal = "#,##0%;[赤]-#,##0%;""-""" 'パーセント End If End If End If
End Sub
< 使用 Excel:Excel2010、使用 OS:Windows7 >
For Eachステートメントを使って選択範囲内のの一セルごとに設定してはどうか?
あとIFステートメントの繰り返しはSelect Caseステートメントで。 (ねむねむ) 2016/05/26(木) 09:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.