| よね様
いつもお世話になっております。
この度、SelectCase とNumberFormatLocalの組み合わせで困ったことが起きております。
桁数の異なるデータの集合があるのですが、それを指定のセルの数字によって判定し、表示形式を変更ことが目的で以下のコードを作成しました。
Select Case Range("K" & i + 1).Value Case 0 Range("M" & i & ":M" & i + 3).NumberFormatLocal = "#0" Range("N" & i & ":N" & i + 3).NumberFormatLocal = "#,###.0" Range("O" & i & ":O" & i + 3).NumberFormatLocal = "#,###.0" Range("P" & i & ":P" & i + 3).NumberFormatLocal = "#,###.#0" Range("Q" & i & ":Q" & i + 3).NumberFormatLocal = "#,##0" Range("R" & i & ":M" & i + 3).NumberFormatLocal = "#,##0" Case 1 … End Select
するとステップインの状態では各NumberFormatLocalで意図通りに表示形式が変更されていくのですが、 それが最終行のEnd Selectへコードが移ったとたんに全て#,##0へ変更(リセット?)されてしまうのです。
どのような仕様が原因なのでしょうか?ご存知でしたらご教授ください。
|