No. | 質問・回答 | おれい |
|
[121400] Excelで検索をしてそのセルを画面表示させたい |
|
|
OS: Windows XP Excel2000 SP-3
大きい表があり検索をマクロでしたいのですが、なかなか上手くできません。
やりたいことを記載します。
1.検索したい文字列をセルJ2に入力するとします。
2.検索マクロを実行させて、カーソルは思っている所に飛ぶのですが
画面が付いてきてくれません。画面はスクロールされず、カーソル
だけが移動されます。
マクロが初心者レベルで困っています。
お力を貸してください。
下記は、今現在分からずに作成したマクロです、よろしくお願いします。
Sub 検索()
'
' 検索 Macro
' マクロ記録日 : 2011/2/17
'
'マクロ実行画面の凍結
Application.ScreenUpdating = False
'変数宣言
Dim 文字列 As String
'
文字列 = Range("J2")
Cells.Find(What:=文字列, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End Sub
ぶーちゃん (未登録) 2011年2月17日16:24
|
|
|
|
[121401] |
Application.ScreenUpdating = False
うちはExcel 2010ですが、上の1行を消す、または先頭に'をつけてコメントアウトするとスクロールしました。
ホイス (未登録) 2011年2月17日17:18
|
|
|
|
[121402] |
このままだとJ2にジャンプしそうですけど、J2を省く処理は別に何とかするとして
Cells.Find(What・・に替えて下記はどうでしょうか?
Dim y as Long
Dim x as Integer
y = Cells.Find(文字列).Row
x = Cells.Find(文字列).Column
Application.Goto Reference:=Cells(y, x), scroll:=True
PS:ホイスさんの回答で解決しそうですね。ご参考まで
mit56 (340) 2011年2月17日17:37
|
|
|
|
[121409] |
ホイスさん・mit56さん、ありがとうございました。
Application.ScreenUpdating = False
こちらを外すだけで良かったのですね!
何かの例題を見てやったもので、こちらの命令の意味が載って
いなかったので分からずに使用していました。
分からずに使うのは怖いものですね!
今思えば、分からないなりにネット等で命令を調べてから
使わないといけないなぁと思いました。
今回はありがとうございました。
ぶーちゃん (未登録) 2011年2月18日08:54
|
|
|
|
( 参照数:2632 日平均:0.5 ) |
|
〜 回答の受付を終了しました 〜 |