Excel VBA質問箱 IV

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

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


39578 / 76732 ←次へ | 前へ→

【42264】Re:条件数の変化
質問  もとあし  - 06/9/5(火) 10:55 -

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

少し時間が空いてしまいましたが、また少し教えてください!

>>'判定する関数
>>関数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とは何か?を調べて、改めてこのコードを自分なりに
>理解したいと思います。

UBoundについては理解したと思います。
上記のコードも実際に動かして見たりして、大まかな理解したと思うのですが、
>>   flg = flg Or Left(arg1, Len(s1(II))) = s1(II)
のflg = flg が、何なのかよく分かりません。

また、コードは
>>  s1 = Array("不要", "必要", "賞味期限")
のリストの例えば全部とか、2番目までで判定してね、
などと指定するのですよね?

もし、表1のKeywordが("不要", "必要", "賞味期限") とした場合の
表2のKeywordが("不要", "必要", "廃棄","新品") などと
一部が異なる場合、はどのように分岐したらいいのでしょうか。

教えていただけたらと思います。
よろしくお願いします。

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 お礼

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