Excel VBA 事例 演習 基礎問題+α part3

はじめに

別のシートに保存してある派遣データを検索する。部分一致を行うとともに、プルダウンメニューをシートに表示する。

また今回作成するユーザーフォームは一番オーソドックスで一般的に使われているコマンドボタンに割り付ける方法を紹介する。

問題

工事現場と氏名は部分一致、役割はプルダウンメニューで作成する

別シート(人材派遣データ)に保存してあるデータを検索し、検索シートへ表示できるようにプログラミングをせよ。ただし、開始日と終了日は入力する場合、両方入力して実行するように作成すること。

解答

データ

シート名は人材派遣データ。

工事現場 日付 氏名 役割 作業開始 作業終了
汐留ビル解体工事 2022年10月3日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月3日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月3日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月3日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月3日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月3日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月3日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月3日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月3日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月3日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月3日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月3日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月3日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月3日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月3日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月4日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月4日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月4日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月4日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月4日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月4日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月4日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月4日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月4日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月4日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月4日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月4日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月4日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月5日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月5日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月5日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月5日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月5日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月5日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月5日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月5日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月5日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月5日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月5日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月5日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月5日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月5日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月6日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月6日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月6日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月6日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月6日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月6日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月6日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月6日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月6日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月6日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月6日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月6日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月6日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月6日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月6日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月7日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月7日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月7日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月7日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月7日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月7日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月7日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月7日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月7日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月7日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月7日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月7日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月7日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月7日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月7日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月10日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月10日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月10日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月10日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月10日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月10日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月10日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月10日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月10日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月10日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月10日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月10日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月10日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月10日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月10日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月11日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月11日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月11日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月11日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月11日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月11日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月11日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月11日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月11日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月11日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月11日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月11日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月11日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月12日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月12日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月12日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月12日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月12日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月12日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月12日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月12日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月12日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月12日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月12日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月12日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月12日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月12日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月12日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月12日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月13日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月13日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月13日 鈴木 雄太 ブルドーザー 9:00 16:00
汐留ビル解体工事 2022年10月13日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月13日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月13日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月13日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月13日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月13日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月13日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月13日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月13日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月13日 長谷川 啓太 作業員 9:00 16:00
吾妻橋橋梁工事 2022年10月13日 松尾 彩乃 警備 8:00 17:00
汐留ビル解体工事 2022年10月14日 藤原 悠太 現場監督 8:00 18:00
汐留ビル解体工事 2022年10月14日 武田 太一 クレーン 9:00 16:00
汐留ビル解体工事 2022年10月14日 久保 琉生 とび 9:00 16:00
汐留ビル解体工事 2022年10月14日 阿部 陽太 とび 9:00 16:00
汐留ビル解体工事 2022年10月14日 中島 健斗 作業員 9:00 16:00
汐留ビル解体工事 2022年10月14日 山田 諒 作業員 9:00 16:00
汐留ビル解体工事 2022年10月14日 平野 楓 作業員 9:00 16:00
汐留ビル解体工事 2022年10月14日 大塚 瑞希 警備 8:00 17:00
汐留ビル解体工事 2022年10月14日 和田 智也 警備 8:00 17:00
吾妻橋橋梁工事 2022年10月14日 松本 琢磨 現場監督 8:00 18:00
吾妻橋橋梁工事 2022年10月14日 丸山 大和 クレーン 9:00 16:00
吾妻橋橋梁工事 2022年10月14日 千葉 陸斗 ブルドーザー 9:00 16:00
吾妻橋橋梁工事 2022年10月14日 鈴木 雄太 とび 9:00 16:00
吾妻橋橋梁工事 2022年10月14日 長谷川 啓太 作業員 9:00 16:00
品川トンネル補修工事 2022年10月17日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月17日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月17日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月17日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月17日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月17日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月17日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月17日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月17日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月17日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月17日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月17日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月17日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月17日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月17日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月18日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月18日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月18日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月18日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月18日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月18日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月18日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月18日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月18日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月18日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月18日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月18日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月18日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月19日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月19日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月19日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月19日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月19日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月19日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月19日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月19日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月19日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月19日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月19日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月19日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月19日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月19日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月20日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月20日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月20日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月20日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月20日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月20日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月20日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月20日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月20日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月20日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月20日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月20日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月20日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月20日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月20日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月21日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月21日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月21日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月21日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月21日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月21日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月21日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月21日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月21日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月21日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月21日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月21日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月21日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月21日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月21日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月24日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月24日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月24日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月24日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月24日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月24日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月24日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月24日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月24日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月24日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月24日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月24日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月24日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月24日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月24日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月25日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月25日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月25日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月25日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月25日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月25日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月25日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月25日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月25日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月25日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月25日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月25日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月25日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月26日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月26日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月26日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月26日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月26日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月26日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月26日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月26日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月26日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月26日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月26日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月26日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月26日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月26日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月26日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月26日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月27日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月27日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月27日 鈴木 雄太 ブルドーザー 9:00 16:00
品川トンネル補修工事 2022年10月27日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月27日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月27日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月27日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月27日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月27日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月27日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月27日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月27日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月27日 長谷川 啓太 作業員 9:00 16:00
品川管内橋梁補修工事 2022年10月27日 松尾 彩乃 警備 8:00 17:00
品川トンネル補修工事 2022年10月28日 藤原 悠太 現場監督 8:00 18:00
品川トンネル補修工事 2022年10月28日 武田 太一 クレーン 9:00 16:00
品川トンネル補修工事 2022年10月28日 久保 琉生 とび 9:00 16:00
品川トンネル補修工事 2022年10月28日 阿部 陽太 とび 9:00 16:00
品川トンネル補修工事 2022年10月28日 中島 健斗 作業員 9:00 16:00
品川トンネル補修工事 2022年10月28日 山田 諒 作業員 9:00 16:00
品川トンネル補修工事 2022年10月28日 平野 楓 作業員 9:00 16:00
品川トンネル補修工事 2022年10月28日 大塚 瑞希 警備 8:00 17:00
品川トンネル補修工事 2022年10月28日 和田 智也 警備 8:00 17:00
品川管内橋梁補修工事 2022年10月28日 松本 琢磨 現場監督 8:00 18:00
品川管内橋梁補修工事 2022年10月28日 丸山 大和 クレーン 9:00 16:00
品川管内橋梁補修工事 2022年10月28日 千葉 陸斗 ブルドーザー 9:00 16:00
品川管内橋梁補修工事 2022年10月28日 鈴木 雄太 とび 9:00 16:00
品川管内橋梁補修工事 2022年10月28日 長谷川 啓太 作業員 9:00 16:00
コード

