名前の定義を検索するマクロ-2

2017–09–14 (Thu) 18:45
'指定したセルが入力されている場合のみ、名前の定義を検索するマクロ
Function Sget2(基準セル As Range, 検索文字列 As String, 検索範囲名 As String, 取得範囲名 As String)

If 基準セル.Value = "" Then '対象セルがブランクなら
Sget2 = ""
Else
On Error Resume Next
basyo = WorksheetFunction.Match(検索文字列, Range(検索範囲名).Value, 0)
On Error GoTo 0
If basyo <> 0 Then
Sget2 = WorksheetFunction.index(Range(取得範囲名).Value, basyo)
Else
Sget2 = ""
End If
End If
End Function

綺麗に出来ました。。。
やっぱりきちんと欲しい物は作った方が良いですね~~~。

スポンサーサイト

« 名前の範囲を検索し、他の範囲から文字列を取得する | HOME |  期間(~まで)マクロも修正されました。 »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク