Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39725 / 76732 ←次へ | 前へ→

【42116】Re:条件数の変化
お礼  もとあし  - 06/9/1(金) 15:08 -

引用なし
パスワード
   ▼りん さん こんにちは。

お返事遅くなってすみません。

>'判定する関数
>関数tp1 arg1:判定基準の文字列, NN:チェックするキーワードの数(上限)
>Function tp1(arg1 As String, NN As Integer) As Boolean
>  Dim flg As Boolean, s1 As Variant, II As Integer, Imax As Integer
>  s1 = Array("不要", "必要", "賞味期限") 'チェックするキーワードのリスト
>  '念のため配列の上限をチェック
>  If NN > UBound(s1) + 1 Then Imax = UBound(s1) Else Imax = NN - 1
>  For II = 0 To Imax
>   flg = flg Or Left(arg1, Len(s1(II))) = s1(II)
>  Next
>  tp1 = flg
>End Function

↑のUBound、使ったことないのですが、ヘルプなどで見て
分かっていたつもりでしたが、実は分かっていないことに気づきました。
今、少し他の業務で忙しく、じっくり学習できないので、それが片付いたら
もう一度UBoundやLBoundとは何か?を調べて、改めてこのコードを自分なりに
理解したいと思います。
そしてまた分からなかったら、再度質問したいと思います。
なので、ちょっと時間が必要なので、取り急ぎお礼だけさせてください。
ありがとうございました。

>orなので関係ないワードもチェックしても特に問題はなさそうな(出ないなら問題はない)気はしますが。

もし、私にコードが組めなかったらそれでも最悪OKのようですが、
出る可能性もまったくない訳でもなく、万が一を考えると
分けた方がいいようなのです。

ありがとうございました。

0 hits

【42049】条件数の変化 もとあし 06/8/30(水) 13:38 質問
【42058】Re:条件数の変化 りん 06/8/30(水) 18:00 回答
【42116】Re:条件数の変化 もとあし 06/9/1(金) 15:08 お礼
【42264】Re:条件数の変化 もとあし 06/9/5(火) 10:55 質問
【42271】Re:条件数の変化 Kein 06/9/5(火) 11:56 回答
【42453】Re:条件数の変化 もとあし 06/9/12(火) 15:22 お礼

39725 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free