返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 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: 3Rank: 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: 3Rank: 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

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題