Excel VBA質問箱 IV

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

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


5848 / 76735 ←次へ | 前へ→

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

0 hits

【76488】表示形式 わからない 14/12/15(月) 13:36 質問[未読]
【76489】Re:表示形式 くにぞう 14/12/15(月) 14:06 回答[未読]
【76490】Re:表示形式 わからない 14/12/15(月) 14:48 お礼[未読]
【76491】Re:表示形式 γ 14/12/15(月) 21:04 発言[未読]
【76492】Re:表示形式 わからない 14/12/15(月) 21:17 発言[未読]
【76493】Re:表示形式 γ 14/12/16(火) 7:41 発言[未読]
【76494】Re:表示形式 [名前なし] 14/12/16(火) 13:00 発言[未読]
【76496】Re:表示形式 γ 14/12/16(火) 20:58 発言[未読]
【76511】Re:表示形式 [名前なし] 14/12/18(木) 21:13 お礼[未読]

5848 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free