[[20221202224516]]　『コンボボックスの値を自動で削除したい』（金太）　ページの最後に飛ぶ

『コンボボックスの値を自動で削除したい』（金太）

皆様、お世話になります。
ユーザーフォームのコンボボックスに2022/1/1より１０年分の日付データを入れており、日付入力をしています。
このデータを、今日の日付以前のものを削除したいと思っています。
娘から依頼を受け、データ入力・検索・修正・削除ができるものをVBAで作っています。
ある事情があり、私がいつまでもメンテできないので、使用期間が長くなると、
かなり下までスクロールしないと必要な日付を選択できないと思い、過去の日付を削除していけば、早く見つけられるのではと考えました。

ComboBox19.Clear

      For z = 2 To 最終行2
   ComboBox19.AddItem ws2.Range("U" & z).Value
   Next z
この先のコードがわかりません。

もしくは、削除せず、コンボボックスを開く時に、内のカーソルが今日の日付を
選択するようなコードをご教授願います。
よろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 詳細がわからないので、あまりいいコードではないですが、
 こんな風に前半空回しすれば

   For z = 2 To 最終行2
      if ws2.Range("U" & z).Value = Date Then Exit For 
   Next z
   For z = z To 最終行2
      ComboBox19.AddItem ws2.Range("U" & z).Value
   Next z
（´・ω・`） 2022/12/02(金) 23:36:34

 if ws2.Range("U" & z).Value = Date Then Exit For
                             ↓ 
 if ws2.Range("U" & z).Value >= Date Then Exit For
 のほうがいいかも
（´・ω・`） 2022/12/02(金) 23:40:45

（´・ω・`）様
早々のご対応、痛み入ります。
お陰様で、希望する動作になりました。素晴らしいです。

前半空回しという発想は、７０歳の頭からは絞り出せませんでした。

感謝いたします。

また行き詰りましたら、御指導の程宜しくお願い致します。
ありがとうございました。
（金太） 2022/12/03(土) 09:07:35

コメント返信：

[ 一覧(最新更新順) ]

[[20221202224516]] 『コンボボックスの値を自動で削除したい』（金太） ページの最後に飛ぶ

[[20221202224516]]　『コンボボックスの値を自動で削除したい』（金太）　ページの最後に飛ぶ