Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12499 / 76734

←次へ　｜　前へ→


	【69753】Re:検索前に戻したい

とおりすぎ - 11/8/26(金) 10:26 -


	引用なし

	パスワード

コード拝見しました。
思っていたのとぜんぜん違っていました。

A1:H2の値をとっておいて、一回セルをクリアしてから、A1、B1、C1に
結果シートから移し、A2、B3、C4、D5にA2の値(*付き）を入れ、
検索シートのA1:D5の条件で、A6以下に結果シートから、フィルタオプション
の設定で抽出する。
ウインドウ枠の固定やセル幅、高さなどを整えた後に、画像を挿入。

と言ったことをやっておられてるかと思いますが、セルをいったんクリア
してるので、元に戻すには、別のシートにでも取っておき、必要なときに
それを読みに行くと言った方法になると思います。

はじめの方の
Range("A1:D2,A3:T1506").ClearContents
でセルの値を消しているので、その前に、

Sheets("別のシート").Range("A1:D2").value=Range("A1:D2").value
Sheets("別のシート").Range("A3:T1506").value=Range("A3:T1506").value

として、別のシートに値を移しておいて、必要なときに、

Range("A1:D2").Value = Sheets("別のシート").Range("A1:D2").Value
Range("A3:T1506").Value = Sheets("別のシート").Range("A3:T1506").Value

で元に戻すことになる。

20 hits

▼

【69651】検索前に戻したい a 11/8/17(水) 8:06