[[20120601184934]]　『温度の入力を簡略に出来ないかの質問です。』（kit）　ページの最後に飛ぶ

『温度の入力を簡略に出来ないかの質問です。』（kit）

 [温度の入力を簡略に出来ないかの質問です。
　数字（100）を入れたら「100℃」と表示させることは、表示形式を「＃"℃"」に
　することで出来るのですが、入力する温度が100～110℃までしかないので、
　0～10だけの入力で、100～110℃と表示させる（セル内で+100の計算をして
　出力させる）ことは出来ないでしょうか。]（kit）

表示形式を [=0]100"℃";[>=1]10#"℃";G/標準

[<0]"";[<=10]100"℃";;
上記のような表示形式のユーザー定義で対応することは可能ですが、
実際のセルの値は0～10になってしまうので、
あとでデータとして利用するときに困りませんか？
(みやほりん)(-_∂)b

 マクロの例ですが入力がA列の場合、該当する数値だけ 100 増加する処理です。
 シートモジュールへ置いて確認ください。
 (Mook)

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
    Dim r As Range
    Application.EnableEvents = False
    For Each r In Intersect(Target, Columns("A"))
        If r.Value <> "" And IsNumeric(r.Value) Then
            If r.Value >= 0 And r.Value <= 10 Then
                r.Value = r.Value + 100
            End If
        End If
    Next
    Application.EnableEvents = True
 End Sub

＞みやほりんさん
　確かにそうですね。データ利用が出来なく駄目ですね。^^;
＞mookさん
　ありがとうございます。マクロを勉強してトライしてみます。

コメント返信：

[ 一覧(最新更新順) ]

[[20120601184934]] 『温度の入力を簡略に出来ないかの質問です。』（kit） ページの最後に飛ぶ

[[20120601184934]]　『温度の入力を簡略に出来ないかの質問です。』（kit）　ページの最後に飛ぶ