[HELP] Giải thích đoạn code lấy dữ liệu sheet này qua sheet khác (2 người xem)

[hoangtrong_vbnd]

Hôm trước có tải 1 file cdps về thấy hay nhưng e chưa hiểu lắm về code nhờ các bác giải thích hộ chút
1. công thức thực hiện tại các cột C D ...
2. Tạo điều kiện để lọc các giá trị ẩn
Vậy ko biết làm sao mà khi chạy macro này thì công thức không hiện ở các cột đó, đâu là lý do ạ.
Mong các bác giải thích để e biết với ... cảm ơn mọi người!!!

Sub taoso2() '1. Nhan cong thuc cho tung cot C, D,...
Range("C12").Formula = "=VLOOKUP(A12,DMTK20,4,0)"
Range("D12").Formula = "=VLOOKUP(A12,DMTK20,5,0)"
Range("E12").Formula = "=SUMIF(DATA!$F$12:$F$54,CDPS!A12,DATA!$H$12:$H$54)"
Range("F12").Formula = "=SUMIF(DATA!$G$12:$G$54,CDPS!A12,DATA!$I$12:$I$54)"
Range("G12").Formula = "=MAX(C12+E12-D12-F12,0)"
Range("H12").Formula = "=MAX(D12+F12-C12-E12,0)"
'2. Dong co so tien thi cho so 1 tai cot I
Range("I12").Formula = "=IF(SUM(C12:H12)<>0,1,0)"
Dim LastRow As Long
Dim rng As Range
'3. Nhan dong cuoi theo tai khoan o cot A
LastRow = Range("A65536").End(xlUp).Row
Set rng = Range("C12:I" & LastRow)
'4. Copy cong thuc tai C12:I12 cho vung C12:I####
rng.AutoFilter 'Xoa Filter. RAT QUAN TRONG!!!
Range("C12:I12").Copy rng
'5. Xoa cong thuc de dam bao toc do cua file Excel
rng.Value = rng.Value
'6. Nhan doi dia chi vung tu C12:I(n) thanh C11:I(n)
Set rng = rng.Resize(rng.Rows.Count + 1).Offset(-1)
'AutoFilter, loc lay gia tri 1 o cot I
rng.AutoFilter 7, 1
'7. An cot loc I (Trong vung C:I, Cot I voi ColumnIndex = 7
rng.Columns(7).Hidden = True
Set rng = Nothing
End Sub

 

[Kiều Mạnh]

Hôm trước có tải 1 file cdps về thấy hay nhưng e chưa hiểu lắm về code nhờ các bác giải thích hộ chút
1. công thức thực hiện tại các cột C D ...
2. Tạo điều kiện để lọc các giá trị ẩn
Vậy ko biết làm sao mà khi chạy macro này thì công thức không hiện ở các cột đó, đâu là lý do ạ.
Mong các bác giải thích để e biết với ... cảm ơn mọi người!!!

Bạn xoá dòng này đi là thấy công thức khi chạy code liền nha

rng.Value = rng.Value

 

[hoangtrong_vbnd]

Vậy là khi muốn ẩn công thức thì để giá trị - giá trị ak bác. Không biết có topic nào về vấn đề này chưa nhỉ, các bác cho e xin link tham
khảo và học hỏi với ạ. Thanks!!!

 

[Quang_Hải]

Vậy là khi muốn ẩn công thức thì để giá trị - giá trị ak bác. Không biết có topic nào về vấn đề này chưa nhỉ, các bác cho e xin link tham
khảo và học hỏi với ạ. Thanks!!!

Muốn ẩn công thức thì làm vầy thử coi

Sub taoso2()
activesheet.Unprotect
...Code của bạn
activesheet.Usedrange.FormulaHidden = True
activesheet.Protect
End Sub

 

[hoangtrong_vbnd]

Cám ơn các bác ... mọi người chi e xin 1 vài đề tài trước để e nghiên cứu thêm với