Nhờ mấy a/c làm dùm em bảng số liệu như file đính kèm với (coppy có điều kiện) (1 người xem)

[hoclaptrinh]

Nhờ mấy cao thủ xử lý giúp em vấn đề coppy có điều kiện này với

 

[Van Thai Su]

thiết kế khối lượng trắc ngang tuyến à? nếu không phải dùng VBA thì tôi giúp được, nhưng đọc không hiểu yêu cầu là gì hết.

 

[Let'GâuGâu]

Nhờ mấy cao thủ xử lý giúp em vấn đề coppy có điều kiện này với

ko biết phải vậy ko, làm một hồi bị "tỏa hòa nhập ma" luôn

Sub copydidaudo()
Dim A, L, tong As Variant, i, k As Long
A = [A1:E13]
ReDim tong(1 To 6000, 1 To 12)
L = [l1:l13]
k = 1
For i = 1 To UBound(A)
tong(k, 1) = "K0+" & Format(A(i, 1), "000")
    Select Case L(i, 1)
    Case 1
        C1 = 3: C2 = 4: C3 = 5
    Case 2
        C1 = 4: C2 = 8: C3 = 12 '
    Case 3
        C1 = 4: C2 = 6: C3 = 10
    Case 4
        C1 = 4: C2 = 8: C3 = 10
    End Select
    tong(k + 2, C1) = A(i, 3)
    tong(k + 2, C2) = A(i, 4)
   tong(k + 2, C3) = A(i, 5)
k = k + 3
Next
With Sheet1
.[A1].Resize(UBound(tong), 12) = tong
End With
End Sub

 

[hoclaptrinh]

Đúng là trắc ngang địa hình đó, cũng không cần thiết dùng VBA dùng công hàm cũng được a giúp em với

 

[hoclaptrinh]

ko biết phải vậy ko, làm một hồi bị "tỏa hòa nhập ma" luôn

Sub copydidaudo()
Dim A, L, tong As Variant, i, k As Long
A = [A1:E13]
ReDim tong(1 To 6000, 1 To 12)
L = [l1:l13]
k = 1
For i = 1 To UBound(A)
tong(k, 1) = "K0+" & Format(A(i, 1), "000")
    Select Case L(i, 1)
    Case 1
        C1 = 3: C2 = 4: C3 = 5
    Case 2
        C1 = 4: C2 = 8: C3 = 12 '
    Case 3
        C1 = 4: C2 = 6: C3 = 10
    Case 4
        C1 = 4: C2 = 8: C3 = 10
    End Select
    tong(k + 2, C1) = A(i, 3)
    tong(k + 2, C2) = A(i, 4)
   tong(k + 2, C3) = A(i, 5)
k = k + 3
Next
With Sheet1
.[A1].Resize(UBound(tong), 12) = tong
End With
End Sub

[/
hình như code bị gì mà em không chạy được, a xem lại dùm em với

 

[hoclaptrinh]

Có ai giúp em bài này với????

 

[Ba Tê]

Nhờ mấy cao thủ xử lý giúp em vấn đề coppy có điều kiện này với

Không phải "cao thủ", cũng không cùng ngành nghề, làm sao hiểu được.
Ít nhất cũng phải có bảng kết quả mẫu để "mò" ra ý muốn của bạn chứ.

 

[hoclaptrinh]

Không phải "cao thủ", cũng không cùng ngành nghề, làm sao hiểu được.
Ít nhất cũng phải có bảng kết quả mẫu để "mò" ra ý muốn của bạn chứ.file đính kèm có
File đính kèm có kết quả mong muốn rồi đó a giúp em với

 

[Ba Tê]

File đính kèm có kết quả mong muốn rồi đó a giúp em với

Làm thế nào để bên sheet TONG ô A1= A1 của sheet A, A4 = A2, A7 = A3……..
Tại sheet này cột L có giá trị nếu là 1 thì coppy mẫu 1 bên sheet B qua sheet TONG và coppy ô A1 sheet A vào ô A1 sheet TONG
Nếu cột ô L1=1 thì C3 của sheet TONG = C1 của A1, D3 = D1, E3 = E1
Nếu cột ô L1=2 thì D3 của sheet TONG = C1 của sheet A1, H3 = D1, L3 = E1
Nếu cột ô L1=3 thì D3 của sheet TONG = C1 của sheet A1, F3 = D1, J3 = E2
Nếu cột ô L1=4 thì D3 của sheet TONG = C1 của sheet A1, H3 = D1, J3 = E3
Coppy cho tất cả các cột của sheet A

Oải với mấy cái nếu của bạn quá, bạn tự sửa sao cho đúng với ý bạn trong vòng Select Case nhé. Tôi nhìn hoài nhức mắt quá mà chẳng hiểu.
Nhìn kết quả mẫu cũng chẳng giống mấy cái "Nếu" của bạn.
Yêu cầu và kết quả mẫu phải chuẩn chứ!

 

[hoclaptrinh]

Oải với mấy cái nếu của bạn quá, bạn tự sửa sao cho đúng với ý bạn trong vòng Select Case nhé. Tôi nhìn hoài nhức mắt quá mà chẳng hiểu.
Nhìn kết quả mẫu cũng chẳng giống mấy cái "Nếu" của bạn.
Yêu cầu và kết quả mẫu phải chuẩn chứ!

Anh xem lại sheet TONG các ô màu được lấy từ sheet A đó anh

 

[Ba Tê]

Anh xem lại sheet TONG các ô màu được lấy từ sheet A đó anh

Thì tôi đã "trợn con mắt" để làm trong sheet GPE rồi đó.
Bạn bấm nút cho nó chạy thử xem, ô nào kết quả sai với mẫu của bạn thì chỉ ra, tôi đâu phải trong nghề nên đâu biết đường mà dò.

 

[hoclaptrinh]

Ở sheet GPE thì a đã coppy được mẫu qua rồi nhưng còn những ô có màu thì chưa link được từ sheet A qua

 

[hoclaptrinh]

Sory a nha code a viết vậy là đúng rồi, a cho em hỏi nếu giờ e muốn thêm 3 mẫu vào sheet B nữa thì em làm như thế nào???