アフィリエイト広告を利用しています
ファン
最新記事
カテゴリーアーカイブ
日別アーカイブ

広告

posted by fanblog

2017年12月19日

Excelで車庫証明アプリを作ろう

【オーディオ買取の音屋】




東京の人気ホテル・旅館が最大50%OFF





マイクロソフトアクセスの記事はこちら

人気ブログランキングへ



にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村



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

上記のようにすると、もし該当する駐車場bェ無い場合は、そのまま終了します。




初期費用0円!格安スマホ【UQmobile】


この記事へのコメント
コメントを書く

お名前:

メールアドレス:


ホームページアドレス:

コメント:

※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバックURL
https://fanblogs.jp/tb/7105829
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック
検索
タグクラウド
プロフィール
yoshimatsuさんの画像
yoshimatsu
60過ぎのおっちゃんです。同じ年齢層の中ではそこそこパソコンが使える方だと自負しています。今まで会社等で学んだ知識等を紹介していきたいと思います。
プロフィール
google-site-verification: google948a2bbbd2fd5164.html
×

この広告は30日以上新しい記事の更新がないブログに表示されております。