Excel VBA質問箱 IV

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

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


23224 / 76732 ←次へ | 前へ→

【58877】Re:ListBox戻り値-1の時の条件設定
発言  Hirofumi  - 08/11/15(土) 18:59 -

引用なし
パスワード
   詳しく説明しないで、ごめんなさいね

>冒頭ご案内いただいたLike演算子を使う方法ですが、ここでワイルドカードを使う必然性が、
>私にはプロシージャから読み取れませんでした。

ListIndexが-1のListBoxが有る時、そのListBoxの項目を抽出条件から除外すると言う意味で考えています
今回提示したコードでは、ListBoxが3つ(本当は10との事ですが)として書いています
例えば、もしListBox1とListBox3が選択されて居て、ListBox2が選択されて居ない場合
抽出は、ListBox1の条件とListBox3の条件だけで抽出が行われます
理由は、「vntB = "*"」と成る為

        If .Offset(i, 1).Value Like vntB Then

の「.Offset(i, 1).Value Like vntB」の結果が常に「True」成る為、
「.Offset(i, 1).Value」の項目は、抽出条件から除外された事に成ります
今回はListBoxなので、UserFormが起動した状態では、一度選択されたListBoxを、
「ListIndex = -1」にコード上以外では出来ないと思いましたので
「UserForm_Initialize()」の中だけで行っています、
もし「ListIndex = -1」にする操作が有るならば、その時点で、変数に"*"を入れる操作を加えて下さい

>また、最後に動的配列を使われていますが、格納した配列の吐き出し先がListoboxである点も良くわかりませんでした。
>せっかくご案内いただきましたのに、こちらの理解不足で誠に申し訳ありません。
>しばらく時間をかけて、送って頂いたプロシージャを分析させていただきます。

迷わせてしまってごめん
此れは、Testが出来る様に、UserFormの形を整える為に行っている事で
特に本題には関係有りません
ただ内容は、このコードではListBoxに表示する項目をリストから取得している為
データの重複取りを行っているコードです

1 hits

【58855】ListBox戻り値-1の時の条件設定 ねろろ 08/11/14(金) 13:30 質問
【58857】Re:ListBox戻り値-1の時の条件設定 Jaka 08/11/14(金) 13:57 発言
【58867】Re:ListBox戻り値-1の時の条件設定 ねろろ 08/11/14(金) 20:05 お礼
【58858】Re:ListBox戻り値-1の時の条件設定 kanabun 08/11/14(金) 14:00 発言
【58865】Re:ListBox戻り値-1の時の条件設定 ねろろ 08/11/14(金) 19:43 お礼
【58862】Re:ListBox戻り値-1の時の条件設定 SS 08/11/14(金) 17:19 発言
【58866】Re:ListBox戻り値-1の時の条件設定 ねろろ 08/11/14(金) 20:00 お礼
【58868】Re:ListBox戻り値-1の時の条件設定 Hirofumi 08/11/14(金) 20:39 回答
【58869】Re:ListBox戻り値-1の時の条件設定 ねろろ 08/11/14(金) 22:28 お礼
【58877】Re:ListBox戻り値-1の時の条件設定 Hirofumi 08/11/15(土) 18:59 発言
【58891】Re:ListBox戻り値-1の時の条件設定 ねろろ 08/11/16(日) 15:22 お礼

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