=OFFSET(Sheet1!$K$2,0,0,COUNTA(Sheet1!$K:$K)-1)=OFFSET(Sheet1!$B$2,MATCH(Sheet1!$C$13,OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1),0)-1,0,COUNTIF(Sheet1!$A:$A,Sheet1!$C$13))
Lúc đầu cũng loay hoay toát mồ hôi cái công thức mảng vì vào xem công thức xong hên là nhấn enter thấy nó nhảy kết quả ban đầu mà lại mất cái dấu {} rồi nghĩ mình có sửa công thức đâu chỉ xem thôi mà, thế là tìm trong diễn đàn mới biết chứ ko đâu biết đâu
)
Nếu tôi làm bài này thì sẽ làm hơi khác 1 chút:
Function JoinIf(ByVal Delimiter As String, ByVal CriteriaArray, ByVal Criteria, Optional ByVal TargetArray) As String
Dim aTmpCrit, aTmpDes, tmp1, tmp2, arr(), dic As Object
Dim bComp As Boolean, Chk As Boolean
Dim i As Long, j As Long, k As Long, dTmpVal As Double
Set dic = CreateObject("Scripting.Dictionary")
If IsMissing(TargetArray) Then TargetArray = CriteriaArray
aTmpCrit = ConvertTo1DArray(CriteriaArray)
aTmpDes = ConvertTo1DArray(TargetArray)
If (Not IsArray(aTmpCrit)) Or (Not IsArray(aTmpDes)) Then Exit Function
On Error Resume Next
bComp = (InStr("<>=", Left(Criteria, 1)) > 0)
For i = LBound(aTmpDes) To UBound(aTmpDes)
tmp1 = aTmpCrit(i): tmp2 = aTmpDes(i)
If bComp And Len(Criteria) Then
dTmpVal = CDbl(aTmpCrit(i))
If Evaluate(dTmpVal & Criteria) Then dic.Add tmp2, ""
Else
If (Left(Criteria, 1) = "!") Then
If Not (UCase(tmp1) Like UCase(Mid(Criteria, 2, Len(Criteria)))) Then dic.Add tmp2, ""
Else
If (UCase(tmp1) Like UCase(Criteria)) Then dic.Add tmp2, ""
End If
End If
Next
If dic.Count Then
arr = dic.Keys
JoinIf = Join(arr, Delimiter)
End If
End Function
Private Function ConvertTo1DArray(ByVal SourceArray)
Dim aTmp, Item, arr()
Dim n As Long
On Error Resume Next
aTmp = SourceArray
If Not IsArray(aTmp) Then aTmp = Array(aTmp)
For Each Item In aTmp
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = Item
Next
ConvertTo1DArray = arr
End FunctionPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim sValidation As String
On Error Resume Next
If Target.Address = "$F$3" Then
sValidation = JoinIf(",", Range("A2:A100"), Target.Value, Range("B2:B100"))
With Range("H3").Validation
.Delete
.Add 3, , , sValidation
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sValidation As String
On Error Resume Next
With Target
If .Address = "$F$3" Then
sValidation = JoinIf(",", Range("A2:A100"), "*")
.Validation.Delete
.Validation.Add 3, , , sValidation
End If
End With
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sValidation As String
On Error Resume Next
If Target.Address = Range("F3:F5") Then
sValidation = JoinIf(",", Range("A2:A100"), Target.Value, Range("B2:B100"))
With Range("H3").Validation
.Delete
.Add 3, , , sValidation
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sValidation As String
On Error Resume Next
With Target
If .Address = "$F$3" Then
sValidation = JoinIf(",", Range("A2:A100"), "*")
.Validation.Delete
.Validation.Add 3, , , sValidation
End If
End With
End Sub
File chứa nhiều styles rác.Chào các bạn,
Mình có thắc mắc xin các bạn giải đáp dùm mình chỗ sai. Cám ơn trước
Xin các bạn xem file đính kèm.
Câu 3 đề bài yêu cầu tính tổng số lượng & tổng thành tiền của từng hãng HTC, Samsung, Nokia.
View attachment 185683
Mình dùng data validation cho Hãng SX & tên hàng. Thế nhưng khi chọn một hãng SX cụ thể& tên hàng cụ thể ví dụ HTC wildfire thì excel không tự động cập nhật Tổng số lượng & Tổng thành tiền cho HTC wildfire. Mình không biết là mình thao tác sai ở chỗ nào, các bạn xem file rồi kiểm tra dùm mình.
Xin đừng "ném đá" mình nếu mình hỏi hơi bị ngu.
Chân thành cảm ơn.
