giúp code lọc tên hàng không trùng, và đếm số lần xuất hiện (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hunglam123

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
31/3/20
Bài viết
180
Được thích
43
Chào cả nhà GPE !
em cần 1 đoạn code lọc ra các tên hàng không trùng và đếm số lần xuất hiện. Xin chân thành cảm ơn

1592031163800.png
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Code:
Cái này là căn bản đít sần nè. Bà con ai muốn học đít sần thì nhào vào thử đi.
(Nếu muốn lập trình lý thuyết căn bản thì dùng giải thuật sắp xếp)

Không code:
Cái này là căn bản quản lý nè. Bà con ai nghĩ mình có khiếu quản lý thì thử đi.

Một cơ hội học luôn 3 cản bản.
 
Upvote 0
Upvote 0
Hoàng Tuấn 868 đã viết:
Bạn quên mất phần nội quy là không được viết chữ in cả câu rồi: "GIÚP CODE LỌC TÊN HÀNG KHÔNG TRÙNG". Nên sửa lại nhé.
Nhấp chuột vào đây để mở rộng...
Thường đâu có kể gì nội quy hay người khác. Cách làm việc nào giờ là nói khích cho người ta làm giùm thôi.
Có code rồi sẽ có câu: "đơn giản, mười [mấy] dòng là xong"
 
Upvote 0
Bạn thử Sub sau nhưng kết quả của A là 6 nên không hiểu cách thống kê của bạn
Mã: 
Sub DemTong()
Dim i As Long, aDuLieu(), aKetQua(), Dic As Object, k As Long, J As Long, DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
aDuLieu = Sheet1.Range("B3:B" & Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row).Value
    ReDimaKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
  For i = 1 To UBound(aDuLieu, 1)
    DieuKien = aDuLieu(i, 1)
    If Dic.Exists(DieuKien) = False Then
        k = k + 1
        Dic.Add DieuKien, k
       aKetQua(k, 1) = aDuLieu(i, 1)
       aKetQua(k, 2) = 1
    Else
        J = Dic.Item(DieuKien)
       aKetQua(J, 2) = aKetQua(J, 2) + 1
    End If
   Next
Sheet1.Range("D3:E10000").ClearContents
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua
End Sub
 
Upvote 0
vanaccex đã viết:
Bạn thử Sub sau nhưng kết quả của A là 6 nên không hiểu cách thống kê của bạn
Mã: 
Sub DemTong()
Dim i As Long, aDuLieu(), aKetQua(), Dic As Object, k As Long, J As Long, DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
aDuLieu = Sheet1.Range("B3:B" & Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row).Value
    ReDimaKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
  For i = 1 To UBound(aDuLieu, 1)
    DieuKien = aDuLieu(i, 1)
    If Dic.Exists(DieuKien) = False Then
        k = k + 1
        Dic.Add DieuKien, k
       aKetQua(k, 1) = aDuLieu(i, 1)
       aKetQua(k, 2) = 1
    Else
        J = Dic.Item(DieuKien)
       aKetQua(J, 2) = aKetQua(J, 2) + 1
    End If
   Next
Sheet1.Range("D3:E10000").ClearContents
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua
End Sub
Nhấp chuột vào đây để mở rộng...
COde báo lỗi rồi SẾp ơi
 
Upvote 0
Đít sần có 2 cách:
1. đưa số đếm vào item. Làm xong thì xổ hết đít ra.
2. đưa chỉ số mảng vào item. Số đếm là cột thứ hai của mảng.
 
Upvote 0
vanaccex đã viết:
Dòng này
Mã: 
ReDimaKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
Sửa thành
Mã: 
ReDim aKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
Xem còn lỗi nữa không
Nhấp chuột vào đây để mở rộng...

sao nó dư 1 dòng cuối
1592031842137.png


Mã: 
Sub DemTong()
Dim i As Long, aDuLieu(), aKetQua(), Dic As Object, k As Long, J As Long, DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
aDuLieu = Sheet1.Range("B3:B5000").Value
ReDim aKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
  For i = 1 To UBound(aDuLieu, 1)
    DieuKien = aDuLieu(i, 1)
    If Dic.exists(DieuKien) = False Then
        k = k + 1
        Dic.Add DieuKien, k
       aKetQua(k, 1) = aDuLieu(i, 1)
       aKetQua(k, 2) = 1
    Else
        J = Dic.Item(DieuKien)
       aKetQua(J, 2) = aKetQua(J, 2) + 1
    End If
   Next
Range("D3:E10000").ClearContents
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua
End Sub
 
Upvote 0
hunglam123 đã viết:
sao nó dư 1 dòng cuối
View attachment 239217


Mã: 
Sub DemTong()
Dim i As Long, aDuLieu(), aKetQua(), Dic As Object, k As Long, J As Long, DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
aDuLieu = Sheet1.Range("B3:B5000").Value
ReDim aKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
  For i = 1 To UBound(aDuLieu, 1)
    DieuKien = aDuLieu(i, 1)
    If Dic.exists(DieuKien) = False Then
        k = k + 1
        Dic.Add DieuKien, k
       aKetQua(k, 1) = aDuLieu(i, 1)
       aKetQua(k, 2) = 1
    Else
        J = Dic.Item(DieuKien)
       aKetQua(J, 2) = aKetQua(J, 2) + 1
    End If
   Next
Range("D3:E10000").ClearContents
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua
End Sub
Nhấp chuột vào đây để mở rộng...
Vùng dữ liệu nếu bạn đặt thế kia thì thì thêm 1 điều kiện khác rỗng vào
 
Upvote 0
Code bài #8 có mang một dấu ấn "GPE" tổ bố:
- Code dùng mảng đầu vào riêng biệt với mảng đầu ra chỉnh chu. Chỉ có dân code của GPE mới làm kiểu đó thôi.
Trong đề bài này, đầu ra không thể lớn hơn đầu vào. Vì vậy, một mảng đầu vào có thể dùng lại thành đầu ra.
 
Upvote 0
hunglam123 đã viết:
sao nó dư 1 dòng cuối
View attachment 239217


Mã: 
Sub DemTong()
Dim i As Long, aDuLieu(), aKetQua(), Dic As Object, k As Long, J As Long, DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
aDuLieu = Sheet1.Range("B3:B5000").Value
ReDim aKetQua(1 To UBound(aDuLieu, 1), 1 To 2)
  For i = 1 To UBound(aDuLieu, 1)
    DieuKien = aDuLieu(i, 1)
    If Dic.exists(DieuKien) = False Then
        k = k + 1
        Dic.Add DieuKien, k
       aKetQua(k, 1) = aDuLieu(i, 1)
       aKetQua(k, 2) = 1
    Else
        J = Dic.Item(DieuKien)
       aKetQua(J, 2) = aKetQua(J, 2) + 1
    End If
   Next
Range("D3:E10000").ClearContents
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua
End Sub
Nhấp chuột vào đây để mở rộng...
Thử thay:
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua

bằng;
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k - 1, 2).Value = aKetQua
 
