Bạn thử xem file củ chuối này xem sao.Em muốn nhập dữ liệu vào sheet nhập và tự chuyển dữ liệu nhập sang sheet Tổng hợp ( dữ liệu nhập có thể tạo list trong ô danh mục và nơi sản xuất, đơn vị tính, dữ liệu xuất sang sheet báo là các cột "danh mục thuốc, nơi sản xuất, đơn vị tính và đơn giá, nếu thêm nhiều danh mục ở sheet nhập thì ở sheet báo cáo tự chèn thêm hàng" ) em có gửi file đính kèm nhờ ACE giúp đỡ. Em xin cảm ơn !
Bạn cho mình tất cả các danh mục thuốc, đơn vị sản xuất mà bạn muốn lựa chọn mình mới biết đê cho vào.
với dữ liệu nhiều mà theo như bạn muốn tự động luôn thì e rằng file chạy tốc độ sẽ rất chậm. theo mình cứ để nguyên cái nút đó. nếu cập nhật thêm dữ liệu thì nhấn nút đó. muốn tạo mới thì nhấn nút tạo mới dữ liệu. còn không chắc phải đợi các cao thủ ra tay thôi.hihi
+ Cái dòng lệnh này :
Set rng = Range("b6", [b65536].End(xlUp))For i = 1 To 4
Range(rng, rng.Offset(, i)).Copy
Sheet2.Range(rng.Address).PasteSpecial Paste:=xlPasteValuesrng.Offset(, 17).Copy
Sheets("Bao cao").Range(rng.Offset(, 6).Address).PasteSpecial Paste:=xlPasteValues
Cám ơn bạn đã chỉ bảo tận tình. Nếu không có bạn không biết bao giờ mình làm được file báo cáo kiểu dạng như thế này. Cám ơn bạn nhiều nha!
bạn xem thế này ổn chưa.
Anh xem thế nào. chú ý để không bị lỗi font chữ tốt nhất viết không dấu.
Cám ơn em đã thêm cho anh phần danh mục thuốc chọn cho cả 3 cột, nhưng bên Sheet báo cáo dòng tổng cộng vẫn chưa có em à và chưa có dòng kẻ em xem lại hộ anh nhé. Cám ơn em nhiều
. Đầu tiên mình rất cám ơn bạn đã góp ý cho topic của mình và đưa mình link tham khảo để nghiên cứu thêm.
Sub tinhsh()
Dim Rng1 As Range: Dim eR As Long, jJ As Integer
Sheet2.Select
For Each Rng1 In ActiveSheet.Range("b11", [b65536].End(xlUp))
Rng1.Offset(, 14).Value = Rng1.Offset(, 4).Value + Rng1.Offset(, 6).Value - _
Rng1.Offset(, 8).Value - Rng1.Offset(, 10).Value - Rng1.Offset(, 12).Value
For jJ = 5 To 15 Step 2
Rng1.Offset(, jJ).Value = Rng1.Offset(, 3).Value * Rng1.Offset(, jJ - 1).Value
Rng1.Offset(1, jJ - 1).Value = Application.WorksheetFunction.Sum(Range([b11], _
[b11].End(xlDown)).Offset(0, jJ - 1))
Rng1.Offset(1, jJ).Value = WorksheetFunction.Sum(Range([b11], [b11].End(xlDown)).Offset(0, jJ))
Next jJ
Next
eR = Range("b65536").End(xlUp).Row
1 Cells(eR + 6, 3).FormulaR1C1 = "=NgLB"
2 Cells(eR + 6, 14).FormulaR1C1 = "=ThuTruong"
For jJ = 11 To eR + 1
FormatBorders Cells(jJ, "A").Resize(, 17)
Next jJ
End SubSub FormatBorders(Rng As Range)
Dim jJ As Long
For jJ = 7 To 12
Rng.Select
With Selection.Borders(jJ)
.Weight = 2 'xlContinuous'
End With
Next jJ
End Sub¸
Sub tinhsh()
Dim Rng1 As Range: Dim eR As Long, jJ As Integer
Sheet2.Select
For Each Rng1 In ActiveSheet.Range("b11", [b65536].End(xlUp))
Rng1.Offset(, 14).Value = Rng1.Offset(, 4).Value + Rng1.Offset(, 6).Value - _
Rng1.Offset(, 8).Value - Rng1.Offset(, 10).Value - Rng1.Offset(, 12).Value
For jJ = 5 To 15 Step 2
Rng1.Offset(, jJ).Value = Rng1.Offset(, 3).Value * Rng1.Offset(, jJ - 1).Value
Rng1.Offset(1, jJ - 1).Value = Application.WorksheetFunction.Sum(Range([b11], _
[b11].End(xlDown)).Offset(0, jJ - 1))
Rng1.Offset(1, jJ).Value = WorksheetFunction.Sum(Range([b11], [b11].End(xlDown)).Offset(0, jJ))
Next jJ
Next
eR = Range("b65536").End(xlUp).Row
1 Cells(eR + 1, "D").Value = [IA1].Value
Set Rng1 = Cells(eR + 1, "F")
With Rng1
3 Union(.Offset(0), .Offset(, 2), .Offset(, 4), .Offset(, 6), .Offset(, 8), .Offset(, 10)).Value = ""
End With
5 Cells(2 + eR, "B").Resize(50, 16).Clear
Cells(eR + 6, 3).FormulaR1C1 = "=NgLB"
Cells(eR + 6, 14).FormulaR1C1 = "=ThuTruong"
7 Cells(eR + 15, 3).Value = [IA2].Value 'Ngùoi Ký 1'
Cells(eR + 15, 6).Value = [IA3].Value 'Ngùoi Ký 2'
9 Cells(eR + 15, 9).Value = [IA4].Value 'Ngùoi Ký 3'
Cells(eR + 15, 13).Value = [IA5].Value 'Ngùoi Ký 4'
For jJ = 11 To eR + 1
FormatBorders Cells(jJ, "A").Resize(, 17)
Next jJ
End SubCám ơn tất cả các bạn đã nhiệt tình giúp đỡ mình, đến đây mình đã có thể tạo chữ tổng cộng ở cột "D" dòng cuối báo cáo rồi và thêm người ký ở các dòng (Còn về nhược điểm xoá định dạng dư thừa lần trước vẫn chưa khắc phục được).
Cám ơn bạn đã góp ý vậy mình sẽ tạo 1 topic mới mong các bạn quan tâm và giúp đỡ !
