Em đã cài đặt ADD-IN để đọc số tiền USD bằng chữ, tuy nhiên nó chỉ đọc được đến phần đơn vị (đô la) còn phần sau dấu thập phân (cent) thì không đọc được ah.
Lộ trình bài bản
Ứng với từng vị trí, cấp bậc
Kiến thức thực tiễn
Giải quyết ngay vấn đề trong công việc
Giảng viên trực tiếp giải đáp
trong 8h làm việc
Nội dung cập nhật hàng tháng
Đảm bảo phiên bản mới nhất
Đánh giá mới nhất từ học viên
Em đã cài đặt ADD-IN để đọc số tiền USD bằng chữ, tuy nhiên nó chỉ đọc được đến phần đơn vị (đô la) còn phần sau dấu thập phân (cent) thì không đọc được ah.
Phần này gitiho chưa fix bạn nhé, mình chưa hiểu lắm cách đọc về đô la nên chưa thể fix được bạn
Em gặp lỗi như hình bên dưới khi dùng ADD-IN in hàng loạt ra file pdf, vui lòng hướng dẫn em cách khắc phục. Em cảm ơn.
Ô dữ liệu phải kiểu string bạn nhé
nÓ TÔ VÀNG DÒNG NÀY Ạ
Dongcuoi = sheets("Data").range("A"& rows.Count).End(xlUp).Row
Phần này bạn xem lại nhé
dạ thưa thầy!!! e muốn viết code kiểm tra sheet tên HCM tồn tại chưa nếu có rùi thì thông báo sheet đã tồn tại và thoát chương trình ngược lại thực hiện câu lệnh bên dưới thì viết sao vậy thầy ( như hình dưới ạ)
Bạn làm như sau nhé
Duyệt vòng lặp tất cả các sheets
If(ws.name = “HCM”) then
// thoat
Else
// thêm sheets
End if
chỗ thoát làm thế nào thầy e exit sub k đc
Dạ ,Thầy cho e máy e dùng offic 10, sao k thấy Flash Fill ạ , vào Fill mà k thấy Flash fill ạ.
Bạn sử dụng phiên bản office từ 2013 trở lên mới có bạn nhé.
Em chạy code để gộp dữ liệu, nhưng khi dùng Sheet code name thì lỗi ko chạy được, nhưng nếu đổi sang Sheet Name thì chạy được . Nhờ Thầy/cô hỗ trợ giúp nếu muốn viết theo Sheet codename. Chi tiết đoạn code bên dưới
Sub Tong_Hop_Giu_Lieu2()
'Mo thu muc, chon file,gop vao 1 file
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Show 'Hien cua so chon file
'Xac dinh file nào duoc chon
Dim i As Long
For i = 1 To .SelectedItems.Count
'Gan bien cho cac WB
Dim WB_KQ As Workbook
Dim WB_Select As Workbook
Set WB_KQ = ThisWorkbook
Set WB_Select = Workbooks.Open(.SelectedItems(i))
'Tim du lieu tu các WB Data
Dim DongCuoi_Select As Long
DongCuoi_Select = WB_Select.Sheet1.Range("F" & Rows.Count).End(xlUp).Row
Dim DongDau_Select As Long
DongDau_Select = 8
Dim KhoangCach_Select As Long
KhoangCach_Select = DongCuoi_Select - DongDau_Select + 1
'Tim Dong cuoi noi nhan
Dim DongCuoi_KQ As Long
DongCuoi_KQ = WB_KQ.Sheet6.Range("F" & Rows.Count).End(xlUp).Row
'Gan Du Lieu
WB_KQ.Sheet6.Range("A" & DongCuoi_KQ + 1 & ":BM" & DongCuoi_KQ + KhoangCach_Select).Value = _
WB_Select.Sheet1.Range("A" & DongDau_Select & ":BM" & DongCuoi_Select).Value
'Dong WB lai
WB_Select.Close savechanges:=False
Next i
End With
End Sub
Khi viết mà có kèm theo workbook thì đối tượng worksheet phải viết ở dạng Sheet-Name chứ không viết ở dạng Sheet-codeName. Đây là quy định trong VBA rồi nên phải tuân thủ thôi bạn nhé. Nếu không có kèm workbook thì viết thế nào cũng được.
Bạn có thể mô tả rõ hơn giúp githo được không?
em dung ham =sumf(A1:D1,">=1") de dem duoc roi thay huong dan em chuyen sang VBA voi
Cho em hỏi sao khi em tải tài liệu về máy để thực hành nhưng trong file excel không có Sheet yêu cầu như trong video chữa bài ạ?
bạn căn cứ các video chữa bài tập bên dưới nhé.
Bạn xem lại tên Sheet trong code: Data và Sheet1
Trong file của bạn đang không có sheet nào tên là Data => lỗi liên quan tới đối tượng sheet.
cho em hỏi muốn chuyển đổi ngày thành quý thì dùng VBA như thế nào: ví dụ chuyển ngày 31/12/2022 thành Quý 4/2022. EM nhờ a/c chỉ giúp,em cảm ơn
Bạn phải dùng hàm logic để biện luận:
Nếu số tháng của ngày đó nhỏ hơn 4 thì là quý 1, nếu nhỏ hơn 7 thì là quý 2, nhỏ hơn 10 là quý 3, còn lại là quý 4.
Sau đó nối các ký tự “Quý ”, “/2022” vào cùng kết quả hàm IF trên để tạo thành kết quả như ý muốn.
Bạn dùng hàm trước cho dễ, sau đó dùng VBA lấy kết quả của hàm.
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ự xuất sắ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.
Sử dụng mã giảm giá hoặc voucher của bạn
Truyền thông nói gì về Gitiho?