Xử lý công thức có Wooksheet trong đoạn code VBA được ghi bằng Macro

[duong22000]

Em có 2 sheet là: sheet1 ("Data") và sheet2 ("DL");
Tại ô C3 của sheet2 ("DL") em có công thức

Range ("C3"). FormulaR1C1 = "= IF (Data! R [-1] C [-1] =" "" "," "" ", Data! R [-1] C [2])"

Vì khi người dùng đổi tên sheet1("Data") thì công thức trên lại bị lỗi không nhận giá trị nên em muốn cố định sheet này. Mục đích là khi người dùng thay đối tên sheet thì đoạn code trên vẫn lấy được giá trị của sheet đó ( cụ thể Data! R [-1] C [-1] phải thay đổi như thế nào để dữ liệu vẫn không bị lỗi khi đổi sheet("Data") thành sheet("tên khác"))

 

[HieuCD]

Em có 2 sheet là: sheet1 ("Data") và sheet2 ("DL");
Tại ô C3 của sheet2 ("DL") em có công thức

Range ("C3"). FormulaR1C1 = "= IF (Data! R [-1] C [-1] =" "" "," "" ", Data! R [-1] C [2])"

Vì khi người dùng đổi tên sheet1("Data") thì công thức trên lại bị lỗi không nhận giá trị nên em muốn cố định sheet này. Mục đích là khi người dùng thay đối tên sheet thì đoạn code trên vẫn lấy được giá trị của sheet đó ( cụ thể Data! R [-1] C [-1] phải thay đổi như thế nào để dữ liệu vẫn không bị lỗi khi đổi sheet("Data") thành sheet("tên khác"))

Range("C3").FormulaR1C1 = "= IF(" & Sheet1.Name & "!R[-1]C[-1] ="""",""""," & Sheet1.Name & "!R[-1]C[2])"
Chỉnh Sheet1 thành Sheet2 hoặc Sheet3 đến khi vừa ý

 

[huuthang_bd]

Để cho chắc ăn thì nên thêm 2 dấu nháy đơn vào đầu và cuối tên sheet.

 

[duong22000]

Range("C3").FormulaR1C1 = "= IF(" & Sheet1.Name & "!R[-1]C[-1] ="""",""""," & Sheet1.Name & "!R[-1]C[2])"
Chỉnh Sheet1 thành Sheet2 hoặc Sheet3 đến khi vừa ý

Em cảm ơn bác đã hướng dẫn ạ !

Bài đã được tự động gộp: 23/1/21

Để cho chắc ăn thì nên thêm 2 dấu nháy đơn vào đầu và cuối tên sheet.

Em xin cảm ơn ạ !

 

[duong22000]

&

Bài đã được tự động gộp: 23/1/21

Em đã chạy thử thành công, em cảm ơn các bác ạ !