Lọc dữ liệu xuất hiện 1 lầ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)
A

AndOrNot

Thành viên chính thức
Tham gia
27/6/12
Bài viết
75
Được thích
3
Chào các anh chị và các bạn trong ngôi nhà chung GPE.

Em có 1 vấn đề về Excel hiện chưa giải quyết được, mong mọi người xem và giúp đỡ.

Mô tả yêu cầu:
Sheet1 có cột A chứa mã hàng, trong đó các mã hàng này có thể lặp lại nhiều lần. Kết quả sẽ được thể hiện ở bên sheet2 trong đó thể hiện tất cả các mã hàng có nhưng chỉ xuất hiện 1 lần thôi.
(cái này có vẻ hơi giống privot table nhưng em muốn có cách nào đó mà không cần phải sử dụng các thao tác như vậy mà vẫn ra được kết quả theo đúng yêu cầu - ví dụ như việc sử dụng hàm, VBE, ...)

Cảm ơn các bạn đã ghé và chỉ giáo.

AndOrNot
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
dùng hàm thử nha

A2=INDEX('Chi tiet'!$A$2:$A$41,MATCH(0,COUNTIF($A$1:A1,'Chi tiet'!$A$2:$A$41),0))

kết thúc bằng Ctrl Shift Enter
 
Lần chỉnh sửa cuối:
Upvote 0
Đứng tại Sheet Tong Hop, bạn vào Menu Data/ Filter/ Advanced Filter/ Chọn vùng dữ liệu cần lọc bên sheet chitiet, vùng dữ liệu đặt kết quả sau khi lọc và check vào mục : Unique record only ==> bấm OK
 
Upvote 0
dùng hàm thử nha
A2=INDEX('Chi tiet'!$A$2:$A$41,MATCH(0,COUNTIF($A$1:A1,'Chi tiet'!$A$2:$A$41),0))

kết thúc bằng Ctrl Shift Enter
Nhấp chuột vào đây để mở rộng...
Hoặc thế này :
PHP: 
=INDEX('Chi tiet'!$A$2:$A$41,MATCH(TRUE,INDEX(ISNA(MATCH('Chi tiet'!$A$2:$A$41,$A$1:A1,0)),0),0))
Kết thúc bằng phím Enter
 
