|
▼りん さん こんにちは。
お返事遅くなってすみません。
>'判定する関数
>関数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のようですが、
出る可能性もまったくない訳でもなく、万が一を考えると
分けた方がいいようなのです。
ありがとうございました。
|
|