Làm sao Tính toán trong 1 cell chứa cả text và công thức ví dụ:(M1: 8*4*2,2*1,2*1,22) (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

trinhvanduc1989

Thành viên mới
Tham gia
21/11/09
Bài viết
3
Được thích
0
Có ai biết giúp Em định dạng hay làm thế nào để trong một cell được như thế này:
M1: 8*4*2,2*1,2*1,22 sau đó bấm enter: sẽ có kết quả
M1: 8*4*2,2*1,2*1,22=66,993 +-+-+-++-+-+-+
 
Cái này hình như ko phải. a thử đọc lại câu hỏi của em đi.
 
Có ai biết giúp Em định dạng hay làm thế nào để trong một cell được như thế này:
M1: 8*4*2,2*1,2*1,22 sau đó bấm enter: sẽ có kết quả
M1: 8*4*2,2*1,2*1,22=66,993 +-+-+-++-+-+-+

Bạn đang post bài vào box công thức, chứng tỏ muốn giải quyết bằng công thức, đúng không?
Xin thưa là KHÔNG CÓ CÁCH NÀO cả ---> Chỉ có lập trinh mới giải quyết được thôi
 
Bạn đang post bài vào box công thức, chứng tỏ muốn giải quyết bằng công thức, đúng không?
Xin thưa là KHÔNG CÓ CÁCH NÀO cả ---> Chỉ có lập trinh mới giải quyết được thôi
Bác chắc nhớ đã làm 1 bài cho em dùng hàm Eval với các biểu thức có dạng Móng M2 : 13*5*0,4 =
Em đã thử thấy OK mà! hii
 
Bác chắc nhớ đã làm 1 bài cho em dùng hàm Eval với các biểu thức có dạng Móng M2 : 13*5*0,4 =
Em đã thử thấy OK mà! hii

Yêu cầu này không giống bài của bạn. Người ta nói rằng:
M1: 8*4*2,2*1,2*1,22 sau đó bấm enter sẽ có kết quả M1: 8*4*2,2*1,2*1,22=66,993
Tức kết quả hiện luôn trong cell vừa gõ ---> Cũng tức là phải dùng sự kiện Worksheet_Change bạn à
 
Bạn đang post bài vào box công thức, chứng tỏ muốn giải quyết bằng công thức, đúng không?
Xin thưa là KHÔNG CÓ CÁCH NÀO cả ---> Chỉ có lập trinh mới giải quyết được thôi

Thày ơi, thày ra tay vụ này cho chúng em học với ah. Em làm xây dựng hoài, cái này chương trình phần mềm họ viết em vẫn muốn thử sức nhưng nghĩ hoài không được.

Kính đề nghị thày giúp cho ah.
 
Bạn đang post bài vào box công thức, chứng tỏ muốn giải quyết bằng công thức, đúng không?
Xin thưa là KHÔNG CÓ CÁCH NÀO cả ---> Chỉ có lập trinh mới giải quyết được thôi
Đây là bài toán tính khối lượng trong Dự toán Xây dựng. Như file của e đã gửi trong http://www.giaiphapexcel.com/forum/showthread.php?72079-Lập-hàm-tính-toán-ký-tự-và-số-như-thế-nào
Mong các anh lập trình Code để chỉ cần Enter là ra kết quả?
 
Bạn tính toán cách nào mà có được 66,993 vậy?
Tính kiểu....."xí lộn" tý tẹo í mà
Hột vịt còn bị lộn thì người lộn một tý cũng đâu có sao
Phanhanhdai
............. Em làm xây dựng hoài, cái này chương trình phần mềm họ viết em vẫn muốn thử sức nhưng nghĩ hoài không được.
Viết code cho bài này không khó, nhưng bạn phải đưa những kiểu dữ liệu thì mới viết tổng quát đươc ( mình thấy cũng dạng bài này có nhiều bạn hỏi nhưng dữ liệu mỗi bạn .....một kiểu )
Híc
 
Tính kiểu....."xí lộn" tý tẹo í mà
Hột vịt còn bị lộn thì người lộn một tý cũng đâu có sao

Viết code cho bài này không khó, nhưng bạn phải đưa những kiểu dữ liệu thì mới viết tổng quát đươc ( mình thấy cũng dạng bài này có nhiều bạn hỏi nhưng dữ liệu mỗi bạn .....một kiểu )
Híc
Bác viết Code cho em với dữ liệu bài #1, #14 trong đường link ở bài #8 nhé?
Hai bài này dữ liệu này tương tự nhau
Nói chung các bà toán bóc khối lượng dự toán đều rứa rứa như 2 bài trên của e đó!!! hi (có nhiều dòng diễn giải khối lượng dưới nhiều tiêu đề đầu công việc)
Thanks bác
 
Bác viết Code cho em với dữ liệu bài #1, #14 trong đường link ở bài #8 nhé?
Hai bài này dữ liệu này tương tự nhau
Nói chung các bà toán bóc khối lượng dự toán đều rứa rứa như 2 bài trên của e đó!!! hi (có nhiều dòng diễn giải khối lượng dưới nhiều tiêu đề đầu công việc)
Thanks bác
Bác viết Code cho em với dữ liệu bài #1, #14 trong đường link ở bài #8 nhé?[/QUOTE]
Thật tình mình cũng chẳng hiểu bạn muốn làm cái quái gì trong cái này nữa, nhưng nếu muốn giải quyết công việc giống như câu hỏi 1 trong topic này bằng code thì viết như zì:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll, Tach, Tinh
    If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
        If Target.Count = 1 Then
            Cll = Replace(Target, ",", ".")
                If InStr(Cll, "=") = 0 Then
                    Tach = Split(Cll, ":")
                    Tinh = Evaluate(Trim(Tach(1)))
                    Target = Cll & "=" & Tinh
                End If
        End If
    End If
End Sub
Dữ liệu nhập ở cột [A]
Code này chỉ giải quyết dữ liệu như trong câu 1 thội nhé
Thân
 

File đính kèm

Em cảm ơn bác concogia nhiều
1) Code của bác có thể chạy cho tất cả các dòng ở cột A ạ?
2) Nếu cột Diễn giải sang cột B, C, ... thì Code của bác có thể chạy được không ạ?
3) Em có thể copy code của bác sang file khác không ví dụ ở bài #14 trong đường link ở bài #8 không ?
 