Upvote 0
Hix, Em cần cách làm bằng công thức, hàm, hay 1 cái gì đó mà không liên quan đến thao tác (có nghĩa là nó sẽ tự link sang sheet2 ngay sau khi cập nhật dữ liệu trong sheet1.
 
Upvote 0
hoamattroicoi đã viết:
Đứng tại Sheet Tong Hop, bạn vào Menu Data/ Filter/ Advanced Filter/ Chọn vùng dữ liệu cần lọc bên sheet chitiet, vùng dữ liệu đặt kết quả sau khi lọc và check vào mục : Unique record only ==> bấm OK
Nhấp chuột vào đây để mở rộng...


Hix, Em cần cách làm bằng công thức, hàm, hay 1 cái gì đó mà không liên quan đến thao tác (có nghĩa là nó sẽ tự link sang sheet2 ngay sau khi cập nhật dữ liệu trong sheet1.
 
Upvote 0
hoamattroicoi đã viết:
Hoặc thế này :
PHP: 
=INDEX('Chi tiet'!$A$2:$A$41,MATCH(TRUE,INDEX(ISNA(MATCH('Chi tiet'!$A$2:$A$41,$A$1:A1,0)),0),0))
Kết thúc bằng phím Enter
Nhấp chuột vào đây để mở rộng...


Cảm ơn bác nhiều, đúng là ý của em rồi đó.

Nhân tiện nhờ bác giúp thêm cho em cái này để nó được tối ưu hơn:

1. Trong trường hơp, nếu dữ liệu ở sheet1 có sự ngắt quãng thì làm sao bên sheet2 vẫn hiểu được sự ngắt quãng đó sẽ không được tính là dữ liệu để xuất hiện.

2. Khi kéo công thức dài quá số lượng các mã thì nó sẽ thể hiện là khoảng trắng ("") chứ không phải thể hiện giá trị #N/A.

3. Ngoài việc đưa ra kết quả bên sheet2, thay vì đưa lần lượt theo thứ tự của sheet1 (chi tiết) thì kết quả bên sheet (tổng hợp) sẽ được tự động sắp xếp theo chiều tăng dần.

Một lần nữa em xin chân thành cảm ơn bác hoamattroicoi cũng như cảm ơn tất các bác khác đã dành chút thời gian ghé thăm và đọc chủ đề này của em.

AndOrNot
 
Upvote 0
AndOrNot đã viết:
Hix, Em cần cách làm bằng công thức, hàm, hay 1 cái gì đó mà không liên quan đến thao tác (có nghĩa là nó sẽ tự link sang sheet2 ngay sau khi cập nhật dữ liệu trong sheet1.
Nhấp chuột vào đây để mở rộng...
Vậy mình thử 1 cái gì đó cho bạn xem thử có hay hơn dùng công thức không nhé, đáp ứng được cả 3 cái yêu cầu bạn đưa ra, tốc độ chắc cũng k tồi lắm :
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(3).Row).Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
CODE sort :
PHP: 
Private Function SortArr(sArr)
Dim Arr
Dim i As Long
Dim j As Long
Dim Lb As Long
Dim n As Long
Dim Tempt
Arr = sArr
n = UBound(Arr)
Lb = LBound(Arr)
For i = Lb To n - 1
    For j = i + 1 To n
        If Arr(i) > Arr(j) Then
            Tempt = Arr(j)
            Arr(j) = Arr(i)
            Arr(i) = Tempt
        End If
    Next j
Next i
SortArr = Arr
End Function
 

File đính kèm

Upvote 0
hoamattroicoi đã viết:
Vậy mình thử 1 cái gì đó cho bạn xem thử có hay hơn dùng công thức không nhé, đáp ứng được cả 3 cái yêu cầu bạn đưa ra, tốc độ chắc cũng k tồi lắm :
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(3).Row).Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
CODE sort :
PHP: 
Private Function SortArr(sArr)
Dim Arr
Dim i As Long
Dim j As Long
Dim Lb As Long
Dim n As Long
Dim Tempt
Arr = sArr
n = UBound(Arr)
Lb = LBound(Arr)
For i = Lb To n - 1
    For j = i + 1 To n
        If Arr(i) > Arr(j) Then
            Tempt = Arr(j)
            Arr(j) = Arr(i)
            Arr(i) = Tempt
        End If
    Next j
Next i
SortArr = Arr
End Function
Nhấp chuột vào đây để mở rộng...

Cảm ơn bác nhiều lắm.

Làm phiền bác nhiều quá, nhưng vì em còn kém nên rất muốn học hỏi ở bác và tất cả các ACE khác trong GPE.

Trong trường hợp bây giờ em có 3 sheet chi tiết (chitiet1, chitiet2, chitiet3, và kết quả là sheet tonghop) - thay vì như trước chỉ có 1 sheet chitiet thôi. Bác giúp em với.

P/s: Ví dụ thể hiện chỉ vài chục dòng nhưng khi áp dụng vào file của em thì lên tới 20k dòng, vì vậy yếu tố về tốc độ xử lý cũng là 1 điều cần xem xét.

Cảm ơn bác nhiều

AndOrNot
 
Upvote 0
AndOrNot đã viết:
Trong trường hợp bây giờ em có 3 sheet chi tiết (chitiet1, chitiet2, chitiet3, và kết quả là sheet tonghop) - thay vì như trước chỉ có 1 sheet chitiet thôi. Bác giúp em với.
Nhấp chuột vào đây để mở rộng...
Quan trọng là 3 cái sheet chi tiết đó của bạn bố trí dữ liệu thế nào mới có thể giúp bạn được, nếu 3 sheet mà 3 vùng dữ liệu cần lọc duy nhất và sort nằm ở các cột khác nhau k tuân theo quy tắc nào thì hơi bị mệt đó. Túm lại thuật toán sẽ thêm 1 bước nữa là duyệt qua các sheet gom 3 cột đó lại nhét vào Array và nạp vào DIC hoặc duyệt qua các sheet rồi nhét thẳng các phần tử vào DIC luôn.

Tuy nhiên tôi cứ nói trước với bạn, thực tế và ví dụ nhiều khi là khác xa nhau vì bản thân bạn chưa hiểu về code nên khi lấy ví dụ có thể bị sót các trường hợp phát sinh, tốt nhất nên đưa file thật lên để mọi người có thể giúp bạn, khỏi mất công làm đi rồi lại sửa lại, rất mệt.
Nếu các dữ liệu nằm trên 1 cột nhất định thì bạn chỉnh code SortAndFill() thành thế này nhé.
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr(), tmpArr
Dim sH As Worksheet
Set Dic = CreateObject("Scripting.dictionary")
For Each sH In Worksheets
    If sH.Name <> "Tong hop" Then
        sArr = sH.Range("A2:A" & sH.[A65536].End(3).Row).Value
        For i = 1 To UBound(sArr)
            If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
                k = k + 1
                Dic.Add sArr(i, 1), ""
                ReDim Preserve dArr(1 To k)
                dArr(k) = sArr(i, 1)
            End If
        Next
    End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
Thuật toán như trên tôi đã đề xuất.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
hoamattroicoi đã viết:
Vậy mình thử
Nhấp chuột vào đây để mở rộng...
hoamattroicoi đã viết:
1 cái gì đó cho bạn xem thử có hay hơn dùng công thức không nhé, đáp ứng được cả 3 cái yêu cầu bạn đưa ra, tốc độ chắc cũng k tồi lắm :
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(3).Row).Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
CODE sort :
PHP: 
Private Function SortArr(sArr)
Dim Arr
Dim i As Long
Dim j As Long
Dim Lb As Long
Dim n As Long
Dim Tempt
Arr = sArr
n = UBound(Arr)
Lb = LBound(Arr)
For i = Lb To n - 1
    For j = i + 1 To n
        If Arr(i) > Arr(j) Then
            Tempt = Arr(j)
            Arr(j) = Arr(i)
            Arr(i) = Tempt
        End If
    Next j
