Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5845 / 76732

←次へ　｜　前へ→


	【76492】Re:表示形式

わからない - 14/12/15(月) 21:17 -


	引用なし

	パスワード

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)のように解釈されるみたいですね。
># こちらもすぐには想定できなかった。

2 hits

▼

【76488】表示形式 わからない 14/12/15(月) 13:36