[Hỏi mọi người] Cách dùng hàm count và substitute lồng nhau. (1 người xem)

[lechuongduong]

Cụ thể là mình dùng hàm substitute rồi dùng hàm count.
Giống như là hàm substitute bên trong count ấy.

 

[mhung12005]

Cụ thể là mình dùng hàm substitute rồi dùng hàm count.
Giống như là hàm substitute bên trong count ấy.

Bạn hỏi chung chung thế biết trả lời sao đây. Tôi đoán chắc là bài toán đếm hay gì đó trong chuỗi.

Mà tốt nhất bạn đưa ví dụ cụ thể lên mới có thể giúp đc.

 

[lechuongduong]

Cụ thể thế này:
Ở ô U5 mình công các ô: L1+L3+L5.....
Mình muốn đếm số ô đã được cộng ở ô U5 nên mình đã dùng hàm substitute để đổi dấu + thành dấu ;.
Rồi mình lại dùng hàm counta để đếm số ô đấy.
Vì muốn dùng 1 lần nên mình muốn lồng hàm substitute vào trong counta cho nhanh.
Mong bạn chỉ giúp.

 

[bui_kiem]

Cụ thể thế này:
Ở ô U5 mình công các ô: L1+L3+L5.....
Mình muốn đếm số ô đã được cộng ở ô U5 nên mình đã dùng hàm substitute để đổi dấu + thành dấu ;.
Rồi mình lại dùng hàm counta để đếm số ô đấy.
Vì muốn dùng 1 lần nên mình muốn lồng hàm substitute vào trong counta cho nhanh.
Mong bạn chỉ giúp.

Cụ thể bạn làm thế này:
=Len(U5)-Len(substitute(U5,"+",""))+1

 

[lechuongduong]

Cụ thể bạn làm thế này:
=Len(U5)-Len(substitute(U5,"+",""))+1

sao lại ra 1 bạn nhỉ..
mình cần là số lượng ô đã cộng ấy..như ví dụ của mình là nó phải 3 chẳng hạn vì mình đã công L1+L3+L5 rồi./

 

[Vu Dinh Duy]

Bạn sử dụng thử hàm tự tạo sau xem sao:
_________________________________________
Function demsohang(a As Range)
Dim s As String, i As Long
demsohang = 1
s = a.Formula
For i = 1 To Len(s)
If Mid(s, i, 1) = "+" Then
demsohang = demsohang + 1
End If
Next i
End Function

 

[comet_1701]

vào mục nào bạn nhỉ./

Function demsohang(a As Range)
Dim s As String, i As Long
s = a.Formula
For i = 1 To Len(s)
    If Mid(s, i, 1) = "+" Then
        demsohang = demsohang + 1
    End If
Next i
End Function

Đầu tiên bạn phải enalbe marco. Sau đó kích vào Alt+F11, chọn workbook cần thêm module, insert/module/ chép code trên vào, Tại e xel đánh =đếm số hàng ( ở cần đếm)
Công thức của Bùi Kiệm chắc không được vì nó áp dụng cho ký tự trong ô thôi, còn + ở đây là toán tử rồi.
Của Duy ở trên bỏ dem so hang=1 là ok
http://www.giaiphapexcel.com/forum/...ẫn-Enable-Macros-trong-Excel-(2003-2007-2010)
Đây là cách enable marco bạn nhé

 

[Vu Dinh Duy]

Function demsohang(a As Range)
Dim s As String, i As Long
s = a.Formula
For i = 1 To Len(s)
    If Mid(s, i, 1) = "+" Then
        demsohang = demsohang + 1
    End If
Next i
End Function

Đầu tiên bạn phải enalbe marco. Sau đó kích vào Alt+F11, chọn workbook cần thêm module, insert/module/ chép code trên vào, Tại e xel đánh =đếm số hàng ( ở cần đếm)
Công thức của Bùi Kiệm chắc không được vì nó áp dụng cho ký tự trong ô thôi, còn + ở đây là toán tử rồi.
Của Duy ở trên bỏ dem so hang=1 là ok
http://www.giaiphapexcel.com/forum/...ẫn-Enable-Macros-trong-Excel-(2003-2007-2010)
Đây là cách enable marco bạn nhé

Nếu bỏ phần "demsohang=1" thì công thức phải nhập "=+L1+L3+L5" hay "+L1+L3+L5", khi đó số dấu cộng mới bằng số hạng.
Vì công thức ban đầu là "L1+L3+L5" nên số hạng của phép cộng bằng số "+" cộng với 1.
Tùy bạn lechuongduong chọn nhé.

 

[comet_1701]

Nếu bỏ phần "demsohang=1" thì công thức phải nhập "=+L1+L3+L5" hay "+L1+L3+L5", khi đó số dấu cộng mới bằng số hạng.
Vì công thức ban đầu là "L1+L3+L5" nên số hạng của phép cộng bằng số "+" cộng với 1.
Tùy bạn lechuongduong chọn nhé.

Sorry bạn, đọc lại đề bài thấy tác giả yêu cầu đếm ô, mình đang nhầm là đếm dấu +. Vậy dùng công thức ban đầu của Duy là ok

 

[bui_kiem]

sao lại ra 1 bạn nhỉ..
mình cần là số lượng ô đã cộng ấy..như ví dụ của mình là nó phải 3 chẳng hạn vì mình đã công L1+L3+L5 rồi./

Sai rồi hả, vậy bạn dùng cái này:

Function Dem(Cll As Range)
 Dem = Len(Cll.Formula) - Len(Replace(Cll.Formula, "+", "")) + 1
End Function

 

[comet_1701]

Sai rồi hả, vậy bạn dùng cái này:

Function Dem(Cll As Range)
 Dem = Len(Cll.Formula) - Len(Replace(Cll.Formula, "+", "")) + 1
End Function

Đoạn này chắc ngon roài vì có thuộc tính Formula rồi

(LEN(Chuỗi gốc)- LEN(SUBSTITUTE(Chuỗi gốc, Chuỗi cần đếm,"")))/LEN(Chuỗi cần đếm)

Nếu phân biệt chữ hoa thường trong VBA dùng Ucase , Lcase

(LEN(Chuỗi gốc)- LEN(SUBSTITUTE(Upper(Chuỗi gốc), Upper(Chuỗi cần đếm),"")))/LEN(Chuỗi cần đếm)

(LEN(Chuỗi gốc)- LEN(SUBSTITUTE(Lower(Chuỗi gốc), Lower(Chuỗi cần đếm),"")))/LEN(Chuỗi cần đếm)

Công thức tổng quát để giải bài toán đếm chuỗi