Nhờ tính VL,NC, MTC đối với mỗi công việc; chuyển dữ liệu từ hàng dọc sang hàng ngang (2 người xem)

[nmhung49]

Nếu em bỏ đi 2 dòng chỉ còn lại mỗi dòng giữa Range("G" & (DongDau + 1) & ":G" & DongCuoi) = KetQuaCT thì về mặt bản chất có ảnh hưởng đến tốc độ tính toán hoặc đến yếu tố nào không?

Không thành vấn đề gì bạn ah, bạn thử làm thì biết chứ gì, mình cũng không hiểu tại sao bạn Thắng làm thế nữa, nói chung bỏ chúng không có gì

 

[Dauthivan]

Sử dụng biến trong mảng khó nhớ quá (khi nào thì nó phải có dấu " ", khi nào không)

Từ hôm nọ cho đến bây giờ, em cứ lung tung không nhớ được về việc cách sử dụng biến trong khai báo mảng:

em ví dụ Code

Sub NhapCongThuc()
Dim DuLieu, KetQuaCT, DongDau As Long, DongCuoi As Long, CongViec As Long, Nhom As Long, ChiTiet As Long, i As Long, j As Long, TenShCT As String
DongDau = 3
DongCuoi = [C65536].End(xlUp).Row
DuLieu = Range("A" & (DongDau + 1) & ":C" & DongCuoi).Value
Range("G" & (DongDau + 1) & ":G" & DongCuoi).ClearContents
KetQuaCT = Range("G" & (DongDau + 1) & ":G" & DongCuoi).Value
TenShCT = "='" & ActiveSheet.Name & "'!"
For i = 1 To UBound(DuLieu, 1)
    If DuLieu(i, 3) = "Tr" & ChrW(7921) & "c ti" & ChrW(7871) & "p phí khác" Then
        KetQuaCT(i, 1) = "=15/100*R[" & (CongViec - i) & "]C"
          ElseIf DuLieu(i, 1) <> "" Then
        CongViec = i
        KetQuaCT(CongViec, 1) = "="
          ElseIf DuLieu(i, 1) & DuLieu(i, 2) = "" Then
        Nhom = i
        KetQuaCT(CongViec, 1) = KetQuaCT(CongViec, 1) & "+R[" & (Nhom - CongViec) & "]C"
           Else
        KetQuaCT(Nhom, 1) = "=SUM(R[1]C:R[" & (i - Nhom) & "]C)*RC[-2]"
        KetQuaCT(i, 1) = "=RC[-2]*RC[-1]"
    End If
Next
Range("G" & (DongDau + 1) & ":G" & DongCuoi) = KetQuaCT
End Sub

DongDau, DongCuoi nó đều là biến, nhưng tại sao cách dùng lúc nó lại không cần nằm trong "" như ở đoạn này

KetQuaCT = Range("G" & (DongDau + 1) & ":G" & DongCuoi).Value

Thế nhưng dòng này nó lại chịu sự quản lý của dấu "", ví dụ tại dòng

 KetQuaCT(Nhom, 1) = "=SUM(R[1]C:R[" & (i - Nhom) & "]C)*RC[-2]"