Hỏi về gán công thức (có dấu ') Excel vào 1 ô bằng VBA

[halumglass]

Mình có 2 công thức
=INDIRECT("'"&B3&"'!A1")
=IF(MID(FORMULATEXT(C5),2,1)="'",MID(FORMULATEXT(C5),3,FIND("!",FORMULATEXT(C5),1)-4),MID(FORMULATEXT(C5),2,FIND("!",FORMULATEXT(C5),1)-2))
Mình muốn gán công thức đó vào cột A trên VBA mình viết như sau
Sheet240.Range("A" & LR).Value = "=INDIRECT(""'" & "&B3&" & "'!A1"")"
Nhưng kết quả không được mong muốn như sau =INDIRECT("'&B3&'!A1") (thiếu 2 dấu nháy đôi)
Mong mọi người chỉ giúp mình với

 

[Hoàng Trọng Nghĩa]

Mình có 2 công thức
=INDIRECT("'"&B3&"'!A1")
=IF(MID(FORMULATEXT(C5),2,1)="'",MID(FORMULATEXT(C5),3,FIND("!",FORMULATEXT(C5),1)-4),MID(FORMULATEXT(C5),2,FIND("!",FORMULATEXT(C5),1)-2))
Mình muốn gán công thức đó vào cột A trên VBA mình viết như sau
Sheet240.Range("A" & LR).Value = "=INDIRECT(""'" & "&B3&" & "'!A1"")"
Nhưng kết quả không được mong muốn như sau =INDIRECT("'&B3&'!A1") (thiếu 2 dấu nháy đôi)
Mong mọi người chỉ giúp mình với

Bạn cứ làm công thức xong quay macro lại.

 

[ptm0412]

Công thức thứ nhất:
[C3].formula = "=INDIRECT(""'""&B3&" & """'!""&""A1"")"