検索機能

検索機能

今回は、エクセルに入力されている数字の中から、ある条件に合うものを検索する関数を紹介します。

【問題】
A列に入力されている複数の数字から、最小値を求めB列に表示させなさい。
(例)A1セル「100*30*5*10」  B1セル「5」

【検索方法1】
1.対象となるセル(この場合A1セル)を選択します。

2.メニュー → データ → 区切り位置 → カンマやタブ を選択し「次へ」

3.区切り文字の所の指定を「その他」→「*」と入力で、数字が4つに分かれます。

4.区切られた数字の範囲をセル指定し、「=MIN(セル範囲)」と入力すると最小値が検索されます。

【検索方法2】
マクロで関数を作成しそれを指定する方法です。

1.ユーザー定義関数を使用します。

2.メニューより「挿入」→「標準モジュール」を選択

3.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

4.最小値を表示させたいセルに「=mojimin(A1)」と指定します。


上記2つの方法のいずれを使っても最小値が表示されます。やってみてくださいね。