エクセル関数(検索機能)
エクセル関数で検索機能を作成する場合の方法を紹介します。
<問題>
A列に入力されている複数の数字から最小値を求め、B列に表示させたい。
(例)A1セル「100*30*5*10」
B1セル「5」
・検索方法1
1.対象となるセル(この場合はA1セル)を選択します。
2.メニュー → データ → 区切り位置 → カンマやタブ を選択し「次へ」
3.区切り文字の所の指定を「その他」→「*」と入力することにより、数字が4つに分かれます。
4.区切られた数字の範囲をセル指定し、「=MIN(セル範囲)」と入力すると最小値が検索されます。
・検索方法2
マクロで関数を作成しそれを指定する方法です。
ユーザー定義関数を使用します。
1.メニューより「挿入」→「標準モジュール」を選択します。
2.VBE画面が開いたら以下のコードを記述します。
Function mojimin(Target As Range) As Variant
Dim A As Variant, B As Variant
Dim i As Double
A = Split(Target.Value, "*")
ReDim B(0 To UBound(A))
For i = LBound(A) To UBound(A)
B(i) = CDbl(A(i))
Next
mojimin = WorksheetFunction.Min(B)
End Function
3.最小値を表示させたいセルに「=mojimin(A1)」と指定します。
上記二つのいずれの方法を使っても問題は解決できると思います。
参考にしてみてください。