Hiển thị các thừa số của phép toán tại ô kết quả trong excel

[skyherobk]

Hiển thị các thừa số của phép toán tại ô kết quả trong excel, mà kết quả này vẫn dùng để tính toán được cho các phép tính sau!
VD: A1: 4, A2: 3, B1 = A1*A2 , khi enter tại ô hiển thị kết quả là B1: 4*3=12, C1: =2*B1 enter -->C1: 24
Nhờ các pro giúp mình với
Thanks

 

[bebo021999]

Giả sử nếu sau đó A1 hay A2 thay đổi (VD: A1=5) thì B1 giữ nguyên =4*3=12 hay thay đổi theo = 5*3=15
và C1 lúc này thế nào có thay đổi theo B1 không
?

 

[skyherobk]

Giả sử nếu sau đó A1 hay A2 thay đổi (VD: A1=5) thì B1 giữ nguyên =4*3=12 hay thay đổi theo = 5*3=15
và C1 lúc này thế nào có thay đổi theo B1 không
?

thay đổi theo luôn bạn và C1 cũng theo đổi theo. Vấn đề nan giải quá

 

[quoc1995db]

B1==A1&"*"&A2&"="&A1*A2
C1=VALUE(RIGHT(B1,LEN(B1)-SEARCH("=",B1,1)))*2
Bạn xem đúng ý bạn ko

 

[bebo021999]

VBA nhé.
Code này đặt trong worksheet module, mỗi khi ô A1 hoặc A2 thay đổi gía trị thì B1 và C1 thay đổi theo.
Right click tên sheet, viewcode, dán code này vô:
Save file dưới dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Range("B1").Formula = "=" & Range("A1").Value & "*" & Range("A2").Value
Range("C1").Formula = "=2*" & Range("B1").Value
End Sub

Chỉ áp dụng cho công thức cố định: B1=A1*A2, C1 = 2*B1
Nếu công thức khác đi như là: B1=A1+A2 thì code sẽ khác đi nhé, và bạn cho thêm các ví dụ , phép tính có thể có nhé.

 

[skyherobk]

VBA nhé.
Code này đặt trong worksheet module, mỗi khi ô A1 hoặc A2 thay đổi gía trị thì B1 và C1 thay đổi theo.
Right click tên sheet, viewcode, dán code này vô:
Save file dưới dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Range("B1").Formula = "=" & Range("A1").Value & "*" & Range("A2").Value
Range("C1").Formula = "=2*" & Range("B1").Value
End Sub

Chỉ áp dụng cho công thức cố định: B1=A1*A2, C1 = 2*B1
Nếu công thức khác đi như là: B1=A1+A2 thì code sẽ khác đi nhé, và bạn cho thêm các ví dụ , phép tính có thể có nhé.

cảm ơn bạn nhiều

VBA nhé.
Code này đặt trong worksheet module, mỗi khi ô A1 hoặc A2 thay đổi gía trị thì B1 và C1 thay đổi theo.
Right click tên sheet, viewcode, dán code này vô:
Save file dưới dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Range("B1").Formula = "=" & Range("A1").Value & "*" & Range("A2").Value
Range("C1").Formula = "=2*" & Range("B1").Value
End Sub

Chỉ áp dụng cho công thức cố định: B1=A1*A2, C1 = 2*B1
Nếu công thức khác đi như là: B1=A1+A2 thì code sẽ khác đi nhé, và bạn cho thêm các ví dụ , phép tính có thể có nhé.

cảm ơn bạn nhiều