Tối ưu code cho combo box tháng

[thnghiachau]

Chào ae GPE,
Mình có đoạn code dùng load các tên tháng vào Combo box

For i = 1 To 12
        arrMonth(i) = Format(DateSerial(Year(Now()), i, 1), "MMMM")
Next
Me.cboMonth.List = arrMonth

Xin cho hỏi mình có cách nào không dùng For ... next không ah?

Cám ơn mọi người nhiều.

 

[ppc0312]

Chào ae GPE,
Mình có đoạn code dùng load các tên tháng vào Combo box

For i = 1 To 12
        arrMonth(i) = Format(DateSerial(Year(Now()), i, 1), "MMMM")
Next
Me.cboMonth.List = arrMonth

Xin cho hỏi mình có cách nào không dùng For ... next không ah?

Cám ơn mọi người nhiều.

Có , nhưng vấn đề là bạn phải lập được arrMonth của bạn không có FOR là được
Thử hàm ARRAY trong VBA xem sao

 

[thnghiachau]

Có , nhưng vấn đề là bạn phải lập được arrMonth của bạn không có FOR là được
Thử hàm ARRAY trong VBA xem sao

Mình cũng không dùng

listMonth = "January,February,March,April,May,June,July,August,September,October,November,December"
Me.cboMonth.List = Split(listMonth, ",")

được không ah?

 

[ppc0312]

Mình cũng không dùng

listMonth = "January,February,March,April,May,June,July,August,September,October,November,December"
Me.cboMonth.List = Split(listMonth, ",")

được không ah?

Đọc lại cái này:
"Thử hàm ARRAY trong VBA xem sao"

 

[ndu96081631]

Mình cũng không dùng

listMonth = "January,February,March,April,May,June,July,August,September,October,November,December"
Me.cboMonth.List = Split(listMonth, ",")

được không ah?

Đương nhiên được
Mà dùng for có gì không ổn?

  For i = 1 To 12
    arrMonth(i) = MonthName(i)
  Next
  Me.cboMonth.List = arrMonth

 

[thnghiachau]

Đọc lại cái này:
"Thử hàm ARRAY trong VBA xem sao"

Dạ,
listMonth = "January,February,March,April,May,June,July,August,September,October,November,December"
cái này là giống array rùi nha bạn!

Bài đã được tự động gộp: 2/6/20

Đương nhiên được
Mà dùng for có gì không ổn?

  For i = 1 To 12
    arrMonth(i) = MonthName(i)
  Next
  Me.cboMonth.List = arrMonth

Cám ơn thầy nhiều.
Tại có lần em tìm ra trên mạng một cái hàm gì đó nó ra cái array list month luôn, mà giờ em tìm lại thì không biết "cất" nó đâu rùi nên mạo mụi hỏi trên GPE ah...

 

[ndu96081631]

Dạ,
listMonth = "January,February,March,April,May,June,July,August,September,October,November,December"
cái này là giống array rùi nha bạn!

Cái này mới là array

Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

Tuy nhiên bạn có thể dùng bất cứ cách nào bạn muốn

 

[thnghiachau]

Cái này mới là array

Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")

Tuy nhiên bạn có thể dùng bất cứ cách nào bạn muốn

cám ơn thầy nhiều