Nhờ mọi người trên diễn đàn dịch giùm code này với, xin cảm ơn (1 người xem)

[nguyen_thi_dieu]

Private Sub MaBieu1B()
Dim LoaiRung, HangMuc, r As Long, c As Long
Dim Tam, Chuoi()

With Sheet5
LoaiRung = .Range("A9", .Range("A1000000").End(xlUp))
HangMuc = .Range("D88")
ReDim Chuoi(1 To UBound(LoaiRung), 1 To 1)
End With

For r = 1 To UBound(LoaiRung)
If IsNumeric(Left(LoaiRung(r, 1), 1)) = True Then
Tam = Tim(LoaiRung(r, 1), BangMa, 6, 4)
Chuoi(r, 1) = Tam
Else
If Left(LoaiRung(r, 1), 1) = " " Then Chuoi(r, 1) = Trim(Tam & " " & Tim(LoaiRung(r, 1), BangMa, 6, 4))
End If
Next r

For r = 1 To UBound(LoaiRung) - 1
If IsNumeric(Left(LoaiRung(r, 1), 1)) = True And Left(LoaiRung(r + 1, 1), 1) = " " Then
Chuoi(r, 1) = ""
End If
Next r

For c = 1 To UBound(HangMuc, 2)
If Tim(HangMuc(1, c), BangMa, 6, 4) <> "" Then

Tam = Tim(HangMuc(1, c), BangMa, 6, 4)
For r = 1 To UBound(Bieu1B)
If Chuoi(r, 1) <> "" Then
Bieu1B(r, c) = Chuoi(r, 1) & " " & Tam
End If
Next r

End If
Next c
End Sub

 

[ChanhTQ@]

Đã được thực hiện tại #34: http://www.giaiphapexcel.com/forum/...ode-tổng-hợp-số-liệu-chân-thành-cảm-ơn!/page4

 

[nguyen_thi_dieu]

Đã được thực hiện tại #34: http://www.giaiphapexcel.com/forum/...ode-tổng-hợp-số-liệu-chân-thành-cảm-ơn!/page4

Dạ, em cảm ơn Anh, tàn là nhờ Anh không, Xin cảm ơn Anh nhiều nha!

 

[dauxom]

Dạ, em cảm ơn Anh, tàn là nhờ Anh không, Xin cảm ơn Anh nhiều nha!

Dịch làm gì bạn ơi, dịch thế chỉ làm bạn kém dần đều. Vì kiểu như học ngoại ngữ mà dịch từng từ từng câu đó. Bạn nên học cơ bản thì mới rõ hơn. Tôi cũng đang muốn cố học đây, hy vọng có bạn.

 

[SA_DQ]

Học ngoại ngữ mà không qua giai đoạn dịch sang tiếng mẹ đẽ họa chăng chỉ là những trẻ bé chưa biết nói sang đất nước khác sống dài năm mà thôi.
Dịch là thói quen muôn thuở của những ai có tiếng mẹ đẻ muốn học thêm ngôn ngữ thứ hai.

 

[VetMini]

Dịch làm gì bạn ơi, dịch thế chỉ làm bạn kém dần đều. Vì kiểu như học ngoại ngữ mà dịch từng từ từng câu đó. Bạn nên học cơ bản thì mới rõ hơn. Tôi cũng đang muốn cố học đây, hy vọng có bạn.

"học cơ bản" là làm thế nào. Nói chuyện trớt quớt.

 

[nguyen_thi_dieu]

Đã được thực hiện tại #34: http://www.giaiphapexcel.com/forum/...ode-tổng-hợp-số-liệu-chân-thành-cảm-ơn!/page4

Em cảm ơn anh ChanhTQ@ nhiều nha! các bài dịch của anh rất hữu ích giúp em hiểu được code.
Chúc anh ChanhTQ@ có nhiều niềm vui bên gia đình và người thân nha!
Anh ChanhTQ@ khi nào rảnh giải thích giùm em đoạn code này với, đoạn này cũng nằm trong phần em đã gửi anh đấy.
Em cảm ơn anh!
Public Sub Tinh_Toan_1B(Tinh, Huyen, Xa)
Dim TenXa, Tam, Dau, Cuoi, DonVi, BaoCao(), r As Long, c As Long, cl As Long

Range("C3") = Tinh
Range("B3") = Huyen
Range("A3") = Xa
Range("A3:C3").Font.Size = 10
Range("A3:C3").Font.Bold = 1
TenXa = Range("A3")

DonVi = Range("C9:C49")
ReDim BaoCao(1 To UBound(Bieu1B), 1 To UBound(Bieu1B, 2))

For r = 2 To UBound(CSDL)
If TenXa = CSDL(r, 6) Then
Dau = r
Exit For
End If
Next r

For r = UBound(CSDL) To Dau + 1 Step -1
If TenXa = CSDL(r, 6) Then
Cuoi = r
Exit For
End If
Next r

For r = 1 To UBound(Bieu1B)
For c = 1 To UBound(Bieu1B, 2)
If Bieu1B(r, c) <> "" Then
Tam = Dong(Bieu1B(r, c), ThongSo, Dau, Cuoi)
Tam = Split(Tam)
If IsArray(Tam) = True Then
For cl = 0 To UBound(Tam)
BaoCao(r, c) = BaoCao(r, c) + CSDL(Tam(cl), IIf(Len(DonVi(r, 1)) < 4, 25, 26))
Next cl
End If
End If
Next c
Next r

Range("D9").Resize(UBound(Bieu1B), UBound(Bieu1B, 2)).ClearContents
Range("D9").Resize(UBound(Bieu1B), UBound(Bieu1B, 2)) = BaoCao
End Sub