Xin giúp đỡ lỗi do Hyperlinks gây ra

[transongngocquan]

Tôi sử dụng Excel 2007, tôi có đoạn code như sau:

Sub Test()
Dim ws As Worksheet
Dim Rg1 As Range
Dim Rg2 As Range

FullFile = ThisWorkbook.FullName
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set Rg1 = ws.Range("E2,F2")

ws.Range("A3").Select
ws.Hyperlinks.Add Anchor:=Selection, Address:=FullFile, TextToDisplay:=FullFile

Set Rg2 = ws.Range("E2,F2")

End Sub

khi chưa tạo Hyperlinks thì ta Set Rg1 = ws.Range("E2,F2") không báo lỗi
nhưng khi đã tạo Hyperlinks thì ta Set Rg2 = ws.Range("E2,F2") thì báo lỗi: run-time error '1004' method 'range' of object '_worksheet' failed

Xin giúp đỡ cách khắc phục lỗi này

 

[ndu96081631]

Tôi sử dụng Excel 2007, tôi có đoạn code như sau:

Sub Test()
Dim ws As Worksheet
Dim Rg1 As Range
Dim Rg2 As Range

FullFile = ThisWorkbook.FullName
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set Rg1 = ws.Range("E2,F2")

ws.Range("A3").Select
ws.Hyperlinks.Add Anchor:=Selection, Address:=FullFile, TextToDisplay:=FullFile

Set Rg2 = ws.Range("E2,F2")

End Sub

khi chưa tạo Hyperlinks thì ta Set Rg1 = ws.Range("E2,F2") không báo lỗi
nhưng khi đã tạo Hyperlinks thì ta Set Rg2 = ws.Range("E2,F2") thì báo lỗi: run-time error '1004' method 'range' of object '_worksheet' failed

Xin giúp đỡ cách khắc phục lỗi này

Muốn biết chi tiết thế nào, có lẽ bạn phải cho file lên đây, vì với code trên tôi test chẳng thấy lỗi nào cả (dù chạy code nhiều lần)
Chỉ thắc mắc: Lý nào bạn tạo Hyperlink với chính file hiện hành sao?

 

[transongngocquan]

Hyperlink với chính file hiện hành là chỉ ví dụ thôi, để code có thể chạy, nó báo lỗi run-time error '1004' method 'range' of object '_worksheet' failed

 

[ndu96081631]

Hyperlink với chính file hiện hành là chỉ ví dụ thôi, để code có thể chạy, nó báo lỗi run-time error '1004' method 'range' of object '_worksheet' failed

Tôi thử code hổng có bất cứ lỗi nào, vì thế nên mới cần file của bạn.. vì biết đâu có nguyên nhân nào khác mà bạn chưa phát hiện

 

[transongngocquan]

Tôi biết tại sao rồi Excel 2007 của tôi chạy bị lỗi, tôi đem qua máy có Excel 2003 không bị lỗi, vậy là sao ?
vậy là cái bản Excel 2007 của tôi bị lỗi. Thật kỳ lạ ?

 

[transongngocquan]

Tôi hiểu rồi bản Office 2007 của tôi bị lỗi. Nó là bản Office Enterprise 2007 nên bị lỗi