CHÈN CÔNG THỨC TỪ VBA

[bth8320]

Dear cả nhà,

Mình gặp vấn đề này khi muốn chèn công thức vào 1 ô trong excel.
Công thức mình muốn chèn là MATCH(tgl, A1:A1000,0)
Trong đó tgl là các text mình sẽ thay đổi theo code trong vba.

Dưới đây là cách mình viết, nhưng VBA báo lỗi.
Vấn đề hình như nằm ở chỗ mình đặt : tgl không đúng, thiếu các ký tự cần thiết,....

Trong đoạn code dươi thì hàm hiển thị trên excel mong muốn của mình là: MATCH("-BLANK-", A1:A1000,0)

With Target
tlg = "-BLANK-"
.Formula = "=MATCH(" & tlg & "," & pLink & ",0)"
.Value = .Value
End With

Nhờ cả nhà tư vấn giúp cách sửa đoạn trên sao cho đúng.

Trân trọng.

 

[Phuocam]

.Formula = "=MATCH(" & tlg & "," & pLink & ",0)"

pLink là gì? Code đầy đủ của bạn là gì?
.

 

[bth8320]

Dạ, đầy đủ là thế này ạ,
Trong đó pLink là đường dẫn để lấy dữ liệu trong 1 file excel đang đóng khác.
File này mình mong muốn không dùng phương thức open rồi sau đó close.


Sub GetData(sPatch As String, sFile As String, sSheet As String, sAddr As String, Target As Range)
Dim pLink As String

pLink = "'" & sPatch & "[" & sFile & "]" & sSheet & "'!" & sAddr
With Target
tlg = "-BLANK-"
.Formula = "=MATCH(" & tlg & "," & pLink & ",0)"
.Value = .Value
End With
End Sub

 

[Phuocam]

Dạ, đầy đủ là thế này ạ,
Trong đó pLink là đường dẫn để lấy dữ liệu trong 1 file excel đang đóng khác.
File này mình mong muốn không dùng phương thức open rồi sau đó close.


Sub GetData(sPatch As String, sFile As String, sSheet As String, sAddr As String, Target As Range)
Dim pLink As String

pLink = "'" & sPatch & "[" & sFile & "]" & sSheet & "'!" & sAddr
With Target
tlg = "-BLANK-"
.Formula = "=MATCH(" & tlg & "," & pLink & ",0)"
.Value = .Value
End With
End Sub

Có thể tải luôn file lên không?
.

 

[befaint]

VBA báo lỗi.

Báo lỗi như thế nào? Chụp hình, chép cái báo lỗi đó lên đây.

Sub GetData(sPatch As String, sFile As String, sSheet As String, sAddr As String, Target As Range)

Chép cái đoạn vận dụng sub này lên đây.

msgbox pLink
xem cái pừ linh đã đúng chửa?

 

[bth8320]

Dưới đây là tập file đính kèm.
Đoạn code trên chỉ là 1 sub để là nhiệm vụ tìm vị trí của "-BLANK-" trong các file đang đóng.
Còn các nhiệm vụ khác thì mình chưa gặp vấn đề.

Trong sub này:

Sub GetData(sPatch As String, sFile As String, sSheet As String, sAddr As String, Target As Range)
Dim pLink As String

pLink = "'" & sPatch & "[" & sFile & "]" & sSheet & "'!" & sAddr
With Target
.Formula = "=MATCH(""-BLANK-""," & pLink & ",0)"
.Value = .Value
End With
End Sub

Các thông số không có gì sai cả,
Đoạn sub trên mình đã thay "-BLANK-" vào thẳng trong sub thì nó chạy bình thường
Nhưng vì mục đích mình muốn tìm vị trí của các thông tin mình cần khác trên các file đang đóng mà không muốn copy nhiều sub và thay tên nên trong đoạn này:

.Formula = "=MATCH(""-BLANK-""," & pLink & ",0)"

Mình thêm : tlg = "-BLANK-"
để đổi thành: .Formula = "=MATCH(" & tlg & "," & pLink & ",0)"
Nhưng cách viết trong đoạn trên bị sai nên sub bị lỗi.




Chi tiết xin xem file đính kèm.

 

[Maika8008]

Chỗ này nè: " & tlg & "
Thay bằng: """ & tlg & """

Bao thiếu dấu nháy

 

[bth8320]

Thank, anh @Maika8008 nhiều,