エクセルテクニック

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

下記コードを記載します。
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 そして、色をつけたい範囲の対象セルの条件付書式に下記を記載します . . . 本文を読む

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

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

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