コメントありがとうございます！ 複数条件で検索したいということですね！ その場合は、 プログラムの内のIf word Like "*" & keyword & "*" then をor 条件くっつければいいと思います😊 If word Like "*" & keyword & "*" or word Like "*" & keyword2 & "*" or word Like "*" & keyword3 & "*" then みたいなイメージです！
すごくわかりやすくチャンネル登録させていただきました。 質問なのですが、検索する文字が空の場合に全部コピーされる仕組みがわかりません。 変数keywordが空になると思うのですが、 If word Like "*" & keyword & "*" Then 部分が なぜtrueになるのでしょうか？ ご回答いただけると幸いです
登録ありがとうございます！ ＊は0文字以上の文字列を意味します。 なので、keywordが空の場合、全ての文字が0文字の文字列を含むので全て抽出されます！ ちなみに、＊をワイルドカードといい、他にも?は1文字以上の文字列というものなどもあります！ なので、 If word Like "?????" Then とやった場合は、それぞれの?が1文字以上の文字列になるため、最低でも5文字必要ということが分かります。 なので、この検索結果は、5文字以上の文字列がwordに入っている場合、抽出されます！
コメントありがとうございます！ こちらの動画の内容ですと、検索文字を含むものの抽出となりますが、作成したい内容は、含まないものではなく、不一致のものということであっていますでしょうか？？ Ifの一致する条件に対し、Elseで対応することもできますが、否定系の比較演算もできます！ 例えば、こちらの動画の場合、 If word Like "*" & keyword & "*" Then とありますが、これを含まないにしたい場合は、 If Not word Like "*" & keyword & "*" Then とやることもできます！ If word = keyword Then という式の場合は、 If Not word = keyword Then でも、 If word keyword Then でも実現できます！ VBA 比較演算子と調べると参考になるかもです😊
【配布あり】こちらでExcel講座をまとめています！
it-yobi.com/course/?pageNo=1&orderNo=2&categoryNo=10&link=4
●---Excel【基礎】---●
Excelを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
czcams.com/play/PLuUrleRMhKDc1thXw-EmZAU34vhLrKnm3.html
●---Excel【実践】---●
実際に開発しながら解説しています！
詳しくは再生リストにて！
czcams.com/play/PLuUrleRMhKDf4BrAPNt5lfJ7bGCcgCQUw.html
●---Excelその他---●
他にもデータベースなど再生リストを用意！
czcams.com/channels/y5cpoeTKqZ2cDzWX8NB3Gg.htmlplaylists
●---Googleスプレッドシート【基礎】---●
Googleスプレッドシートを始めるにあたり、必要な知識をまとめています！
詳しくは再生リストにて！
czcams.com/play/PLuUrleRMhKDe5kCiV88fRUuxsMvZ5asJC.html
00:00 挨拶
00:08 完成イメージ
01:54 準備
02:24 作成（検索関数）
03:25 作成（検索関数：項目名の取得）
05:18 作成（検索関数：キーワード検索）
13:27 作成（削除関数）
17:03 作成（ボタン）
17:25 完成
18:23 プログラムの全体
19:50 まとめ
会社で事務処理のデータをまとめたかったので、勉強になりました。
ありがとうございます！
お役に立てて何よりです！
ありがとうございます！！😊
@@chanryo_eff
ありがとうございます。実はこれからいろいろデータが増えていくことも見据えて、複数検索か出来るようにしたいのですが、他の方のコメントに回答されていたので、試してみました。そしたらうまく作動しませんでした。
この場合、keyword2、3はDimで宣言し直すとして、&とorをどのように使えばよいですか？
よろしくお願いします。
@@megu5813
コメントですべてを書けないので、考え方だけ書きますと、
今回のシステムと全く同じものを作成し、参照しているデータベースを共通にすることで複数データでの検索がイメージできるかと思います！
それぞれで検索出来た場所が同じ場所に表示させるというように改修する必要はありますが💦
ここを実現するには、どうしたらできるのかのアルゴリズムがイメージできるようにならないとなかなか難しいかもです…
再生リスト「データベース」でいろんなものを作成しているので、他のもので参考になるものがあれば幸いです🙇♂
こんにちは！
Dim ws1,ws2 AS Worksheet
この書き方だと、Worksheet型で宣言されるのはw2だけですね。
w1は型宣言無しとなります。
Dim ws1 AS Worksheet, ws2 AS Worksheet
と書くのが正しいです。
今更かもですが、気になったので。
コメントありがとうございます！
そうですね！
ws1はVariantですね💦
ご指摘ありがとうございます！
この作成当時は勘違いしていました😂
２～３回繰り返して、ステップインでやっと理解できました。活用します！ありがとうございました。
コメントありがとうございます！
また不明点とか、こんなの欲しい、そのほか感想などありましたらコメントください😊
汎用性高すぎる😳✨
ありがとうございます😆
いつもご拝見させていただき勉強になります。
こちらのマクロでキーワードが半角、全角、カタカナ、ひらがな、大文字、小文字でも検索できる構文はありますか？
教えていただければ幸いです。宜しくお願い致します。
コメントありがとうございます！
ひらがな、カタカナとはフリガナのことでしょうか？
その場合、フリガナを取得して、比較する必要があります。
大文字小文字なども比較方法には寄りますが、関数などを使用し、大文字か小文字に変換し統一して比較するといいかもです。
検索文字と比較している条件式を、上記の内容を踏まえたOR条件などで増やせば実現可能かと思います！
はじめまして。
とても勉強になると思い登録させて頂きました。
こちらのやり方で、データベースの中にリンクの入ったものがある時のやり方も教えて頂けたら嬉しいです。
これからも楽しく拝見させて頂きたいと思います。
よろしくお願いします。
コメントありがとうございます！
そう言っていただけて嬉しいです！
ハイパーリンクを含む場合は少し複雑になります💦
色んな方法がある中の一つとしてこちらが参考になるかもです😆
czcams.com/video/MGB4ZmpIZTs/video.html
チャンネル登録させて頂きました！
初心者ですが、気持ちの良い話し方(説明力)含め、大変明確で分かりやすいので、とても勉強になっており毎日感謝しております。
1点質問なのですが、他のチャンネル(従業員顧客管理システム)で、更新、追加、削除をUpされてるように、今回の内容でも同じようには出来ないのでしょうか？
色々調べたのですが…大変申し訳ございません。
ご教示の程、よろしくお願い致します。
チャンネル登録ありがとうございます！
従業員管理システムの複数件同時更新したいということでしょうか？
曖昧検索に対応したシステムは近々投稿する予定ですが、一括更新はまだ投稿していないですね💦
一度作成を検討してみます！
アイデアのご提供ありがとうございます😆
登録させていただきました。それで質問なんですが、キーワードの入力が１つではなく、２つ、３つと複数で検索できるようにコードをかいてみたいです。他の動画も拝見しましたが、それにあたるものが見当たらず、もしあれば教えていただけないでしょうか。SPRITを使ってみましたが、初心者のため、うまくいきませんでした。どうぞよろしくお願いいたします。
コメントありがとうございます！
複数条件で検索したいということですね！
その場合は、
プログラムの内のIf word Like "*" & keyword & "*" then をor 条件くっつければいいと思います😊
If word Like "*" & keyword & "*" or word Like "*" & keyword2 & "*" or word Like "*" & keyword3 & "*" then
みたいなイメージです！
仕事でちょうど困っていた内容で助かりました！ありがとうございます。
複数のシートを検索したい場合はどのように設定すれば良いのでしょうか？
コメントありがとうございます！
こちらの場合はDBシートに関してのみなので、他のシートの場合の内容も追加することでできます！
「プログラムのどこを変更すると、参照しているシートが変わるのか？」などを確認しながら修正するとイメージしやすいかもです。
@@chanryo_eff
ありがとうございます、チャレンジしてみます！
仕事で使えそうな有益な情報ありがとうございます。
マクロなど全くの初心者です。質問があります。
例えばA00Aなどの文字を検索するとき、検索の仕方でヒットしたり、しなかったりします。
半角でそのまま入力すると検索結果に何も出てきません。
かな入力でアルファベットを破線が出る形で検索するとヒットします。
元のデータベースの入力状態によってヒットしたりしなかったりするのかなと思うのですが(半角全角の違い?)
何が原因なのか分からないのですが、どんな入力の仕方でも文字を検索できるようにすることは可能でしょうか？
ありがとうございます！
その情報だけだと、原因が断言できませんが、
半角文字、全角文字は別の文字として認識されるので、それが原因かもしれないです💦
どちらであっても検索させることは可能ですが、プログラムを修正する必要があるので、慣れていないと少し難しいかもしれません💦
一応、参考の動画を載せておきます！
czcams.com/video/-9aErPD97t4/video.html
※実現する方法は、検索対象と検索内容を比較する際に、ともに全角もしくは半角に変換させてから比較するといった方法になります😊
初めまして。いつも見させていただき勉強しています。ありがとうございます。
質問ですが、この動画は横列項目ですが、縦項目の場合はどうすれば検索出来るでしょうか。試行錯誤してもわからず…お忙しいと思いますがよろしくお願い致します。
ありがとうございます！
行列が入れ替わるだけなので、Cellsなどの構文の理解ができれば、問題なく実現できるかと思います！
削除関数で下記2行が原因でエラーになる時とうまく行く時があるのですがエラーにならないようにしたいのですがどうすれば治りますでしょうか？
Do While ws1.Cells(4, x).Value ""
ws1.Range(ws1.Cells(5, 1), ws1.Cells(y, x)).Value = ""
ちなみにws1.Range(ws1.Cells(5, 1), ws1.Cells(y, x)).Value = ""
これの場合1004:アプリケーション定義またはオブジェクト定義のエラーですと表示されます。
コメントありがとうございます！
具体的にどのような時にエラーが起こるのでしょうか？
それを理解せずにプログラムから原因を見つけるのは、非効率になります。
その上で推測になりますが、
エラーの時は、対象シートの4行目のA列に値が入っていないのではないのでしょうか？
その場合、
x = 1
Do While ws1.Cells(4, x).Value ""
…
Loop
x = x -1
のDo Whileの条件を満たさないため、繰り返されずx = x -1 により、xが0になります。
その状況で、
ws1.Range(ws1.Cells(5, 1), ws1.Cells(y, x)).Value = ""
が実行されると、
Cells(y,0)となり、0列目は存在しないためエラーになります。
ここまでが原因になります。
なので、対策として考えられるのは以下のどちらかになります。
・4行目A列のセルに値を入れる
・xが0の場合の処理を分岐して記述する
よろしくお願いします！
すごくわかりやすくチャンネル登録させていただきました。
質問なのですが、検索する文字が空の場合に全部コピーされる仕組みがわかりません。
変数keywordが空になると思うのですが、
If word Like "*" & keyword & "*" Then 部分が
なぜtrueになるのでしょうか？
ご回答いただけると幸いです
登録ありがとうございます！
＊は0文字以上の文字列を意味します。
なので、keywordが空の場合、全ての文字が0文字の文字列を含むので全て抽出されます！
ちなみに、＊をワイルドカードといい、他にも?は1文字以上の文字列というものなどもあります！
なので、
If word Like "?????" Then
とやった場合は、それぞれの?が1文字以上の文字列になるため、最低でも5文字必要ということが分かります。
なので、この検索結果は、5文字以上の文字列がwordに入っている場合、抽出されます！
@@chanryo_eff
ご丁寧に返信ありがとうございます！
理解できました！
こんにちは!チャンネル登録させて頂きました!
質問なのですが、フリガナで検索機能を作りたく参考にさせていただいて検索まではできて、部分一致も出るようにできたのですが、例えば「タ」と検索した場合、DBの順番が「キタムラ」「タナカ」「タムラ」だった時、こちらとしては検索結果が「タナカ」「タムラ」「キタムラ」の順で検索ワードがどこに入っているかで順番が変わって欲しいのですが、そのような処理はできるのでしょうか?
ありがとうございます！
こちらの内容の場合は、すべての項目から検索をかけているので、名前だけという感じにはいきませんが、実現は可能です！
※名前だけにフォーカスして検索するようにすれば、名前だけも可能です
いろんな方法があるかと思いますが、ぱっと思いついた方法ですと、先頭の文字から順に検索をかけるようにプログラムを組むと言った感じです。
1週目は1文字目、2週目は2文字目、、
のような感じに、登録されている文字の最大桁数までひたすら繰り返すことで可能になります！
※配列で行わないと、処理が重くなりそうですが💦
こんにちは、Excel VBA超初心者ですが、ちゃんりょう先生の動画を見てデータベースに追加するマクロの開発を無事につくることができました！ありがとうございます。
次に作りたいのが、（初心者なので用語とかもままならなくて理解しにくいことご容赦ください。）複数ある検索キーワードがこれまた複数ある検索対象項目に一致しない行を抽出してくれるマクロで、作り方を色々動画見て探した結果、この動画が1番近いかなと思い、なんとか作ってみたいと思っています。
この動画で『IF文で一致する場合は表に抽出、一致しない場合は何もしない』というところを逆にすればいいのかなと思うのですが正しいでしょうか｡？ELSEってのを使えば良いでしょうか？
お時間のあるときにご教授頂けますと大変助かります。
ちなみに例えば以下のような感じです。
_______________
検索: A,B,C,D,E,F
データベース
1行目/A,g,h,i,j,k,
2行目/g,h,i,j,k,B
3行目/g,h,i,j,C,k
4行目/g,h,i,j,k,l
で4行目だけどれも一致しないので抽出
_______________
どうぞ宜しくお願い致します。
コメントありがとうございます！
こちらの動画の内容ですと、検索文字を含むものの抽出となりますが、作成したい内容は、含まないものではなく、不一致のものということであっていますでしょうか？？
Ifの一致する条件に対し、Elseで対応することもできますが、否定系の比較演算もできます！
例えば、こちらの動画の場合、
If word Like "*" & keyword & "*" Then
とありますが、これを含まないにしたい場合は、
If Not word Like "*" & keyword & "*" Then
とやることもできます！
If word = keyword Then
という式の場合は、
If Not word = keyword Then
でも、
If word keyword Then
でも実現できます！
VBA 比較演算子と調べると参考になるかもです😊
早速ご教授いただきありがとうございます。
作成したい内容はデータベースの中で先程の例えで言うところのA~Fの中の1つでも検索対象の行にあるとダメなので、A~Fのうち1つも入っていない行の抽出です。つまり『不一致』というよりは『含まれない』なのでしょうか？
いまいち『含まれない』と『不一致』の違いもわからないのでお恥ずかしいです。
"VBA 比較演算子"で調べてみます。
P.S.数週間前まで『vlookup関数』すら知らなかった私ですが、ちゃんりょう先生の動画で登録用のユーザーフォームが作れたときは感動でした！！ワクワクしました！
これからも動画見ながら勉強するの楽しみにしています。
ありがとうございます！！
@@showday1977
分かりにくい表現ですいません🙇♂
例えば、「りんご」というデータがある場合、
「んご」は「りんご」に含まれる
「りご」は「りんご」に含まれない
「りんご」は「りんご」と一致
「んご」は「りんご」と不一致
という感じです！
一致不一致の確認であれば、
条件式は、「=」「」とかになるかと思います！
含まれる含まれないの確認であれば、
今回の動画のような、「Like *検索ワード* 」「Not Like *検索ワード* 」というような感じになります！
P.S.
そのように言っていただき嬉しいです！！
ありがとうございます😊
元々ある値を削除するマクロは
With ws1
.Range(.Cells(5,1),.Cells(Rows.Count,Columns.Count)).ClearContents
End With
とした場合違いはありますか？
というかそもそもこれで動きますかね…
今回の場合は、その内容でも問題ないですね😆
むしろその方が理想的です！
検索機能以外に別のデータがない限りは、Rows.Count,Columns.Countの方が処理も早くていいです！
このコメントのマクロを入力すると、実行時エラー４２４が出るんですが、どうすればよいですか?
わかりやすい解説、ありがとうございます。
vba初心者です。
チャンネル登録させて頂きました。
以下質問です。
こちらの検索システムをもとに下記2点の機能を追加したいと考えていますが可能でしょうか。
❶ハイパーリンクも貼り付けられるようにする
→ちゃんりょう様の動画(バナナなどの画像検索の動画)も拝見しましたが、今回のコードにどのように組み込めばよいのかが分かりませんでした。
イメージとしてはDBのA列〜E列は文字列、F列〜I列にリンクがあるのでメインシートに貼付したいです。この動画を見て実践したところリンクの中身が解除されてしまっています。
❷キーワード入力＋コンボボックス等で分類を選択し、両方を満たす条件を表示
→今回のように、シート内で検索・再検索時は上書きする設定にしたいと考えているのでユーザーフォームは使用しないようにしたいです。
全項目から検索し、検索条件を追加することで大量のデータからなるべく絞り込めるようにコードを組んでいきたいです。
お忙しいところ大変恐れ入りますが、ご教示願います。
ご登録ありがとうございます！
①リンクに関して、今回の内容は値のみを持ってきているので、抽出された値はリンクが有効になりません。
→リンクの情報を取得していないためです。
リンクを維持させる方法の例として以下の動画が参考になります。
czcams.com/video/MGB4ZmpIZTs/video.html
②に関しては、検索の項目を増やせば解決できるかと思います。
※カスタマイズについては、ストアカ(概要欄に記載)にて対応可能ですので、ご検討いただけますと幸いです🙇♂️
※こちらの動画の最新版は以下になります。
czcams.com/video/Pdvv2gtKA9s/video.html
これをhtmlで表示する方法はありますか？
Excelで作成した表をHTML形式で出力するということでしょうか？
先日このプログラムで作って見ました、ありがとうございました、これにユーザーホームを付ける事は出来ますか？よろしくお願いします、
ありがとうございます！
データベースにユーザーフォームを加えるだけでしたら、下記の動画の内容で対応できます😊
czcams.com/video/s1OaD5XRzsE/video.html
ただ、今回の内容は、検索結果を表示するだけなので、更新する機能がありません。
検索結果からの更新も対応させるには、まずは更新機能を作成しないといけないかもです💦
更新機能は、こちらの理屈が参考になるかもです！
czcams.com/video/ZY7ebf2fXGk/video.html
こんなにすっきりしたコードで書けないなあ。。。やはり経験値の違いか。。。笑
まだまだなところもありますので、
もっと改善していきます！！
ありがとうございます！😄
こんにちは！！
こちらの動画を見て仕事でいつも活用させて頂いてます！
ところで質問なんですが、データベースの備考欄にWordのハイパーリンクを貼っても検索ページでハイパーリンクに飛んでくれず、文字だけの表示になってしまっています。どのようにすればハイパーリンクに飛べますでしょうか、、、？
ご回答頂けると幸いです😁
ありがとうございます！
ハイパーリンクはちょっと特殊なやり方が必要になります！
下記動画を参考にしてみてください😊
Excel【実践】自動で目次を作成してくれるシステム！目次のリンクまで自動生成で業務効率化！【解説】
czcams.com/video/93qv3A6hn6E/video.html
もし、難しいようでしたら、
セルの値ではなく、セルごとコピーするようにすれば実現できます！
@@chanryo_eff
ありがとうございます！！
初心者には無理がありました、、、
セルごとコピーするには.valueではない関数を使った方がいいのでしょうか、、？
@@user-er7lg2fq4l 「セルのコピー VBA」などで調べてみてください！
こんばんは
exsel vba 自体初めて知るぐらいの初心者なのですがちゃんりょう先生の動画を見ながら無料配布のファイルも見ながらやっているのですが コンパイルエラー：do に対するloopがありませんと出てくるのですがどうすればよいですか？
コメントありがとうございます！
「Doに対するLoopがない」というのが答えになります。
IFの終わりにはEnd IFがあるように、Do Whileの終わりにはLoopが必要です。
※Loopがなければどこまでを繰り返すべきなのかが不明になるためです
計算式でも、「5+(2×(3+2))÷3」は計算できても、「5+(2×(3+2)÷3」は「)」がないため計算できないと思います。
まずは、パーツ1つ1つについて調べると原因が分かると思います！
こんにちは。DBが複数シートにしたいのですがどうすればいいでしょうか。
動画にできそうか検討してみます！
同じワークシート内でやるにはどのようにしたら良いでしょうか？
別のシートを参照している箇所を同じシート内を参照するように修正すればできます。
コメント失礼します。
いつも勉強になり、ありがとうございます。
一つ教えていただきたいのですが、
名前 性別 備考
それぞれの欄だけで検索ボタンを作成することは出来ますでしょうか？
こちらこそありがとうございます！
もちろん可能です。
こちらの動画では、キーワードに対し、行データを結合したものと比較しているかと思います。
※'検索対象をまとめる の部分です。
ここをまとめずに対象の列のみを変数wordに格納するようにすると実現できるかと思います！
他にもいろんな方法があるので載せておきます😆
[フィルターを活用した検索ボックス]
czcams.com/video/fKVJTrPCuV8/video.html
[外部ファイルの従業員データを管理するシステム]
czcams.com/video/tCJY-olgXVc/video.html
[マクロを使わない条件付き書式のみの検索システム]
czcams.com/video/vP1PG-bDYQ4/video.html
@@chanryo_eff
そうそうの返信ありがとうございます！
知識不足で本当にすみません。
それぞれのvbaの中身(作成方法)をもし良ければ教えていただくこと出来ますでしょうか。。
細かなところは概要欄内のストアカにて引き受けています！
30分単位での時間指定や1.5時間の講座にて直接解説できるので、ご検討の程よろしくお願いいたします🙇♂️
ありがとうございます。
後日ストアカにて受講させていただきたいと思います。
@@user-mv8ek1sd7n
ありがとうございます😊
実行を押すと、メソッドまたはデーターメンバーが見つかりません。になるのですが解決方法を教えてください
恐らく入力ミスかと思いますので、半角文字や半角スペースなど細かく確認すると解決するかと思います！
@@chanryo_eff
ありがとうございます。
全部、全角でいいんでしょうか？
@@user-nh9fu2ib3j プログラミングは半角文字が基本になります！
ありがとうございます。
最後まで入力できたのですが、実行時エラー1004
アプリケーション定義またはオブジェクト定義のエラーとなるのですが、教えて頂きたいです
シートが10枚あってその中から検索ボタンでブック内をキーワード検索することもできますか？
そのような仕様に改修すれば可能です！
はじめまして。データ検索で質問があります。
他の方の質問でもありましたが、複数のキーワードで検索して抽出する場合に、keywordをorでつなげるイメージと記載がありましたが、それを実行すると全データが抽出されてしまいます。
B2セル
あ
お
DB
あ
い
う
え
お
抽出結果
あ
い
う
え
お
プログラムの内容を確認していないので、なんとも言えませんが、理屈上、「どちらかを満たしている場合」というのは間違っていないかと思います！
全件表示されるということは、条件に全てを含むようになって記載されてしまっているかと思います。Like "＊＊"などは0文字以上の場合などで全件になります。
どこが原因でそのようになっているのか、根本を解決しないとなんとも言えません💦
コードは合っていて、動画の通りにデータを並べていますが、検索ボックスに入力し実行してもエラーは出ないですが反映されないです。なぜなんでしょうか。
コードが完全に一致していて表示されないというのはなかなかないと思うので、おそらくどこがが異なっていると思います💦
もしくは、マクロがそもそも有効でないとかでしょうか😅
実際の画面を見ない限り、原因は分からないかもです😓
@@chanryo_eff 原因わかりました！！入れすぎてました。量を減らしたら反映されました。
なんどもすいません。
プログラムは完成したのですがpdfデータも検索結果に出てくるようというようなことはできますか？
どのようにPDFを出力したいのかによりますが、
ファイル情報だけならファイル情報の項目を追加するだけで対応できますし、
PDFの中身ならば、PDFの中身を読み取る仕組みを別で開発すれば実現可能です！
@@chanryo_eff ファイル情報の項目の追加というのはDBに表を追加するということですか？
そうなります！
@@chanryo_eff それをしても検索結果表示に出てこないというのはなんかミスですかね？
どのような条件で抽出しているのかプログラムを理解すれば解決するかと思います！
ミスかどうかはプログラムの書き方によるのでなんとも言えません。
こんにちは！チャンネル登録させていただきました！業務でまさにこのvbaを使用したく参考にさせていただいてます。
1つ質問です、回答頂けたら嬉しいです🙇🏼♀️
今回は、データベースの横に並んでる情報をそのままメインの画面で横に表示してましたが、そのデータベースの検索結果を縦に並べたい時は、どのような文言を追加してあげるといいでしょうか？(上手く説明できてるか自信がありませんが💦)
データベース
Ｎｏ． 名前 性別 備考
メイン画面 ❌
Ｎｏ． 名前 性別 備考
メイン画面 ⭕️
Ｎｏ．
名前
性別
備考
このように、縦に並べたいです。
お願いいたしますm(_ _)m
ありがとうございます！
ざっくりなイメージですが、行単位で並べるのではなく列単位でということなら、表示する側のCellsの行と列を逆にすれば実現可能かと思います！（開始位置などの調整は必要です）
@@chanryo_eff ご返信ありがとうございます!!
早速試してみます！
Ｎｏ600まであるシートなんですが
検索すると途中までしか出てこないのですが、どうしたらいいでしょうか？
実際に見ていないので断言できませんが、Do Whileで繰り返しているので、間に空白があるとかが原因かと思われます。
@@chanryo_eff なるほど。１箇所でも空白があるとそうなるのでしょうか？
こんにちは。
1回で、たくさんのキーワードを入力して検索できるようにしたいのですが、
検索するキーワードの数を増やすことはできますか？
少し先になりますが、そのようなシステムの解説動画を準備しております😊
@@chanryo_eff
楽しみしています🙂
誰が作成したかわからないのですが、会社で使用しているエクセルのシートに、そのようなVBAが組んであり使用しています。しかし、プログラミングが難解で、マクロ初心者の私には、解読不能です😥
尚、「ExcelVBA【実践】データベースの内容を簡単に検索できるシステム！」は、時間がかかりましたが、作成して、会社で活用させていただいています。