Đếm ký tự lấy kết quả

[hongphuong1997]

Anh chị giúp đỡ em làm như file em gửi kèm
Cảm ơn các bạn!

 

[♫ђöล♥ßล†♥†µ♫]

Anh chị giúp đỡ em làm như file em gửi kèm
Cảm ơn các bạn!

Uổi. Ô nào có 3 ký tự (Hoặc số) khác nhau thì điền kết quả xuống bảng 2 thì lấy mốc nào so sánh. Điều quan trọng nhất là không được thay đổi giới tính thành viên ấy nha

 

[hongphuong1997]

Uổi. Ô nào có 3 ký tự (Hoặc số) khác nhau thì điền kết quả xuống bảng 2 thì lấy mốc nào so sánh. Điều quan trọng nhất là không được thay đổi giới tính thành viên ấy nha

Anh oy, cứ theo thứ tự hàng nào có kết quả thì điền vào hàng đó anh àh, tại anh thay đổi giới tính nên em nhầm đó thôi,

 

[♫ђöล♥ßล†♥†µ♫]

Anh oy, cứ theo thứ tự hàng nào có kết quả thì điền vào hàng đó anh àh, tại anh thay đổi giới tính nên em nhầm đó thôi,

Sao lạ kêu tui bằng Anh vậy trời

Sub Thutythoi()
    Dim sArr, dArr, I As Long, J As Long, K As Long
sArr = Range("B3:QI10").Value
ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2))
For I = 1 To UBound(sArr)
    K = K + 1
    For J = 1 To UBound(sArr, 2)
        If Len(sArr(I, J)) = 3 Then dArr(K, J) = sArr(I, J)
    Next J
Next I
Range("B14").Resize(K, UBound(sArr, 2)) = dArr
End Sub

 

[hongphuong1997]

Sao lại tui bằng Anh vậy trời

Sub Thutythoi()
    Dim sArr, dArr, I As Long, J As Long, K As Long
sArr = Range("B3:QI10").Value
ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2))
For I = 1 To UBound(sArr)
    K = K + 1
    For J = 1 To UBound(sArr, 2)
        If Len(sArr(I, J)) = 3 Then dArr(K, J) = sArr(I, J)
    Next J
Next I
Range("B14").Resize(K, UBound(sArr, 2)) = dArr
End Sub

Anh này chắc trước kia học rốt đúng hông?
Em đã bảo là " có 3 ký tự khác nhau cơ mà" Đằng này anh cứ có 3 ký tự thì lấy hết xuống,
Em cho 0 điểm anh nhé!

 

[♫ђöล♥ßล†♥†µ♫]

Anh này chắc trước kia học rốt đúng hông?
Em đã bảo là " có 3 ký tự khác nhau cơ mà" Đằng này anh cứ có 3 ký tự thì lấy hết xuống,
Em cho 0 điểm anh nhé!

Ồ cái này đúng nè. Ngày thi vào học môn toán mình có 2,5 điểm . Bây giò ra được trường rồi trình độ toán học cao hơn một xí. Chắc khoảng -9,5 gì gì đó . Mai tui sẽ bấm nút báo cáo để BQT xem xét tội " Cố tình thay đổi giới tính thành viên" đó

 

[befaint]

@chủ thớt, chủ mẹt:
Ký tự chia làm hai loại:
ký tự chữ (abcdefghjklmn...);
ký tự số (0123456789)

Có cái bảng kết quả thì ghi cỡ chục kết quả minh họa vào.

 

[hongphuong1997]

@chủ thớt, chủ mẹt:
Ký tự chia làm hai loại:
ký tự chữ (abcdefghjklmn...);
ký tự số (0123456789)

Có cái bảng kết quả thì ghi cỡ chục kết quả minh họa vào.

Cháu nói rõ rùi mà "Ký tự hoặc số"

 

[befaint]

Cháu nói rõ rùi mà "Ký tự hoặc số"

Đọc kỹ từng chữ một nào.

