Đếm các giá trị số và chữ ở các cột. (1 người xem)

anhhaili · 19/11/12

Mình muốn đếm các giá số ở côt1 và cột2 rồi đưa vào côt3 mà không biết làm như thế nào, mong mọi người giúp đỡ!

ndu96081631 · 19/11/12

anhhaili đã viết:
Mình muốn đếm các giá số ở côt1 và cột2 rồi đưa vào côt3 mà không biết làm như thế nào, mong mọi người giúp đỡ!

Thử vầy:

Mã:

=SUMPRODUCT(LEN(A2:B2)-LEN(SUBSTITUTE(SUBSTITUTE(A2:B2,",",""),".",""))+1)-COUNTBLANK(A2:B2)

anhhaili · 19/11/12

các số trong cột 1 và cột 2 được cách nhau bởi dấu phẩy(,) và dấu chấm(.) Mình không biết cách dùng hàm như thế nào cho đúng! Mong mọi người giúp đỡ!

ndu96081631 đã viết:
Thử vầy:

Mã:

=SUMPRODUCT(LEN(A2:B2)-LEN(SUBSTITUTE(SUBSTITUTE(A2:B2,",",""),".",""))+1)-COUNTBLANK(A2:B2)

Cảm ơn thầy đã chỉ giúp! vẫn còn một vấn đề mong thầy chỉ giúp cho là khi sum các cột ở giá trị đếm được thì kết quả không đúng !

anhhaili · 19/11/12

Xin thầy kiểm tra giúp! help me!

ndu96081631 · 19/11/12

anhhaili đã viết:
Xin thầy kiểm tra giúp! help me!

Muốn gì thì bạn cũng phải chon file lên đây chứ! Tôi biết thế nào mà giúp bạn đây?

anhhaili · 19/11/12

ndu96081631 đã viết:
Muốn gì thì bạn cũng phải chon file lên đây chứ! Tôi biết thế nào mà giúp bạn đây?

em có chup hinh va đính kèm hinh ảnh rồi, nhưng sao nó hiển thị nhỏ và mở quá! thầy xem kỹ lại giúp em nha! thanks

anhhaili · 20/11/12

anhhaili đã viết:
em có chup hinh va đính kèm hinh ảnh rồi, nhưng sao nó hiển thị nhỏ và mở quá! thầy xem kỹ lại giúp em nha! thanks

Nhờ thầy xem và chỉ giúp em cách đếm các số ở 2 cột trong file đính kèm! xin cảm ơn!

ndu96081631 · 20/11/12

anhhaili đã viết:
Nhờ thầy xem và chỉ giúp em cách đếm các số ở 2 cột trong file đính kèm! xin cảm ơn!

Lỗi là do dữ liệu của bạn chứ không phải do công thức
Để ý cell C112, dữ liệu trong cell là 92,116 ---> Thực chất cái dấu phẩy này không phải bạn tự gõ mà do format cell tạo thành ---> Hãy nhìn lên thanh Formula sẽ thấy giá trị của cell C112 là 92116 (không hề có dấu phẩy nào cả)
Tương tự cho lỗi ở các cell khác

anhhaili · 20/11/12

1.Bên bộ phận nhập dữ liệu lúc thì dùng dấu (,) lúc thì dùng dấu (.)
2.cả 2 cột đều có số cây và có dấu(,) hoặc dấu(.) thì hàm đếm giá trị lại cho kết quả sai.
Nhờ các thầy chỉ giúp em với! hic.

anhhaili · 20/11/12

thầy cho em hỏi cái này xíu. làm sao khi chuyển kiểu dữ liệu từ number sang text vẫn giữ nguyên dấu(,) hoac dau(.) vây?

ndu96081631 · 20/11/12

anhhaili đã viết:
thầy cho em hỏi cái này xíu. làm sao khi chuyển kiểu dữ liệu từ number sang text vẫn giữ nguyên dấu(,) hoac dau(.) vây?

Tôi không biết có cách nào làm bằng tay không, nhưng nếu là tôi thì tôi dùng VBA để chuyển bằng code này:

PHP:

Sub GetFormat()
  Dim rCel As Range, rng As Range
  Dim sFormat As String
  Set rng = Selection
  For Each rCel In rng
    sFormat = rCel.Text
    If IsNumeric(sFormat) Then
      rCel.Value = "'" & sFormat
    Else
      rCel.Value = sFormat
    End If
  Next
End Sub

- Cho code trên vào 1 Module
- Quét chọn vùng dữ liệu cần chuyển rồi chạy code

Loan1989 · 20/11/12

ndu96081631 đã viết:
Tôi không biết có cách nào làm bằng tay không, nhưng nếu là tôi thì tôi dùng VBA để chuyển bằng code này:

PHP:

Sub GetFormat() Dim rCel As Range, rng As Range Dim sFormat As String Set rng = Selection For Each rCel In rng sFormat = rCel.Text If IsNumeric(sFormat) Then rCel.Value = "'" & sFormat Else rCel.Value = sFormat End If Next End Sub

- Cho code trên vào 1 Module
- Quét chọn vùng dữ liệu cần chuyển rồi chạy code

