Kết quả tìm kiếm

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 =...

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 =...

- giúp em viết lệnh khi chọn checkbox (Chọn tất) thì mười checkbox(1-10) được chọn; bỏ chọn thì sẽ bỏ tất cả 10 checkbox.

- ý tưởng em khi thay đổi nội dung cột C danh sách họ tên thì cột B chủ hộ cũng thay đổi theo. - khi kéo để copy dữ liệu ở cột C danh sách họ tên xong thì ấn cập nhật dữ liệu. sẽ cập nhật lại dữ liệu. - tuy nhiên nút lệnh cập nhật dữ liệu em viết khi dữ liệu nhiều hàng thì lệnh chạy chậm. em...

-em muốn tìm chữ "ba" thay bằng chữ "bốn" -chữ "ban" thay bằng chữ "năm" nhưng bị lỗi thay thành chữ "bốnn" ... file dữ liệu em đính kèm. mong anh chị giúp em với ạ.