セルの表示形式

表があります。一つのセルに10桁の数字を入力します。下4桁は全て0(ゼロ)です。この下4桁をセルに表示したくないのです。10桁入力すると自動的に変換されるような方法を知りたく質問しました。どうぞご指導宜しくお願い致します。

質問者からの補足コメント

• 上手くいきました！真にありがとうございました！

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/10/13 23:27

• 上手くできました！真にありがとうございました！

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/10/13 23:28

No.2 回答者： tom04 回答日時： 2020/10/13 22:35

こんばんは！

Excelの質問だとして・・・

下3桁を表示しないのは「セルの表示形式」で対処する方法はあるみたいですが、
下4桁を表示しない！という方法はあるかどうか判りません。
（当方の勉強不足かも）

無理やりやってみました。
VBAになりますが、一例です。
とりあえず対象列は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
　　　If IsNumeric(.Value) Then
　　　　If .Value > 999999999 And Right(.Value, 4) = "0000" Then '//←念のため//
　　　　　Application.EnableEvents = False
　　　　　　.Value = Left(.Value, Len(.Value) - 4)
　　　　　Application.EnableEvents = True
　　　　End If
　　　End If
　　End With
End Sub

これでA列に下4桁が「0000」で10桁以上の数値を入力してみてください。

※　元データに手を付け、実データ表示になりますので
計算等には使用しない方が良いかも。m(_ _)m

この回答へのお礼

こんばんは！早速のご教授、真にありがとうございます！後ほど挑戦して結果ご報告致します。ありがとうございました！

お礼日時：2020/10/13 23:05

No.1 回答者： タマタマポチ 回答日時： 2020/10/13 22:29

https://www.ex-it-blog.com/Excel-man-yen

この回答へのお礼

こんばんは！早速ご教授頂き真にありがとうございます！挑戦して結果ご報告いたします。ありがとうございました！

お礼日時：2020/10/13 22:42