符合兩個以上的條件，並顯示相關資訊

013160

下載 (45.42 KB)

2020-11-14 16:23

價格.rar (14.4 KB)

下載次數: 14

2020-11-14 16:24

各位版大您好，
請問如果要符合兩個以上條件的顯示出相關資訊公式應如何設定?
EX：輸入品名規格和尺寸　在下方顯示絞距／價格．．．資訊

hcm19522

https://blog.xuite.net/hcm19522/twblog/589462664

013160

回復 2# hcm19522

不好意思可以解釋一下公式嗎?

hcm19522

回復 3# 013160


    判斷二條件符合 取列位置 再從最小位置取資料  右拉跳動式 非依序取資料 所以用CHOOSE(COLUMN(A1)

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖練習在儲存格自動產生需求清單與次清單,學習方案如下,請各位前輩指教
選取[K2]儲存格產生清單:

下載 (219.08 KB)

2024-1-17 15:46

[K2]選取清單後在[M2]產生次清單:

下載 (217.54 KB)

2024-1-17 15:47

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Brr, Z, i&
With Target
   If .Address(0, 0) = "K2" Then
      Brr = Range([C2], [C65536].End(3))
      Set Z = CreateObject("Scripting.Dictionary")
      For i = 1 To UBound(Brr)
         If Trim(Brr(i, 1)) <> "" Then Z(Trim(Brr(i, 1))) = ""
      Next
      With .Validation
        .Delete
        If Z.Count > 0 Then .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(Z.KEYS(), ",")
        Set Z = Nothing: Brr = Empty
    End With
   End If
End With

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Brr, Z, i&
With Target
   If .Address(0, 0) = "K2" Then
      Brr = Range([D2], [C65536].End(3))
      Set Z = CreateObject("Scripting.Dictionary")
      For i = 1 To UBound(Brr)
         If Brr(i, 1) = .Value And Trim(Brr(i, 2)) <> "" Then Z(Trim(Brr(i, 2))) = ""
      Next
      With [M2].Validation
        .Delete
        If Z.Count > 0 Then .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(Z.KEYS(), ",")
        Set Z = Nothing: Brr = Empty
    End With
   End If
   If .Address(0, 0) = "M2" Then Call 列出明細
End With
End Sub

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,將符合條件的資料明細列出,學習方案如下,請各位前輩指教
執行前:

下載 (262.87 KB)

2024-1-18 09:21

選取清單後執行結果:

下載 (279.89 KB)

2024-1-18 09:22

Sub 列出明細()
Dim Brr, i&, K$, M$, T3$, T4$, A, N&, j%
Brr = Range([I2], [B65536].End(3)(1, 0))
Intersect([J:N], ActiveSheet.UsedRange).Offset(4).ClearContents
K = Trim([K2]): M = Trim([M2]): A = [{5,6,9,8,2}]
For i = 2 To UBound(Brr)
   T3 = Trim(Brr(i, 3)): T4 = Trim(Brr(i, 4))
   If T3 = K And T4 = M Then
      N = N + 1
      For j = 1 To 5: Brr(N, j) = Brr(i, A(j)): Next
   End If
Next
If N = 0 Then Exit Sub Else [J5].Resize(N, 5) = Brr
Brr = Empty
End Sub