gán công thưc bằng vba (1 người xem)

[babygirl_8990]

Chào anh/chị, em muốn gán công thức như vậy vào 1 ô cố định nào đó : =VLOOKUP(IF(C21=0,D21&"T"&" x "&E21&"W"&" x "&F21&"L",C21&"φ"&" x "&D21&"T"&" x "&F21&"L"),DATA!$B$238:$V$461,21,0) rồi filldown xuống tới dong cuối thì làm thế nào ạ
Cảm ơn ạ!

 

[Maika8008]

Chào anh/chị, em muốn gán công thức như vậy vào 1 ô cố định nào đó : =VLOOKUP(IF(C21=0,D21&"T"&" x "&E21&"W"&" x "&F21&"L",C21&"φ"&" x "&D21&"T"&" x "&F21&"L"),DATA!$B$238:$V$461,21,0) rồi filldown xuống tới dong cuối thì làm thế nào ạ
Cảm ơn ạ!

Range("ô cố định nào đó").Formula = "=VLOOKUP(IF(C21=0,D21&""T""&"" x ""&E21&""W""&"" x ""&F21&""L"",C21&""f""&"" x ""&D21&""T""&"" x ""&F21&""L""),DATA!$B$238:$V$461,21,0)"

Còn không biết dòng cuối ở đâu, bạn tự làm nhé

 

[htin1997]

Copy công thức

Chào anh/chị, em muốn gán công thức như vậy vào 1 ô cố định nào đó : =VLOOKUP(IF(C21=0,D21&"T"&" x "&E21&"W"&" x "&F21&"L",C21&"φ"&" x "&D21&"T"&" x "&F21&"L"),DATA!$B$238:$V$461,21,0) rồi filldown xuống tới dong cuối thì làm thế nào ạ
Cảm ơn ạ!

Copy công thức, xong Record Macro rồi chọn vùng cần dán, nhấn F2 rồi dán công thức vào Ctrl+Enter rồi Stop Record, vào Module lấy Code

 

[Maika8008]

Copy công thức

Copy công thức, xong Record Macro rồi chọn vùng cần dán, nhấn F2 rồi dán công thức vào Ctrl+Enter rồi Stop Record, vào Module lấy Code

Làm như cách bạn nói thì nó sẽ điền công thức dạng FormulaR1C1, rối nùi luôn

 

[huynhphucduy71]

Application.WorksheetFunction.VLookup(codehere)
hoặc
mình có đoạn này bạn xem rồi sửa theo ý bạn nha
Sheet5.Range("N2").Formula = "=IF(L2<>0,I2+QUOTIENT(L2,I2)*I2,0)"
Range("J2:N2").Select
Selection.AutoFill Destination:=Range("J2:N" & end_rowsheet5)

 

[htin1997]

Làm như cách bạn nói thì nó sẽ điền công thức dạng FormulaR1C1, rối nùi luôn

trong Cells của bạn vẫn dạng A1 mà, chỉnh sửa gì thì record lại