重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

電子書籍の厳選無料作品が豊富！

VBAでの曖昧検索

解決済

  • 質問者：maki06
  • 質問日時：
  • 回答数：1件

セルの文字の中に「当り」を含む場合のみ、集計させたいのですが
If Trim$(.Cells(list_cnt, 65)) = "*当り*" Then
　ActiveSheet.Cells(19, 3) = ActiveSheet.Cells(19, 3) + 1
End if

If Trim$(.Cells(list_cnt, 65)) = "*当り*"では集計できないのですが
"*当り*"の書き方はおかしいでしょうか？

ちなみにセルには　「当り」にみではなく「アイス当り」等他の文字も
含まれています。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： n-jun
  • 回答日時：

If Trim$(.Cells(list_cnt, 65)) Like "*当り*" Then


とか
If InStr(Trim$(.Cells(list_cnt, 65)), "当り") > 0 Then
などは如何でしょう。
    • good
    • 0
    • 件
通報する
この回答へのお礼

n-junさん
If Trim$(.Cells(list_cnt, 65)) Like "*当り*" で実行できました！
=をつけてはいけないんですね。。
迅速なご対応誠にありがとうございました！！

通報する
お礼日時：2009/06/25 18:28

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報