Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


179 / 73441 ←次へ | 前へ→

【78892】Re:検索し、各シートを検索したセルを表示したい
発言  β  - 17/2/20(月) 23:31 -

引用なし
パスワード
   ▼はる さん:

日付検索は、なかなかやっかいです。
用いる手法(今回の場合はFindメソッド)により、適切な検索方法をとる必要があります。

それ以外のコード記述にも問題が少なくありませんが、それ以前に、仕様が少し、あいまいです。

最初に SHeet2 の A1 に 昨日の日付を入れているわけですが、
その値を元にすべてのシートを処理してますね。
すべてですから、Sheet2 も対象で、つまり、Sheet2 なら、A1 が左上隅になるように
スクロールさせたい?
それとも Sheet2 は対象外?

関係するブックですけど、ActiveWorkbookが登場していますね。
これはマクロブックを意図しておられるのですか?
それとも、別のブックを意図しておられるのですか?

ポイントは以下かな?

    If Not Findcell Is Nothing Then
      On Error Resume Next
      '##移動
    Else
      ActiveWindow.ScrollRow = Findcell
    End If

この On Error Resume Next 、これは何を意図して書かれたコードかわかりませんけど
見つかった場合は On Error Resume Next ??
見つからなかった場合は Else にいきますよね。
見つからなかったのにスクロール?
FindCell は Nothing ですからエラーになるのは当たり前なんですけど?


>▼ウッシ さん:
>返信ありがとうございます。
>早速試してみましたが、
>
>上のコード
>実行時エラー5
>プロシージャの呼び出し、または引数が不正です。
>
>下のコード
>実行時エラー91
>オブジェクト変数またはWithブロック変数が設定されていません。
>
>と表示され動きませんでした。
>
>自分の書いたコードのIFが悪さをしているのかと外してみましたが変わらず・・・
>お助けくださいませ

56 hits

【78884】検索し、各シートを検索したセルを表示したい はる 17/2/20(月) 2:03 質問[未読]
【78885】Re:検索し、各シートを検索したセルを表示... ウッシ 17/2/20(月) 8:40 回答[未読]
【78886】Re:検索し、各シートを検索したセルを表示... ウッシ 17/2/20(月) 8:42 回答[未読]
【78891】Re:検索し、各シートを検索したセルを表示... はる 17/2/20(月) 22:46 質問[未読]
【78892】Re:検索し、各シートを検索したセルを表示... β 17/2/20(月) 23:31 発言[未読]
【78894】Re:検索し、各シートを検索したセルを表示... HARU 17/2/21(火) 6:07 質問[未読]
【78895】Re:検索し、各シートを検索したセルを表示... β 17/2/21(火) 7:01 発言[未読]
【78896】Re:検索し、各シートを検索したセルを表示... β 17/2/21(火) 7:03 発言[未読]
【78897】Re:検索し、各シートを検索したセルを表示... はる 17/2/21(火) 8:08 質問[未読]
【78901】Re:検索し、各シートを検索したセルを表示... β 17/2/21(火) 16:09 発言[未読]
【78898】Re:検索し、各シートを検索したセルを表示... ウッシ 17/2/21(火) 8:12 回答[未読]
【78893】Re:検索し、各シートを検索したセルを表示... β 17/2/20(月) 23:40 発言[未読]

179 / 73441 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free