Upvote 0
phulien1902 đã viết:
Thử thay:
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua

bằng;
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k - 1, 2).Value = aKetQua
Nhấp chuột vào đây để mở rộng...

cảm ơn bạn
Mã: 
Sub LocTrungdem()
On Error Resume Next
Range("D3:E10000").ClearContents
Dim i As Long, k As Long, t As Long
Dim sArr(), dArr()
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = Range("B3:C200").Value 'input
ReDim dArr(1 To UBound(sArr), 1 To 2)
For i = 1 To UBound(sArr)

        If Not Dic.exists(sArr(i, 1)) Then
            k = k + 1
            Dic(sArr(i, 1)) = k
            dArr(k, 1) = sArr(i, 1): dArr(k, 2) = 1
        Else
            t = Dic.Item(sArr(i, 1))
            dArr(t, 2) = dArr(t, 2) + 1
        End If
 
Next
Range("d3").Resize(k - 1, 2) = dArr ' Ouput
Set Dic = Nothing
End Sub
Bài đã được tự động gộp:

VetMini đã viết:
Code bài #8 có mang một dấu ấn "GPE" tổ bố:
- Code dùng mảng đầu vào riêng biệt với mảng đầu ra chỉnh chu. Chỉ có dân code của GPE mới làm kiểu đó thôi.
Trong đề bài này, đầu ra không thể lớn hơn đầu vào. Vì vậy, một mảng đầu vào có thể dùng lại thành đầu ra.
Nhấp chuột vào đây để mở rộng...
đã xong
Mã: 
Sub LocTrungdem()
On Error Resume Next
Range("D3:E10000").ClearContents
Dim i As Long, k As Long, t As Long
Dim sArr(), dArr()
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = Range("B3:C200").Value 'input
ReDim dArr(1 To UBound(sArr), 1 To 2)
For i = 1 To UBound(sArr)

        If Not Dic.exists(sArr(i, 1)) Then
            k = k + 1
            Dic(sArr(i, 1)) = k
            dArr(k, 1) = sArr(i, 1): dArr(k, 2) = 1
        Else
            t = Dic.Item(sArr(i, 1))
            dArr(t, 2) = dArr(t, 2) + 1
        End If
 