Code này của bạn sẽ chuyển 12345678-->'12345678
Cho mình hỏi là có cách nào để chuyển thành 12.345.678 không ?
Mình đang copy dữ liệu từ exel sang word nhưng cứ phải thêm dấu "." thế này thì mất thời gian quá.
Thanks!

Hong.Van · 20/11/12

Loan1989 đã viết:
Code này của bạn sẽ chuyển 12345678-->'12345678
Cho mình hỏi là có cách nào để chuyển thành 12.345.678 không ?
Mình đang copy dữ liệu từ exel sang word nhưng cứ phải thêm dấu "." thế này thì mất thời gian quá.
Thanks!

Sao bạn kg Format 123456,789 thành 123.456,789 rồi chạy code

sealand · 20/11/12

Code này của bạn sẽ chuyển 12345678-->'12345678
Cho mình hỏi là có cách nào để chuyển thành 12.345.678 không ?
Mình đang copy dữ liệu từ exel sang word nhưng cứ phải thêm dấu "." thế này thì mất thời gian quá.
Thanks!

Các bạn thử làm như mình nha:
Mình sử dụng VBA để thực hiện. Mở file Excel rồi nhấn Alt+F11 mở VBA Edit.

Bước 1 : Thêm 1 Module: Vào Insert--Chọn Module

Bước 2 : Tham chiếu thư viện đối tượng có liên quan. Vàọ Tools--Chọn References
Trên hộp thoại hiện ra như trong sheet mình đã chèn hình.
Nhấn vào Browser---Tìm chọn FM20.DLL rồi OK.

Bước 3: Chép Code sau vào Module thêm ở bước 1. Đóng VBA Edit.

Mã:

Sub Copy_Format()
Dim Num As Variant
Dim Dt As Object
Set Dt = New DataObject
If Not IsNumeric(ActiveCell.Value) Then
MsgBox "O chon khong phai dang so !"
Exit Sub
End If
Num = ActiveCell
Num = Format(Num, "#,##0.00")
If Application.DecimalSeparator = "," Then _
Num = Replace(Replace(Replace(Num, ".", "#"), ",", "."), "#", ",")
Dt.SetText Num
Dt.PutInClipboard
End Sub

Bước 4: Nhấn Alt+F8 rồi chọn vẹt sáng vào Macro vừa chép vào. Nhấn nút Option để khai báo phím tắt ví dụ Ctrl+m chẳng hạn.

Giờ thì bạn có thể thử được rồi . Tại ô cần chép số nhấn Ctrl+m. Sang ô khác hay sang Word nhấn Ctrl+v để dán vào. Kết quả sẽ theo ý bạn. Các bạn chỉnh lại code để có thể chép 1 ô hay cả vùng nha

ndu96081631 · 20/11/12

sealand đã viết:
Các bạn thử làm như mình nha:
Mình sử dụng VBA để thực hiện. Mở file Excel rồi nhấn Alt+F11 mở VBA Edit.

Bước 1 : Thêm 1 Module: Vào Insert--Chọn Module

Bước 2 : Tham chiếu thư viện đối tượng có liên quan. Vàọ Tools--Chọn References
Trên hộp thoại hiện ra như trong sheet mình đã chèn hình.
Nhấn vào Browser---Tìm chọn FM20.DLL rồi OK.

Anh có thể bỏ qua bước 2 và thay đoan:
Set Dt = New DataObject
Thành
Set Dt = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
------------
Có điều em đang thắc mắc: Không biết code này dùng để làm gì? Vì thực chất dấu phẩy hay dấu chấm đâu có quan trọng. Mục đích cuối cùng của chủ topic này là muốn xem các dấu chấm hoặc phẩy nó chia số ra làm bao nhiêu phần thôi
Ví dụ:
12.123 ---> Kết quả = 2 (dấu chấm chia số ra làm 2 phần)
12,123,456.78 ---> Kết quả = 4 (dấu chấm và phẩy chia số ra làm 4 phần)
vân vân

sealand · 20/11/12

Set Dt = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

Hôm nay mình mới biết chiêu này đấy. Ndu viết rõ hơn và mở rộng cho các đối tượng khác được không.
Bài trước là theo ý bạn Loan 1989 để chép số từ Exc sang Word tự động chấm phân cách tay cho phảy phân cách mà không lệ thuộc Region Setting và không làm ảnh hưởng đến định dạng gốc

ndu96081631 · 20/11/12

sealand đã viết:
Hôm nay mình mới biết chiêu này đấy. Ndu viết rõ hơn và mở rộng cho các đối tượng khác được không.

Cái này mình cứ tham khảo các trang web nước ngoài thôi anh à
(gần như đối tượng nào cũng có thể viết theo kiểu CreateObject("...") được cả)

Đếm các giá trị số và chữ ở các cột. (1 người xem)

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

Thành viên mới

File đính kèm

Huyền thoại GPE

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên mới

Thành viên mới

File đính kèm

Huyền thoại GPE

Thành viên mới

Thành viên mới

Huyền thoại GPE

Thành viên hoạt động

Busy

Thành viên gạo cội

File đính kèm

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Sinh nhật lần 19 GPE