[[20240126085051]]　『条件付き書式かマクロで』（ぽっぽ）　ページの最後に飛ぶ

『条件付き書式かマクロで』（ぽっぽ）

       A       B      C      D     E
1     ※1
2
3　　0.00     0.00   0.00   0.00  0.00
4　　0.00     0.00   0.00   0.00  0.00
5　　0.00     0.00   0.00   0.00  0.00

A1：小数桁数の条件(d/c/m)のいずれかが表示されます。
セル範囲（A1：E5）に測定した数値を手入力します。

その際に、A1に表示された条件によって小数の表示桁数を変更したい。
d:0.1
c:0.01
m:0.001

マクロがまだ初心者で組むのが難しいので、条件付き書式で対応ができればその方法が知りたいです。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

センスが無いかもしれませんが、下記で表示ができました。

    Dim dcm As Range
    Set dcm = Range("A1")
    'd
    If Range("A1").Value = "d" Then
    Range("A3:E5").NumberFormatLocal = "0.0"
    End If
    'c
    If Range("A1").Value = "c" Then
    Range("A3:E5").NumberFormatLocal = "0.00"
    End If
    'm
    If Range("A1").Value = "m" Then
    Range("A3:E5").NumberFormatLocal = "0.000"
    End If

他に効率の良い方法がありましたら、ご教授をお願いします。

（ぽっぽ） 2024/01/26(金) 09:19:35

A3:E5を選択状態にして、条件付き書式を以下のように設定します。

=Left($A$1,1)="d" と言う条件で、書式（表示形式）設定（数値の小数点1桁を指定）
=Left($A$1,1)="c" と言う条件で、書式（表示形式）設定（数値の小数点2桁を指定）
=Left($A$1,1)="m" と言う条件で、書式（表示形式）設定（数値の小数点3桁を指定）

（xyz） 2024/01/26(金) 09:30:57

A3:E5の条件付き書式で

=$A$1="d" →　書式設定:0.0
=$A$1="c" →　書式設定:0.00
=$A$1="m" →　書式設定:0.000

の条件付き書式三段重ねで。
（ゆたか） 2024/01/26(金) 09:41:15

コメント返信：

[ 一覧(最新更新順) ]

[[20240126085051]] 『条件付き書式かマクロで』（ぽっぽ） ページの最後に飛ぶ

[[20240126085051]]　『条件付き書式かマクロで』（ぽっぽ）　ページの最後に飛ぶ