シートにテンキーを表示させたい

質問

https://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/e/772459_5773ce0765a11/M.jpg
上記の画像のようにシートにテンキーを表示させたいと思い、検索しましたところ以下のがみつかりました。
https://oshiete.goo.ne.jp/qa/9325096.html
分からない点
・このフォームはどうやって作成するのでしょうか？
開発→挿入　このようなテンキーはなかったのですが…
・参考サイトでは一つのセルに対してですが、全てのセルに対応するにはどうしたら良いでしょうか？

宜しくお願いします。

回答No.4

kkkkkm · ベストアンサー

> 1ボタンをクリックしたら
> 「実行時エラー'424':
> オブジェクトが必要です」
> とエラーメッセージが出ます。

TextBox1というテキストボックスは作りましたか？
あと、テキストボックスを作らずに直接セルに値を入れるのもありですが…。
フォームを作らずに直接シートにボタンを作っているのですね。

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

お礼

TextBox1というテキストボックスを作ることで表示できました。
おっしゃる通りセルに直接入れたいので、各ボタンに以下を入れることでできました。
ありがとうございました。

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

回答No.3

merrysun

シートにテンキーを表示させたい目的は何ですか？
タッチキーボードでは駄目ですか？
Windows10 のタッチキーボードの簡単な使い方
https://pc-karuma.net/windows-10-touch-keyboard/

回答No.2

Nobu-W

EXCELのVBAを使ってユ～ザ～フォ～ムというものを作成します
https://tonari-it.com/vba-manual/
まずは上記サイト参考にして下さい　m(_ _)m
解らない時は、またＯＫＷＥＢで質問され、一つ一つ習得して下さい

補足

http://www.excel.studio-kazu.jp/lib/e4a/e4a.html
で参考になりました。

回答No.1

kkkkkm

Private Sub CommandButton1_Click()
で操作していますので、コマンドボタンを必要なだけフォームに配置します。
選択しているセルに対応するのでしたら
Selection.Value = Me.TextBox1

補足

開発→挿入→Activexコントロールでボタンを10コ配置

各ボタン
Private Sub CommandButton1_Click()
TextBox1.Value = TextBox1.Value & "1"
End Sub

Private Sub CommandButton2_Click()
TextBox1.Value = TextBox1.Value & "2"
End Sub

9まで同様に作成

送信ボタン
Private Sub CommandButton10_Click()
Selection.Value = Me.TextBox1
End Sub

結果
1ボタンをクリックしたら
「実行時エラー'424':
オブジェクトが必要です」
とエラーメッセージが出ます。
どこが間違っておりますか？