VBAG01 - Tuyệt đỉnh VBA - Viết code trong tầm tay

Chào bạn có tích hợp nhưng nó không như office nhé, bạn có thể dùng office bạn tìm hiểu cách cài đặt tại đây:

https://gitiho.com/blog/huong-dan-cac...

File active tại đây:

https://mega.nz/file/9x0nGYDC#aQ5n32o...

Nếu chưa cài đặt được bạn vui lòng cho đội ngũ gitiho xin ultraview vào giờ hành chính để hỗ trợ

hi bạn mình đi làm các ngày trong tuần vào giờ hành chính bạn có hỗ trợ cài giúp đc k ạ

Chào bạn bạn làm như sau nhé:

B1: Record Macro

B2: Dừng Record Macro rồi tìm dòng cuối có chứa dữ liệu

B3: Thay thế dòng cuối vào địa chỉ vùng Record Macro rồi chạy lại

Code chọn vùng sẽ có dạng sau:

sheet1.range("A1: T"&dongcuoi).select

Cảm ơn thầy đã phản hồi.

Chào bạn, đúng rồi nhé, hoặc bạn muốn tiết kiệm thời gian viết code bạn có thể tạo ra function dongcuoi để gọi như sau

Option Explicit
Function Timdongcuoi(ws As Worksheet, cot As String) As Long
    Timdongcuoi = ws.Range(cot & ws.Rows.Count).End(xlUp).Row
End Function
Sub tim()
    Dim a As Long
    a = Timdongcuoi(Sheet1, "a")
    MsgBox a
End Sub

Em cám ơn Thầy.

Ý bạn là muốn kiểm tra xem ô được chọn có nằm trong 1 vùng được chỉ định trước không?

Cú pháp như sau nhé:

Ví dụ: Vùng được chỉ định là C2:C3 trong Sheet1

IF Not Intersect(Sheet1.Range("C2:C3"), ActiveCell) Is Nothing Then
'Nội dung câu lệnh nếu thỏa mãn
End If

Nếu viết trong sự kiện (như trong hướng dẫn chương 13) thì bạn thay ActiveCell bằng Target nhé.

Bạn tải file về và vui lòng kiểm tra tên file, nếu tên file có dạng:

tai-lieu...xlsm.xlsx

thì bạn xóa nội dung .xlsx trong tên file đi, chỉ giữ lại đuôi .xlsm, sau đó mở lại file nhé

Theo mình hiểu là bạn muốn viết code để trích lọc nội dung từ 1 Sheet A sang 1 Sheet B dựa vào điều kiện ngày (từ ngày và đến ngày). Phương pháp bạn dùng là record macro và sử dụng copy + paste.

Lời khuyên của mình là bạn không nên dùng cách này, mà dùng Advanced filter sẽ chính xác hơn và cũng dễ làm hơn. Nội dung về advanced filter bạn có thể tìm hiểu trong chương 13 - lập trình sự kiện. (Cách này tối ưu hơn cách bạn đang làm)

---

Với vấn đề bạn đang gặp phải thì bạn lưu ý 1 điểm: đôi khi thao tác trực tiếp của bạn đúng, nhưng code record lại không chạy ra đúng như thế.

Bạn cần phải kết hợp giữa việc record tạo code mẫu + viết code, sửa code trực tiếp để thu được nội dung code chính xác. Nên nếu chạy hoàn toàn cả 1 code record gồm nhiều thao tác thì rất khó xác định sai ở đâu, bởi nhiều thao tác không được ghi lại thành code khi dùng record.

bạn hãy nháy đúp chuột vào Module 1 (trong cửa sổ Project) là được nhé.

Để viết code ở đâu thì bạn nháy đúp chuột vào đối tượng đó (Sheet, module, userform...)

dạ cảm ơn thầy ạ

Không rõ bạn đang gặp vấn đề gì? Để tải file thì bạn bấm vào Nút Tải về trong phần tài liệu đính kèm bên dưới khóa học là được.

Bạn có thể không cần phải sử dụng bất kỳ phần mềm hỗ trợ download nào (nếu đang dùng thì bạn tạm thời đóng phần mềm đó đi) vì tải file này rất nhanh và dễ dàng.

Chào bạn bạn xem IDM của bạn còn dùng được không nhé.

Bạn có thể tải tài liệu tại Chương 0 - bài 2 nhé.

Chào bạn bạn xem kết quả code nhé

Option Explicit
Sub Luu_DuLieu()
'Thu muc chon file
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False    'cho phep chon nhieu file
        If .Show = -1 Then      'co thuc hien chon noi dung
            Dim DuongDan As String     'dai dien cho duong dan
                DuongDan = .SelectedItems(1) & "\"
            Dim TenFile As String       'Dai dien cho ten file duoc chon
                TenFile = "*BangLuong*.xls*"
            Dim File_duoc_mo As String
                File_duoc_mo = Dir(DuongDan & TenFile)
            
            Do While File_duoc_mo <> ""
                'Xet file duoc chon
                Dim wb_KQ As Workbook   'Bien workbook ket qua (Bang luong tong hop)
                Dim wb_1 As Workbook     'Bien workbook duoc chon tu thu muc (Tung file bang luong chi tiet)
        
                Set wb_KQ = ThisWorkbook
                Set wb_1 = Workbooks.Open(Filename:=DuongDan & File_duoc_mo)
            
                'B1: xac dinh dong cuoi bang tong hop (Bang luong tong hop)
                Dim DongCuoi_KQ As Long
                DongCuoi_KQ = wb_KQ.Sheets("Data_TienLuong").Range("A" & Rows.Count).End(xlUp).Row
                
                'B2: xac dinh dong dau va dong cuoi bang chi tiet (Tung file bang luong chi tiet)
                Dim DongDau_CT As Long
                    DongDau_CT = 8
                    
                Dim DongCuoi_CT As Long
                    DongCuoi_CT = wb_1.Sheets(1).Range("F" & Rows.Count).End(xlUp).Row
                    
                'B3: xac dinh khoang cach
                Dim KhoangCach As Long
                KhoangCach = DongCuoi_CT - DongDau_CT + 1
                
                'B4: luu
                wb_KQ.Sheets("Data_TienLuong").Range("A" & DongCuoi_KQ + 1 & ":BM" & DongCuoi_KQ + KhoangCach).Value = _
                    wb_1.Sheets(1).Range("A" & DongDau_CT & ":BM" & DongCuoi_CT).Value
                
                'B5: Dong file noi dung
                wb_1.Close SaveChanges:=False
            
            'Xac dinh lai file khac duoc mo
                File_duoc_mo = Dir
            Loop
        End If
    End With
End Sub