Hello, cho mình hỏi sử dụng bản WPS có tích hợp macro k ạ
Hello, cho mình hỏi sử dụng bản WPS có tích hợp macro k ạ
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 ạ
Code kẻ khung cho dòng cuối làm thế nào hả thầy? Mình muốn nhập đến đâu thì khung chỉ đến đó thôi ạ.
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 Thầy,
Thầy cho em hỏi là code xác định dòng cuối và code past giá trị vào dòng cuối phải nằm trong 1 sub phải không ạ. Vì em tách ra làm thành 2 sub riêng thì kết quả ra không đúng, trừ khi em code dòng cuối theo chức năng function thì mới ra được. Em cám ơn Thầy.
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.
em chào Thầy. E hỏi chút là làm thế nào viết đc công thức "Thuộc" trong VBA ạ?
vì dụ muốn viết điều kiện là ô được trọng thuộc 1 vùng nào đó?
Ý 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é.
Mình tải tài liệu VBAG01 về nhưng không mở được toàn báo lỗi "Excel cannot open the file 'filename.xlsx' because the file format or
file extension is not valid. Verify that the file has not been corrupted
and that the file extension matches the format of the file."
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é
cho mình hỏi mình làm code này
ko biêt sai cho nao
mà nó ra kết quả
bảng gốc là
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.
Dạ em chào thầy, bên máy tính của em gặp trình trạng không hiển thị khu vực chứa đoạn code như trong bài giảng, em thấy có bạn cũng bị tương tự, em đã tìm xóa file DOCK rồi nhưng vẫn không thấy được code ạ, mong thầy hỗ trợ giúp em
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 ạ
phiên bản nay IDM ko hỗ trợ kiểu tệp tin mà bạn đang tải . Vui long cập nhật IDM lên phiên bản mới nhất . mà của tôi là mới rồi mà
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é.
Mình ko thấy có tài liệu đính kèm thì có thể cho mình xin được không hungcpxm@cp.com.vn
Bạn có thể tải tài liệu tại Chương 0 - bài 2 nhé.
Chào thầy,
Em đang thực hành gộp dữ liệu nhiều file vào 1 file. Cho em hỏi lỗi này là bị gì vậy ạ? em sữa mãi k đc ạ? hic.
Cảm ơn Thầy!
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
Sứ mệnh của G-LEARNING: Giúp người Việt nâng cao năng suất làm việc bằng các chương trình đào tạo ứng dụng tin học văn phòng.
Giá trị cốt lõi sản phẩm mà G-LEARNING theo đuổi:
- Thực tế, có tính ứng dụng cao, không chỉ giúp học viên phát triển tư duy ứng dụng mà còn chia sẻ tới học viên kinh nghiệm áp dụng thực tế trong hơn 5 năm kinh nghiệm của đội ngũ chuyên gia đã tào tạo tại: Vietinbank, Vpbank, FPTsoftware, VNPT, Mobifone...
- Không ngừng đổi mới chất lượng giảng dạy để đạt được giá trị cao nhất.
- Luôn hướng tới sự suất xắc, không ngừng cải tiến và cập nhật mới khóa học để tiến tới những tiêu chuẩn cao nhất.
- Tập trung vào khách hàng, lấy khách hàng là trọng tâm và cung cấp giá trị vượt mong đợi.
Các chương trình đào tạo:
- Microsoft Office,
- Business Intelligence,
- Design...
Thành tựu:
- Đối tác đào tạo nội bộ của: Vietinbank, VNPT, FPTSoft ware, VPbank ...
- Hơn 100.000 học viên online trên toàn quốc.