Cần giúp rút gọn biểu thức trong Code thông qua một biến t (Để cho dễ nhìn khi tính) (1 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có đoạn Code như sau:

ActiveCell = "=RC1 - RC2 + RC3 - RC4 - RC5 + RC6 - RC7 - RC8"

=> Vấn đề được đặt ra ở đây là: Tôi muốn rút gọn biểu thức ở Code trên thành như thế này:

t = RC1 - RC2 + RC3 - RC4- RC5 + RC6- RC7 - RC8
ActiveCell = "=t"

=> Không biết là có được không?
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!

 

[dhn46]

Các bước bạn cần làm là:

1/ Record Macro để tạo Name "t" với công thức tương ứng
2/ Record Macro để gán t vào Cell (=t)
3/ Edit lại macro cho đẹp

 

[SA_DQ]

Macro của bạn sau khi chạy sẽ bị báo lỗi tham chiếu "vòng"

Bạn tham khảo cái này, chỉ là ghi trị chứ chưa thê ghi công thức

Option Explicit

Sub ThuNghiem()
 Dim J As Byte, W As Byte, Tg As Double

 For J = 2 To 5
    For W = 2 To 10
        Tg = Tg + (-1) ^ W * Cells(J, "A").Offset(, W).Value
    Next W
    Cells(J, "A") = Tg
 Next J
End Sub