マクロを使った検索ツール

マクロを使った検索ツール

下記コードを記載します。
Sub Data_Find()
Dim 検索対象セル As Range
Dim 最初のセル As String
Dim 検索件数 As Long

Cells.Interior.ColorIndex = xlNone

If ActiveCell.Value = "" Then
Exit Sub
End If

Set 対象セル = Cells.Find(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, Lookat:=xlWhole)
'what=検索ワード、After=検索開始位置、LookIn=（xlValues値）、Lookat=（xlWhole完全一致）（xlPart部分一致）
最初のセル = 検索対象セル.Address
Do
検索対象セル.Interior.ColorIndex = 37
検索件数 = 検索件数 + 1

Set 検索対象セル = Cells.FindNext(検索対象セル)
Loop While 検索対象セル.Address

アクティブセルの文字列を検索し、該当するセルに色が付きます。
部分一致、完全一致は、「Lookat」の部分を変更して下さい。

アクティブセルに色をつける

アクティブセルに色をつける

wookbook内に下記コードを記載します。
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

そして、色をつけたい範囲の対象セルの条件付書式に下記を記載します。
=OR(CELL("row")=ROW(), CELL("col")=COLUMN())

1列左へ移動する

1列左へ移動する

1つ左へ移動させたい場合は、下記のように記載します。
Selection.Offset(0, -1).Select
上記のように記載すると、アクティブセルのひとつ左へ移動します。

1行上へ移動する

1行上へ移動する

1つ上へ移動させたい場合は、下記のように記載します。
Selection.Offset(-1, 0).Select
上記のように記載すると、アクティブセルのひとつ上へ移動します。

1列右へ移動する

1列右へ移動する

1つ右へ移動させたい場合は、下記のように記載します。
Selection.Offset(0, 1).Select
上記のように記載すると、アクティブセルのひとつ右へ移動します。

1行下へ移動する

1行下へ移動する

1つ下へ移動させたい場合は、下記のように記載します。
Selection.Offset(1, 0).Select
上記のように記載すると、アクティブセルのひとつ下へ移動します。

エラーを印刷しない

エラーを印刷しない

通常は印刷されてしまうエラー表示ですが、印刷したくない場合は下記のように行います。
ファイル→ページ設定→シートタブ内のセルのエラーを空白にしてOKを押します。
上記のように設定しておくと、エラーがプリントされません。

コメント印刷

コメント印刷

通常は印刷されないコメントですが、印刷したい場合は下記のように行います。
ファイル→ページ設定→シートタブ内のコメント欄を画面表示イメージへ変え、OKを押します。
上記のように設定しておくと、印刷した際にコメントが画面表示通りにプリントされます。

行列番号印刷

行列番号印刷

通常は印刷されない行列番号ですが、印刷したい場合は下記のように行います。
ファイル→ページ設定→シートタブ内の行列番号にチェックを入れてOKを押します。
上記のように設定しておくと、印刷した際に行列番号もプリントされます。

枠線印刷

枠線印刷

通常は印刷されない枠線ですが、印刷したい場合は下記のように行います。
ファイル→ページ設定→シートタブ内の枠線にチェックを入れてOKを押します。
上記のように設定しておくと、印刷した際に枠線もプリントされます。