台灣最大程式設計社群網站
線上人數
872
 
會員總數:245973
討論主題:189551
歡迎您免費加入會員
討論區列表 >> VB.NET >> excel vba下拉式選單 顯示在msgbox裡
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
excel vba下拉式選單 顯示在msgbox裡
價值 : 100 QP  點閱數:2007 回應數:6
樓主

cecilia
門外漢
0 1
8 1
發送站內信

急需~先非常謝謝幫我修改的人


我目前需要用下拉式選單,裡面有星期一到星期日的選項,如當選擇星期一時,MSGBOX會顯示出,星期一生日的人有:誰誰誰(人名要能顯示是此題重點)
然後EXCEL表單中,共有27筆資料,其中B行是人名,C行是出生年月日,如:1997/3/20
我下面的程式問題是,當我選擇星期一生日的人時,人名會顯示出來,但是按下確定紐之後,其他星期二星期三會接著跑出來,希望能按下確定紐之後就結束,其他星期的選項不要跑出來,再來是我人名是用一個一個KEY的,是死的,希望能改成活的,但是我不會改

Private Sub ComboBox2_Change()
ab = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To ab
my_date = Weekday(Range("c" & i))
Range("l" & i) = my_date

If Month(Range("c" & i)) = 1 Then
MsgBox "星期一出生的有:" & " 許振豪 陳昱全 陳立倫 許振豪 陳昱全 "

ElseIf Month(Range("c" & i)) = 2 Then
MsgBox "星期二出生的有:" & "陳二凱 陳二凱"


ElseIf Month(Range("c" & i)) = 3 Then
MsgBox "星期三出生的有:" & "黃隆偉 林明輝 黃奕翔 黃隆偉 林明輝 黃奕翔"


ElseIf Month(Range("c" & i)) = 4 Then
MsgBox "星期四出生的有:" & "林伯瑞 劉彥均 林伯瑞"


ElseIf Month(Range("c" & i)) = 5 Then
MsgBox "星期五出生的有:" & "盧一欣 詹仁村 盧一欣"


ElseIf Month(Range("c" & i)) = 6 Then
MsgBox "星期六出生的有:" & "林建勳 嚴偉鈞 陳嘉偉"


ElseIf Month(Range("c" & i)) = 7 Then
MsgBox "星期日出生的有:" & "賴家祥 張登順 林文傑 賴家祥"

End If
Next
End Sub

Private Sub userform_initialize()
ComboBox1.List = Array("張登順", "林建勳", "陳昱全", "陳立倫", "林文傑")
ComboBox2.List = Array("星期一出生", "星期二出生", "星期三出生", "星期四出生", "星期五出生", "星期六出生", "星期日出生")

End Sub

搜尋相關Tags的文章: [ EXCEL VBA下拉式選單 ] ,
本篇文章發表於2017-06-09 13:52
1樓
回應

羅伯斯
檢舉此回應
Month()是取得日期中的月份函數,並不是把日期轉換成星期的函數,應該如以下的程式碼:



本篇文章回覆於2017-06-09 23:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

羅伯斯
檢舉此回應
第三行程式碼有誤,應為 ElseIf Weekday(Range("c" & i)) = 2 Then
本篇文章回覆於2017-06-09 23:55
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

cecilia
檢舉此回應
您好~謝謝您的解答,第一個小問題我懂了,那剩下的問題是如何把它改成活的呢?就是名字不要事先輸入(應該會用到FOR 迴圈)
本篇文章回覆於2017-06-09 23:57
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

羅伯斯
檢舉此回應


本篇文章回覆於2017-06-10 12:17
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

羅伯斯
檢舉此回應
4樓的程式碼改為如下:

本篇文章回覆於2017-06-10 12:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

永德
檢舉此回應
我誠心誠意掰託各位大大
如使用VBA 表單 UserForm ComboBOX1選取產品屬性後,ComboBox2當判斷ComboBOX1有選取資料後,ComboBox2就可以選產品類別項目.而ComboBox3相同判斷ComboBox2有選取資料後,ComboBox3就可以選品名項目.在這裡求解
第一如何讀取資料裡
第二如何ComboBOX連動
第三如何當選項正確後使用按鈕鍵輸入Excel空白表格存取記錄
謝謝
本篇文章回覆於2017-06-21 14:23
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.