Chuyển công thức Excel thành VBA

[anhbanvuitinh9x]

Xin chào các ACE

Em có 1 vấn đề như sau cần ACE giải quyết giúp:
em muốn đặt cột F theo 1 tên là cotvlookup do có thể thay đổi cột và viết công thức vlookup tại cột B (ở cột B sẽ hiển thị công thức chứ không phải dạng Value)
Em xin chân thành cảm ơn.

 

[nguyenthuy13388]

Xin chào các ACE

Em có 1 vấn đề như sau cần ACE giải quyết giúp:
em muốn đặt cột F theo 1 tên là cotvlookup do có thể thay đổi cột và viết công thức vlookup tại cột B (ở cột B sẽ hiển thị công thức chứ không phải dạng Value)
Em xin chân thành cảm ơn.

Range("B1:B6").Formula = "=VLOOKUP(RC[-1],R1C6:R6C7,2,0)"

 

[anhbanvuitinh9x]

Range("B1:B6").Formula = "=VLOOKUP(RC[-1],R1C6:R6C7,2,0)"

Thanks bác. nhưng ý em là trong khi viết thì mình thay cái cột r1c6:r6c7 sẽ được thay bằng name là cotvlookup bác ak.

 

[nguyenthuy13388]

Cảm ơn bác. nhưng ý em là trong khi viết thì mình thay cái cột r1c6:r6c7 sẽ được thay bằng name là cotvlookup bác ak.

bạn thử code dưới xem

ActiveWorkbook.Names.Add Name:="cotvlookup", RefersToR1C1:="=Sheet1!R1C6:R6C7"
Range("B1:B6").Formula = "=VLOOKUP(RC[-1]," & "cotvlookup" & ",2,0)"