Excel VBA 質問スレ Part67

Excel VBA 質問スレ Part67at TECH

Excel VBA 質問スレ Part67 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

7:デフォルトの名無しさん (ｱｳｱｳｳｰ Sad3-fXbV)
 20/06/26 20:40:26  nEhmFRZ4a.net
なんでElseに:ついてんだ？

8:デフォルトの名無しさん (ｱｳｱｳｳｰ Sad3-d3ZO)
 20/06/26 20:40:29  1oZqQJala.net
張り付けたオプションボタンと定義したのは別物じゃね

9:デフォルトの名無しさん (ﾜｯﾁｮｲ 3f01-bXJj)
 20/06/26 20:50:43  PIx3bjtD0.net
つか、そもそもそのサイトのコードって正確に動く？ 
キーワードを含むセルを網羅しないんだけど 
 
nothingになるRangeを比較対象に置いてるあたりがあれだ

10:デフォルトの名無しさん 
 20/06/26 21:05:20.01 ZjxMZdyJ0.net
Elseの：はミスです… 
オプションボタンの定義…ググりなおします 
>>9そうです、全文では無いんですよね…全文検索くんもDLして 
編集しようとしましたが今の私では無理でした。

11:デフォルトの名無しさん 
 20/06/26 23:24:58.46 SBXE4EMs0.net
>>6 
ぱっと見で分かるのは、OptionButton1が再定義されてて目的の値を参照してない事 
Dim OptionButton1 を消して、>>3で自分で書いたようにOptionButton1.valueを評価してみて 
あと、オブジェクト名にButtonって入ってるからコントロールだと思うけど、 
もしコマンドボタンならこの用途でValueプロパティは使えないから、チェックボックスにしよう 
解説サイトのソースも修正 
grepExcelSheetメソッド 
Loop While rTmpFoundCell <> rFoundFirstCell 
↓ 
Loop While rTmpFoundCell.Address <> rFoundFirstCell.Address 
openExcelFilesメソッド 
sTmpPath = Dir(sFilePath & "*.xls") 
↓ 
sTmpPath = Dir(sFilePath & "*.xls?") 
それに伴って Do While sTmpPath <> "" 内の文を 
If Not sTmpPath Like "*." & ThisWorkbook.Name Then ～ End If 
で括る 
細かいこと言うと、Blean型を判定するときにリテラルと比較（= True や = False）はカッコ悪いから止めた方がいい 
解説サイトではやってるけどね

次ページ