Hỏi về vba hiện file trong cùng folder? (1 người xem)

[quykiemsau]

Xin chào mọi người!
Em có một câu hỏi đã để trong file đính kèm.
Rất mong được mọi người xem xét và giúp đỡ.
Xin cám ơn.

 

[Quang_Hải]

Xin chào mọi người!
Em có một câu hỏi đã để trong file đính kèm.
Rất mong được mọi người xem xét và giúp đỡ.
Xin cám ơn.

Bạn xem file này coi đúng ý chưa.

 

[quykiemsau]

Ồ đúng rồi rất cám ơn anh!
Xin hỏi anh thêm 1 Vấn đề nữa ạ?
Có thể tự tạo links đến các file mà mình vừa cho hiện ra một cách tự động được không?

 

[Quang_Hải]

Ồ đúng rồi rất cám ơn anh!
Xin hỏi anh thêm 1 Vấn đề nữa ạ?
Có thể tự tạo links đến các file mà mình vừa cho hiện ra một cách tự động được không?

Mở code trong file ra, tìm và thay Sub này vào là được

Sub Hien_File()
Application.ScreenUpdating = False
Dim arr As Variant, i As Integer
arr = GetListFile(ThisWorkbook.Path, "*.xl*", True)
For i = 0 To UBound(arr)
   ActiveSheet.Hyperlinks.Add Cells(i + 8, 3), arr(i), arr(i)
Next
Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Chỉ liệt kê các file trong folder (không tính folder con) nên bài này, thậm chí tôi nghĩ vẫn có thể giải quyết bằng công thức đấy (kể các việc tạo Hyperlink)
Các bạn thử xem!

 

[quykiemsau]

Em thì chịu rồi!
Nếu Thầy có cách hay như vậy thì mong được chỉ giáo.
Xin cám ơn!

 

[vodoi2x]

Chỉ liệt kê các file trong folder (không tính folder con) nên bài này, thậm chí tôi nghĩ vẫn có thể giải quyết bằng công thức đấy (kể các việc tạo Hyperlink)
Các bạn thử xem!

Em thì chịu rồi!
Nếu Thầy có cách hay như vậy thì mong được chỉ giáo.
Xin cám ơn!

cái gì không làm được công thức, hàm bình thường thì bạn nên nghĩ đến macro

Nghĩ đến macro mà lại không phải VBA - dùng đơn giản như công thức thì hãy nghĩ đến Macro XL4 là có thể giải quyết được

Vậy bạn thử tìm và áp dụng xem sao

 

[quykiemsau]

cái gì không làm được công thức, hàm bình thường thì bạn nên nghĩ đến macro

Nghĩ đến macro mà lại không phải VBA - dùng đơn giản như công thức thì hãy nghĩ đến Macro XL4 là có thể giải quyết được

Vậy bạn thử tìm và áp dụng xem sao

Mình không làm được như Thầy NDU nói nên mới hỏi. Chứ làm được thì hỏi làm gì.
Nếu Anh biết làm thì làm thử xem sao?
Mình mà hiểu được những gì như bạn nói thì cũng cố gắng làm, nhưng xin lỗi....
Mình nghĩ Ở trên diễn đàn này có phải là ai làm cho riêng ai cái gì đâu.

 

[quykiemsau]

Chỉ liệt kê các file trong folder (không tính folder con) nên bài này, thậm chí tôi nghĩ vẫn có thể giải quyết bằng công thức đấy (kể các việc tạo Hyperlink)
Các bạn thử xem!

Thầy chỉ dẫn cho em bài này với ạ? Tks!

 

[ndu96081631]

Thầy chỉ dẫn cho em bài này với ạ? Tks!

Đặt 2 name:

sPath =LEFT(CELL("filename",INDIRECT("A1")),FIND("[",CELL("filename",INDIRECT("A1")))-1)

Files =FILES(sPath & "*.xls")

Trên bảng tính, gõ công thức:

=IF(ROWS($1:1)>COUNTA(Files),"",HYPERLINK(INDEX(Files,,ROWS($1:1))))

Kéo fill xuống!
Xong!
Bạn bấm vào kết quả, tự nó sẽ link đến file
Lưu ý: Công thức này liệt kê luôn cả file hiện hành (TongHop.xls). Nếu muốn loại bỏ file hiện hành, có thể IF, éc gì gì tùy bạn

 

[gakon_Office]

Đặt 2 name:

sPath =LEFT(CELL("filename",INDIRECT("A1")),FIND("[",CELL("filename",INDIRECT("A1")))-1)

Files =FILES(sPath & "*.xls")

Trên bảng tính, gõ công thức:

=IF(ROWS($1:1)>COUNTA(Files),"",HYPERLINK(INDEX(Files,,ROWS($1:1))))

Kéo fill xuống!
Xong!
Bạn bấm vào kết quả, tự nó sẽ link đến file
Lưu ý: Công thức này liệt kê luôn cả file hiện hành (TongHop.xls). Nếu muốn loại bỏ file hiện hành, có thể IF, éc gì gì tùy bạn

Thầy cho Em hỏi cũng cách làm như của Thầy sao em gán cho nó một đường dẫn cụ thể khác mà nó không links được nhỉ?
Phải chăng dùng cách này thì chỉ links được file trong cùng forder thôi ạ?
Thêm nữa nếu em không muốn liệt kê file hiện hành như Thầy nói thì phải sửa lại hàm thế nào ạ?
Và có thể links được nhiều loại đuôi một cùng một lúc không ạ?
Mong Thầy hướng dẫn thêm. Xin cám ơn!

 

[ndu96081631]

Thầy cho Em hỏi cũng cách làm như của Thầy sao em gán cho nó một đường dẫn cụ thể khác mà nó không links được nhỉ?
Phải chăng dùng cách này thì chỉ links được file trong cùng forder thôi ạ?
Thêm nữa nếu em không muốn liệt kê file hiện hành như Thầy nói thì phải sửa lại hàm thế nào ạ?
Và có thể links được nhiều loại đuôi một cùng một lúc không ạ?
Mong Thầy hướng dẫn thêm. Xin cám ơn!

Thì trong file tôi làm nó link cùng folder, bạn link chổ khác thì phải sửa lại chứ ---> Đường dẫn nằm ở name sPath ấy

 

[gakon_Office]

Thì trong file tôi làm nó link cùng folder, bạn link chổ khác thì phải sửa lại chứ ---> Đường dẫn nằm ở name sPath ấy

Em đã sửa lại đường dẫn như Thầy nói rồi đấy ạ. Nhưng không hiểu sao file thì tìm thấy cong Links thì không được...
Thầy xem file đính kèm ở bài #11 xem em viết vậy có ổn không mà nó lại lỗi thế ạ?

 

[ndu96081631]

Em đã sửa lại đường dẫn như Thầy nói rồi đấy ạ. Nhưng không hiểu sao file thì tìm thấy cong Links thì không được...
Thầy xem file đính kèm ở bài #11 xem em viết vậy có ổn không mà nó lại lỗi thế ạ?

Nghĩa là bạn sửa chưa đúng thôi
- Sửa name sPath thành:

=LEFT(CELL("filename",INDIRECT("A1")),FIND("[",CELL("filename",INDIRECT("A1")))[COLOR=#ff0000]-7[/COLOR])

Name FILES vẫn là:

=FILES(sPath & "*.xls")

Công thức tại D8:

=IF(ROWS($1:1)>COUNTA(Files),"",HYPERLINK(sPath&INDEX(Files,,ROWS($1:1)),INDEX(Files,,ROWS($1:1))))