Next i
SortArr = Arr
End Function
Nhấp chuột vào đây để mở rộng...

Chà Hoa Còi giỏi quá, thành cao thủ tầm cỡ rồi.}}}}}}}}}}}}}}}}}}}}
 
Upvote 0
hoamattroicoi đã viết:
Quan trọng là 3 cái sheet chi tiết đó của bạn bố trí dữ liệu thế nào mới có thể giúp bạn được, nếu 3 sheet mà 3 vùng dữ liệu cần lọc duy nhất và sort nằm ở các cột khác nhau k tuân theo quy tắc nào thì hơi bị mệt đó. Túm lại thuật toán sẽ thêm 1 bước nữa là duyệt qua các sheet gom 3 cột đó lại nhét vào Array và nạp vào DIC hoặc duyệt qua các sheet rồi nhét thẳng các phần tử vào DIC luôn.

Tuy nhiên tôi cứ nói trước với bạn, thực tế và ví dụ nhiều khi là khác xa nhau vì bản thân bạn chưa hiểu về code nên khi lấy ví dụ có thể bị sót các trường hợp phát sinh, tốt nhất nên đưa file thật lên để mọi người có thể giúp bạn, khỏi mất công làm đi rồi lại sửa lại, rất mệt.
Nếu các dữ liệu nằm trên 1 cột nhất định thì bạn chỉnh code SortAndFill() thành thế này nhé.
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr(), tmpArr
Dim sH As Worksheet
Set Dic = CreateObject("Scripting.dictionary")
For Each sH In Worksheets
    If sH.Name <> "Tong hop" Then
        sArr = sH.Range("A2:A" & sH.[A65536].End(3).Row).Value
        For i = 1 To UBound(sArr)
            If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
                k = k + 1
                Dic.Add sArr(i, 1), ""
                ReDim Preserve dArr(1 To k)
                dArr(k) = sArr(i, 1)
            End If
        Next
    End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
