左にあるシートを新規ブックとしてコピー。前回の質問未解決でした。変動する総計を半期合計で計算したい。回答数ランキングです。職業恋愛アドバイザー・婚活アドバイザーこの専門家の回答をチェック5専門家プロファイル_柏木りさこ職業恋愛アドバイザー・婚活アドバイザーこの専門家の回答をチェック他の専門家の回答をチェックこのQ&Aを見た人が検索しているワードVBAこのQ&Aと関連する良く見られている質問Q別のシートから値を取得するときWorksheets("シート名").Activate上記のを行ってから別シートの値を取得するのですが、この処理を行うと指定したシートへ強制的にとんでしまいます。~Worksheets("シートA").ActivateシートAの値取得:Worksheets("シートB").ActivateシートBの値取得Nextこのイメージ処理を行うとものすごい勢いで画面がチカチカします。シートを変えずに他のシートから値を取得する方法はないのでしょうか。コピーを有効行までループをする方法VBAをはじめたばかりの初心者です。業務でマクロ処理をするよう言われましたが、苦戦しております。なんとか今週中にしあげなければならない状況で、ご存知の方がいらっしゃれば助けていただければと思います。1行目・・・項目が記載されています。2行目以降・・・A列~G列・I~K列に住所などの情報があり、H列とL列にはとある計算式をいれています。件数は約500件(500行)程度で、毎回変更します。H2とL2に計算式を入れて、セルH2の値をH3にコピー、セルL2の値をL3にコピーするマクロが自動記録で次のようにできました。FalseSelection.CopyRange("L3").SelectActiveSheet.Pasteこれを、H4・L4、H5・L5・・・・と繰り返してコピーをしていき、データがなくなったらループを修了するという記述をしたいのですが、わかりません。ネットで探してみたのですが、データ数を指定するやり方(?)ではなく、「Do~Loop」を使った方法でやりたいと思っております。どなたか教えていただけませんでしょうか。VBAをはじめたばかりの初心者です。業務でマクロ処理をするよう言われましたが、苦戦しております。なんとか今週中にしあげなければならない状況で、ご存知の方がいらっしゃれば助けていただければと思います。1行目・・・項目が記載されています。2行目以降・・・A列~G列・I~K列に住所などの情報があり、H列とL列にはとある計算式をいれています。件数は約500件(500行)程度で、毎回変更します。方法はいくつかあると思いますが。Sub'---------------------------------A列のデータで最終行を判断してます。方法はいくつかあると思いますが。&...続きを読む他の回答も見るQ条件にマッチする行を抽出するVBAを教えてくださいアイデア、またはVBAプログラムの例を教えていただきたく、質問させていただきますexcelで、添付画像のようなリスト管理表を作っています。リストは600行近くになります。やりたいことは、D3またはE3に商品名または保管庫を入力すると、リスト内から、合致する行だけが抽出される、というもの。D3とE3は、どちらか片方にのみ条件が入る。D3とE3の内容を変更するとリアルタイムで抽出結果も変更されるようにしたい。触る人が初心者なので、難しい作業を一切せずに、D3またはE3を打ちかえるだけで必要な項目だけのリストとなり、印刷するだけでいいようにしたいわけです。本来ならオートフィルタですればいい話ですが、どうしてもD3という離れたセルの入力内容で抽出したいのです。VBAでなく、D3のセル内容を使ってD8~のオートフィルタが行えるなら、それが一番理想です。自分でやってみた限りはできませんでした。フィルタオプションならどうかとやってみたところ、一回目は抽出できました。D3またはE3の条件を変更しても、リアルタイムで抽出結果が切り変わらない。フィルタオプションの抽出結果を別のセルに出せばいいのですが、そうすると無駄な情報が残り、ただ印刷しただけでOK・・というわけにいきません。D3・E3のセル内容が書き換わったらフィルタオプションの抽出結果をいったん同シートの別セルに出し、抽出結果部分だけを別のシートにカット&ペースト成形。そのシートを印刷させればよい。いう考えになりましたが、やってみたら、なぜか別のブックに同じものが形成され、抽出した結果だけ単独のデータにできません。そもそももっと良いアイデアがあればそれをおしえていただきたい。VBAで目的達成できるように問題点をご指摘ください。Macro'フィルタオプションを使って同シート内「D1100」以降に抽出結果を出しますActiveWorkbook.Worksheets("一覧").Select'一覧表はD7~F1000。Subアイデア、またはVBAプログラムの例を教えていただきたく、質問させていただきますexcelで、添付画像のようなリスト管理表を作っています。リストは600行近くになります。やりたいことは、D3またはE3に商品名または保管庫を入力すると、リスト内から、合致する行だけが抽出される、というもの。D3とE3は、どちらか片方にのみ条件が入る。D3とE3の内容を変更するとリアルタイムで抽出結果も変更されるようにしたい。追記:では、当方で検証したサンプルコードを載せますので、ご参考に。結果提示用に「抽出結果」と名付けたまっさらなシートを予め用意しておいてください。ご質問内容では、シートモジュールや標準モジュール等、複数のモジュールにコードが分散していますが、今回の処理内容では、モジュールを分ける意味がありません。シートモジュールのワークシートチェンジイベント1本で十分です。従って、ご案内するコードは、一覧表のあるシートのシート見出しを右クリック→コードの表示から呼び出した画面に書き込み、入力が終わったら、ファイルタブ→終了してexcelに戻る、としてください。それと、クライテリアを使うと、倉庫1の検索で倉庫10以降もピックアップされてしまうので、1は全角で10以降は半角にするなど、元ネタに区別をしてください。利用者のなかにビギナーがいるのであれば、セルのロックと保護を使い、一覧シートのD3:E3しか操作出来ないようにする、入力規則を使って、商品1,商品2といったリストから選ばせる、等の工夫も考えられます。それらをどう併用するかによって適切なコードも変わってきますので、細部はご自身で調整してください。Sub追記:では、当方で検証したサンプルコードを載せますので、ご参考に。結果提示用に「抽出結果」と名付けたまっさらなシートを予め用意しておいてください。ご質問内容では、シートモジュールや標準モジュール等、複数のモジュールにコードが分散していますが、今回の処理内容では、モジュールを分ける意味がありません。シートモジュールのワークシートチェンジイベント1本で十分です。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。