Thẻ: Excel

Bạn có một cửa hàng kinh doanh thời trang, trong đó bạn có các khách VIP, cuối tháng bạn muốn thống kê tổng số tiền mỗi ngày mà mình thu được từ các VIP này là bao nhiêu. Dưới đây là một cách tính để bạn khỏi phải đau đầu hàng tháng Hình demo: Áp dụng: Tính tổng với sumproductB3=SUMPRODUCT(SUMIFS(Data!$C:$C,Data!$A:$A,A3,Data!$B:$B,’DS VIP’!$A$2:$A$5)) Đếm tổng với countifC3=SUMPRODUCT(COUNTIFS(Data!A:A,A3,Data!B:B,’DS VIP’!$A$2:$A$5))

Read More

Để copy dữ liệu từ một sheet trong một file này sang một sheet trong một file khác, chúng ta thường phải mở cả 2 file lên và chọn vào sheet cần copy dữ liệu rồi quét chọn vùng cần copy sau đó quay sang file muốn paste vào rồi chọn sheet cần paste vào để dán dữ liệu vừa copy được vào. Công việc này rất tốn thời gian nhất là các bạn thường phải làm báo cáo hàng tuần. Ví dụ bạn phải trích xuất một file dữ…

Read More

Đôi khi bạn muốn gửi một email tới hàng loạt khách hàng từ danh sách email có sẵn trong email của bạn. Để làm bằng formular của excel thì quả là vất vả vì bạn phải sử dụng CONCATENATE (giống như vậy =CONCATENATE(A2,A3,A4,A5,)). Một vài email thì không có gì là to tát nhưng số lượng lên đên hàng trăm hay hàng ngàn thì thôi rồi, bạn sẽ bị tiêu đời đôi bàn tay xinh đẹp của mình. Hãy để Vba giải quyết vấn đề này cho bạn, bạn chỉ…

Read More

Làm thế nào để tìm hàng cuối cùng, cột cuối cùng hay ô cuối cùng của một bảng tính sử dung VBA. Bài viết được biên soạn dưới đây sử hướng dẫn làm việc ấy một cách chi tiết và dễ hiểu nhất. Sub Range_End_Method() ‘Finds the last non-blank cell in a single row or columnDim DongCuoi As LongDim CotCuoi As Long ‘Find the last non-blank cell in column A(1) DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row ‘Find the last non-blank cell in row 1 CotCuoi = Cells(1, Columns.Count).End(xlToLeft).Column MsgBox “Last Row: ” & lRow & vbNewLine &…

Read More

Bạn cần phải lọc một danh sách duy nhất từ một danh sách đầy thông tin trùng lắp với nhau, bạn có thế sử dụng chức năng “remove duplicates” để giải quyết nó. Nhưng phải làm thế nào với trường hợp dùng VBA để lọc.   Dưới đây sẽ là code để bạn biết cách làm thế nào để có thể lọc ra danh sách duy nhất từ một danh sách có các giá trị trùng lắp với nhau. Sub LocDuLieu_Duynhat()    Dim vaData As Variant    Dim colUnique As…

Read More

Read More

Dưới đây là code Vba về một số hình thức copy/paste Sử dụng phương thức paste special Sub copy_paste_special()’Sử dụng phương thức Range.PasteSpecial để dán dữ liệu copy ‘Copy và PasteSpecial trongrange Range(“A1”).Copy Range(“A3”).PasteSpecial Paste:=xlPasteFormats ‘Copy và PasteSpecial giữa các worksheets Worksheets(“Sheet1”).Range(“A2”).Copy Worksheets(“Sheet2”).Range(“A2”).PasteSpecial Paste:=xlPasteFormulas ‘Copy và PasteSpecial giữa các workbooks Workbooks(“Book1.xlsx”).Worksheets(“Sheet1”).Range(“A1”).Copy Workbooks(“Book2.xlsx”).Worksheets(“Sheet1”).Range(“A1”).PasteSpecial Paste:=xlPasteFormats ‘Xóa đường viền copy xung quanh khu vực chọn copy Application.CutCopyMode = FalseEnd Sub Phương thức copy/paste đơn giản Sub copy_paste_simple()’Sử dụng phương thức Range.Copy cho copy/paste ‘Phương thức Range.Copy để Copy & Paste trên một dòng…

Read More

Làm thế nào để đưa hàm index và hàm match chuyên tìm kiếm thông tin như dưới đây vào trong vba của Excel =INDEX(Data!B:F,MATCH(B4,Data!B:B,0),5) Dưới đây là code cần thiết để làm điều đó. Sub Dienthoai() Dim i As Integer Dim LastRow1 As Long LastRow1 = Worksheets(“Free 50k”).Cells(4, “B”).End(xlDown).Row Application.Interactive = False Application.EnableEvents = False Application.ScreenUpdating = False For i = 4 To LastRow1 ‘Cells(i, 11).Value = “=INDEX(Data!B:F,MATCH(B4,Data!B:B,0),5)” Cells(i, 11).Value = Application.Index(Worksheets(“data”).Range(“B:F”), Application.Match(Range(“B” & i), Worksheets(“data”).Range(“B:B”), 0), 5) Next i Application.Interactive = True Application.EnableEvents = True Application.ScreenUpdating = True End…

Read More

To add the GetOpenFilename method to Excel for Windows Add a standard module to the Microsoft Visual Basic for Applications (VBA) project in your workbook. Type Alt+F11 to open the Visual Basic Editor, click Insert, and then click Module. Paste or type the following macro into the module. Sub Select_File_Or_Files_Windows() Dim SaveDriveDir As String Dim MyPath As String Dim Fname As Variant Dim N As Long Dim FnameInLoop As String Dim mybook As Workbook ‘ Save the current directory. SaveDriveDir = CurDir ‘ Set the path to the folder that…

Read More

Sử dụng vòng lặp for để tạo mảng trong vba của excel.Dưới đây là code xuất giá trị vào một ô có vị trí là dòng thứ (i) và cột thứ (j) trong một sheet của excelSử dụng công thức countifs để đếm giá trị thỏa mãn yêu cầu và sau đó xuất giá trị (value) vào vị trí mình muốn. Sub Macro1() Dim i As Integer, j As Integer, a As Integer, b As Integer, kq As Integer Dim LastRow1 As Long Dim LastRow2 As Long Dim Macro1 As…

Read More