Thuật toán như trên tôi đã đề xuất.
Nhấp chuột vào đây để mở rộng...

Em cảm ơn bác nhiều. Hâm mộ bác quá, bác cho em số đt của bác để có dịp em được làm phiền nhe!

AndOrNot
 
Upvote 0
Upvote 0
ndu96081631 đã viết:
Bài đó có đọc rồi mà có ai hiểu bạn nói cái gì đâu mà giúp
Nhấp chuột vào đây để mở rộng...

Chào bác ndu96081631, trong nội dung của vấn đề ở topic kia thì em muốn link 1 file excel của mình với 1 giá trị, hay 1 đoạn code nào đó với 1 file trực tuyến lưu trữ. Điều này giống như sử dụng Add-Ins nhưng cái Add-Ins đó được lưu trực tuyến. Giả sử trong file Excel (hoặc code VBA của em có dòng "If a=1 Then b=2", khi đó dòng lệnh này sẽ được link đến 1 dữ liệu trực tuyến và giá trị a em có thể thay đổi trực tuyến). Có thể em nói dài dòng và khó hiểu quá nhưng cũng vẫn rất mong các bác sẽ hiểu được ý của em và giúp em.

AndOrNot
 
Upvote 0
hoamattroicoi đã viết:
Vậy mình thử 1 cái gì đó cho bạn xem thử có hay hơn dùng công thức không nhé, đáp ứng được cả 3 cái yêu cầu bạn đưa ra, tốc độ chắc cũng k tồi lắm :
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(3).Row).Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
CODE sort :
PHP: 
Private Function SortArr(sArr)
Dim Arr
Dim i As Long
Dim j As Long
Dim Lb As Long
Dim n As Long
Dim Tempt
Arr = sArr
n = UBound(Arr)
Lb = LBound(Arr)
For i = Lb To n - 1
    For j = i + 1 To n
        If Arr(i) > Arr(j) Then
            Tempt = Arr(j)
            Arr(j) = Arr(i)
            Arr(i) = Tempt
        End If
    Next j
Next i
SortArr = Arr
End Function
Nhấp chuột vào đây để mở rộng...


Bác ơi!
Nếu cũng là yêu cầu và mục đích như vậy, có thể sử dụng hàm tự tạo được không bác (file đính kèm)
 

File đính kèm

Upvote 0
Gửi bạn AndOrNot :
PHP: 
Function SortAndFill(Rng As Range, c As Integer)
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Rng.Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
If c = 1 Then dArr = SortarrAS(dArr)
If c = -1 Then dArr = SortarrDS(dArr)
If c = 0 Then GoTo 1
1:
For i = k + 1 To UBound(sArr)
  ReDim Preserve dArr(1 To i)
  dArr(i) = ""
Next i
SortAndFill = Application.Transpose(dArr)
Set Dic = Nothing
End Function
Trong file đính kèm còn 2 đoạn code để sắp xếp tăng dần và giảm dần, bạn xem chi tiết cách sử dụng hàm trong file nhé.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
PHP: 
Function SortAndFill(Rng As Range, c As Integer)

Nên đổi thành

PHP: 
Function SortAndFill(Rng As Range, Optional SmallToLarge As Boolean=True)

sẽ thuận lợi hơn, và có thể gộp 2 hàm sortArr thành mod cũng với tham số như thế
 
Lần chỉnh sửa cuối:
Upvote 0
hoamattroicoi đã viết:
Gửi bạn AndOrNot :
PHP: 
Function SortAndFill(Rng As Range, c As Integer)
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Rng.Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
If c = 1 Then dArr = SortarrAS(dArr)
If c = -1 Then dArr = SortarrDS(dArr)
If c = 0 Then GoTo 1
1:
For i = k + 1 To UBound(sArr)
  ReDim Preserve dArr(1 To i)
  dArr(i) = ""
