標題: [發問] combox選擇時的格式問題 [打印本頁]

---

作者: boyao    時間: 2012-11-8 15:16     標題: combox選擇時的格式問題

如附件 [attach]13076[/attach]

請問 在做Combox選擇時的格式 有沒有辦法也讓它顯示"YYYY MMM"的格式

---

作者: GBKEE    時間: 2012-11-8 17:13

回復 1# boyao
試試看

1. Private Sub UserForm_Activate()
   
2.     With ComboBox1
   
3.         .List = Sheet1.Range("a5:a16").Value
   
4.         For I = 0 To .ListCount - 1
   
5.             .List(I, 0) = Format(.List(I, 0), "yyyy mmm")
   
6.         Next
   
7.     End With
   
8. End Sub

複製代碼

---

作者: boyao    時間: 2012-11-8 22:19

回復 2# GBKEE


謝謝....
我原本只是想格式轉換而已.....
因為"日期"會轉入其他項目的應用
看來是沒辦法達成原本的目的
把來源設成2種.應該是比較容易的做法

---

作者: Hsieh    時間: 2012-11-9 11:22

回復 3# boyao
[attach]13082[/attach]

1. Private Sub ComboBox1_Change()
   
2. Sheet1.[A1] = Sheet1.Range("a5:a16")(ComboBox1.ListIndex + 1)
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_Initialize()
   
6. For Each a In Sheet1.Range("a5:a16")
   
7.   ComboBox1.AddItem a.Text
   
8. Next
   
9. End Sub

複製代碼

---

作者: boyao    時間: 2012-11-9 17:10

回復 4# Hsieh


謝謝....
原來可以用這種方式直接轉換置入...

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)