新規記事の投稿を行うことで、非表示にすることが可能です。
2017年12月19日
Excelで車庫証明アプリを作ろう
【オーディオ買取の音屋】
東京の人気ホテル・旅館が最大50%OFF
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
Find関数について
Cells.Find(what:=m).Selectについて
条件に当てはまるセルを探します。
【構文】
Object.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
・Object・・・Rangeオブジェクト
・What・・・検索するデータを指定します。省略できません。
・After・・・単一のセルを指定。この引数に指定したセルの次の
セルから検索を開始します。
省略するとObjectで指定したセル範囲の左上の次の
セルから検索します。（省略可能）
・LookIn・・・検索の対象を指定。（省略可能）
数式・・・（xlFormulas）
値・・・（xlValues）
コメント・・・（xlComments）
・LookAt・・・完全に同一のセルだけ検索します。（xlWhole）
一部でも一致するセルを検索。（xlPart）
（省略可能）
・SearchOrder・・・検索方向を指定する。（省略可能）
列方向（xlByColumns）
行方向（xlByRows）
・SearchDirection・・・前方に検索する場合(xlNext：既定値)
後方に検索する場合(xlPrevious)
（省略可能）
・MatchCase・・・大文字と小文字を区別する場合(True)
区別しない場合(False)
（省略可能）
・MatchByte・・・半角と全角を区別する場合(True)
区別しない場合(False)
（省略可能）
・SearchFormat・・・書式を検索する場合(True)
書式を検索しない場合(False)
（省略可能）
上記のような内容になります。
また、条件に当てはまるセルが複数存在する場合は、
見つかったセルの次を検索するためにFindNextメソッドと
FindPreviousメソッドを使用します。
・Object.FindNext(After)
・Object.FindPrevious(After)
今回は「what」以外は全て省略して「Cells.Find(what:=m)」となっております。
今回は必ず検索する駐車場が見つかるという前提でVBAを
作成していますが、本来は見つからない場合も想定に入れる必要があります。
見つからない場合はエラーが発生します。
Findメソッドはセルを見つけた場合、そのセルを表すRange
オブジェクトを返し、見つからなかった場合はNothingを返します。
下に例文を記載します。
Dim Rng As Range
Set Rng = Cells.Find(What:=m)
If Not Rng Is Nothing Then
Cells.Find(what:=m).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
上記のようにすると、もし該当する駐車場№が無い場合は、そのまま終了します。
初期費用0円！格安スマホ【UQmobile】
東京の人気ホテル・旅館が最大50%OFF
マイクロソフトアクセスの記事はこちら
人気ブログランキングへ
にほんブログ村
Find関数について
Cells.Find(what:=m).Selectについて
条件に当てはまるセルを探します。
【構文】
Object.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,
MatchCase, MatchByte, SearchFormat)
・Object・・・Rangeオブジェクト
・What・・・検索するデータを指定します。省略できません。
・After・・・単一のセルを指定。この引数に指定したセルの次の
セルから検索を開始します。
省略するとObjectで指定したセル範囲の左上の次の
セルから検索します。（省略可能）
・LookIn・・・検索の対象を指定。（省略可能）
数式・・・（xlFormulas）
値・・・（xlValues）
コメント・・・（xlComments）
・LookAt・・・完全に同一のセルだけ検索します。（xlWhole）
一部でも一致するセルを検索。（xlPart）
（省略可能）
・SearchOrder・・・検索方向を指定する。（省略可能）
列方向（xlByColumns）
行方向（xlByRows）
・SearchDirection・・・前方に検索する場合(xlNext：既定値)
後方に検索する場合(xlPrevious)
（省略可能）
・MatchCase・・・大文字と小文字を区別する場合(True)
区別しない場合(False)
（省略可能）
・MatchByte・・・半角と全角を区別する場合(True)
区別しない場合(False)
（省略可能）
・SearchFormat・・・書式を検索する場合(True)
書式を検索しない場合(False)
（省略可能）
上記のような内容になります。
また、条件に当てはまるセルが複数存在する場合は、
見つかったセルの次を検索するためにFindNextメソッドと
FindPreviousメソッドを使用します。
・Object.FindNext(After)
・Object.FindPrevious(After)
今回は「what」以外は全て省略して「Cells.Find(what:=m)」となっております。
今回は必ず検索する駐車場が見つかるという前提でVBAを
作成していますが、本来は見つからない場合も想定に入れる必要があります。
見つからない場合はエラーが発生します。
Findメソッドはセルを見つけた場合、そのセルを表すRange
オブジェクトを返し、見つからなかった場合はNothingを返します。
下に例文を記載します。
Dim Rng As Range
Set Rng = Cells.Find(What:=m)
If Not Rng Is Nothing Then
Cells.Find(what:=m).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16764159
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
上記のようにすると、もし該当する駐車場№が無い場合は、そのまま終了します。
初期費用0円！格安スマホ【UQmobile】
