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
Bao cao su đôn dên là sản phẩm tương trợ dục tình được người dùng tại Việt Nam ưa chuộng. Hiện tại trên thị trường sản phẩm này có rất nhiều dòng với mẫu mã đa dạng. Dưới đây là Top 5 bao cao su đôn...
Bao cao su đôn dên X78PM gai toàn thân để làm mới cuộc vui