[[20070422190410]] 『1つのウインドウで、グループ1の結果をグループ』(ノート青) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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


 キリキ様
 不特定多数の年配の方に、使っていただくソフトを
 考えていて、操作をキーボードなしのマウス操作で、
 左クリックだけ(ダブルクリックや右クリック等も
 使わない)方法を考えています。

 会話形式で、質問に答えると回答が出るイメージで
 あれば、使っていただけるかなぁ。と思っています。

 一般的な使用方法ではないかもしれません。
 (ノート青)

http://kenmax.mydns.jp/~kiriki/cgi-bin/joyful/joyful.cgi#RES
 ここへお出かけになって保存した上ためしてみてくらはい。
      (弥太郎)


 なるほど〜
 UserForm_Initialize で、最初に非表示にするものを決めちゃえばいいのか〜
 そうすることで、選択後に必要な項目を出すことが出来るわけですねb
 
 やっぱり、ユーザーフォーム奥が深い。
 (キリキ)(〃⌒o⌒)b

弥太郎様 キリキ様
 動作確認させていただきました。
 これから、勉強させていただきます。
 お忙しい中、本当に、ありがとうございました。

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.