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

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

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

皆様、お世話になります。
ユーザーフォームのコンボボックスに2022/1/1より10年分の日付データを入れており、日付入力をしています。
このデータを、今日の日付以前のものを削除したいと思っています。
娘から依頼を受け、データ入力・検索・修正・削除ができるものを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

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

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

感謝いたします。

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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.