em xử dụng đoạn mã theo hướng dẫn trên mạng thì bị lỗi trên. Chỉ cho em cách khắc phục ạ. em dùng 64bit
Đoạn mã em lấy từ: https://vbaa2z.blogspot.com/2021/02/vba-to-recycle-file-or-folder.html
Em xử dụng
Dim fso As Object, FolderToDelete As String
Set fso = CreateObject("Scripting.FileSystemObject")
FolderToDelete= "D:\Sample"
If fso.FolderExists(NewFolder) then
fso.DeleteFolder(FolderToDelete)
End If
hoặc
Dim fso As Object, FileToDelete As String
Set fso =...
1689087230
dạ folder của em thường có 2 cấp; đoạn mã trên đã giải quyết được vấn đề ạ. Nếu nhiều cấp folder em tìm cách tìm max cấp folder trước rồi phân cấp sau ạ (max cũng không quá 6 cấp folder ạ)
em xin cám ơn!
Cám ơn anh.
Phần này lấy tên file trong thư mục nên khi thư mục chứa nhiều file nhỏ cập nhật rất lâu, có khi bị đơ máy. Với em cũng không lấy tên file, chỉ lấy tên thư mục thôi ạ.
Em có cây thư mục như trên hình, trong các thư mục lại có thư mục con; anh chị giúp em
- Đọc được tên thư mục vào bảng excel;
- Cập nhật được khi tên thư mục thay đổi;
- Có đường link để mở được thư mục tương ứng.
em xin cám ơn ạ!
Sub test1()
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws = Sheets(ThisWorkbook.VBProject.VBComponents("Sh" & i).Properties("Name").Value)
Next i
End Sub
Sub test2()
Dim i As Long
Dim Ws As Worksheet
For i = 1 To 4
Set Ws =...
vâng em đang viết nốt. chưa xong. vừa viết vừa học hỏi. khi nào xong em up lên. đại khái giống file của VietLacSo. nhưng viết để gọn và phù hợp với cá nhân sử dụng hơn.
https://vietlacso.com/
dùng link cell thì truyền lệnh đi lại sẽ làm chậm chương trình ạ. còn viết từng lệnh thì 10 chekbox còn viết được chứ nhiều chekbox thì viết lặp đi lặp lại. Không biết có lệnh nào dạng vòng lặp
for i=1 to 10
checkboxes(index).value=true then
.....
netx i
em cám ơn đã giúp. trả là em viết giúp cho nhà chùa để chèn sớ tự động. mà nhà chùa lại không dùng máy tính nhiều nên nhập dữ liệu nhiều ô phức tạp, chỉ nhập tất vào một ô. Cái này về nguyên tắc dữ liệu thì rất kỳ nhưng lại giúp đỡ phức tạp với người biết ít ạ. Tết sắp đến chúc anh và gia đình...
- Đó là file quy định để nhập một gia đình thì đương nhiên quy định người đầu tiên là chủ hộ. Còn tên được cắt hay tên trong cột B để nhập không cần viết hoa để giảm bớt hàm và bớt công người đánh. dù sao kết quả cuối cùng sẽ đổi thành chữ hán.
- ở đây để viết sớ nên không cần 2 chủ hộ. mà chỉ...
em khó diễn tả. ở trong file thể hiện rồi ạ.
- lệnh cắt họ tên người đầu tiên ở cột C (Danh sách họ tên) sang cột B (chủ hộ) thì em đã làm được ok rồi.
- còn trường hợp kéo copy dữ liệu ở ô bên cột C (danh sách họ tên) thì cột B (chủ hộ) sẽ không thực hiện. Nên em tạo nút cập nhật để thực hiện...
viết lại lệnh cho nút cập nhật sao cho hiệu quả hơn. còn lệnh cắt họ tên ở trên theo sự kiện thay đổi của cột danh sách họ tên thì ok rồi ạ
1549074625
lệnh cập nhật này chỉ áp dụng được cho trường hợp cắt chữ như công thức. nếu muốn cập nhật cho trường hợp khác lại không được. ý em muốn có lệnh...