Option Explicit
Option Base 1
Sub main()
    Dim bldst As String, namedt As String, pstion As String
    Dim strtdy As Date, enddy As Date
    
    With Sheets("検索")
        bldst = .Range("A2").Value
        strtdy = CDate(.Range("B2").Value)
        enddy = CDate(.Range("C2").Value)
        namedt = .Range("D2").Value
        pstion = .Range("E2").Value
    End With
    
    With Sheets("人材派遣データ")
        
        If bldst <> "" Then
            .Range("A1").AutoFilter Field:=1, Criteria1:="*" & bldst & "*"
        End If
        
        If Sheets("検索").Range("B2") <> "" And Sheets("検索").Range("C2") <> "" Then
            .Range("A1").AutoFilter Field:=2, Criteria1:=">=" & strtdy, Operator:=xlAnd, Criteria2:="<=" & enddy
        End If
        
        If namedt <> "" Then
            .Range("A1").AutoFilter Field:=3, Criteria1:="*" & namedt & "*"
        End If
        
        If pstion <> "" Then
            .Range("A1").AutoFilter Field:=4, Criteria1:=pstion
        End If
        
        Sheets("検索").Range("A4").CurrentRegion.ClearContents
        
        .Range("A1").CurrentRegion.Copy Sheets("検索").Range("A4")
        .Range("A1").AutoFilter
    End With
    
End Sub

"*" & bldst & "*"の*(アスタリスク)が部分一致を表現している。これは氏名のところも同様である。

コードは、AutoFilterを使い空白でなければ絞り込みをかけているだけのシンプルなものである。

プルダウンメニューに関しては以下のように設定すればいい。

エクセルメニューのデータから入力規則を選択して、元の値をセル範囲ではなく、
セルに表示する項目をカンマで並べるだけで作れる。

ユーザーフォームを用いた検索の解答

テキストボックス、コンボボックスをコマンドボタンに割り付ける
ユーザーフォームのコード

Option Explicit


Private Sub UserForm_Initialize()
    With ComboBox1
        .AddItem "現場監督"
        .AddItem "クレーン"
        .AddItem "ブルドーザー"
        .AddItem "とび"
        .AddItem "作業員"
        .AddItem "警備"
    End With
End Sub

Private Sub CommandButton1_Click()
    If TextBox1.Value <> "" Then
        bldst = TextBox1.Text
    End If
    
    If TextBox2.Value <> "" Then
        mystr1 = TextBox2.Text
    End If
    
    If TextBox3.Value <> "" Then
        mystr2 = TextBox3.Text
    End If
    
    If TextBox4.Value <> "" Then
        namedt = TextBox4.Text
    End If
    
    If ComboBox1.Value <> "" Then
        pstion = ComboBox1.Text
    End If
    
    Unload Me

End Sub

標準モジュールのコード

Option Explicit
Option Base 1
Public bldst As String, namedt As String, pstion As String, mystr1 As String, mystr2 As String
Sub main()
Dim strtdy As Date, enddy As Date
    
    UserForm1.Show

    With Sheets("人材派遣データ")
        
        If bldst <> "" Then
            .Range("A1").AutoFilter Field:=1, Criteria1:="*" & bldst & "*"
        End If
        
        If mystr1 <> "" And mystr2 <> "" Then
            strtdy = CDate(mystr1)
            enddy = CDate(mystr2)
            .Range("A1").AutoFilter Field:=2, Criteria1:=">=" & strtdy, Operator:=xlAnd, Criteria2:="<=" & enddy
        End If
        
        If namedt <> "" Then
            .Range("A1").AutoFilter Field:=3, Criteria1:="*" & namedt & "*"
        End If
        
        If pstion <> "" Then
            .Range("A1").AutoFilter Field:=4, Criteria1:=pstion
        End If
        
        Sheets("検索").Range("A1").CurrentRegion.ClearContents
        
        .Range("A1").CurrentRegion.Copy Sheets("検索").Range("A1")
        .Range("A1").AutoFilter
    End With
    
End Sub

要となる変数は、publicを用いてすべてのモジュール間で使用できるようにしておく。

サイトご利用方法

次のページ・前のページを利用するよりも、グローバルメニュー(ヘッダー部分にある項目)・サブメニュー記事の項目をクリックしていただければ、その項目の全体像が一目でみることができ、クリックすればそのサイトへ飛びます。

google、yahoo、Bingなどで検索する場合、検索ワードは先頭に、孤立じじい、と入力しその後に、グローバルメニュー・サブメニュー記事のどれかひとつの項目を入力すると、その検索サイトが上位表示されます。