エクセルで千円以下（下３桁）を表示させない方法

エクセルで千円以下（下３桁）を表示させない方法を教えてください。
eg. 123456円 →　123
23456円　→　23

１つのセルで完結させる方法を知りたいです。
よろしくお願いします。

No.3 回答者： yomyom01 回答日時： 2015/04/11 11:37

・=LEFT(A1,LEN(A1)-3)

Excel2010の場合

No.2 回答者： moon-and-star 回答日時： 2015/04/10 12:18

セルの書式設定で

#,##0,
　　　
念のため･･･
書式設定は当該セルをアクティブにして、「Ctrl」＋「1」で設定画面が表示されます。

No.1 回答者： tom04 回答日時： 2015/04/10 11:53

こんにちは！

＞１つのセルで完結させる方法を知りたいです。
というコトですのでVBAになりますが、一例です。

入力値が３桁以下の場合はどうするのでしょうか？
とりあえず３桁以下（999以下）の場合は何も表示しない方法にしてみました。
A列にデータを入力するとします。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）A列にデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から
If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
Application.EnableEvents = False
If IsNumeric(.Value) Then
If .Value > 999 Then
.Value = Int(.Value / 1000)
Else
.Value = ""
End If
End If
Application.EnableEvents = True
End With
End Sub '//この行まで

こんな感じではどうでしょうか？m(_ _)m