ขนาดวิดีโอ: 1280 X 720853 X 480640 X 360
แสดงแผงควบคุมโปรแกรมเล่น
เล่นอัตโนมัติ
เล่นใหม่
こちらで配布しています！it-yobi.com/excel-p-no144/?link=4【配布あり】こちらでExcel講座をまとめています！it-yobi.com/course/?pageNo=1&orderNo=2&categoryNo=10&link=4●---Excel【基礎】---●Excelを始めるにあたり、必要な知識をまとめています！詳しくは再生リストにて！th-cam.com/play/PLuUrleRMhKDc1thXw-EmZAU34vhLrKnm3.html●---Excel【実践】---●実際に開発しながら解説しています！詳しくは再生リストにて！th-cam.com/play/PLuUrleRMhKDf4BrAPNt5lfJ7bGCcgCQUw.html●---Excelその他---●他にもデータベースなど再生リストを用意！th-cam.com/channels/y5cpoeTKqZ2cDzWX8NB3Gg.htmlplaylists●---Googleスプレッドシート【基礎】---●Googleスプレッドシートを始めるにあたり、必要な知識をまとめています！詳しくは再生リストにて！th-cam.com/play/PLuUrleRMhKDe5kCiV88fRUuxsMvZ5asJC.html●---Googleスプレッドシート【実践】---●実際に開発しながら解説しています！詳しくは再生リストにて！th-cam.com/play/PLuUrleRMhKDfjumSrU4Zb1PcH0WKqyg0m.html
８２歳です。昔VBAをやっていたがすっかり忘れてしまいました。ボケ防止のため又勉強したいです。この動画はすっごく解りやすいです！チャンネル登録して全部見たいです。
ありがとうございます！😊
顧客より見やすい価格表を作れと指示受けてこの動画に辿りつきました🙌参考にさせていただきます！
ありがとうございます！
とてもわかりやすく、チャンネル登録させていただきました！2点教えて欲しいです。①名前や性別を検索する時、どの列から検索するかは、Field＝2やField＝3で記載しておりますが、たとえばB列とC列から◯◯の文字を検索したい場合はField＝何とすれば良いのでしょうか？具体的にはB列に1番好きな趣味、C列に2番目に好きな趣味が記載されていると仮定し、ある人は1番目にマラソン、ある人は2番目にマラソンの場合、とにかくマラソンが趣味な人を検索を抽出したいイメージです。②本動画ではプルダウンの項目が男、女、空白の3つでしたが、複数項目がある場合、一つ一つadditemで手書きしなければならないのでしょうか？
コメントありがとうございます！フィルターで操作できる内容であればVBAでもフィルターを用いて操作できます。「B列とC列から○○の文字を含むもの」という条件はAnd条件ならB列を絞った後でC列を絞るという感じに出来ますが、OR条件の場合は他の方法を検討する必要があるかもです。プルダウンに関しては基本additemで追加しますが、セルの情報を元に一括で設定することもできます！
いつも参考にさせていただいております。かなり助かっています。ありがとうございます。質問ですが、チェックボックスの値を年齢ではなく学年にしたいのですが、If .Cells (i,”E”).Value = ”小1” Thenとしているのですが、全くフィルターに動きがありません。エラーも出てこずどこが要修正なのかもよく分かっていません。是非ご教授いただきたいです。
参考にしていただきありがとうございます！質問内容に関して、動かない理由はプログラムを見てみないと断言できかねますが、文字が一致していないとかでしょうか…学年以外の項目のフィルターを無効にした際に、学年の項目のフィルターが実行後に設定されているのかを確認すると、そもそも実行されていないのか、実行されているけど絞り込まれていないのかなどが確認できるかと思います！まずはこのように原因を見つけるところからになるかもです💦
動画拝見させていただきました。非常に勉強になります。実務的には、データベースのシートと、検索シートを別にして、検索シートに抽出できれば一番いいのですが、前回のA列に〇を入れて別シートに抽出表示させる、という動画があったかと思いますが、その応用的な動画があれば役立つのですが可能でしょうか？ご無理言って申し訳ございません。
こちらこそご閲覧ありがとうございます！こちらの内容とは少し異なりますが、別ブックを検索するシステムも過去に行っています！th-cam.com/video/ZY7ebf2fXGk/w-d-xo.htmlまた、別シートへの抽出システムについて検討してみます。ありがとうございます！
質問させてください17:55あたりを書いたんですが:=が式エラーとなってしまいます。AutoFilterのあとに改行せずにそのままField以降をかけばそのエラーがでないのですが、Criteal1がエラーとでてステートメントの最後と出てきます。どの様に修正すれば良いですか？
めちゃくちゃ勉強になります！プログラム実行すると、49：01あたり時点での下から10行目のNext iのところにチェックがつき”Nextに対応するforがありません”コンパイルエラーと表示されます。何が原因かが分から💦
ありがとうございます！恐らくFor文の内側のEnd Ifなどが抜けているのが原因かと思います。VBAの基本は以下の動画にて解説しているため、For文やIF文の参考になれば幸いです！th-cam.com/video/C_46AmmkUJ4/w-d-xo.html
動画を拝見致しました。こちらの手法を応用し、複数の列に検索したい文字が入る場合抽出可能な、フリーワード検索的なようにしたいのですが、どのように行えばよろしいでしょうか。
ご視聴ありがとうございます！全ての列の内容を文字結合した項目を最後尾に用意するのはいかがでしょうか😊その内容に対して、フォームを設ければ解決するかもです！注意点として、単純に文字結合すると、複数列の内容でたまたま検索出来てしまう可能性があるので、結合時にスペースなどを設けると良いと思います。結合は数式でやるといいと思います！※テーブルにすると毎回数式を用意しなくても自動で生成されます。例)項目A , 項目B , 項目C , A~C結合aaaaa , bbbbb , ccccc, aaaaabbbbbcccccの場合、aabbでも検索出来てしまう。↓ 項目A , 項目B , 項目C , A~C結合aaaaa , bbbbb , ccccc, aaaaa bbbbb cccccの場合、aabbでは検索されない
動画観させていただきました参考になりますありがとうございます。ご教示いただきたいのが、年齢ではなく距離（誰が1番早いのか）を検索する方法はどうしたらいいのでしょうか？
コメントありがとうございます！「距離で誰が一番早いのか」というのは、何かしらのワードで検索するというものではないように感じるので、フィルターの距離項目の降順機能を割り当てたボタンを追加するとかでしょうか？？「VBA フィルター 降順」などと検索するとイメージができかもです！
動画を拝見させていただきました。非常にわかりやすくて勉強になりました！これと同じシステムを作ったのですが、番号(Noの部分です)の検索ができなくて困っています。名前やフリガナと同じコードを書いたのですが、文字列じゃないとダメみたいで...この場合どう修正すればいいのかご教示頂きたいです。
ありがとうございます！数字の場所に関しては完全一致にすると対応できます！"*"を付けてしまうと文字列になってしまうため💦部分一致の検索も対応したい場合は、数字項目自体を文字列にする必要があります。数字のイメージはこちらで解説しています😆th-cam.com/video/fKVJTrPCuV8/w-d-xo.html
初心者でして見ながら作成させて頂いたのですが、コンパイルエラー構文と表示されコードのbsearch_clickの箇所が黄色くなり何を直せばいいか分からずでしてご教示いただけますでしょうか🙇♂️
ご視聴ありがとうございます！構文エラーは打ち間違いがほとんどかと思うので、完全に同じ内容かご確認お願いいたします🙇♂️
ありがとうございます🙇♂️
コメント失礼します。初めてこのようなプログラムに挑戦しているのですが、検索ボタンの名前のところでコンパイルエラー:修正候補:式と出て調べても解決が見つからず…何度動画とも確認しても同じ文字を入力しているのですが、赤文字、:=のところに青選択がされています。どうしたらいいのか教えて下さると助かります…よろしくお願いします。
大半は記述ミスになります💦また、その部分だけでは原因は特定できないです🙇♂️フォームの作成やオブジェクト名の設定など、1から手順を確認して、本当に同じように設定しているのかを確認する必要があるかもです。
@@chanryo_eff返信ありがとうございます。名前.Range("A1").AutoFilter_Field:=2,Criteria1:="＊"&tName&"＊"と入力すると2行目のみが赤文字で表示されます…何か違うところがあるのでしょうか？
@@saku-reoKM スペースなども一致していますか？「"＊"&tName&"＊"」→「"*" & tName & "*"」
@@chanryo_eff空白のところもしっかり同じように入れましたが、コンパイルエラー、修正候補:式と2行目のみが赤文字になります…全ての設定も同じようにしているのですが、エラーが起きてしまいます…
実行時にエラーなのか記述時にエラーなのかエラーの場合は、何と表示されているのかというような細かな情報がないと、分からないかもです💦ただ、こちらのプログラムはWindowsで同じExcelファイルであれば、完全に同じなら動くはずなので、現段階では入力ミスの可能性が高いと考えています。AutoFilter_に関してもAutoFilter _でなければいけなかったりと…メンバー限定にはなりますが、完成ファイルの配布も行なっているため、ご検討いただけますと幸いです🙇♂️
いつも大変参考にさせて頂いております。先生の例では、年齢のように整数の値ですが、小数点の時はどのように記述したらよいのでしょうか？'～2.99 If Cph1 Then If .Cells(i, "E").Value
いつもご視聴ありがとうございます！申し訳ございませんが、カスタマイズに対する質問への回答は現在メンバーのみ対応しております🙇♂️ヒントとしてどこでうまくいかないのかを1行ずつデバッグするといいかもです！
ご返信ありがとうございました。まずは自分で頑張ってみます。もし、会員としてお世話になることな、なりましたら宜しくお願いします。
こちらで配布しています！
it-yobi.com/excel-p-no144/?link=4
【配布あり】こちらでExcel講座をまとめています！
it-yobi.com/course/?pageNo=1&orderNo=2&categoryNo=10&link=4
●---Excel【基礎】---●
Excelを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
th-cam.com/play/PLuUrleRMhKDc1thXw-EmZAU34vhLrKnm3.html
●---Excel【実践】---●
実際に開発しながら解説しています！
詳しくは再生リストにて！
th-cam.com/play/PLuUrleRMhKDf4BrAPNt5lfJ7bGCcgCQUw.html
●---Excelその他---●
他にもデータベースなど再生リストを用意！
th-cam.com/channels/y5cpoeTKqZ2cDzWX8NB3Gg.htmlplaylists
●---Googleスプレッドシート【基礎】---●
Googleスプレッドシートを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
th-cam.com/play/PLuUrleRMhKDe5kCiV88fRUuxsMvZ5asJC.html
●---Googleスプレッドシート【実践】---●
実際に開発しながら解説しています！
詳しくは再生リストにて！
th-cam.com/play/PLuUrleRMhKDfjumSrU4Zb1PcH0WKqyg0m.html
８２歳です。昔VBAをやっていたがすっかり忘れてしまいました。ボケ防止のため又勉強したいです。この動画はすっごく解りやすいです！チャンネル登録して全部見たいです。
ありがとうございます！😊
顧客より見やすい価格表を作れと指示受けてこの動画に辿りつきました🙌
参考にさせていただきます！
ありがとうございます！
とてもわかりやすく、チャンネル登録させていただきました！
2点教えて欲しいです。
①名前や性別を検索する時、どの列から検索するかは、Field＝2やField＝3で記載しておりますが、たとえばB列とC列から◯◯の文字を検索したい場合はField＝何とすれば良いのでしょうか？
具体的にはB列に1番好きな趣味、C列に2番目に好きな趣味が記載されていると仮定し、ある人は1番目にマラソン、ある人は2番目にマラソンの場合、とにかくマラソンが趣味な人を検索を抽出したいイメージです。
②本動画ではプルダウンの項目が男、女、空白の3つでしたが、複数項目がある場合、一つ一つadditemで手書きしなければならないのでしょうか？
コメントありがとうございます！
フィルターで操作できる内容であればVBAでもフィルターを用いて操作できます。
「B列とC列から○○の文字を含むもの」という条件はAnd条件ならB列を絞った後でC列を絞るという感じに出来ますが、OR条件の場合は他の方法を検討する必要があるかもです。
プルダウンに関しては基本additemで追加しますが、セルの情報を元に一括で設定することもできます！
いつも参考にさせていただいております。かなり助かっています。ありがとうございます。
質問ですが、
チェックボックスの値を年齢ではなく学年にしたいのですが、
If .Cells (i,”E”).Value = ”小1” Then
としているのですが、全くフィルターに動きがありません。エラーも出てこずどこが要修正なのかもよく分かっていません。
是非ご教授いただきたいです。
参考にしていただきありがとうございます！
質問内容に関して、動かない理由はプログラムを見てみないと断言できかねますが、文字が一致していないとかでしょうか…
学年以外の項目のフィルターを無効にした際に、学年の項目のフィルターが実行後に設定されているのかを確認すると、そもそも実行されていないのか、実行されているけど絞り込まれていないのかなどが確認できるかと思います！
まずはこのように原因を見つけるところからになるかもです💦
動画拝見させていただきました。
非常に勉強になります。
実務的には、データベースのシートと、検索シートを別にして、
検索シートに抽出できれば一番いいのですが、
前回のA列に〇を入れて別シートに抽出表示させる、という動画があったかと思いますが、
その応用的な動画があれば役立つのですが可能でしょうか？
ご無理言って申し訳ございません。
こちらこそご閲覧ありがとうございます！
こちらの内容とは少し異なりますが、別ブックを検索するシステムも過去に行っています！
th-cam.com/video/ZY7ebf2fXGk/w-d-xo.html
また、別シートへの抽出システムについて検討してみます。
ありがとうございます！
質問させてください
17:55あたりを書いたんですが
:=が式エラーとなってしまいます。
AutoFilterのあとに改行せずにそのままField以降をかけばそのエラーがでないのですが、Criteal1がエラーとでてステートメントの最後と出てきます。どの様に修正すれば良いですか？
めちゃくちゃ勉強になります！
プログラム実行すると、49：01あたり時点での下から10行目のNext iのところにチェックがつき”Nextに対応するforがありません”コンパイルエラーと表示されます。何が原因かが分から💦
ありがとうございます！
恐らくFor文の内側のEnd Ifなどが抜けているのが原因かと思います。
VBAの基本は以下の動画にて解説しているため、For文やIF文の参考になれば幸いです！
th-cam.com/video/C_46AmmkUJ4/w-d-xo.html
動画を拝見致しました。こちらの手法を応用し、複数の列に検索したい文字が入る場合抽出可能な、フリーワード検索的なようにしたいのですが、どのように行えばよろしいでしょうか。
ご視聴ありがとうございます！
全ての列の内容を文字結合した項目を最後尾に用意するのはいかがでしょうか😊
その内容に対して、フォームを設ければ解決するかもです！
注意点として、
単純に文字結合すると、複数列の内容でたまたま検索出来てしまう可能性があるので、結合時にスペースなどを設けると良いと思います。
結合は数式でやるといいと思います！
※テーブルにすると毎回数式を用意しなくても自動で生成されます。
例)
項目A , 項目B , 項目C , A~C結合
aaaaa , bbbbb , ccccc, aaaaabbbbbccccc
の場合、aabbでも検索出来てしまう。
↓
項目A , 項目B , 項目C , A~C結合
aaaaa , bbbbb , ccccc, aaaaa bbbbb ccccc
の場合、aabbでは検索されない
動画観させていただきました参考になりますありがとうございます。
ご教示いただきたいのが、年齢ではなく距離（誰が1番早いのか）を検索する方法はどうしたらいいのでしょうか？
コメントありがとうございます！
「距離で誰が一番早いのか」というのは、何かしらのワードで検索するというものではないように感じるので、フィルターの距離項目の降順機能を割り当てたボタンを追加するとかでしょうか？？
「VBA フィルター 降順」などと検索するとイメージができかもです！
動画を拝見させていただきました。
非常にわかりやすくて勉強になりました！
これと同じシステムを作ったのですが、番号(Noの部分です)の検索ができなくて困っています。
名前やフリガナと同じコードを書いたのですが、文字列じゃないとダメみたいで...
この場合どう修正すればいいのかご教示頂きたいです。
ありがとうございます！
数字の場所に関しては完全一致にすると対応できます！
"*"を付けてしまうと文字列になってしまうため💦
部分一致の検索も対応したい場合は、数字項目自体を文字列にする必要があります。
数字のイメージはこちらで解説しています😆
th-cam.com/video/fKVJTrPCuV8/w-d-xo.html
初心者でして見ながら作成させて頂いたのですが、コンパイルエラー構文と表示されコードのbsearch_clickの箇所が黄色くなり何を直せばいいか分からずでしてご教示いただけますでしょうか🙇♂️
ご視聴ありがとうございます！
構文エラーは打ち間違いがほとんどかと思うので、完全に同じ内容かご確認お願いいたします🙇♂️
ありがとうございます🙇♂️
コメント失礼します。
初めてこのようなプログラムに挑戦しているのですが、検索ボタンの名前のところでコンパイルエラー:修正候補:式と出て調べても解決が見つからず…
何度動画とも確認しても同じ文字を入力しているのですが、赤文字、:=のところに青選択がされています。
どうしたらいいのか教えて下さると助かります…よろしくお願いします。
大半は記述ミスになります💦
また、その部分だけでは原因は特定できないです🙇♂️
フォームの作成やオブジェクト名の設定など、1から手順を確認して、本当に同じように設定しているのかを確認する必要があるかもです。
@@chanryo_eff
返信ありがとうございます。
名前
.Range("A1").AutoFilter_
Field:=2,Criteria1:="＊"&tName&"＊"
と入力すると2行目のみが赤文字で表示されます…何か違うところがあるのでしょうか？
@@saku-reoKM スペースなども一致していますか？「"＊"&tName&"＊"」→「"*" & tName & "*"」
@@chanryo_eff
空白のところもしっかり同じように入れましたが、コンパイルエラー、修正候補:式と2行目のみが赤文字になります…
全ての設定も同じようにしているのですが、エラーが起きてしまいます…
実行時にエラーなのか記述時にエラーなのか
エラーの場合は、何と表示されているのか
というような細かな情報がないと、分からないかもです💦
ただ、こちらのプログラムはWindowsで同じExcelファイルであれば、完全に同じなら動くはずなので、現段階では入力ミスの可能性が高いと考えています。
AutoFilter_
に関しても
AutoFilter _
でなければいけなかったりと…
メンバー限定にはなりますが、完成ファイルの配布も行なっているため、ご検討いただけますと幸いです🙇♂️
いつも大変参考にさせて頂いております。
先生の例では、年齢のように整数の値ですが、小数点の時はどのように記述したらよいのでしょうか？
'～2.99
If Cph1 Then
If .Cells(i, "E").Value
いつもご視聴ありがとうございます！
申し訳ございませんが、カスタマイズに対する質問への回答は現在メンバーのみ対応しております🙇♂️
ヒントとしてどこでうまくいかないのかを1行ずつデバッグするといいかもです！
ご返信ありがとうございました。まずは自分で頑張ってみます。もし、会員としてお世話になることな、なりましたら宜しくお願いします。