Em cảm ơn bác concogia nhiều
1) Code của bác có thể chạy cho tất cả các dòng ở cột A ạ?
2) Nếu cột Diễn giải sang cột B, C, ... thì Code của bác có thể chạy được không ạ?
3) Em có thể copy code của bác sang file khác không ví dụ ở bài #14 trong đường link ở bài #8 không ?

Trong code có đoạn:
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
1) Có hiệu lực từ A1 ==> A10000
2) Muốn sửa cho nó chạy ở cột nào thì cứ đè đầu thằng đen đậm mà sửa
3) Muốn chép đi đâu thì....chép. Right Click vào Sheet chứa dữ liệu, chọn View Code ==> dán code vào
Thân
 
3) Muốn chép đi đâu thì....chép. Right Click vào Sheet chứa dữ liệu, chọn View Code ==> dán code vào
Thân
Sao em không copy được code của bác sang nhỉ?
Vì em đang dùng thêm vài Code nữa không biết có copy Code của bác không?
Khi em ấn View Code thì hiện ra thế này :
hamsodai.xla-Sheet1 (Code)
Option Explicit
 
Đâu biết trong file của anh chứa những loại code gì đâu, tạm thời chuẩn đoán :có thể có 1 số code bị lỗi, xem ra cái Ad-ins hamsodai tích hợp trong excel của anh đang bị lỗi.
Em đã test code của bác bình thường mà, copy sang file khác cũng bình thường luôn.
 
Bác viết Code cho em với dữ liệu bài #1, #14 trong đường link ở bài #8 nhé?[/QUOTE]
Thật tình mình cũng chẳng hiểu bạn muốn làm cái quái gì trong cái này nữa, nhưng nếu muốn giải quyết công việc giống như câu hỏi 1 trong topic này bằng code thì viết như zì:
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll, Tach, Tinh
    If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
        If Target.Count = 1 Then
            Cll = Replace(Target, ",", ".")
                If InStr(Cll, "=") = 0 Then
                    Tach = Split(Cll, ":")
                    Tinh = Evaluate(Trim(Tach(1)))
                    Target = Cll & "=" & Tinh
                End If
        End If
    End If
End Sub
Dữ liệu nhập ở cột [A]
Code này chỉ giải quyết dữ liệu như trong câu 1 thội nhé
Thân
Em có mấy vấn đề này hỏi bác
1) Em muốn ở kết quả ra sẽ có phân cách hàng nghìn ví dụ là 2.567,23
2) Sửa Code để sao cho ô diễn giải như thế này "2*3*5" thì ra được kết quả = 30 chứ không bị báo lỗi (nghĩa là không có diễn giải bằng chữ trước dãy phép tính) bác ạ
 
Em có mấy vấn đề này hỏi bác
1) Em muốn ở kết quả ra sẽ có phân cách hàng nghìn ví dụ là 2.567,23
2) Sửa Code để sao cho ô diễn giải như thế này "2*3*5" thì ra được kết quả = 30 chứ không bị báo lỗi (nghĩa là không có diễn giải bằng chữ trước dãy phép tính) bác ạ
Mình đã nói ngay từ đầu
Viết code cho bài này không khó, nhưng bạn phải đưa những kiểu dữ liệu thì mới viết tổng quát đươc ( mình thấy cũng dạng bài này có nhiều bạn hỏi nhưng dữ liệu mỗi bạn .....một kiểu )
Híc
Bạn nói rằng:
Hai bài này dữ liệu này tương tự nhau
Nói chung các bà toán bóc khối lượng dự toán đều rứa rứa như 2 bài trên của e đó!!! hi (có nhiều dòng diễn giải khối lượng dưới nhiều tiêu đề đầu công việc)
Đến bi giờ:
Sửa Code để sao cho ô diễn giải như thế này "2*3*5" thì ra được kết quả = 30 chứ không bị báo lỗi (nghĩa là không có diễn giải bằng chữ trước dãy phép tính)
Híc, nếu sửa xong cái này hông biết có còn lòi ra thêm cái nào nữa hông +-+-+-++-+-+-++-+-+-+, sửa riết code giống như cái........lẫu thập cẩm (thấy phát ớn )
Túm lại, còn dạng nào nữa thì đưa lên một lần đi bạn
Em muốn ở kết quả ra sẽ có phân cách hàng nghìn ví dụ là 2.567,23
Chưa thử, nhưng mình nghĩ cái này cũng không khó
Híc+-+-+-+
Thân
 
to bác Concogia
Em muốn 1 Code có thể chạy trong trường hợp tổng quát (phát triển thêm) ấy mà. Ngoài dữ liệu đã được bác viết Code OK thì em muốn thêm trường hợp như mục 2 bài #18
Kết quả sẽ ra có dạng 2.345,376 (có 3 số sau dấu phảy , có dấu phân cách hàng nghìn, hàng triệu)
 
Web KT

Bài viết mới nhất

Back
Top Bottom