Hỏi về paste công thức (1 người xem)

[vova2209]

Em có 1 code công thức ghi được từ Macro
giờ em muốn gán đoạn công thức dưới vào 1 ô bất kì thì phải sửa như nào ạ. Em xin cảm ơn
Sub CTPhanDoanKL()
Range("BA1").Formula = "=LOOKUP(R15C4,'TH-K95'!C3,'TH-K95'!C1)"
End Sub

 

[giaiphap]

Em có 1 code công thức ghi được từ Macro
giờ em muốn gán đoạn công thức dưới vào 1 ô bất kì thì phải sửa như nào ạ. Em xin cảm ơn
Sub CTPhanDoanKL()
Range("BA1").Formula = "=LOOKUP(R15C4,'TH-K95'!C3,'TH-K95'!C1)"
End Sub

Thì sửa chổ màu đỏ thành địa chỉ của ô cần gán.

 

[vova2209]

Thì sửa chổ màu đỏ thành địa chỉ của ô cần gán.

ý em muốn gán công thức vào ô bất kì chứ không phải chỉ định

 

[giaiphap]

ý em muốn gán công thức vào ô bất kì chứ không phải chỉ định

Ô bất kỳ là sao? ô đang chọn hay ô tôi chọn, hay vùng đang chọn hay đứng ô này mà gán công thức cho ô kia (ô kia là ô nào? làm cách nào để xác định ô đó).

 

[vova2209]

Nghĩa là: trên bảng tính chuột chỉ vào 1 ô excell và chạy code thì công thức được chèn vào ô đấy!

Ô bất kỳ là sao? ô đang chọn hay ô tôi chọn, hay vùng đang chọn hay đứng ô này mà gán công thức cho ô kia (ô kia là ô nào? làm cách nào để xác định ô đó).

 

[giaiphap]

ý em muốn gán công thức vào ô bất kì chứ không phải chỉ định

Vậy sửa lại thế này.

Sub CTPhanDoanKL()
ActiveCell.Formula = "=LOOKUP(R15C4,'TH-K95'!C3,'TH-K95'!C1)"
End Sub

 

[vova2209]

Vậy sửa lại thế này.

Sub CTPhanDoanKL()
ActiveCell.Formula = "=LOOKUP(R15C4,'TH-K95'!C3,'TH-K95'!C1)"
End Sub

Vâng! đúng như ý em yêu cầu rồi ạ.. em xin cảm ơn! chúc anh 1 ngày vui vẻ