Next
Range("d3").Resize(k - 1, 2) = dArr ' Ouput
Set Dic = Nothing
End Sub
 
Upvote 0
VetMini đã viết:
Code bài #8 có mang một dấu ấn "GPE" tổ bố:
- Code dùng mảng đầu vào riêng biệt với mảng đầu ra chỉnh chu. Chỉ có dân code của GPE mới làm kiểu đó thôi.
Trong đề bài này, đầu ra không thể lớn hơn đầu vào. Vì vậy, một mảng đầu vào có thể dùng lại thành đầu ra.
Nhấp chuột vào đây để mở rộng...
Em Vân chưa đủ tầm làm dân code đó được anh ạ !
 
Upvote 0
hunglam123 đã viết:
cảm ơn bạn
Mã: 
Sub LocTrungdem()
On Error Resume Next
Range("D3:E10000").ClearContents
Dim i As Long, k As Long, t As Long
Dim sArr(), dArr()
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = Range("B3:C200").Value 'input
ReDim dArr(1 To UBound(sArr), 1 To 2)
For i = 1 To UBound(sArr)

        If Not Dic.exists(sArr(i, 1)) Then
            k = k + 1
            Dic(sArr(i, 1)) = k
            dArr(k, 1) = sArr(i, 1): dArr(k, 2) = 1
        Else
            t = Dic.Item(sArr(i, 1))
            dArr(t, 2) = dArr(t, 2) + 1
        End If

Next
Range("d3").Resize(k - 1, 2) = dArr ' Ouput
Set Dic = Nothing
End Sub
Bài đã được tự động gộp:


đã xong
Mã: 
Sub LocTrungdem()
On Error Resume Next
Range("D3:E10000").ClearContents
Dim i As Long, k As Long, t As Long
Dim sArr(), dArr()
Dim Dic As Object
Set Dic = CreateObject("Scripting.dictionary")
sArr = Range("B3:C200").Value 'input
ReDim dArr(1 To UBound(sArr), 1 To 2)
For i = 1 To UBound(sArr)

        If Not Dic.exists(sArr(i, 1)) Then
            k = k + 1
            Dic(sArr(i, 1)) = k
            dArr(k, 1) = sArr(i, 1): dArr(k, 2) = 1
        Else
            t = Dic.Item(sArr(i, 1))
            dArr(t, 2) = dArr(t, 2) + 1
        End If

Next
Range("d3").Resize(k - 1, 2) = dArr ' Ouput
Set Dic = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
Code chạy vẫn bị đếm các ô là rỗng anh ạ.
Bài đã được tự động gộp:

vanaccex đã viết:
Em Vân chưa đủ tầm làm dân code đó được anh ạ !
Nhấp chuột vào đây để mở rộng...
Vân viết code thế là giỏi lắm rồi, bao người chưa học được tới mức của Vân !!!
 
