[[20160525215320]] 『表示形式変更のマクロについて』(Artyom) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『表示形式変更のマクロについて』(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.