---------
Còn trường hợp này thì sao?
- Gồm cả chữ và số: 11bcc có được tính không?
- Khác nhau nhiều hơn 3 ký tự thì sao?

 

[hongphuong1997]

Đọc kỹ từng chữ một nào.

---------
Còn trường hợp này thì sao?
- Gồm cả chữ và số: 11bcc có được tính không?
- Khác nhau nhiều hơn 3 ký tự thì sao?

Không được bác ơi! Với điều kiện là "chỉ có 3 ký tự, nhưng 3 ký tự đó phải khác nhau về giới tính bác à"

 

[♫ђöล♥ßล†♥†µ♫]

Hị hị. Chủ mẹt nhà mình cũng "Chanh đá" quá í nhỉ

 

[befaint]

Sau 9.9 bài thì thớt đã nêu được đề bài rồi đó. Giờ thớt lập bài mới hoặc xem Tom & Jerry tiếp.

 

[hongphuong1997]

Sau 9.9 bài thì thớt đã nêu được đề bài rồi đó. Giờ thớt lập bài mới hoặc xem Tom & Jerry tiếp.

Tiếp đi bác oy, bác có làm được hông?

 

[befaint]

bác oy

Mới tắm bằng Lifebuoy rồi, rất thơm, không oi, không hoi tí tẹo nào cả nhé.

làm được hông?

Giờ này bác đang xem Tom & Jerry.

 

[hongphuong1997]

Mới tắm bằng Lifebuoy rồi, rất thơm, không oi, không hoi tí tẹo nào cả nhé.

Giờ này bác đang xem Tom & Jerry.

hu hu... bác làm cho cháu đi, mai xem cũng được mà

 

[hongphuong1997]

Mới tắm bằng Lifebuoy rồi, rất thơm, không oi, không hoi tí tẹo nào cả nhé.

Giờ này bác đang xem Tom & Jerry.

Bác oy, bác xem Tom & Jerry. lâu thế bác?

 

[befaint]

oy

Đã nói là bác tắm cả chai Lifebuoy nên rất thơm, không oi tẹo nào nhé. Có hiểu không?

bác xem Tom & Jerry. lâu thế bác?

Bạn này chưa xem Tom & Jerry bao giờ là cái chắc!

 

[Thong Hoang Tien 250691]

Theo tôi ta dùng Mid + For Next để xuất ra tất cả các ký tự trong 1 cell vào một mảng. rồi dùng Unique để xuất trong mảng các ký tự riêng biệt và gộp lại (trả giá trị về 1 cell)
Cuối cùng là ta có 1 cell gồm toàn những "Ký tự" khác nhau, ta dùng "Len" để "đếm" số ký tự của cell đó, Nếu lớn hơn hoặc bằng 3 thì copy nó xuống ô tương ứng.
(Cũng chỉ là lên ý tưởng, chưa viết vào file nên không biết được không)

Bài đã được tự động gộp: 14/8/18

 

[hongphuong1997]

Sao lạ kêu tui bằng Anh vậy trời

Sub Thutythoi()
    Dim sArr, dArr, I As Long, J As Long, K As Long
sArr = Range("B3:QI10").Value
ReDim dArr(1 To UBound(sArr), 1 To UBound(sArr, 2))
For I = 1 To UBound(sArr)
    K = K + 1
    For J = 1 To UBound(sArr, 2)
        If Len(sArr(I, J)) = 3 Then dArr(K, J) = sArr(I, J)
    Next J
Next I
Range("B14").Resize(K, UBound(sArr, 2)) = dArr
End Sub

Anh
♫ђöล♥ßล†♥†µ♫ ơi
code này bị mất số "0" ở đầu chuỗi, em muốn lấy cả số "0" ở đầu chuỗi thì làm như nào hở anh?

 

[♫ђöล♥ßล†♥†µ♫]

Anh
♫ђöล♥ßล†♥†µ♫ ơi
code này bị mất số "0" ở đầu chuỗi, em muốn lấy cả số "0" ở đầu chuỗi thì làm như nào hở anh?

Í hí. Sao bảo Code này sai nên xóa file mất tiêu rùi