Tạo msgbox thông báo nhắc nhở tự động mở thêm file

[vanthi1991]

Xin chào các anh !
Cái code này bị lỗi ở dòng màu đỏ không chạy được, em nhờ các anh xem sửa chửa giúp code chạy gọn nhẹ hay hơn. Em rất cám ơn ạ.

Sub sheet5_phantram()
If Not Windows("BANG2.xls") Then
   Dim testmsg As Integer
    testmsg = MsgBox("BANG2 chua mo ban muon mo không ? ", 1, "Thông Báo")
           If testmsg = 1 Then
           ChDir "C:\Users\User\Desktop"
           Workbooks.Open Filename:="C:\Users\User\Desktop\ BANG2.xls"
           Windows.Arrange ArrangeStyle:=xlVertical
           Application.Goto Workbooks("BANG2.xls").Sheets("5%").Range("B15:B18")
           End If
    Else
          Application.Goto Workbooks("BANG2.xls").Sheets("5%").Range("B15:B18")
    End If
End Sub

Lỗi code xảy ra khi click nút macro 5% màu xanh lơ ở sheet1 file BANG1 (trong tình huống file BANG2 chưa mở tức chưa hiện diện trên excel ) -- > hiện thông báo lỗi

click nút Debug hiện lỗi



Ý em muốn là khi click nút macro 5% màu xanh lơ ở sheet1 file BANG1-- > chạy sub trên -- > vùng ô B15:B18 ở sheet 5% của file BANG2 được chọn và hiển thị trên excel

Cụ thể: tại file BANG1 sheet1 -- > click nút 5% -- > chạy sub sheet5_phantram -- > sẻ gặp 2 trường hợp:

1. Nếu file BANG2 đang mở -- > vùng ô B15:B18 ở sheet 5% của file BANG2 được chọn và hiển thị trên nền excel ngay.

2. Nếu file BANG2 chưa mở -- > hiện thông báo nhắc nhở:



dĩ nhiên muốn mở --> Click nút OK -- > file BANG2 tự động mở -- > vùng ô B15:B18 ở sheet 5% của file BANG2 được chọn và hiển thị trên nền excel.

Em tìm trên google mấy ngày rồi vẫn chưa thấy bài viết nào có thể áp dụng cho trường hợp của em cã.
Một lần nữa em rất mong các anh xem và giúp em.

View more random threads:

• Tổng hợp số lượng
• Kiểm tra hiệu quả công việc
• bạn nào làm giúp mình mấy bài excel này với ạ
• Cho hiển thị các sản phẩm còn lại trong cùng một đơn hàng
• Lỗi không chạy được Macro file xlsm trong Excel 2007
• Xin mọi người giúp em về việc truy xuất dữ liệu từ sheet này sang sheet khác tự động
• Nút lệnh
• Cho em xin chương trình quản lí lớp học về nghi học không phép, có phép, vi phạm,...
• ai có thể viết công thức hoặc code giúp em
• Quản lý chi tiêu thẻ tín dụng

[phucthinhlv]

Sao không có ai trợ giúp em thế nhỉ ? Yêu cầu trợ giúp mô tả rất rỏ ràng rồi. Nói thật gọn lại là em cần code thực hiện lệnh Link từ file BANG1 đến BANG2 khi cả hai file BANG1 và BANG2 cùng Open sẵn, và khi chỉ có file BANG1 Open thôi. Nhân tài GPE rất nhiều xin các anh dành chút thời gian quý báo giúp em nhe ? Em cám ơn rất nhiều.

[thanh_k8_cntt]

tham khảo cái này, bạn sẽ biết cách ứng dụng và tìm ra cái sai trong code của bạn

Function BookOpen(strBookName As String) As Boolean    Dim oBk As Workbook    On Error Resume Next    Set oBk = Workbooks(strBookName)    On Error GoTo 0    If oBk Is Nothing Then        BookOpen = False    Else        BookOpen = True    End IfEnd FunctionSub testbook()    Dim strBookName As String    strBookName = "myWork.xls"    If BookOpen(strBookName) Then        MsgBox strBookName & " is open", vbOKOnly + vbInformation    Else        MsgBox strBookName & " is NOT open", vbOKOnly + vbExclamation    End IfEnd Sub  

[lythuha92]

[QUOTE="giola"]tham khảo cái này, bạn sẽ biết cách ứng dụng và tìm ra cái sai trong code của bạn

Sub sheet5_phantram()
    On Error Resume Next
             Workbooks.Open Filename:="C:\Users\user\Desktop\BANG2.xls"
             Application.Goto Workbooks("BANG2.xls").Sheets("5%").Range("B15:B18")
             Windows.Arrange ArrangeStyle:=xlVertical
End Sub