core em chỉ chạy khi màn hình đang hoạt động ở sheet1 còn khi màn hình ở sheet khác thì báo lỗi.

[huongtinh1929]

core em chỉ chạy khi màn hình đang hoạt động ở sheet1 còn khi ở sheet khác thì báo lỗi. Em nhờ các bác chỉnh dùm core em sao cho khi chạy core khi màn hình đang hoạt động ở sheet bất kỳ nào cũng chạy. Em cảm ơn các bác...

Sub mofile()
Sheet1.Shapes.Range(Array("Object 1")).Select
Selection.Verb Verb:=xlPrimary
End Sub

 

[be_09]

core em chỉ chạy khi màn hình đang hoạt động ở sheet1 còn khi ở sheet khác thì báo lỗi. Em nhờ các bác chỉnh dùm core em sao cho khi chạy core khi màn hình đang hoạt động ở sheet bất kỳ nào cũng chạy. Em cảm ơn các bác...

Sub mofile()
Sheet1.Shapes.Range(Array("Object 1")).Select
Selection.Verb Verb:=xlPrimary
End Sub

Chẳng hiểu bạn muốn làm cái gì?
Nếu dùng để mở một File nào đó thì nên nghĩ cách Khác, không lẽ muốn mở 100 File thì phải tạo 100 cái Object

ActiveSheet.Shapes.Range(Array("Object 1")).Select

 

[ndu96081631]

core em chỉ chạy khi màn hình đang hoạt động ở sheet1 còn khi ở sheet khác thì báo lỗi. Em nhờ các bác chỉnh dùm core em sao cho khi chạy core khi màn hình đang hoạt động ở sheet bất kỳ nào cũng chạy. Em cảm ơn các bác...

Sub mofile()
Sheet1.Shapes.Range(Array("Object 1")).Select
Selection.Verb Verb:=xlPrimary
End Sub

Bạn không thể Select 1 object ở sheet khác được. Cụ thể nếu không ở sheet1 thì câu lệnh Sheet1.Shapes.Range(Array("Object 1")).Select sẽ bị lỗi