Excel VBA 質問スレ Part67

[1 デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg) 2020/06/26(金) 02:01:29.56 ID:uDfmpksE0]

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part66
https://mevius.5ch.net/test/read.cgi/tech/1589085825/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 3f01-bXJj) 2020/06/26(金) 07:58:40.55 ID:PIx3bjtD0]

>>1
おちゅ

[3 デフォルトの名無しさん (ﾜｯﾁｮｲ 8fba-x+MM) 2020/06/26(金) 19:07:55.93 ID:ZjxMZdyJ0]

VBAでgrep検索を使いたいんだが教えてくれ。
https://website-note.net/vba/excel-grep-macro/
上のサイトのコードをコピペして動くまではいいんだけど、もう一つ条件を加えて
'キーワードを含むセルの情報をアウトプット時にキーワードの右のセルをアウトプットさせるようにしたい。
そこでOptionButtonを２つ作ってOpB1がtrueのときに普通に動いて、falseのときに
キーワードの右をアウトプットさせるコードを書いたんだがうまくいかない。
ifもselectcaseも試したんだけどだれか教えてくれ、VBA初心者で頭かかえてる。
つくったもの↓
'キーワードを含むセルの内容
If OptionButton1.value =then
省略 .Cells(lcnt, 7).Value = rFoundCell.Value
else
省略 .Cells(lcnt, 7).Value = rFoundCell.offset(0,1).Value