エクセルVBAで計算機を作成について

質問

エクセルVBAのユーザーフォームで計算機を作成しております。
以下の点で参考書で調べたのですが壁にぶつかっております。

1、クリアボタンを作成して押下する事によって表示さ　れている数字を「0」にしたいのですが出来ません。
2、テキストBOXに表示される数字を12桁まで表示にし　たいのですがMAXLENGTHを12にしても制限をかける事
　が出来ません。
3、テキストBOXに数字や計算結果を表示してるのです　　が、手動入力を出来ない様にしたいのですが出来　ません。
非常にせっぱ詰まっていて言葉足らずかもしれませんがどなたか教えてください。

回答No.2

papayuka · ベストアンサー

何故ユーザーフォームで計算機を作る必要があるのか良く解かりませんが、、、

1は単純に 0 を代入するだけでは？

Private Sub CommandButton1_Click()
　TextBox1.Value = "0"
End Sub

2はもっと良い方法があるかも知れませんが、

Private Sub TextBox1_Change()
　If LenB(TextBox1.Value) > 13 Then
　　 TextBox1.Value = Left(TextBox1.Value, 12)
　End If
End Sub

3は TextBoxの Enabled を False にすれば良いのでは？

Private Sub UserForm_Initialize()
　TextBox1.Enabled = False
End Sub

質問の際にExcelのバージョンも書かれた方が良いでしょう。

回答No.1

noname#240783

どういった仕様になっているかわかりませんが...

１．ユーザーフォームにコマンドボタンを貼り付けて
　　キャプションを「クリア」にして、
　　コマンドボタンをダブルクリックしてできたコードに
　　[数字を表示するTEXTBOX名].Text = "0"
　　にする。

２．テキストＢＯＸに数字（文字？）を追加する
　　すべてのプロシージャで現在の文字列長を
　　If Len(TextBox1.Text) < 12 Then...
　　でチェックする。

３．テキストＢＯＸのプロパティ「Locked」をTrueにする。

以上が手がかりにならないでしょか？？