Tối giản giúp đoạn code (1 người xem)

[lmtuyen]

Chào Anh/Chị

mình có đoạn code như bên dưới, mình nghỉ nó sẽ có đoạn code ngắn và hay hơn khi dùng mảng, mình làm hoài không ra xin các Pro giúp.

Private Sub CommandButton1_Click()


Sheets("stc1").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc2").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc3").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("FINALSTC").[A2:C400].Value = Sheets("DATAFR").[A7:C400].Value
ActiveWorkbook.Save
MsgBox "FINISHED"
End Sub

 

[ndu96081631]

Chào Anh/Chị

mình có đoạn code như bên dưới, mình nghỉ nó sẽ có đoạn code ngắn và hay hơn khi dùng mảng, mình làm hoài không ra xin các Pro giúp.

Private Sub CommandButton1_Click()


Sheets("stc1").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc2").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc3").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("FINALSTC").[A2:C400].Value = Sheets("DATAFR").[A7:C400].Value
ActiveWorkbook.Save
MsgBox "FINISHED"
End Sub

Code vậy là ngon lành rồi, không cần làm gì thêm nữa đâu!
(bạn chỉ phải kiểm tra lại chỗ tôi đánh dấu màu đỏ thôi ---> Hơi kỳ kỳ, chắc gõ nhầm chăng?)

 

[lmtuyen]

Thanks Anh Ndu tại sheet "FINALSTC" em lại định dạng kiều khác, để thuận tiện cho việc dùng querry sau này. file em làm gần xong rồi, nhưng có những đoạn code có thể tối giản được, nhưng chưa biết, khi nào xong, em up liên nhờ anh giúp đỡ.

 

[Quang_Hải]

Chào Anh/Chị

mình có đoạn code như bên dưới, mình nghỉ nó sẽ có đoạn code ngắn và hay hơn khi dùng mảng, mình làm hoài không ra xin các Pro giúp.

Private Sub CommandButton1_Click()


Sheets("stc1").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc2").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("stc3").[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Sheets("FINALSTC").[A2:C400].Value = Sheets("DATAFR").[A7:C400].Value
ActiveWorkbook.Save
MsgBox "FINISHED"
End Sub

Có phải bạn cần code tương tự thế này chăng?

Sub test()
Dim shNames(), i
shNames = Array("stc1", "stc2", "stc3", "FINALSTC")
For i = 0 To UBound(shNames)
    Sheets(shNames(i)).[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Next
ActiveWorkbook.Save
MsgBox "FINISHED"
End Sub

 

[VetMini]

Có phải bạn cần code tương tự thế này chăng?

Sub test()
Dim shNames(), i
shNames = Array("stc1", "stc2", "stc3", "FINALSTC")
For i = 0 To UBound(shNames)
    Sheets(shNames(i)).[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Next
ActiveWorkbook.Save
MsgBox "FINISHED"
End Sub

For each shName in Split("stc1,stc2,stc3,FINALSTC", ",")
Sheets(shName).[A7:C400].Value = Sheets("DATAFR").[A7:C400].Value
Next

 

[lmtuyen]

đúng rồi a.quang hải,nhìn nó chuyên nghiệp và hay hơn, củng có thể chạy nhanh hơn.

 

[huuthang_bd]

đúng rồi a.quang hải,nhìn nó chuyên nghiệp và hay hơn, củng có thể chạy nhanh hơn.

Chỉ có chậm hơn chứ không nhanh hơn đâu bạn.

 

[VetMini]

Nhìn vậy thì biết là chậm hơn rồi - chỉ là chậm không đáng kể thôi. (đoạn code tôi đưa ra cũng chậm hơn)

"chuyên nghiệp" và "hay" trong trường hợp này chỉ là cái nhìn chủ quan.