VBA コマンドボタン 頭に0がでない

質問

各ボタンに以下を入れる
Private Sub CommandButton1_Click()
Selection.Value = Selection.Value & "1"
End Sub

Private Sub CommandButton2_Click()
Selection.Value = Selection.Value & "2"
End Sub
.
.
Private Sub CommandButton10_Click()
Selection.Value = Selection.Value & "0"
End Sub

Private Sub CommandButton11_Click()
Selection.Value = Selection.Value & "."
End Sub

0.1と入力しても0.1が表示できなく、1となってしまいます。
また.1と入力しても0.1でなく、1になってしまいます。
どうすれば良いでしょうか？

回答No.2

kkkkkm · ベストアンサー

> 「.1」と入力して0.1ってのは無理でしょうか？

Dotを入れたら「0.」にする方法です。
Private Sub CommandButton11_Click()
Selection.NumberFormat = "@"

'すでにDotがあれば何もしない
If InStr(1, Selection.Value, ".") <> 0 Then
Exit Sub
End If

If Selection.Value = "" Then
Selection.Value = "0"
End If
Selection.Value = Selection.Value & "."
End Sub

もしくはすべてのボタンで DotCheckをする方法です。

Private Sub CommandButton1_Click()
Selection.NumberFormat = "@"
DotCheck
Selection.Value = Selection.Value & "1"
End Sub

これを別に作成しておきます。
Function DotCheck()
If Selection.Value = "." Then
Selection.Value = "0."
End If
End Function

お礼

ありがとうございます。
すべてのボタンで DotCheckを入れる方法でうまくできました。

回答No.1

kkkkkm

全てのボタンのクリックで書式を文字列にして値を入力するようにするか
Selection.NumberFormat = "@"
Selection.Value = Selection.Value & "1"

テキストボックスを作成し、いったんテキストボックスに入れたものをセルに入力するという方法もあります。

補足

コメントありがとうございます。
Selection.NumberFormat = "@"にすることでできましたが、
「.1」と入力して0.1ってのは無理でしょうか？