日付の検索（配列の使用）

公開日：2013年5月以前　最終更新日：2013-05-14

日付の検索（配列の使用）

日付の検索は、いろいろと面倒です。

Findメソッドで検索する場合、表示書式に左右されますので、

表示書式を変更しただけで、検索されなくなります。

これは、手作業での検索においても同様になりますが、マクロとしてはいかにも不便です。

以下のように、配列を自分で探すようにすれば、このような問題は発生しません。




Sub sample()
　　Dim i As Long, j As Long
　　Dim ary
　　ary = 
ActiveSheet.UsedRange
　　For i = LBound(ary, 1) To UBound(ary, 1)
　　　　For j 
= LBound(ary, 2) To UBound(ary, 2)
　　　　　　If ary(i, j) = Date 
Then
　　　　　　　　ActiveSheet.UsedRange.Cells(i, j).Select
　　　　　　　　Exit 
Sub
　　　　　　End If
　　　　Next j
　　Next i
End 
Sub

まあ、ちょっと面倒ですが、確実に検索するためには仕方ありません。

上記をコピペして、検索条件のIF文だけ変更すれば、いろいろと用途が広がると思います。

同じテーマ「マクロVBAサンプル集」の記事

半角カナのみ全角カナに変換する

半角カナのみ全角カナに変換します。ネットを探してみたところ、あるにはあるのですが、どうも中途半端。直ぐに使えて、汎用性のあるプログラムが見つからなかったので、作ってみました。ではプログラムです。PrivateSub半角カナto全角カナ(ByRefobjRangeAsRange)DimstrInAs String'元…

計算式の元となる数値定数を消去する（Precedents）

指定のセルの計算式が参照しているセルの数値定数をクリアします。ただし、参照しているセルが、さらに他のセルを参照している場合は、その先のセルを消去します。つまり、計算式の入っているセルを起点にして、その参照先をすべて検索し、計算式の元となるセル（数値定数が入っているセル）の値をクリアします。

Beep音で音楽（Beep,Sleep）

時々検索されるので、Beep音で音楽を演奏してみましょう。プログラムはほぼAPIをCALLするだけです。まずは、シートです。こんな感じです。ドレミの周波数は結構適当なので、詳しい方は自分で調整して下さい。

日付の検索（配列の使用）
ストップウォッチ（1/100秒）（Timer）

・ストップウォッチVBAコード・ストップウォッチVBA解説・ストップウォッチ機能強化版

ストップウォッチ改（1/100秒）（Timer）

・公開済みの初期のストップウォッチ・追加する機能・シートレイアウト・VBAコード・ダウンロード

重複の無いユニークなデータ作成

簡単な例でシート「元データ」A列に、１行目に見出し、２行目以降にデータが入っているシート「ユニーク」このA列に、シート「元データ」のA列をユニーク（一意）にして取り出します。まずは、エクセルらしく、ワークシート関数とフィルターを使って非常にエクセルらしい、素直な処理です。

WEBデータの取得方法

・サンプルページ・QueryTables ・InternetExplorer ・MSHTML ・MSXML2 ・WEBデータの取得方法の最後に

右クリックメニューの変更（CommandBars）

・シートモジュールに以下を追加・標準モジュールに以下を追加・コマンドバー.Controls.Add() ・コントロールのメンバーについて・CommandBarsの種類

エクセルのアイコン取得（FaceID）

エクセル内のアイコンを取得します。「右クリックメニューの変更」のFaceIdとして使用します。2003までなら、ツールバーが追加されます。2007以降では、リボンのアドインの中に追加されます。ConststartNoAsInteger=1'開始番号を指定 ConststopNoAsInteger=50'終了番号を指…

素数を求めるマクロ

素数とは、1と自分自身以外に正の約数を持たない、1でない自然数のことです、この素数を求めて、シートに出力するマクロになります。特に何かに使えると言う事もないので、PCの計算能力って、どの程度なのかを実感してみるくらいの事でしょうか。注意このマクロはオーバーフローするまで停止しません。

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
日付の検索（配列の使用）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBAサンプル集
日付の検索（配列の使用）