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

[4 デフォルトの名無しさん (ﾜｯﾁｮｲ 8f01-Zl/h) 2020/06/26(金) 20:08:11.16 ID:SBXE4EMs0]

・OpB1って何ですか？丁寧に書いて
・せめてoutputCellInfoのソースは全部書いて
・=thenがガチなのかタイポなのか分からんから直打ちじゃなくてコピペして