[發問] combox選擇時的格式問題

boyao

如附件 Test 20121108.rar (10.21 KB)

下載次數: 9

2012-11-8 15:15

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

boyao

回復 4# Hsieh


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

Hsieh

回復 3# boyao

下載 (115.27 KB)

2012-11-9 11:19

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

回復 2# GBKEE


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

GBKEE

回復 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

複製代碼