Upvote 0
vanaccex đã viết:
Em Vân chưa đủ tầm làm dân code đó được anh ạ !
Nhấp chuột vào đây để mở rộng...

Dùng 1 mảng:

Dim a As Variant, aNum As Long
Dim i As Long
' lưu ý: 2 cột
a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then ' thớt mới thêm điều kiện này. Trước đó không có. File mẫu cũng không có
If Not .Exists(a(i, 1)) Then
aNum = aNum + 1 ' tổng số dòng kết quả
.Add (a(i, 1)), aNum
a(aNum, 1) = a(i, 1)
a(aNum, 2) = 1
Else
a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
End If
End If
Next i
End With
Range("D3").Resize(aNum, 2).Value = a

Dùng đít sần chỉ để đếm:
(lưu ý: Application.Transpose có giới hạn của nó. Khi dùng nên cẩn thận. Code chỉ có tính chất minh họa)

a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then .Item(a(i, 1)) = .Item(a(i, 1)) + 1
Next i
Range("D3").Resize(.Count).Value = Application.Transpose(.Keys())
Range("E3").Resize(.Count).Value = Application.Transpose(.Items())
End With
 
Upvote 0
VetMini đã viết:
Dùng 1 mảng:

Dim a As Variant, aNum As Long
Dim i As Long
' lưu ý: 2 cột
a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then ' thớt mới thêm điều kiện này. Trước đó không có. File mẫu cũng không có
If Not .Exists(a(i, 1)) Then
aNum = aNum + 1 ' tổng số dòng kết quả
.Add (a(i, 1)), aNum
a(aNum, 1) = a(i, 1)
a(aNum, 2) = 1
Else
a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
End If
End If
Next i
End With
Range("D3").Resize(aNum, 2).Value = a

Dùng đít sần chỉ để đếm:
(lưu ý: Application.Transpose có giới hạn của nó. Khi dùng nên cẩn thận. Code chỉ có tính chất minh họa)

a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then .Item(a(i, 1)) = .Item(a(i, 1)) + 1
Next i
Range("D3").Resize(.Count).Value = Application.Transpose(.Keys())
Range("E3").Resize(.Count).Value = Application.Transpose(.Items())
End With
Nhấp chuột vào đây để mở rộng...
Tiết kiệm được 1 dòng Redim.
 
Upvote 0
phulien1902 đã viết:
Thử thay:
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k, 2).Value = aKetQua

bằng;
PHP: 
If k <> 0 Then Sheet1.Range("D3").Resize(k - 1, 2).Value = aKetQua
Nhấp chuột vào đây để mở rộng...
Sửa thế này nếu giá trị Rỗng nó nằm giữa Data chắc lại thiếu dữ liệu.
 
Upvote 0
VetMini đã viết:
Dùng 1 mảng:

Dim a As Variant, aNum As Long
Dim i As Long
' lưu ý: 2 cột
a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then ' thớt mới thêm điều kiện này. Trước đó không có. File mẫu cũng không có
If Not .Exists(a(i, 1)) Then
aNum = aNum + 1 ' tổng số dòng kết quả
.Add (a(i, 1)), aNum
a(aNum, 1) = a(i, 1)
a(aNum, 2) = 1
Else
a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
End If
End If
Next i
End With
Range("D3").Resize(aNum, 2).Value = a

Dùng đít sần chỉ để đếm:
(lưu ý: Application.Transpose có giới hạn của nó. Khi dùng nên cẩn thận. Code chỉ có tính chất minh họa)

a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
If a(i, 1) <> "" Then .Item(a(i, 1)) = .Item(a(i, 1)) + 1
Next i
Range("D3").Resize(.Count).Value = Application.Transpose(.Keys())
Range("E3").Resize(.Count).Value = Application.Transpose(.Items())
End With
Nhấp chuột vào đây để mở rộng...

Code chạy ok rồi. Bây giờ không muốn phần biệt chữ Hoa chữ Thường thì thêm Ucase vào đoạn nào vậy bác

