|
buf2 = uteigi.NumberFormatLocal
確かにこちらの方がスマートですね。
作業をしててもうひとつ不明点が。
Sub uteigiche()
Dim uteigi
Dim buf As String
Dim ms As Boolean
For Each uteigi In Selection
buf = uteigi.NumberFormatLocal
Debug.Print uteigi, uteigi.Text
uteigi.Value = uteigi.Text
ms = True
'End If
Next uteigi
If ms Then MsgBox "表示形式に注意して下さい。", vbCritical
End Sub
uteigi.Text → 14,200 (通貨、会計で,を表記してます。)
uteigi → 14200
uteigi.Value = uteigi.Text
シート上で表示もvalueも 14200 です。
14,200にはできないのでしょうか?
▼γ さん:
>>>buf2 = Cells(uteigi.Row , uteigi.Column).NumberFormatLocal
>
>buf2 = uteigi.NumberFormatLocal
>のほうがより自然ですね。
>.Textのほうはそうされているのに・・・。
>
># ところで、
># Cells("2,1") は Cells(21)のように解釈されるみたいですね。
># こちらもすぐには想定できなかった。
|
|