2017年06月27日
ExcelVBAコマンドボタンの作成
![](https://www17.a8.net/0.gif?a8mat=2NSTUY+9X83QQ+1HK2+1ZP8DT)
![](https://www15.a8.net/0.gif?a8mat=2NSTUY+9XTJCI+1HK2+2BKTWH)
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
![](http://blogranking.fc2.com/ranking_banner/b_02.gif)
![にほんブログ村 IT技術ブログ ソフトウェアへ](http://it.blogmura.com/software/img/software88_31.gif)
にほんブログ村
コマンドボタンの追加
![ボタン1.png](/yoshimatsuex/file/undefined/E3839CE382BFE383B31.png)
今度はコマンドボタンを追加してみましょう。
テキストボックスを追加したように「コマンドボタン」を押して、
ユーザーフォームに配置します。
![ボタン2.png](/yoshimatsuex/file/undefined/E3839CE382BFE383B32.png)
上記のようにコマンドボタンが追加されました。
プロパティウィンドウも「CommandButton1」になっていますね。
「Caption」のところで名前の変更が出来ます。
とりあえず「入力」としてみましょう。
![ボタン3.png](/yoshimatsuex/file/undefined/E3839CE382BFE383B33.png)
上記のように「入力」という名前に変わりました。
ここで少しVBAを書いてみましょう。
「テキストボックス1」に入力した内容を、「コマンドボタン」を押すことにより、
Excelシート4のA1にテキストボックス1の内容を転記する。
というプログラムを作ってみましょう。
![ボタン4.png](/yoshimatsuex/file/undefined/E3839CE382BFE383B34.png)
まず、プログラムを書くところは「コマンドボタン」に記載するため、
コマンドボタン上で右クリックし、メニューから「コードの表示」を選択します。
![ボタン5.png](/yoshimatsuex/file/undefined/E3839CE382BFE383B35.png)
上記のようになり
Private Sub CommandButton1_Click()
End Sub
という記述が自動的に記述されます。
この2行の間にプログラムを書いて行きます。
Private Sub CommandButton1_Click()
Sheets("sheet4").Range("A1") = UserForm1.TextBox1
End Sub
上記のように「Sheets("sheet4").Range("A1") = UserForm1.TextBox1」と記載しました。
ここの記載方法は色々あります。
Private Sub CommandButton1_Click()
Sheets("sheet4").Range("A1").Value = UserForm1.TextBox1
End Sub
上記のように「.Value」でも同じ動作を行います。
たぶん「.Value」を記載するのが正統なのだろうと思います。
このように同じ動作をさせる場合でも、記述の方法は色々な記述方法があります。
そこは各人のVBAの習得レベル・センス等によると思います。
いかに分かりやすく、簡潔に記述できるかだと思います。
私のように「仕事で少々VBAを使ってますよ」というレベルではこれで十分だと思っています。
![](https://www16.a8.net/0.gif?a8mat=2NSTUY+A94RUA+348+U4QXD)
WordPressが簡単・すぐに使える『レンタルサーバーheteml(ヘテムル)』
![](https://www17.a8.net/0.gif?a8mat=2NSTUY+A94RUA+348+TZ6B6)
![](https://www13.a8.net/0.gif?a8mat=2TIIN2+9W1A2Q+2CPQ+1BNJ9D)
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/6413341
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック