| |
▼みけ さん：
こんばんは。
ユーザー定義関数ではいけませんか？
例えば、
セルＡ１から、以下のようなデータが入力されていたとしましょう。
Ａ Ｂ Ｃ Ｄ
品名 コード 支店名 商品名
Ｃ 100 Ｂ店 商品1
Ａ 100 Ｂ店 商品2
Ａ 100 Ｂ店 商品3
Ａ 100 Ｂ店 商品4
Ａ 100 Ｂ店 商品5
Ａ 100 Ｂ店 商品6
Ａ 100 Ｂ店 商品7
Ａ 100 Ｂ店 商品8
Ａ 100 Ｂ店 商品9
Ａ 100 Ｂ店 商品10
Ｂ 100 Ｂ店 商品11
Ｂ 100 Ｂ店 商品12
Ａ 100 Ｂ店 商品13
Ａ 100 Ｂ店 商品14
Ａ 100 Ｂ店 商品15
Ａ 100 Ｂ店 商品16
Ａ 100 Ｂ店 商品17
同じシートのＦ１、Ｇ１、Ｈ１にそれぞれ「Ａ」、「100」、「Ｂ店」
入力し、
セルＩ１には、
「=myfind($A$2:$D$18,4,F1,G1,H1)」指定します。
コードは､一例ですが、標準モジュールに
'====================================================
Function myfind(検索範囲 As Range, 結果列 As Long, ParamArray mycond())
Dim ans()
Dim t_or_f As Boolean
Application.Volatile
With 検索範囲
kdx = 1
For idx = 1 To .Rows.Count
t_or_f = True
For jdx = LBound(mycond()) To UBound(mycond())
If .Cells(idx, jdx + 1).Value <> mycond(jdx) Then
t_or_f = False
Exit For
End If
Next jdx
If t_or_f = True Then
ReDim Preserve ans(1 To kdx)
ans(kdx) = .Cells(idx, 結果列).Value
kdx = kdx + 1
End If
Next idx
myfind = ""
If Not IsEmpty(ans()) Then
myfind = Join(ans(), ",")
End If
End With
End Function
|
|
ichinose
- 03/12/24(水) 19:25 -
