文字型の数字をそろえたい ８．２０ →８．２

質問

アクセス９７のＶＢＡで　文字型の数字をそろえたいのです。
５．６０→５．６
３．４００　X　４．５５０　X　２．４００　→３．４　X４．５５　X　２．４
４．０００　X　４．５００　→　４　X　４．５

いかがでしょうか？

回答No.2

imogasi · ベストアンサー

VAL,STR,TRIMの組み合わせでどうですか。
エクセルでテストですが下記を参考に。
３つの関数がAccessにもあること確認済み。
－－－
Sub test1()
For i = 1 To 3
a = Worksheets("sheet1").Cells(i, 1)
n = Val(a)
s = Trim(Str(n))
Cells(i, 2) = s
Next i
End Sub
－－－－
123.400 123.4
34.40 34.4
123.0 123

回答No.3

BraveStory

全角数字を変換するなら次のようなコードで。ちなみにSplit関数の"　"は全角スペースです。
詳細はヘルプ等でお調べください。

==================================================================
Dim A As String
Dim B As Variant
Dim C As String

A = "３．４００　X　４．５５０　X　２．４００　１１００ "
B = (Split(A, "　", -1)) '全角スペースで区切って配列に格納
i = 0

For i = 0 To UBound(B)

If InStr(B(i), "．") <> 0 Then '小数の場合のみ次の処理へ

Do While Right(B(i), 1) = "０"
B(i) = Left(B(i), Len(B(i) - 1)) 'いらない０を取り除く
Loop

End If

C = C & B(i) & "　"

Next i

回答No.1

ARC

"３．４００　X　４．５５０　X　２．４００"という文字列を"３．４　X４．５５　X　２．４"という文字列に変換したいのでしょうか？

それとも、ただ単に"3.400"(半角)という文字列を"3.4"という文字列に変換したいのでしょうか？

前者であれば、多少複雑なコーディングしなくてはなりませんね。
後者であれば、
変換後 = CStr(Val(変換前の文字列))
ってな感じで可能です。