Di chuyển đến workbook

[le tin]

Chào các bạn .
Trường hợp tôi muốn giúp đỡ như sau :
Có 3 workbook : Book1,Book2,Book3
Ðang ở Book1 , trong A1 nếu tôi đánh Book2 thì sẽ đến Book2 , đánh Book3 thì sẽ đến Book3
Vậy phải viết code thế nào .
Cám ơn nhiều/

 

[hoangdanh282vn]

Chào các bạn .
Trường hợp tôi muốn giúp đỡ như sau :
Có 3 workbook : Book1,Book2,Book3
Ðang ở Book1 , trong A1 nếu tôi đánh Book2 thì sẽ đến Book2 , đánh Book3 thì sẽ đến Book3
Vậy phải viết code thế nào .
Cám ơn nhiều/

bạn thử cái này xem sao :

Sub worksheet_change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" Then Workbooks(target.Value).Activate
Application.EnableEvents = True
End Sub

 

[Tinker_Bell]

Chào các bạn .
Trường hợp tôi muốn giúp đỡ như sau :
Có 3 workbook : Book1,Book2,Book3
Ðang ở Book1 , trong A1 nếu tôi đánh Book2 thì sẽ đến Book2 , đánh Book3 thì sẽ đến Book3
Vậy phải viết code thế nào .
Cám ơn nhiều/

Đề bài này bạn chưa nói rõ là các file Book1, Book2, Book3 có được mở sẵn hay chưa? Nều chưa mở thì có cần mở hay không? Đường dẫn lưu các file này ở đâu!?

Code của Hoangdanh280vn sẽ báo lỗi nếu book2/book3 chưa mở!

 

[tedaynui]

bạn thử cái này xem sao :

Sub worksheet_change(ByVal target As Range)
Application.EnableEvents = False
If target.Address = "$A$1" Then Workbooks(target.Value).Activate
Application.EnableEvents = True
End Sub

Hoangdanh bẫy lỗi thêm các trường hợp như :
+ Sheet đang ẩn
+ Tên Sheet không tồn tại (hoặc nhập tên Sheet không đúng)

TDN

 

[ThuNghi]

Hoangdanh bẫy lỗi thêm các trường hợp như :
+ Sheet đang ẩn
+ Tên Sheet không tồn tại (hoặc nhập tên Sheet không đúng)

TDN

Thầy làm luôn phần đó giúp luôn. Tìm UDF kiểm tra file có tồn tại, có mở không mà tìm không ra.

 

[tedaynui]

Thầy làm luôn phần đó giúp luôn. Tìm UDF kiểm tra file có tồn tại, có mở không mà tìm không ra.

Gởi anh, đây là hàm kiểm tra sự tồn tại của 1 Sheet (rất hay, hi hi)

Function WksExists(wksName As String) As Boolean
    On Error Resume Next
    WksExists = CBool(Len(Worksheets(wksName).Name) > 0)
End Function

TDN

 

[ThuNghi]

Gởi anh, đây là hàm kiểm tra sự tồn tại của 1 Sheet (rất hay, hi hi)

Function WksExists(wksName As String) As Boolean
    On Error Resume Next
    WksExists = CBool(Len(Worksheets(wksName).Name) > 0)
End Function

TDN

Thầy trả lời không đúng yêu cầu rồi.
1/ File (WB) có tồn tại trong máy.
2/ File có đang mở không.

 

[tedaynui]

Thầy trả lời không đúng yêu cầu rồi.
1/ File (WB) có tồn tại trong máy.
2/ File có đang mở không.

1/ Kiểm tra sự tồn tại của 1 File :

Function bFileExists(rsFullPath As String) As Boolean
    bFileExists = CBool(Len(Dir$(rsFullPath)) > 0)
End Function

2/ Kiểm tra File có đang mở hay không nè

Function bWorkbookIsOpen(rsWbkName As String) As Boolean
    On Error Resume Next
    bWorkbookIsOpen = CBool(Len(Workbooks(rsWbkName).Name) > 0)
End Function

Ông anh em khó tính quá, hi hi

TDN

 

[le tin]

Ý tôi là muốn mở ra hết,nhưng nếu chưa mở thì hiện thông báo , cũng chưa làm được ,nhờ các bạn chỉ luôn
Cảm ơn nhiều

 

[ThuNghi]

Ý tôi là muốn mở ra hết,nhưng nếu chưa mở thì hiện thông báo , cũng chưa làm được ,nhờ các bạn chỉ luôn
Cảm ơn nhiều

Em cũng chưa hiểu lắm ý đồ. Nếu chưa mở thì False. Nhưng mà muốn mở hết file trong 1 folder thì phải có động tác For, nếu lỡ mở rồi
if bFileExists(rsFullPath As String) then next (exit For).
À, mà quên, Bác mở một lúc nhiều file làm gì, mở ra, thao tác xong, đóng lại, mở tiếp. Hiển nhiên luốn có 1 file mở để thực thi code.

 

[tedaynui]

Ý tôi là muốn mở ra hết,nhưng nếu chưa mở thì hiện thông báo , cũng chưa làm được ,nhờ các bạn chỉ luôn
Cảm ơn nhiều

Bác nói rõ hơn đi, cụ thể công việc của Bác ra sao để chúng em làm hộ Bác. Em nghĩ không khó lắm đâu. Vì đúng như anh Thunghi nói, thường thì thao tác File nào thì mở File đó; xong thì đóng nó lại rồi tiếp tục mở File khác... như vậy Excel không bị ì ạch và thao tác cũng khó nhầm lẫn Bác à.

TDN

 

[le tin]

Công việc cụ thể mình là , sau khi tạo file trong đó có nhiều sheet dữ liệu , các biểu mẫu...và giao người khác dùng , trong quá trình đó đồng thời mình cải tiến tại bản lưu (chủ yếu là code)hoặc vừa rồi bị nhiễm virus nên file đang dùng bị mất code .
Muốn update mà không nghĩ ra cách , thông thường tôi làm thủ công bằng cách copy -dán code hoặc các sheet dữ liệu nay muốn tạo 1 nút tự động làm việc đó chẳng biết có ổn không,nhờ các cao thủ có phương pháp gì hay mách giúp
Cám ơn nhiều