Mã: 
Sub dadad()
Dim a As Variant, aNum As Long
Dim i As Long
a = Range("B3:C" & Cells(Rows.Count, "B").End(xlUp).Row).Value
With CreateObject("Scripting.dictionary")
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then ' th?t m?i thêm di?u ki?n này. Tru?c dó không có. File m?u cung không có
        If Not .Exists(a(i, 1)) Then
                aNum = aNum + 1 ' t?ng s? dòng k?t qu?
                .Add (a(i, 1)), aNum
                a(aNum, 1) = a(i, 1)
                a(aNum, 2) = 1
        Else
               a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
        End If
    End If
Next i
End With
Range("D3:E1000").ClearContents
Range("D3").Resize(aNum, 2).Value = a
End Sub
 
Upvote 0
VetMini đã viết:
Thử chi. Từ o-ka dến 100% xa lắm. Phải tét 1000 lần trong phòng thí nghiệm.
Nhấp chuột vào đây để mở rộng...

Đã test rất Kỷ và Thông báo 1 tin buồn. Code vẫn bị lổi khi tôi cố tinh nhập 1 text có tên là #NAME?
( Đó là 1 tên tôi tự gõ từ bàn phím chứ không phải là 1 công thức sai cú pháp trả về )


1592133500362.png


Mã: 
Sub Codelocdem()
Dim a As Variant, aNum As Long
Dim i As Long
a = Range("B3:C5000").Value
With CreateObject("Scripting.dictionary")
.CompareMode = vbTextCompare ' BO DONG NAY de phan biet chu hoa chu thuong
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then
        If Not .Exists(a(i, 1)) Then
                aNum = aNum + 1
                .Add (a(i, 1)), aNum
                a(aNum, 1) = a(i, 1)
                a(aNum, 2) = 1
        Else
               a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
        End If
    End If
Next i
End With
Range("D3:E1000").ClearContents
Range("D3").Resize(aNum, 2).Value = a
End Sub

tÔI muốn nó đúng với bất cứ Text nào . Ví dụ như hình bên dưới

1592133725942.png
 
Upvote 0
hunglam123 đã viết:
Đã test rất Kỷ và Thông báo 1 tin buồn. Code vẫn bị lổi khi tôi cố tinh nhập 1 text có tên là #NAME?
( Đó là 1 tên tôi tự gõ từ bàn phím chứ không phải là 1 công thức sai cú pháp trả về )


View attachment 239263


Mã: 
Sub Codelocdem()
Dim a As Variant, aNum As Long
Dim i As Long
a = Range("B3:C5000").Value
With CreateObject("Scripting.dictionary")
.CompareMode = vbTextCompare ' BO DONG NAY de phan biet chu hoa chu thuong
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then
        If Not .Exists(a(i, 1)) Then
                aNum = aNum + 1
                .Add (a(i, 1)), aNum
                a(aNum, 1) = a(i, 1)
                a(aNum, 2) = 1
        Else
               a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
        End If
    End If
Next i
End With
Range("D3:E1000").ClearContents
Range("D3").Resize(aNum, 2).Value = a
End Sub

tÔI muốn nó đúng với bất cứ Text nào . Ví dụ như hình bên dưới

View attachment 239266
Nhấp chuột vào đây để mở rộng...
Bạn nhập tên như vậy nhưng excel nó tự động chuyển thành sang dạng lỗi.Bạn nhập vào với định dạng text là được.Mà đây là code viết cho bạn không việc gì phải thông báo tin buồn.Nếu muốn sửa thì thêm câu lệnh kiểm tra là được.
 
Upvote 0
hunglam123 đã viết:
...
tÔI muốn nó đúng với bất cứ Text nào . ...
Nhấp chuột vào đây để mở rộng...
Nó thực sự đúng với bất cứ "Text" nào.
Báo "tin buồn" cho bạn là bạn làm việc với Excel bao lâu nay mà không biết cách phân biệt thế nào là một "Text".
Về học lại Excel, cách gõ text, và mặc định trước khi đua đòi cốt kiếc VBA.
 
