[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『1つのウインドウで、グループ1の結果をグループ2に反映する方法を教えてください。』(ノート青)
OS:WindowsXP エクセルバージョン:Excel2003です。
1.質問内容 @1つのウインドウに、グループ1とグループ2のエリアを用意します。 Aグループ1は、ウインドウが開いたときには、選択できるキーが全て 表示されています。 Bグループ2は、グループ1で選択した項目により可変で表示が変化します。 例) グループ1:【商品区分】 (1)肉キーを表示 (2)野菜キーを表示 (3)魚キーを表示 グループ2:【商品】 (1)グループ1で肉キーを選択した場合 @鶏肉キー A豚肉キー B牛肉をキー表示する (2)グループ1で野菜を選択した場合 @キャベツキー Aレタスキー Bニンジンキーを表示する (3)グループ1で、魚キーを選択した場合 @サンマキー Aヒラメキー B銀鱈キーを表示する。
「オートフィルターの方が簡単だよ」とのご意見はあると思いますが、
上記仕様にてのご教授をよろしくお願いいたします。 (教わる身でありながら、生意気で、申し訳ございません。)
「ウインドウ」「キー」の意味がよく分かりませんが、 こう言ったことでしょうか? [[20051024111302]]『リストから選択』(若葉マーク)
(HANA)
わかりにくくて申し訳ございません。 VBで、”UsrForm”と呼べばいいのでしょうか?
下記のURLで勉強してきました。
http://excelvba.pc-users.net/fol10/10_5.html
以下のように改造したいです。 1. 血液型エリアをグループ1【商品区分】へ変更 2. コンボボックスを、コマンドボタンに変更 3. グループ1【商品区分】の下に、グループ2【商品】を追加 1,2の改造は、自分でできると思います。 3.についても、オーバレイ作成はできると思うのですが、「商品区分で 選択した結果の商品を表示する」の記載のしかたがわかりません。
勉強不足で正式名称がわからず、説明できているかわかりませんが ご教授、よろしくお願いいたします。(ノート青)
正直、ユーザーフォームは苦手なんです・・・ 意味がわからないからwww でも、こんな感じのことでよろしいのでしょうか? 最初の「CommandButton1」にコードを貼り付けてください。 Private Sub CommandButton1_Click() Dim Obtn As Variant If OptionButton1 = True Then Obtn = "鶏肉,豚肉,牛肉" If OptionButton2 = True Then Obtn = "キャベツ,レタス,ニンジン" If OptionButton3 = True Then Obtn = "サンマ,ヒラメ,銀鱈" If Obtn = "" Then Exit Sub OptionButton4.Caption = Split(Obtn, ",")(0) OptionButton5.Caption = Split(Obtn, ",")(1) OptionButton6.Caption = Split(Obtn, ",")(2) End Sub この後にいったい何がしたいのかがわかりませんので、、、 参考程度ってことで・・・ ちょっと、間違っているので一旦削除します。。。 再挑戦でUP (キリキ)(〃⌒o⌒)b
ありがとうございます。 なにか、糸口が見えそうです。 もうちょっと、勉強します。 (ノート青)
やりたいことは、以下の通りです。 ※ウィンドウを「」内で表現します。 (1)ワークテーブルは以下の通りです。
番号 商品区分 商品 単価 1 肉 豚肉 100円 2 野菜 キャベツ 200円 3 魚 銀鱈 300円 ・ ・ ・ (2)ウインドウイメージは以下の通りです。 「検索」キーで、以下のウインドウが呼び出されます。 「商品区分 ”肉” ”野菜” ”魚”
商品
(表示なし)
単価
(表示なし)
」
(3)商品区分の”肉”キーを選ぶと、商品欄には、”豚肉”、”鶏肉”、”牛肉”
のキーが表示されます。 「商品区分 ”肉” ”野菜” ”魚”
商品
”豚肉” ”鶏肉” ”牛肉”
単価
(表示なし)
」
(4)商品区分を”豚肉”を選ぶと、単価欄には、”100円”が表示されます。
「商品区分 ”肉” ”野菜” ”魚”
商品
”豚肉” ”鶏肉” ”牛肉”
単価
100円
」
キリキさんからご教授いただいた、If option〜で、なるほど!と思ったのですが
"商品"キー配置場所の定義がわからなくなってしまいました。 Private Sub CommandButton1_Click() Dim Obtn As Variant If OptionButton1 = True Then Obtn = "鶏肉,豚肉,牛肉" If OptionButton2 = True Then Obtn = "キャベツ,レタス,ニンジン" If OptionButton3 = True Then Obtn = "サンマ,ヒラメ,銀鱈" If Obtn = "" Then Exit Sub OptionButton4.Caption = Split(Obtn, ",")(0) OptionButton5.Caption = Split(Obtn, ",")(1) OptionButton6.Caption = Split(Obtn, ",")(2) End Sub
もっと盛大に勉強しますが、お力を貸していただけるとたすかります。
(ノート青)
Ifステートメントで分岐して好みの金額を出せば良いような気がしますが、、、 若しくは、後々編集しやすいように、何処かに対応表を作って、VLOOKUP関数などで引っ張ってくるのは如何でしょう? そもそも、どういった運用方法なのかがわかったほうが、具体的にアドバイスが付くかもしれませんね^^ ユーザーフォームにこだわる必要も無いのかもしれませんよ〜 (キリキ)(〃⌒o⌒)b
キリキ様 不特定多数の年配の方に、使っていただくソフトを 考えていて、操作をキーボードなしのマウス操作で、 左クリックだけ(ダブルクリックや右クリック等も 使わない)方法を考えています。
会話形式で、質問に答えると回答が出るイメージで あれば、使っていただけるかなぁ。と思っています。
一般的な使用方法ではないかもしれません。 (ノート青)
ここへお出かけになって保存した上ためしてみてくらはい。 (弥太郎)
なるほど〜 UserForm_Initialize で、最初に非表示にするものを決めちゃえばいいのか〜 そうすることで、選択後に必要な項目を出すことが出来るわけですねb やっぱり、ユーザーフォーム奥が深い。 (キリキ)(〃⌒o⌒)b
動作確認させていただきました。 これから、勉強させていただきます。 お忙しい中、本当に、ありがとうございました。
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.