Excel VBA質問箱 IV

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

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


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

1909 / 76734

←次へ　｜　前へ→


	【80470】Re:検索フォームの動作について

マナ - 19/2/17(日) 10:31 -


	引用なし

	パスワード

▼tarutaru さん：

１）決定ボタンで転記する方法
配列等を使用した方が効率はよいかもしれませんが
一番簡単なのは、条件を満たした行を都度コピペするというもの。
Worksheets("2019.4").Rows(i + 2).Copy Worksheets("sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1)

２）リストボックスから丸ごと転記する方法
リストボックスには、20項目すべて取り込み
表示したくない項目の列幅を0に設定
そうすると、Listプロパティで取得した配列を書き込むだけ。
With ListBox2
　　Worksheets("sheet3").Cells(3, 1).Resize(.ListCount, 10).Value = .List
End With

３)フィルタオプションを使う方法
検索フォームで選んだ条件に基づき
一覧シートから抽出しSheet3に転記します。
抽出条件は、セル範囲として指定が必要なので
作業用セルを用意し、検索フォームから転記します。
まずはフィルタオプションの操作を手作業で理解することです。

32 hits

▼

【80422】検索フォームの動作について tarutaru 19/2/13(水) 13:36