エクセルの学校：全文検索：Hyper Estraier： VBA ��

Results of 1 - 1 of about 14723 for VBA �� (0.003 sec.)

[[20031210164215]]: #score: 3408; @digest: 2a7757bf02e34c291ef1b859c8af0f57; @id: 4379; @mdate: 2003-12-11T13:24:32Z; @size: 4190; @type: text/plain; #keywords: captain (15368), commandbutton3 (7794), 新) (6233), 各会 (5111), 要事 (4816), 社数 (4725), caption (4561), commandbutton1 (4350), 各表 (4190), ラ- (4030), 社名 (2887), 会社 (2503), ね?? (2389), ンモ (2355), スー (1869), 入門 (1859), ラミ (1811), ボタ (1779), タン (1599), デザ (1560), 事項 (1485), ザイ (1441), selection (1144), ルエ (1078), click (1064), パイ (922), ブジ (915), オブ (912), ンパ (910), ジェ (852), モー (833), ミン (803); 『ボタン操作で会社名を入力』（ありんこ）
教えてください表があったとして、そこの下に各会社のボタンを作成してその会社のボタンをおすと、各表の必要事項のところにその会社名が入るようにするには、やっぱりVBAでないと作成できないですよね?? 簡単にマクロが組めるようであればどのように組むのか教えていただきたいのです。。。このHPペ-ジには、いつも助けられています。よろしくお願いします!! ---- >各表の必要事項のところこれが、文章の途中の文字列だとダメなんですが（VBAになるかな）、入力するのがセル単位なら 1つのセルで入力規則のリストで会社名を選択するようにし、他のセルは =入力規則を設定したセル参照なんて方法もあるのでは? (YS) ---- ありがとうございますやはり、それが一番早いですよね?? ちなみに上記の方法でやはりボタンを作成して、任意のセルにボタンを押すと内容が表示されるようにするには、VBAもしくは、プログラミングですかね?? ---- >VBAもしくは、プログラミングですかね?? でしょうね。でも、 >各会社のボタンを作成しっていうぐらいだから、そんなに会社数はないんでしょ? だったら、ある特定のセルに会社名を入力する操作を新しいマクロの記録で記録しそれをコピーして会社数分作って、会社名のところだけ編集してボタンに登録するだけでできるかな。スマートな方法は、VBAの達人たちに教えを乞いましょう。 (YS) ---- あ、↑みたいなベタな方法でも良いなら、 $$$$$$みたいな文字列を会社名に置換する操作を記録すれば、文章の途中に入力するのでも別に問題なかったな… (YS)の独り言 ---- めっさ簡単な方法。 (1)コントロールツールボックスのボタンをワークシートに配置します。 (2)デザインモードにして、ボタンをダブルクリックして Private Sub CommandButton1_Click() Selection = CommandButton1.Caption End Sub (3)ワークシート側に戻る。 (4)マウス右ボタンから [コマンドボタン]→[オブジェクト]→[編集]でボタンの名前を会社名に変更する。 (5)デザインモードから抜ける。（kazu） ---- ありがとうございます!!!! やってみます（ありんこ）上記の通りやってみたのですが、閉じて実行するとコンパイルエラ- （End Sub）が必要ですと出てくるのですが何故でしょう・・・ Private Sub CommandButton3_Click() Selection = CommandButton1.Captain End Sub こうやっていれています ---- うーむ、考えにくいのですが。とりあえず、これ↓を直してみてください。 Captain → Caption （kazu） ---- 上記のをコピ-させてもらって作ったのですが、やっぱりコンパイルエラ- End subがありませんとでるのですが・・・これは、VBAというよりもエクセル自体に何か問題が起きてるのですかね?? End Subというのは、もともとVBA立ち上げると出てきますよね? となると入力する部分は、 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に興味ある方は見てください。 http://www.excel.studio-kazu.jp/lib/e4a/e4a.html （kazu） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200312/20031210164215.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