[[20031210164215]]　『ボタン操作で会社名を入力』（ありんこ）　ページの最後に飛ぶ

『ボタン操作で会社名を入力』（ありんこ）

教えてください
表があったとして、そこの下に各会社のボタンを作成して
その会社のボタンをおすと、各表の必要事項のところにその会社名が
入るようにするには、やっぱりＶＢＡでないと作成できないですよね？？
簡単にマクロが組めるようであれば
どのように組むのか教えていただきたいのです。。。
このＨＰペ－ジには、いつも助けられています。よろしくお願いします！！

 >各表の必要事項のところ
 これが、文章の途中の文字列だとダメなんですが（VBAになるかな）、入力するのがセル単位なら
 １つのセルで入力規則のリストで会社名を選択するようにし、
 他のセルは　＝入力規則を設定したセル参照
 なんて方法もあるのでは？
 (YS)

ありがとうございます
やはり、それが一番早いですよね？？
ちなみに上記の方法でやはりボタンを作成して、任意のセルにボタンを押すと
内容が表示されるようにするには、ＶＢＡもしくは、プログラミングですかね？？

 >ＶＢＡもしくは、プログラミングですかね？？
 でしょうね。でも、
 >各会社のボタンを作成し
 っていうぐらいだから、そんなに会社数はないんでしょ？
 だったら、ある特定のセルに会社名を入力する操作を新しいマクロの記録で記録し
 それをコピーして会社数分作って、会社名のところだけ編集してボタンに登録するだけでできるかな。
 スマートな方法は、VBAの達人たちに教えを乞いましょう。
 (YS)

 あ、↑みたいなベタな方法でも良いなら、
 $$$$$$みたいな文字列を会社名に置換する操作を記録すれば、
 文章の途中に入力するのでも別に問題なかったな…
 (YS)の独り言

 めっさ簡単な方法。

 (1)コントロールツールボックスのボタンをワークシートに配置します。
 (2)デザインモードにして、ボタンをダブルクリックして
     Private Sub CommandButton1_Click()
         Selection = CommandButton1.Caption
     End Sub
 (3)ワークシート側に戻る。
 (4)マウス右ボタンから
 　　[コマンドボタン]→[オブジェクト]→[編集]でボタンの名前を会社名に変更する。
 (5)デザインモードから抜ける。

（kazu）

ありがとうございます！！！！
やってみます
（ありんこ）

上記の通りやってみたのですが、閉じて実行すると
コンパイルエラ－　（Ｅｎｄ　Ｓｕｂ）が必要ですと出てくるのですが
何故でしょう・・・
Private Sub CommandButton3_Click()

    Selection = CommandButton1.Captain
End Sub

こうやっていれています

 うーむ、考えにくいのですが。
 とりあえず、これ↓を直してみてください。

 Captain → Caption

 （kazu）

上記のをコピ-させてもらって作ったのですが、やっぱり
コンパイルエラ－　Ｅｎｄｓｕｂがありませんとでるのですが・・・
これは、ＶＢＡというよりもエクセル自体に何か問題が起きてるのですかね？？
End Subというのは、もともとＶＢＡ立ち上げると出てきますよね？
となると入力する部分は、

 Private Sub CommandButton1_Click()
         Selection = CommandButton1.Caption
だけですよね？？

 説明不足でスミマセン。

 この↓部分だけ、コピーするなり打ち込むなりしてください。

   Selection = CommandButton1.Caption

 こちら↓は勝手にExcelが作るはずです。

    Private Sub CommandButton1_Click()

    End Sub

 （kazu）

 横からすみません。
 途中の回答で CommandButton3_Click() と CommandButton1.Caption とあるのですが、
 ボタン名の違いでエラーになっているということはないでしょうか？（スー）

ス－さん、ご指摘ありがとうございます。。。
CommandButton3_Click() と CommandButton1.Caption
は、気づいてちゃんと治しました。
でも下記のとおりに今度いれると、ｵﾌﾞｼﾞｪｸﾄがありませんと出てきます。
Selection = CommandButton1.Caption

 またまた、横からすいません。
オブジェクトがありませんと出ると言う事はCommandButton1がないのではないでしょうか？
CommandButton3を使っているのなら
 Private Sub CommandButton3_Click()
         Selection = CommandButton3.Caption
 End Sub
となります。（ケン）

 ボタンのプロパティで Caption のところやオブジェクト名を「会社名」に変更していませんか？（スー）

私がちょっと勘違いしていたところもあり、今　やりなおしたら
できました！！！！
本当にみなさまには、感謝感謝です
どうもありがとうございました！！！！！！！　（ありんこ）

 よかったです。

 これがうまくゆけば (新)VBA入門コース にこのネタを使うつもりでした。

 （kazu）

 ライブラリに[(新)VBA入門]を追加しました。

 上と同じ内容ですが、VBAに興味ある方は見てください。

https://www.excel.studio-kazu.jp/lib/e4a/e4a.html

 （kazu）

コメント返信：

[ 一覧(最新更新順) ]

[[20031210164215]] 『ボタン操作で会社名を入力』（ありんこ） ページの最後に飛ぶ

[[20031210164215]]　『ボタン操作で会社名を入力』（ありんこ）　ページの最後に飛ぶ