Next i
SortAndFill = Application.Transpose(dArr)
Set Dic = Nothing
End Function
Trong file đính kèm còn 2 đoạn code để sắp xếp tăng dần và giảm dần, bạn xem chi tiết cách sử dụng hàm trong file nhé.
Nhấp chuột vào đây để mở rộng...

Bài viết trên nhầm, như vậy c có 3 khả năng vậy thì phải dùng biến interger là chuẩn

Tuy vậy có thể cải tiến 1 chút như sau,

giờ chỉ cần 2 hàm,

PHP: 
Function SortAndFill(Rng As Range, Optional MyChoice As Integer = 0)
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr()
Set Dic = CreateObject("Scripting.dictionary")
sArr = Rng.Value
For i = 1 To UBound(sArr)
If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
    k = k + 1
    Dic.Add sArr(i, 1), ""
    ReDim Preserve dArr(1 To k)
    dArr(k) = sArr(i, 1)
End If
Next
Set Dic = Nothing

If MyChoice = 1 Or MyChoice = -1 Then dArr = SortArr(dArr, MyChoice = 1)
ReDim Preserve dArr(1 To UBound(sArr))
For i = k + 1 To UBound(sArr): dArr(i) = "": Next i

SortAndFill = Application.Transpose(dArr)
End Function