Upvote 0
hunglam123 đã viết:
Đã test rất Kỷ và Thông báo 1 tin buồn. Code vẫn bị lổi khi tôi cố tinh nhập 1 text có tên là #NAME?
( Đó là 1 tên tôi tự gõ từ bàn phím chứ không phải là 1 công thức sai cú pháp trả về )


View attachment 239263


Mã: 
Sub Codelocdem()
Dim a As Variant, aNum As Long
Dim i As Long
a = Range("B3:C5000").Value
With CreateObject("Scripting.dictionary")
.CompareMode = vbTextCompare ' BO DONG NAY de phan biet chu hoa chu thuong
For i = 1 To UBound(a)
    If a(i, 1) <> "" Then
        If Not .Exists(a(i, 1)) Then
                aNum = aNum + 1
                .Add (a(i, 1)), aNum
                a(aNum, 1) = a(i, 1)
                a(aNum, 2) = 1
        Else
               a(.Item(a(i, 1)), 2) = a(.Item(a(i, 1)), 2) + 1
        End If
    End If
Next i
End With
Range("D3:E1000").ClearContents
Range("D3").Resize(aNum, 2).Value = a
End Sub

tÔI muốn nó đúng với bất cứ Text nào . Ví dụ như hình bên dưới

View attachment 239266
Nhấp chuột vào đây để mở rộng...
Mình có đọc bài của bạn. Mình thấy cái cách bạn hỏi, phản hồi với các anh chị thật chán bạn ạ. Mình ở tư thế đi nhờ sự trợ giúp mà bạn ăn nói chả có đầu có đũa gì cả.
 
Upvote 0
hoahuongduong1986 đã viết:
Mình có đọc bài của bạn. Mình thấy cái cách bạn hỏi, phản hồi với các anh chị thật chán bạn ạ. Mình ở tư thế đi nhờ sự trợ giúp mà bạn ăn nói chả có đầu có đũa gì cả.
Nhấp chuột vào đây để mở rộng...
Ủa bạn chưa biết hả.
Người ta không có "nhờ". Thực sự ra là người ta tạo cơ hội cho các thành viên khác trên GPE "tích đức". Và vì vậy, người ta có quyền trịch thượng và các người khác muốn tu công tích đức (tôi không có nói lái nhé) có bổn phận phải chìu chuộng.

Ở đây ai cũng biết danh thớt này.
 
Upvote 0
VetMini đã viết:
Nó thực sự đúng với bất cứ "Text" nào.
Báo "tin buồn" cho bạn là bạn làm việc với Excel bao lâu nay mà không biết cách phân biệt thế nào là một "Text".
Về học lại Excel, cách gõ text, và mặc định trước khi đua đòi cốt kiếc VBA.
Nhấp chuột vào đây để mở rộng...
Trong C++ bất cứ ký tự nào nhập được trong từ Inphut bàn phím được tạm gọi là Text. bác nên đi học lại đi. Phát biểu trật lất mà đòi dạy đời người ta
Bài đã được tự động gộp:

