カレンダー
     12
3456789
10111213141516
17181920212223
24252627282930
31      
<< March 2024 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
にほんブログ村 地域生活(街) 中国地方ブログ 山口県情報へ
にほんブログ村
カテゴリー
アーカイブ
おすすめリンク

その他リンク

<< ツール | main | 難題 >>
リストボックスでの高速全選択
 通常、リストボックスでの全選択では以下のようなコマンドを使います。

    
    Dim Ctl As Control
    Dim intCounter As Integer

    Set Ctl = Me!lstbox

    For intCounter = 0 To Ctl.ListCount - 1
        Ctl.Selected(intCounter) = True
    Next

リストボックスの表示リストを1件1件選択していくのですが、数千件あると結構時間がかかります。

で、瞬時に選択するには「Sendkeys」を使います。

        Ctl.SetFocus
        SendKeys "^{END}+^{HOME}"

これだけでOKです。最後から先頭へ向かって選択しています。
先頭から最後に選択するとリストの最後に送られてしまうので・・・・

ちなみにその場合は

        SendKeys "^{HOME}+^{END}"
| ACCESSシステム開発 | 06:28 | comments(1) | - |
コメント
はじめまして。まさに実現したかったことです。参考にさせていただきました。ありがとうございました。m(_ _)m
| ガウディ | 2017/06/15 10:48 AM |
コメントする