Em cần giúp để diễn giải như trong hình, cảm ơn mọi người rất nhiều

[truongduc10]

Vấn đề của em là muốn tính trực tiếp phép tính như ô D7, chỉ cần nhập phép tính rồi ra kết quả
- Nhập dữ liệu ở ô D7: (1*2+(1+3)*(2+4)+3*4)*5*1/6
- Enter
- Ô D7 trả kết quả: (1*2+(1+3)*(2+4)+3*4)*5*1/6 = 31,6667
Mong được mọi người trong diễn đàn giúp đỡ ạ

 

[Hoàng Tuấn 868]

Số liệu của em khá nhiều nên để nhập thủ công thì rất lâu, mong các bro có bí quyết gì hướng dẫn mình với ạ

Bạn nên gửi file lên và nói rõ kết quả mong muốn, chứ gửi hình chỉ ngắm cho vui thôi. (bro là gì hả bạn?)

 

[truongduc10]

Bạn nên gửi file lên và nói rõ kết quả mong muốn, chứ gửi hình chỉ ngắm cho vui thôi. (bro là gì hả bạn?)

anh ơi em sửa lại vấn đề rồi, anh xem có hiểu không ạ?
(em không có file)

 

[Hoàng Tuấn 868]

anh ơi em sửa lại vấn đề rồi, anh xem có hiểu không ạ?
(em không có file)

Bạn xem thử nhé.

 

[VetMini]

Bạn nên gửi file lên và nói rõ kết quả mong muốn, chứ gửi hình chỉ ngắm cho vui thôi. (bro là gì hả bạn?)

bờ-rô tương đương với tiếng giang hồ đời Tống: huynh đệ.
Trong quyển dịch Thuỷ Hử ở SG (thời khoảng thập niên 60's, xin lỗi tôi quên mất tên dịch giả) thì người dịch dùng "người anh em", và có chú rằng:
Đây là cách gọi giang hồ, người nói không muốn gọi (tôn) người kia là "anh/huynh" nhưng cũng không dám gọi là "đệ/em".
Vì vậy, ngay trong căn bản, nó đã là suồng xả, kém kịch sự giao tiếp.

Đối với tiếng Tây, đây là cách nói chuyện của dân Mỹ gốc Phi. Với tính chất "không tôn trọng cũng không khinh khi", nó được giới trẻ hâm mộ và bắt chước (không riêng gì VN, mà cả toàn cầu). Chỉ là ngừoi bắt chước không chịu khó tìm hiểu nguồn gốc cho nên dùng bừa bãi mà quên mất điểm "kém lịch sự" của nó.

 

[Phụ Hồ Lên Phú Hộ]

bờ-rô tương đương với tiếng giang hồ đời Tống: huynh đệ.
Trong quyển dịch Thuỷ Hử ở SG (thời khoảng thập niên 60's, xin lỗi tôi quên mất tên dịch giả) thì người dịch dùng "người anh em", và có chú rằng:
Đây là cách gọi giang hồ, người nói không muốn gọi (tôn) người kia là "anh/huynh" nhưng cũng không dám gọi là "đệ/em".
Vì vậy, ngay trong căn bản, nó đã là suồng xả, kém kịch sự giao tiếp.

Đối với tiếng Tây, đây là cách nói chuyện của dân Mỹ gốc Phi. Với tính chất "không tôn trọng cũng không khinh khi", nó được giới trẻ hâm mộ và bắt chước (không riêng gì VN, mà cả toàn cầu). Chỉ là ngừoi bắt chước không chịu khó tìm hiểu nguồn gốc cho nên dùng bừa bãi mà quên mất điểm "kém lịch sự" của nó.

Mình nghĩ ông chủ topic này bắt chước sai, mình nghĩ là chữ professional quá

 

[truongduc10]

Mình nghĩ ông chủ topic này bắt chước sai, mình nghĩ là chữ professional quá

Dạ lúc đầu là em viết sai, anh @hoang Tuan 868 cũng nhắc em rồi ạ. Mong mọi người thông cảm nhé

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

Bạn xem thử nhé.

Em tải về nhưng vẫn là hàm tính toán bình thường anh ạ. Em muốn diễn giải phép tính luôn, nhưng vẫn cảm ơn anh đã giúp đỡ ạ <3

 

[Hoàng Tuấn 868]

Em tải về nhưng vẫn là hàm tính toán bình thường anh ạ. Em muốn diễn giải phép tính luôn, nhưng vẫn cảm ơn anh đã giúp đỡ ạ <3

Bạn tải lại bài #4 đi.

 

[Phụ Hồ Lên Phú Hộ]

Bạn tải lại bài #4 đi.

Theo tôi thấy cái yệu cầu của chủ top thì phải dùng vba, còn nếu gõ vào c7 thì d7 tính toán thì phải dùng hàm Eval quá

 

[VetMini]

Nếu từ D7 sang ô khác, ví dụ E7, thì có thể dùng hàm Evaluate
Nếu muốn thực hiện thay đổi trực tiếp trên D7 thì bắt buộc phải dùng bẫy sự kiện (Worksheet_Change) ở ô D7.

 

[chisinhvnn]

View attachment 255036
View attachment 255034
Vấn đề của em là muốn tính trực tiếp phép tính như ô D7, chỉ cần nhập phép tính rồi ra kết quả
- Nhập dữ liệu ở ô D7: (1*2+(1+3)*(2+4)+3*4)*5*1/6
- Enter
- Ô D7 trả kết quả: (1*2+(1+3)*(2+4)+3*4)*5*1/6 = 31,6667
Mong được mọi người trong diễn đàn giúp đỡ ạ

Theo mình bạn nên lập cột phụ ra à

Nếu từ D7 sang ô khác, ví dụ E7, thì có thể dùng hàm Evaluate
Nếu muốn thực hiện thay đổi trực tiếp trên D7 thì bắt buộc phải dùng bẫy sự kiện (Worksheet_Change) ở ô D7.

anh code giúp em cái ví dụ với.

 

[VetMini]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("D7")) Is Nothing) Then
Application.EnableEvents = False
If InStr(Target, "=") = 0 Then
On Error GoTo LoiTumLum
Target = Target & " = " & Evaluate(Target.Value)
End If
Application.EnableEvents = True
End If
Exit Sub
LoiTumLum:
MsgBox "Your data ain't no good"
Application.EnableEvents = True
End Sub