エクセルテクニック

エクセルのテクニック情報共有をしましょう。

広告

※このエリアは、60日間投稿が無い場合に表示されます。記事を投稿すると、表示されなくなります。

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

2010-11-06 22:40:18 | マクロ
マクロを使った検索ツール

下記コードを記載します。
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」の部分を変更して下さい。
コメント (0) |  トラックバック (0) | 

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

2010-11-06 22:36:17 | マクロ
アクティブセルに色をつける

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())
コメント (0) |  トラックバック (0) | 

1列左へ移動する

2007-04-10 22:57:29 | マクロ
1列左へ移動する

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


コメント (0) |  トラックバック (0) | 

1行上へ移動する

2007-04-09 23:17:50 | マクロ
1行上へ移動する

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

1列右へ移動する

2007-04-07 13:06:32 | マクロ
1列右へ移動する

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

1行下へ移動する

2007-04-05 23:28:28 | マクロ
1行下へ移動する

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

コメント (0) |  トラックバック (0) | 

エラーを印刷しない

2006-09-25 00:00:00 | 知っていると便利
エラーを印刷しない

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

コメント印刷

2006-09-24 00:00:00 | 知っていると便利
コメント印刷

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

行列番号印刷

2006-09-23 00:00:00 | 知っていると便利
行列番号印刷

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

枠線印刷

2006-09-22 00:00:00 | 知っていると便利
枠線印刷

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