Sub tonghop()
'
' tonghop Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range("B25").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Chitiet_ Thang!RC17)*(DuLieuXuatHang!R7C9:R5000C9=Chitiet_T hang!R24C)*DuLieuXuatHang!R7C11:R5000C11)/R23C2"
Range("B25").Select
Selection.Copy
Range("B25:F36").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Chitiet_ Thang!RC17)*(DuLieuXuatHang!R7C9:R5000C9=Chitiet_T hang!R24C)*DuLieuXuatHang!R7C13:R5000C13)/1000000"
Range("J25").Select
Selection.Copy
Range("J25:N36").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Chitiet_ Thang!RC17)*(DuLieuXuatHang!R7C9:R5000C9=Chitiet_T hang!R24C)*DuLieuXuatHang!R7C11:R5000C11)"
Range("R25").Select
Selection.Copy
Range("R25:v36").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("R25:v36").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub
Sub chitietkhoiluongkhach()
'
' chitietkhoiluongkhach Macro
'
' Tinh gia tri chi tiet theo khoi luong cua 1 khach hang tai o E6\
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Chitiet_ Khach!R5C)*(DuLieuXuatHang!R7C4:R5000C4=Chitiet_Kh ach!RC2)*DuLieuXuatHang!R7C14:R5000C14)"
Range("E6").Select
Selection.Copy
' Lua chon vung du lieu den dong cuoi cung co du lieu de chuan bi Paste cong thuc
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Range("E6", Cells(row_i - 1, "P")).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Chuyen den dong cuoi cung csdl
Cells(row_i, "Q").Select
End Sub
Sub chitietloaihangkhach()
'
' chitietloaihang/hangkhach Macro
'
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Chitiet_ Nhanhang!R5C)*(DuLieuXuatHang!R7C4:R5000C4=Chitiet _Nhanhang!RC2)*(DuLieuXuatHang!R7C8:R5000C8=Chitie t_Nhanhang!R2C3)*(DuLieuXuatHang!R7C9:R5000C9=Chit iet_Nhanhang!R3C3)*DuLieuXuatHang!R7C14:R5000C14)"
Range("E6").Select
Selection.Copy
' Lua chon vung du lieu den dong cuoi cung co du lieu de chuan bi Paste cong thuc
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Range("E6", Cells(row_i - 1, "P")).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Chuyen den dong cuoi cung csdl
Cells(row_i, "Q").Select
End Sub
Sub chitietthanhtienkhach()
'
' chitietthanhtienkhach Macro
'
Dim row_j As Long
row_j = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((DuLieuXuatHang!R7C1:R5000C1=Thanhtie n!R5C)*(DuLieuXuatHang!R7C4:R5000C4=Thanhtien!RC2) *DuLieuXuatHang!R7C13:R5000C13)/R2C17"
Range("E6").Select
Selection.Copy
' Lua chon vung du lieu den dong cuoi cung co du lieu de chuan bi Paste cong thuc
Dim row_i As Long
row_i = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row
Range("E6", Cells(row_i - 1, "P")).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Chuyen den dong cuoi cung csdl
Cells(row_i, "Q").Select
End Sub
Giá thu hẹp vùng kín và thu hẹp vùng kín ở đâu tốt nhất Đà Nẵng? Đây là chủ đề được rất nhiều chị em quan tâm, trong quá trình tìm hiểu để làm đẹp vùng tam giác nhớ thương của mình. Hãy cùng tìm hiểu...
Giá Thu Hẹp Vùng Kín và Thu Hẹp Vùng Kín Ở Đâu Tốt Nhất Đà Nẵng