hoahuongduong1986 đã viết:
Mình có đọc bài của bạn. Mình thấy cái cách bạn hỏi, phản hồi với các anh chị thật chán bạn ạ. Mình ở tư thế đi nhờ sự trợ giúp mà bạn ăn nói chả có đầu có đũa gì cả.
[/QUOTE
Không liên quan đến bạn. Bạn lượn đi cho khác cho nước trong cái
Nhấp chuột vào đây để mở rộng...
Bài đã được tự động gộp:

hoahuongduong1986 đã viết:
Mình có đọc bài của bạn. Mình thấy cái cách bạn hỏi, phản hồi với các anh chị thật chán bạn ạ. Mình ở tư thế đi nhờ sự trợ giúp mà bạn ăn nói chả có đầu có đũa gì cả.
Nhấp chuột vào đây để mở rộng...
Next đi chổ khác dùm cái. Không biết đầu đuôi mà phán như đúng rồi
 
Upvote 0
hunglam123 đã viết:
Trong C++ bất cứ ký tự nào nhập được trong từ Inphut bàn phím được tạm gọi là Text. bác nên đi học lại đi. Phát biểu trật lất mà đòi dạy đời người ta
Bài đã được tự động gộp:


Bài đã được tự động gộp:


Next đi chổ khác dùm cái. Không biết đầu đuôi mà phán như đúng rồi
Nhấp chuột vào đây để mở rộng...
hi. Cách bạn ăn nói biết bạn là người thế nào rồi, ra xã hội mà có thái độ này chả ai chơi với đâu bạn ạ. Học là người khó lắm, có nhiều người gần hết nửa đời vẫn phải học lại từ đầu bài học làm người.
 
Upvote 0
VetMini đã viết:
Ủa bạn chưa biết hả.
Người ta không có "nhờ". Thực sự ra là người ta tạo cơ hội cho các thành viên khác trên GPE "tích đức". Và vì vậy, người ta có quyền trịch thượng và các người khác muốn tu công tích đức (tôi không có nói lái nhé) có bổn phận phải chìu chuộng.

Ở đây ai cũng biết danh thớt này.
Nhấp chuột vào đây để mở rộng...
Báo "tin buồn" cho bạn là bạn làm việc với Excel bao lâu nay mà không biết cách phân biệt thế nào là một "Text".
Đọc bài #32 đi.
Trong C++ ...
Trớt hướt.
"Quả báo"!
 
Lần chỉnh sửa cuối:
Upvote 0
hunglam123 đã viết:
Trong C++ bất cứ ký tự nào nhập được trong từ Inphut bàn phím được tạm gọi là Text. bác nên đi học lại đi. Phát biểu trật lất mà đòi dạy đời người ta
Nhấp chuột vào đây để mở rộng...
Rừng nào cọp nấy. Ở với Excel thì nói theo ngữ cảnh Excel. Dốt Excel còn bày đặt đem cái khác ra loè thiên hạ.

Riêng về Xê cọng cọng cũng học bài sai bét.
Xê cọng cọng là ngôn ngữ hướng đối tượng. Muốn chương trình nhận một cái gì từ "input" (có thể à bàn phím, có thể là file...) thì nên qua đối tượng đọc input.
Điển hình, đối tượng std::cin có đủ các hàm chồng cho toán tử >> để biết mình cần trả về cái gì.
 
Upvote 0
hoahuongduong1986 đã viết:
hi. Cách bạn ăn nói biết bạn là người thế nào rồi, ra xã hội mà có thái độ này chả ai chơi với đâu bạn ạ. Học là người khó lắm, có nhiều người gần hết nửa đời vẫn phải học lại từ đầu bài học làm người.
Nhấp chuột vào đây để mở rộng...
Cao thủ C++ này làm việc dự án tỷ đồng. Nhưng lại đi nhặt các code miễn phí trên mạng để sử dụng.
Diễn đàn giờ hiếm người như này lắm. Cần bảo tồn bạn à
 
Upvote 0
n0thing1988 đã viết:
Cao thủ C++ này làm việc dự án tỷ đồng. Nhưng lại đi nhặt các code miễn phí trên mạng để sử dụng.
Diễn đàn giờ hiếm người như này lắm. Cần bảo tồn bạn à
Nhấp chuột vào đây để mở rộng...
Không tốn tiền bạc và cũng không tốn công, tốn sức mà lụm lúa thì quá thơm đi chứ.
 
Upvote 0
be09 đã viết:
Không tốn tiền bạc và cũng không tốn công, tốn sức mà lụm lúa thì quá thơm đi chứ.
Nhấp chuột vào đây để mở rộng...
Tôi mách code cho tác giả bài #8. Thớt thực ra chỉ mót lúa.
Tuy nhiên, gặp lúa tốt thì mót cũng thơm.
Chỉ là có kẻ không biết phận, bày đặt khoác lác lòi cái dốt của mình ra.
 
Upvote 0
Thiệt ra cái vụ "lượm lúa", "lợi dụng", hay "ăn theo" chỉ là chuyện nhỏ. Chuyện tính cách cá nhân.

Ở diễn đàn này còn có hạng mặt dầy, không biết tự trọng, đi cóp py code của người khác này nơi khác về, đăng lên đây mà không báo nguồn, đánh lừa người khác như code là của chính mình.

Lại có thành phần hạ tiện hơn, đã cóp py code rồi còn xoá tên tác giả, nhét tên chữ ký của mình vào. Nếu không phải là hành động cướp giựt, ăn cắp thì tôi cũng chả biết phải gọi là gì.
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

thanhss
Tự động lấy dữ liệu từ các sheet khác đưa vào sheet tổng hợp khi chọn Ngày hoặc tháng hoặc năm (1 người xem)
Trả lời
24
Đọc
502
thanhss
thanhss
H
Tổng hợp Công Nợ theo Công trình (2 người xem)
Trả lời
28
Đọc
587
HangktGTN
H
phuongnam366377
VbaTools – Bộ công cụ mở rộng cho VBA trong Excel (3 người xem)
    • Thích
Trả lời
14
Đọc
425
YêuCN
Y
D
nhờ các bác tạo giúp e một file ghi nhớ và nhắc ngày thu tiền ạ (1 người xem)
    • Ngạc nhiên
    • Cười
Trả lời
0
Đọc
56
duongdaicb
D
B
Mình có làm đoạn code VBA trong file access mà cứ báo lỗi nhờ mọi người hướng dẫn
Trả lời
9
Đọc
267
baybley
B
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox (1 người xem)
    • Cười
Trả lời
6
Đọc
188
huhumalu
H
H
Excel không lọc được toàn bộ dữ liệu
Trả lời
1
Đọc
108
yeudoi
yeudoi
U
VB tính tổng số cell trong 1 hàng có cùng màu với 1 cell so sánh ở cột khác
Trả lời
6
Đọc
178
yeudoi
yeudoi
SA_DQ
Trò chơi đoán số & gợi ý của Copilot
Trả lời
0
Đọc
73
SA_DQ
SA_DQ
Tuanba1992
Lập trình Excel có thể dùng ngôn ngữ lập trình nào?
Trả lời
7
Đọc
413
Tuanba1992
Tuanba1992
L
Nhờ giúp đỡ công thức tính công từ dữ liệu trích xuất ra từ File chấm công
Trả lời
0
Đọc
88
lưu tuấn dũng
L
H
  • Đã khóa
Công Thức Tính Tổng Công Nợ Khách Hàng
Trả lời
1
Đọc
87
ptm0412
ptm0412
GPE-Trợ Lý
CHÀO MỪNG 80 NĂM QUỐC KHÁNH (1 người xem)
    • Yêu thích
    • Thích
Trả lời
0
Đọc
138
GPE-Trợ Lý
GPE-Trợ Lý
vuthaiha90
Lọc dữ liệu không trùng và trả kết quả về 1 dòng (1 người xem)
Trả lời
7
Đọc
329
tranhungdao12a3
T
T
Nhờ anh chị xem giúp file bị lỗi gì mà chạy rất chậm/lag - File tính tiền nhà trọ
Trả lời
10
Đọc
437
Thaik05
T
Nguyễn Duy Tuân
Hàm BS COMBINLIST Liệt kê các giá trị tổ hợp, chỉnh hợp, chỉnh hợp không lặp | Add-in A-Tools v10 (1 người xem)
    • Thích
    • Yêu thích
Trả lời
24
Đọc
2K
nguyendang95
N
J
Xử lý các file Excel bị nặng sau nhiều năm sử dụng
Trả lời
13
Đọc
2K
huhumalu
H
hongphuong1997
Nên sử dụng Chatgpt hay Copilot
    • Yêu thích
Trả lời
12
Đọc
503
phuongnam366377
phuongnam366377
L
File Excel nặng chưa tìm được lý do ở đâu . Mong các bác hỗ trợ ! (1 người xem)
Trả lời
5
Đọc
215
PhanTuHuong
PhanTuHuong
T
VBA LẤY THÔNG TIN TRÊN TỜ KHAI NHẬP KHẨU
Trả lời
10
Đọc
720
binhminh1408
B
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom