giúp thực hiện phép tính (1 người xem)

[hoangtung211286]

hiện mình đang cần thực hiện phép tính sau dấu cộng trong cùng ô Excel: ví dụ như
2*2,2*1,6*18*1,1= 139.392
1,5*1,5*1,6*8*1,1= 31.68
1,5*1,7*1,6*6*1,1= 26.928

và sau đó tỉnh tổng các phép tính lại với nhau bàng một câu lệnh, mọi người giúp mình với

 

[Comet297]

Mình không biết lập trình dùng công thức được không bạn?

Đặt chuột tại ô E9

Bạn đặt name:
tinh=EVALUATE(SUBSTITUTE(LEFT(Sheet1!D9,FIND("=",Sheet1!D9)-1),",",MID(1/2,2,1)))

Tại E9 gõ =tinh

 

[hoangtung211286]

bạn giải thích cặn kẽ hơn đi, mình đặt name ở đâu, và trong chỗ nào vậy bạn

 

[vanle33]

hiện mình đang cần thực hiện phép tính sau dấu cộng trong cùng ô Excel: ví dụ như
2*2,2*1,6*18*1,1= 139.392
1,5*1,5*1,6*8*1,1= 31.68
1,5*1,7*1,6*6*1,1= 26.928

và sau đó tỉnh tổng các phép tính lại với nhau bàng một câu lệnh, mọi người giúp mình với

Chỉ đơn giản như hình tôi up ở dưới là giải quyết được vấn đề của bạn.
Muốn hiện của sổ quản lý Name thì nhấn Ctrl+F3

 

[hoangtung211286]

cảm ơn bài giải của bạn, nhưng mình hỏi là, trong cùng một ô, khi mình thực hiện phép tính, sau đó, chỉ cần bấm dấu bằng và enter thì có luôn kết quả phép tính đó, chứ còn cái bạn giải giúp mình làm được bạn ah,

 

[vanle33]

cảm ơn bài giải của bạn, nhưng mình hỏi là, trong cùng một ô, khi mình thực hiện phép tính, sau đó, chỉ cần bấm dấu bằng và enter thì có luôn kết quả phép tính đó, chứ còn cái bạn giải giúp mình làm được bạn ah,

Muốn ấn dấu = là ra kết quả rồi tự cộng tổng lên E7?. E rằng chắc chắn phải sử dụng VBA. Bạn có muốn dùng cách tôi nói không?

 

[hoangtung211286]

mình cũng định nhờ mọi người viết giúp đoạn code tính luôn đó, tại thấy ba mình vất vả tính bằng tay quá,
trong bảng tính mình gửi lên, mình cần kết quả trong ô ( kết quả màu đỏ) bằng cách bấm dấu bằng "=" rồi ENTER, sau đó tính tổng với những kết quả đó ( ô có chữ màu xanh), nhờ mọi người giúp nha

 

[hoangtung211286]

VỚI CÂU HỎI MÌNH MÌNH ĐĂNG, MÌNH CÓ ĐOẠN CODE NÀY


Function TongKL(sRg As Range) As Double
For Each Cell In sRg
If IsNumeric(Right(Cell.Value, 1)) And InStr(Cell, "=") Then
KL = Right(Cell.Value, Len(Cell.Value) - InStr(Cell.Value, "=") - 1)
TongKL = TongKL + KL
End If
Next
End Function

TUY NHIÊN, MÌNH CHỈ CHẠY ĐƯỢC "TongKL" THÔI, CÒN KẾT QUẢ TRONG CÙNG MỘT Ô THÌ VẪN CHƯA CHẠY
BẠN CÓ THỂ GIÚP MÌNH NHA

 

[duongcga]

chắc cái này bạn phải dùng VBA thôi. Tạo 1 stack phân tích và chuyển đổi phép tính từ trung tố sang tiền tố hoặc hậu tố rồi tính kết quả. Nhiều kiến thức và nhiều code đấy.

 

[ec ec]

VỚI CÂU HỎI MÌNH MÌNH ĐĂNG, MÌNH CÓ ĐOẠN CODE NÀYFunction TongKL(sRg As Range) As DoubleFor Each Cell In sRgIf IsNumeric(Right(Cell.Value, 1)) And InStr(Cell, "=") ThenKL = Right(Cell.Value, Len(Cell.Value) - InStr(Cell.Value, "=") - 1)TongKL = TongKL + KLEnd IfNextEnd FunctionTUY NHIÊN, MÌNH CHỈ CHẠY ĐƯỢC "TongKL" THÔI, CÒN KẾT QUẢ TRONG CÙNG MỘT Ô THÌ VẪN CHƯA CHẠYBẠN CÓ THỂ GIÚP MÌNH NHA

Ôi may quá, tôi đang cần cái "hàm" TongKL của bạn, tiện đây tôi cũng biếu bạn cái "hàm không răng" có thể giải quyết vấn đề của bạn

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Cell As Range)t = Trim(Cell)If Cell.Count = 1 And Right(t, 1) = "=" Then _Cell = t & Replace(Evaluate(Replace(Replace(t, "=", ""), ",", ".")), ",", ".")End Sub

Bạn chép đoạn code trên vào ThisWorkbook (trong cửa sổ Project) rồi tự trải nghiệm lấy