前回の質問(https://oshiete.goo.ne.jp/qa/8954513.html)
から何度も恐縮なのですが、検索キーワードテーブルを
B列に項目でC列にキーワード。
A列は、ソート用として扱いたいのですが、何度かVBAコードをいじって
自分でも探ってみたのですが、わかりませんでした。
その方法を教えていただけないでしょうか。
No.1ベストアンサー
- 回答日時:
こんにちは。
先回お伝えした通り、現在は、まともな回答作業が出来る状況にありません。
サイトの閲覧すらままならないので、昨日、
休止宣言でも書いておこうかと、プロフィール画面を開いた時に
偶々、[あなたにおすすめ]タブにて、この質問をお見かけしました。
その他の質問については目を通す余裕も無いのが現状です。
改めてお伝えしますが、今回の解答に関しては、追加補足があったとしても、
教えて!gooの定める締切迄の期間での返答は約束しかねますので、
予めご了承ください。
お訊ねの内容そのものは初歩的なことですから、
他の回答者さんにも容易に応えられる筈のものです。
私としては、変更やメンテに関して容易な手法を選んで
ソースを提示したつもりでもあるのですが、
なぜ、他の方からの回答が付かなかったのか、、、。
> ... 検索キーワードテーブルを
> B列に項目でC列にキーワード。
先回サンプルブックをダウンロードし
こちらでは修正も済ませていましたから、
ご質問の意図(変更点)が、私には解るのですが、
前スレでは何度も要求仕様が変わったり、戻ったりで、
何をベースにしているのか、どんな記述に修正を加えたいのか、
質問者さんにしか判りませんよね。
私にも判断つきません(知りようがない)です。
差し当たり、前スレの#5-6あたりの仕様なのだと仮定して、
#6のPrivate Sub ReG8954513( ... )の内容について
修正を加えたい、というお話だった場合、への回答です。
修正前) ↓ [ReG8954513] 22行めあたり ↓
mtxCritTable = wksTable.Cells.CurrentRegion.Value
修正後)
With wksTable.Cells.CurrentRegion
mtxCritTable = .Offset(, 1).Resize(, .Columns.Count - 1).Value
End With
のように書換えてみて下さい。
以上です。
ありがとうございます!
難なくできました!
ちなみにcj_moverさんが休止宣言とのことで恐縮なんですが、
新しいフレーズが発生した時にわかるようにするようなことって
できないですかね。お忙しいのは承知なんですが、お返事頂ければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAについて質問です。 2 2022/12/09 17:59
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) VBAで重複データを合算したい(時間) 1 2022/12/08 23:06
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) vbaサブフォルダーをワイルドカードで取得したい 2 2022/11/15 08:04
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Excel(エクセル) エクセルデータからの必要項目抽出方法を教えてください 6 2022/08/12 15:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報