'''---------------------------------------------------------------------------
Private Function SortArr(sArr, Optional SmallToLarge As Boolean = True)
Dim Arr
Dim i As Long
Dim j As Long
Dim Lb As Long
Dim n As Long
Dim Tempt
Arr = sArr
n = UBound(Arr)
Lb = LBound(Arr)
For i = Lb To n - 1
    For j = i + 1 To n
        If (SmallToLarge And Arr(i) > Arr(j)) Or _
            (Not SmallToLarge And Arr(i) < Arr(j)) Then
            Tempt = Arr(j): Arr(j) = Arr(i):    Arr(i) = Tempt
        End If
    Next j
Next i
SortArr = Arr
End Function
 
Upvote 0
hoamattroicoi đã viết:
Quan trọng là 3 cái sheet chi tiết đó của bạn bố trí dữ liệu thế nào mới có thể giúp bạn được, nếu 3 sheet mà 3 vùng dữ liệu cần lọc duy nhất và sort nằm ở các cột khác nhau k tuân theo quy tắc nào thì hơi bị mệt đó. Túm lại thuật toán sẽ thêm 1 bước nữa là duyệt qua các sheet gom 3 cột đó lại nhét vào Array và nạp vào DIC hoặc duyệt qua các sheet rồi nhét thẳng các phần tử vào DIC luôn.

Tuy nhiên tôi cứ nói trước với bạn, thực tế và ví dụ nhiều khi là khác xa nhau vì bản thân bạn chưa hiểu về code nên khi lấy ví dụ có thể bị sót các trường hợp phát sinh, tốt nhất nên đưa file thật lên để mọi người có thể giúp bạn, khỏi mất công làm đi rồi lại sửa lại, rất mệt.
Nếu các dữ liệu nằm trên 1 cột nhất định thì bạn chỉnh code SortAndFill() thành thế này nhé.
PHP: 
Sub SortAndFill()
Dim i As Long, k As Long
Dim Dic As Object, sArr(), dArr(), tmpArr
Dim sH As Worksheet
Set Dic = CreateObject("Scripting.dictionary")
For Each sH In Worksheets
    If sH.Name <> "Tong hop" Then
        sArr = sH.Range("A2:A" & sH.[A65536].End(3).Row).Value
        For i = 1 To UBound(sArr)
            If Not IsEmpty(sArr(i, 1)) And Not Dic.exists(sArr(i, 1)) Then
                k = k + 1
                Dic.Add sArr(i, 1), ""
                ReDim Preserve dArr(1 To k)
                dArr(k) = sArr(i, 1)
            End If
        Next
    End If
Next
dArr = SortArr(dArr)
Sheet2.[A2:A100].ClearContents
Sheet2.[A2].Resize(k, 1) = Application.Transpose(dArr)
Set Dic = Nothing
End Sub
Thuật toán như trên tôi đã đề xuất.
Nhấp chuột vào đây để mở rộng...
Sao mình ứng dụng không được vậy bạn ( sheet 2)
 

File đính kèm

Upvote 0
hoanglocphat đã viết:
Sao mình ứng dụng không được vậy bạn ( sheet 2)
Nhấp chuột vào đây để mở rộng...

Bạn chọn cả vùng cần đặt kết quả --> Gõ công thức (hàm tự tạo) theo đúng cú pháp --> Ctrl Shift Enter --> OK

Cách làm của bạn không cho ra kết quả: Chọn 1 ô dữ liệu đặt kết quả --> Gõ công thức --> Ctrl Shift Enter --> Kéo công thức ?
 
Lần chỉnh sửa cuối:
Upvote 0
Bác vodoi2x
user-offline.png
Nothing & Nothing ơi giúp em làm Macro thay vì phải làm tay giống như trong yêu cầu sheet note được không.e lam hoài không được.
hoac link: http://www.mediafire.com/view/?ssb9ycuubpta9s9
 
Lần chỉnh sửa cuối:
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

8
Theo dõi bán hàng (1 người xem)
Trả lời
7
Đọc
137
84huong
8
minhduc1o2
Hình ảnh bị lỗi #VALUE (2 người xem)
Trả lời
5
Đọc
98
minhduc1o2
minhduc1o2
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (2 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
5
Đọc
172
ongke0711
ongke0711
haohvnh
Lỗi hàm SUM không hiển thị ra kết quả
Trả lời
18
Đọc
45K
huy582408
H
befaint
Chia sẻ tâm tư, xả nỗi lòng (1 người xem)
    • Thích
6 7 8
Trả lời
761
Đọc
61K
SA_DQ
SA_DQ
D
xin hỏi về lỗi mô đun ẩn.
Trả lời
5
Đọc
222
YêuCN
Y
S
  • Question Question
Object.close và Set Object = nothing (1 người xem)
Trả lời
14
Đọc
1K
nguyendang95
N
H
Lỗi khi sort data xin được hỗ trợ
Trả lời
2
Đọc
83
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm
    • Chấp nhận
Trả lời
9
Đọc
275
Nguyenkhang2404
Nguyenkhang2404
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
389
Đọc
46K
THANHHANGPT
T
T
Ngắt kết nối với tệp lệnh đính kèm
Trả lời
2
Đọc
92
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
S
tỷ lệ % không khớp khi cộng tổng
Trả lời
2
Đọc
74
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet
Trả lời
1
Đọc
246
PhamMaiTB
P
thanhcongdnk
nhờ các cao nhân giúp dùm, xin đa tạ nhiều
    • Buồn
    • Phẫn nộ
Trả lời
2
Đọc
415
misibi
M
N
  • Question Question
Chia sẻ COM DLL giúp tra cứu mã số thuế từ trang web masothue.com
    • Thích
Trả lời
1
Đọc
423
nguyendang95
N
hoidebiet1710
Doanh thu cho nhiều nhân viên bán hàng
Trả lời
1
Đọc
113
BuiQuangThuan
B
V
  • Question Question
Nhờ mọi người giúp cách xóa các mục đã chọn trong Droplist của một nhóm các ô cùng dạy một môn học.
Trả lời
3
Đọc
204
HUONGHCKT
H
L
Trừ lùi nguyên vật liệu nhập - xuất - tồn theo nhiều điều kiện
Trả lời
7
Đọc
769
oanhleqt
O
D
Lọc cột chứa nhiều nhóm từ trong Excel. Mong các bạn giải đáp giúp
Trả lời
8
Đọc
224
Thai Huyen
Thai Huyen
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