VBA フォームのテキストボックスにセルの値を入力

質問

解決策が見つからなかったため力を貸してください。

【Excel２０１０】

選択したセルの数値（その時によって違う）を
シート上のマクロを登録したボタンを押すと出てくる
フォームのテキストボックスに表示させたいのですが、
どうやってもうまくいきません。

そのフォームは、数字を入れてエンターを押すと
その数字に対応した内容をデータベースからもってきて
表示される仕組みになっているのですが、
いちいち数字を覚えるか自分でコピペして入力するのが面倒なので、
シート上の数字（セル）を選択してマクロを押すと
表示されているようにできたらなと思っています。

ちょっとした改善ですが、できたら作業効率が上がるので
ご回答をお待ちしております。

回答No.1

keithin · ベストアンサー

UserFormにTextBox1とCommandButton1があり、そのコマンドボタンのマクロとして

private sub CommandButton1_Click()
me.textbox1 = activecell.value
end sub

のようにしておきます。

お礼

回答ありがとうございます！
早速機能を追加してみて無事動きました。

予定していた動きとちょっと違いますが、
数字の直接入力にも対応していますし
入力しないようにもなりましたので
こちらの方がいいですね。

ありがとうございました。