Excel（エクセル）活用コミュのVBAの質問

初心者なんで初歩的なところでつまづいてます。

例えば、

SS=Range(ﾞA1ﾞ).Value

Range(ﾞB1ﾞ).Value=ﾞGﾞ　& SS

とします。

このときA1はセルの書式設定の表示形式でユーザー定義 0.0##;-0.0##;0 と設定しておきます。

このときA1の値が1だとすると表示は1.0となるのですが、B1の値はG1となってしまいます。

B1の値をG1.0にする方法はありませんか？

宜しくお願いいたします

コメント(7)

最初
全て
最新の40件

[2] mixiユーザー 02月20日 22:29

どちらかというと書式設定の仕方の課題で、VBAの質問じゃないような…。

文字列として扱うなら、
　Range("B1").Value = Format(SS, "G0.0##")
のように加工すれば出来そうです。
数値のまま扱うならB1セルの表示形式設定を
　「"G"0.0##;"G"-0.0##;0」
のようにGという文字付きの書式にしてしまうのはいかがでしょう？

[3] mixiユーザー 02月21日 00:53

できました。

ありがとうございます。

ついでにもう1つお聞きしたいのですが…

SSが数値で、かつ空じゃないという条件を付けたいのですが、

If ？？？ and SS <> ﾞﾞ then…

SSが数値というのはどう表記したらよいのですか？

[5] mixiユーザー 02月21日 01:00

聞く前に調べるクセをつけませんか？？
「vba 数値か否か」なんてキーワードで引っかかると思いますが、
IsNumeric関数について調べると幸せになれるかも。

If IsNumeric(SS) = True Then
　'数値の時の処理
Else
　'数値じゃない時の処理
End If

[6] mixiユーザー 02月25日 21:19

もう解決済みかもしれませんが。

表示形式で文字列を取得したい場合には
RangeオブジェクトのValueプロパティではなくTextプロパティを使いましょう。

SS = Range("A1").Text

Format関数でそのセルの書式で文字列を取得するために
ss = Format$(Range("A2").Value, Range("A2").NumberFormatLocal)
のようにすることもできますが、Textプロパティがあるので↑のコードは無意味です。

Minonさん
表示形式に G(大文字・小文字問わず) があるので
Format()関数やFormat$()関数の第２引数で使うのは避けたほうが無難です。

[7] mixiユーザー 02月25日 21:35

>>6 よっちゃんさん
…あ゛ぁっ