[Help] exel tự thêm @ vào câu lệnh khi dùng VBA

[khangtruc51]

Hi các Master exel, mình có 1 vấn đề nhờ các cao nhân hỗ trợ.

khi nhập lệnh trên exel thì ok, nhưng khi gán câu lệnh đó vào vba thì nó tự thêm @ cho câu lệnh đó

Sub LOC_DATA()
Dim rngDataAndHeader, rngData, rngCriteria As Range
Dim Cellstep, Count, FName, Name, Year, price As String
Application.ScreenUpdating = False
Sheet1.Activate
Range("M:Z").Delete Shift:=xlUp
With sh
Count = Range("I1").Value

For i = 2 To Count
FName = Cells(i + 1, 7).Value
Name = Cells(i + 1, 8).Value
Step = 4
Cells(1, Step * i + 6).Value = FName
Cells(1, Step * i + 7).Value = "Price"
Cells(1, Step * i + 8).Value = "Date"
Range(Cells(1, Step * i + 6), Cells(10, Step * i + 8)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "Tb_" & Name
Cells(2, Step * i + 6).Value = "=IFERROR(INDEX(Table1[MS],SMALL(IF(TB_" & Name & "[[#Headers],[" & FName & "]]=Table1[Name],MATCH(ROW(Table1[MS]),ROW(Table1[MS])),""""),ROWS($A$1:$A1))),""---"")"
Cells(2, Step * i + 7).Value = "=IFERROR(VLOOKUP([@[" & FName & "]],Table1[#All],3,FALSE),""---"")"
Cells(2, Step * i + 8).Value = "=IFERROR(VLOOKUP([@[" & FName & "]],Table1[#All],4,FALSE),""---"")"
Next i
End With
End Sub

 

[Hoàng Tuấn 868]

Hi các Master exel, mình có 1 vấn đề nhờ các cao nhân hỗ trợ.
View attachment 283243
khi nhập lệnh trên exel thì ok, nhưng khi gán câu lệnh đó vào vba thì nó tự thêm @ cho câu lệnh đó

Thử tham khảo tại đây.

 

[VetMini]

Muốn tâng bốc thì tâng cho có trình độ.

Đẳng cấp của mình là gu ru. Gọi mắt to cao nhơn chưa xứng. Hỏng thèm làm.