いつもありがとうございます！ 確認ですが、「Dim ws1 As worksheet(""),ws2 As worksheet("")」とは「Dim ws1 As Worksheet,ws2 As Worksheet」 の記述ミスということであっていますでしょうか💦 変数は「,」区切りで1行で宣言できます！ 注意点として、型宣言は1つずつ行う必要があり「Dim ws1,ws2 As Worksheet」のようにしてしまうとws1はVariantとして定義されてしまいます😂
@@chanryo_eff 先生すみません。色々と誤字ってて。 そうです！そのような言い方がしたかったです！感謝します！ 変数は一行でできるということは、、違う変数でもいいのでしょうか？ 例えば Dim lngtol as long,ws1 As Worksheet とでもいけますか？（初心者ですみません。）
1点質問がありました。 ブール型変数のckに対して初期値でfalseを設定し、その後の「if not ck then exit for 」の 説明としてckがfalseの場合はfor～nextを抜けるということだったのですが、初期値 falseに対してnot ckはtrueなのでは？と考えてしまい、つまずいています。 ブール変数の使い方がよくわからず、お教えいただけると幸いです。
「if not ck then exit for 」で抜けるfor~nextは変数strの繰り返し処理になります。 「Exit For」は直近のfor文を抜けるといった構文になります。 「初期値falseに対してnot ckはtrueなのでは？」に関しては、「not ck」が実行されるタイミングにfalseだったらそうなります。 ただ実際は、初期値を設定した後に、「For j = 1 to 7~Next j」の繰り返し処理の中でckがtrueになる可能性があります。 動画内(16:30あたり)で触れていますので、ご確認ください。
▼こちらにて配布しています。
it-yobi.com/excel-p-no212/?link=4
準備ファイルと完成ファイルを配布しているので、動画を見ながら実践できます！
▼メンバーになると「全ての完成ファイル」や「チャットサポート」などの特典を受け取ることができます。
it-yobi.com/member/?link=1
▼再生リストにExcel・Googleスプレッドシート・Python・PADなどをまとめています。
th-cam.com/channels/y5cpoeTKqZ2cDzWX8NB3Gg.htmlplaylists
探していたものが見つかって非常に勉強になりました。
for next以外に初めてeachを使ってみたり配列を使ってみたりとても参考になりました。
コメントありがとうございます！
お役に立てて何よりです😊
素晴らしい！！でもシートを1枚だけで検索キーワードをユーザーフォームに入力、検索結果をフィルターで表示出来たら内容を編集したい時に便利かなぁ
わかりやすかったです！
参考にします！
有益な動画ありがとうございました。
嬉しいコメントありがとうございます！！
ありがとうございます！とても参考になりました。実務で作りたかったプログラムにドンピシャでした！
お役に立てて何よりです！
ありがとうございます！😆
前回の検索機能もすごかったけど、これもすごい…！！！
仕事で活用させてください！
嬉しいコメントありがとうございます！
是非ご活用ください！
たいへん参考になりました。検索ワードを配列に入れて、というのは思いつきませんでした。
プログラミングはセンスですね。コードを一行ずつ詳しく説明していただいているのもたいへん良かったです。
ありがとうございます😆
すごいです。前複数キーワード検索ツール作りましたが、条件付き書式とマクロを組み合わせた単純な物しか思いつかず、このやり方が有ったかと驚きです。プログラミングは何通りもやり方があるので想像力が必要だなと思うこの頃。
ありがとうございます！
プログラミングなどの開発は、仕組みを考えるのが難しいですよね💦
素晴らしい動画をありがとうございます！
今回の検索方法は、「and検索」一つですが、「or検索」がある場合も作っていただけますと嬉しいです。検索入力単語をスペース区切りの時は「and検索」になって、カンマ区切りの時は「or検索」になるというものですと有り難いです。
ご検討いただけますと嬉しく存じます。何卒宜しくお願いいたします。
ありがとうございます！
or条件も検討してますね。
ただ、「A B,C D」の場合は、「(AかつB)または(CかつD)」なのか「Aかつ(BまたはC)かつD」なのかなどと細かな条件を考慮する必要があるのでルール付けが難しそうです💦
先生の動画を見る前にいろいろと勉強してきましたが、1つ気になったのですが、
変数宣言するときに、自分のやり方だと、変数を何個も宣言してたので、
結構大変でした。DIm ws1 As worksheet(""),ws2 As worksheet("")←こんな感じにできるの？！って思って
とってもびっくりしました。（伝え方が下手ですみません。わかっていただけたら幸いです。）
また、今回は、やる前に、色々と連取したので、スムーズになりました！おかげさまで、もっともっと上を目指そうと思います！
今回は1発合格でした！（文章が長くてすみません🤣)
いつもありがとうございます！
確認ですが、「Dim ws1 As worksheet(""),ws2 As worksheet("")」とは「Dim ws1 As Worksheet,ws2 As Worksheet」
の記述ミスということであっていますでしょうか💦
変数は「,」区切りで1行で宣言できます！
注意点として、型宣言は1つずつ行う必要があり「Dim ws1,ws2 As Worksheet」のようにしてしまうとws1はVariantとして定義されてしまいます😂
@@chanryo_eff 先生すみません。色々と誤字ってて。
そうです！そのような言い方がしたかったです！感謝します！
変数は一行でできるということは、、違う変数でもいいのでしょうか？
例えば
Dim lngtol as long,ws1 As Worksheet
とでもいけますか？（初心者ですみません。）
できます！
なので共通の変数などをまとめて定義すると確認がしやすくなると思います😊
@@chanryo_eff
先生ありがとうございました！
見事にできました！
とても参考になりました！
複数シートを検索する場合はどこを追加すればよろしいでしょうか？
ありがとうございます！
複数シートの場合は、同じ処理を他のシートでも繰り返すように記述する必要がございます。
以下は、現在はメンバー限定の記事ではありますが、興味があればご確認いただけますと幸いです。
it-yobi.com/excel-p-no189/?link=4
（内容：特定の項目に対して、全てのシートから検索し、該当するデータを一括で抽出する機能、実装済みのサンプルファイルの配布あり）
初めての検索で効率化させて頂きました(*´∇｀*)
希望と一致してて、素晴らしいです!
更に効率化したくコメント失礼します。
こちらの検索した内容から
一度に複数の箇所を更新する場合、過去に上げているどの動画を見たら良いでしょうか?
コメントありがとうございます！
単純に複数箇所更新するのであればフィルターを使うのがいいかもです💦
もちろんVBAでも実現は可能になります！
※参考動画が思いつきませんでした💦
VBA初心者です。
動画を参考に検索フォームを作成してみました。
データシートにハイパーリンクを挿入している場合、検索シートにもハイパーリンクを有効としたまま検索結果を表示したいのですがどのようなコードになりますでしょうか。
よろしくお願いします。
ハイパーリンクの情報はセルの値とは別に持っているため、少し複雑になります。
方法はいくつかありますが、こちらの動画が参考になるかもです！
th-cam.com/video/MGB4ZmpIZTs/w-d-xo.html
大学での資料作成で役立てています。ありがとうございます。
この動画を手本にして自分で作成してみたのですが、上手く動作せず、For Each str In strListの部分が黄色く表示され、「str = Empty 値」「strList = Empty 値」と表示が出ます。
この場合はどのあたりが原因でしょうか。
お役に立てて何よりです。
解説しているファイルと全く同じ条件であれば、そのようなエラーは発生しないかと思うので、恐らくシートのレイアウトやコードの一部を変更されているかと思います。
そのような場合は、実際のシートの内容やコードの内容を確認してみないと原因が分からないため、概要欄に記載しています個別講座をご検討いただければと思います。
@@chanryo_eff ご返信ありがとうございます。
ひとつ目のコメントの最後が不自然な日本語になってしまっていました。申し訳ないです。
取り敢えずやり直してみようと思い、もう一度動画を冒頭から見直して作り直してみたところ、うまく動作してくれました。おそらくどこか自分が間違えてしまっていたのだと思います。(本当はどこを間違えたのか分かった方が良いのですが、そこまで調べる余裕はありませんでした）
動画が非常に分かりやすく、敷居が高かったExcelVBAについて勉強を始めようと思いました。ありがとうございます。
いつも勉強させていただいています！初コメントです✨
一つ質問なのですが、検索ボタンを押すのではなく、検索枠に文字を入力しEnterを押したら検索結果が出るようにするにはどのようにすればいいでしょうか？？
なんか検索検索言って申し訳ございません💦
コメントありがとうございます😊
確定したと同時にプログラムを実行するにはシートモジュールを活用します。
詳しくは以下の動画が参考になるかと思います！
it-yobi.com/excel-p-no230/?link=4
ありがとうございます！
参考にしますっ！
ありがとうございます。
大変勉強になります。
こちらは、ハイパーリンクは、有効になりますか？
1点質問がありました。
ブール型変数のckに対して初期値でfalseを設定し、その後の「if not ck then exit for 」の
説明としてckがfalseの場合はfor～nextを抜けるということだったのですが、初期値
falseに対してnot ckはtrueなのでは？と考えてしまい、つまずいています。
ブール変数の使い方がよくわからず、お教えいただけると幸いです。
「if not ck then exit for 」で抜けるfor~nextは変数strの繰り返し処理になります。
「Exit For」は直近のfor文を抜けるといった構文になります。
「初期値falseに対してnot ckはtrueなのでは？」に関しては、「not ck」が実行されるタイミングにfalseだったらそうなります。
ただ実際は、初期値を設定した後に、「For j = 1 to 7~Next j」の繰り返し処理の中でckがtrueになる可能性があります。
動画内(16:30あたり)で触れていますので、ご確認ください。
@@chanryo_eff ご回答ありがとうございます！for～eachステートメント、bool型変数、not演算子のいずれも
あまり使ったことがなかったので、とても勉強になりました。
ちゃんりょうさんの動画は同じようなプログラムでも色々なバリエーションでコードを書いてくれるので
応用力が上がり、実践に生かせるので本当に助かってます。ありがとうございます！
@@syouzama そう言っていただけて何よりです。ありがとうございます！
いつも勉強させていただいております。一つ質問です。動画のとおりにやったはずなんですが、型が一致しません。となりましたが、原因がわかりません。どのへんが要因でしょうか。
補足です。
型が一致しません。となった後デバッグをすると、If ws2.Cells(i,j).Value Like"*"&str&"*"Then まで黄色になりました。
一度、「型が一致しない」というエラーがどのような時に発生するのかを調べられると原因がわかるかもです！
返信ありがとうございます。
実行したときにでます。ただ、数字には反応してくれてるみたいで、検索結果がでます。反応しないのは漢字やアルファベットに反応しないみたいです。
補足です。漢字も検索できました。
が型が一致しませんがでます。他の場所も読み取ろうとしてるんでしょうか
そのエラーが一般的にどのような時に発生するのか？そのエラーの意味とは？についてGoogle等で調べられると原因や対策が分かるかもです。
コメントでの個別の対応はしていないため、どうしてもわからない場合は、概要欄に記載しています講座のご検討をいただけますと幸いです。