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
Du lịch Singapore là đã không còn là điểm đến xa lạ đối với những người yêu thích xê dịch. Tuy có diện tích bé nhỏ, nguồn tài nguyên ít ỏi nhưng “đảo quốc sư tử” đã biết biến những điều không thể...
Nên đi những địa điểm nào trong tour Du lịch Singapore của Dulichviet