rút gọn code bằng vòng lặp (1 người xem)

[themorzer]

Chào mọi người, mình có đoạn code sau, làm thế nào để rút gọn được code này

cbwire = Sheet5.Range("o2:o40")
cbb_wiretype1.List = cb1Daray(cbwire)
cbb_wiretype2.List = cb1Daray(cbwire)
cbb_wiretype3.List = cb1Daray(cbwire)
cbb_wiretype4.List = cb1Daray(cbwire)

cbb_wiretypeM1.List = cb1Daray(cbwire)
cbb_wiretypeM2.List = cb1Daray(cbwire)
cbb_wiretypeM3.List = cb1Daray(cbwire)

cbb_wiretypeL1.List = cb1Daray(cbwire)
cbb_wiretypeL2.List = cb1Daray(cbwire)
cbb_wiretypeL3.List = cb1Daray(cbwire)
[code]
và
[code]
cbb_wiretype1.Clear
cbb_wiresize1.Clear
list_terminal1.Clear
cbb_wiretype2.Clear
cbb_wiresize2.Clear
list_terminal2.Clear
cbb_wiretype3.Clear
cbb_wiresize3.Clear
list_terminal3.Clear
cbb_wiretype4.Clear
cbb_wiresize4.Clear
list_terminal4.Clear
list_ws1.Clear
list_ws2.Clear
list_ws3.Clear
list_ws4.Clear

cbb_wiretypeM1.Clear
cbb_wiretypeM2.Clear
cbb_wiretypeM3.Clear
cbb_wiresizeM1.Clear
cbb_wiresizeM2.Clear
cbb_wiresizeM3.Clear
list_terminal_M2.Clear
list_terminal_M2.Clear
list_terminal_M2.Clear

cbb_wiretypeL1.Clear
cbb_wiretypeL2.Clear
cbb_wiretypeL3.Clear
cbb_wiresizeL1.Clear
cbb_wiresizeL2.Clear
cbb_wiresizeL3.Clear
list_terminal_L1.Clear
list_terminal_L2.Clear
list_terminal_L3.Clear
[code]
mong mọi người giúp đỡ

Tất cả đều là hàm của Listbox và Combobox

 

[giaiphap]

cbb_wiretype1.List = cb1Daray(cbwire)
cbb_wiretype2.List = cb1Daray(cbwire)
cbb_wiretype3.List = cb1Daray(cbwire)
cbb_wiretype4.List = cb1Daray(cbwire)

Bạn sửa đoạn code này thành thế này xem sao. (Các đoạn còn lại bạn sửa tương tự)

For i = 1 To 4
    Me.Controls("cbb_wiretype" & i).List = cb1Daray(cbwire)
Next i

 

[themorzer]

Bạn sửa đoạn code này thành thế này xem sao. (Các đoạn còn lại bạn sửa tương tự)

For i = 1 To 4
    Me.Controls("cbb_wiretype" & i).List = cb1Daray(cbwire)
Next i

Thanks để minh test xem sao

 

[be_09]

Chào mọi người, mình có đoạn code sau, làm thế nào để rút gọn được code này

cbwire = Sheet5.Range("o2:o40")
........................................................................
[code]
mong mọi người giúp đỡ

Tất cả đều là hàm của Listbox và Combobox

Tôi Chẳng hiểu hàm của Listbox và Combobox là cái gì? và bạn muốn làm cái gì?
Bạn muốn làm cái gì thì nên nêu rỏ cái cần làm?
Chứ code bạn lấy ở đâu ra rồi đưa lên? (bạn muốn 1 đằng code chạy 1 nẻo) nhưng không nói rỏ mục đích và cái cần làm là cái gì ? thì chịu thua (không biết đâu mà lần).
Ví dụ: Bạn đưa ra chiếc xe đạp, kêu chạy 100 km/giờ thì làm sao chạy được? (hiểu đại khái vậy đi).

 

[VetMini]

Thanks để minh test xem sao

Tính thử chút mà ngại ba cái mớ tẻo miếng này nên chạy.

 

[Hoang2013]

Kiểu viết 'Hàn Lâm' thế này thì chờ các viện sỹ thôi;

Thông cảm, mình chỉ có thể với những thứ đã được 'tường minh' mà thôi!

 

[themorzer]

Thanks để minh test xem sao

Thanks, đã test thử và OK

 

[VetMini]

Kiểu viết 'Hàn Lâm' thế này thì chờ các viện sỹ thôi...

Có một cái hàm được gọi 10 lần, cùng tham số.