下拉式要如何選擇後會自動帶出其他表單訊息

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2013-3-7 16:42 | 顯示全部帖子

本帖最後由 mark15jill 於 2013-3-7 16:44 編輯

回復 GBKEE

感謝大大幫忙(0口0)~真是太強了
不過如果我是要點選一號餐，餐點和價錢都會自動跑出 ...
Jared 發表於 2013-3-7 15:08

你一號餐的項目是甚麼??
例如一號餐是何種搭配 ???

ComboBox1.AddItem "一號餐"
ComboBox1.AddItem "二號餐"
ComboBox1.AddItem "三號餐"

ComboBox2.AddItem "漢堡、薯條、可樂"
ComboBox2.AddItem "雞塊、薯餅、紅茶"
ComboBox2.AddItem "薯餅、薯條、冰淇淋"

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2013-3-8 14:55 | 顯示全部帖子

感謝大大幫忙！
第一種研究了好一陣子才弄清楚寫法
第二種解法太福雜了些~還在努力
(u_u).....程式語法真 ...
Jared 發表於 2013-3-8 09:36

若以 GBKEE大大的程式碼，僅需先預設

Private Sub UserForm_Initialize()
With ListBox1
      .ColumnWidths = .Width * (2 / 3) & "," & .Width * (1 / 3) '顯示欄寬度
      .ColumnHeads = True                                        '欄位顯示表頭
      .TextAlign = fmTextAlignCenter                            '文字置中
      .ColumnCount = 2                                           '顯示欄位數  餐點內容,價錢兩欄
   .Font.Size = 12
   .AddItem (Sheet1.Cells(2, 3))
End With
With ComboBox1
      .Font.Size = 12
      .TextAlign = fmTextAlignCenter                            '文字置中
      .Text = Sheet1.Cells(1, 1)
End With

套餐定義
End Sub

不知道是否為您要的

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2013-3-8 15:28 | 顯示全部帖子

回復 mark15jill

感謝大大的協助
已經有找到我想要的寫法了(^口^)
Jared 發表於 2013-3-8 15:04

小弟僅提示而已.. GBKEE大大才是高手

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]