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

Liên hệ QC

duong22000

Thành viên thường trực
Tham gia
8/5/13
Bài viết
322
Được thích
23
Em có 2 sheet là: sheet1 ("Data") và sheet2 ("DL");
Tại ô C3 của sheet2 ("DL") em có công thức
Mã:
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"))
 
Em có 2 sheet là: sheet1 ("Data") và sheet2 ("DL");
Tại ô C3 của sheet2 ("DL") em có công thức
Mã:
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 ý
 
Upvote 0
Để cho chắc ăn thì nên thêm 2 dấu nháy đơn vào đầu và cuối tên sheet.
 
Upvote 0
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:

Để 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 ạ !
 
Upvote 0
Web KT
Back
Top Bottom