FC2ブログ

UVlookup・Umatch を作りました。

2017–09–19 (Tue) 21:29
Uvlookup は、VLOOKUPを下からする物です(Under Vlookupです)

Function Uvlookup(検索する文字列 As String, 範囲 As Range, 列番号 As Long)
Dim hani As Variant, owari As Long, MaxCol As Long, i As Long, j As Long
hani = 範囲
owari = UBound(hani, 1)
MaxCol = UBound(hani, 2)
For i = owari To 1 Step -1
If InStr(hani(i, 1), 検索する文字列) <> 0 Then
Uvlookup = hani(i, 列番号)
Exit For
End If
Next
End Function

Umatch は、matchを下からする物です(Under Matchです)
Function Umatch(検索する文字列 As String, 範囲 As Range)
Dim hani As Variant, owari As Long, MaxCol As Long, i As Long, j As Long
hani = 範囲
owari = UBound(hani, 1)
For i = owari To 1 Step -1
If InStr(hani(i, 1), 検索する文字列) <> 0 Then
Umatch = i + 範囲.Row - 1
Exit For
End If
Next
End Function

UVLOOKUPは使いやすいかもしれませんね。Matchも使いやすいかも……。どうかなあ??? 皆様是非お使い下さい。
あともう一つ作りたいので、今からそれを作ってきます(*^_^*)(*^_^*)

スポンサーサイト



« アクティブシートをコピーして検索文字列の色を変更する | HOME |  VlookupShitei を作ってみました »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク