VBA 上位３位までの値をラベルに表示するには

質問

いつもお世話になっております。
初心者ですが、宜しくお願いします。

ご教授願いたいのは、上位３位までと、下記３位までの値を抽出し、
それぞれをユーザーフォーム上のラベルへ表示したいのです。

（例
( sheet1 )
　　A　　
１　20　　
２　15　
３　40　
４　25　
５　30　
６　60　
７　55　

　　↓　↓
ユーザーフォームには ラベル１ ～ ラベル6まであります。
上記のA列の中から上位３位までを抽出し、ラベル１～ラベル３へ表示。
ラベル４～ラベル６に下位３件の値を抽出、表示させたいのです。

現在は手動でLARGE関数、SMALL関数で一度sheet2に書き出した後、
そのセルの値を表示するようにしていますが、
値も日々動的に増えていきますので、
別シートを使わず直接プログラムできればと思います。

素人のためうまく説明できませんが、
どうぞ皆様のお知恵をお貸しください。
宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

UserForm1上にLabel1,2,3,4,5,6および操作を命じるCommandButton1が配置されている。
Sheet1のA1以下にデータが記入されている。

private sub CommandButton1_Click()
dim i
for i = 1 to 3
me.controls("Label" & i).caption = application.large(worksheets("Sheet1").range("A:A"), i)
me.controls("Label" & i + 3).caption = application.small(worksheets("Sheet1").range("A:A"), i)
next i
end sub

お礼

ありがとうございます。
思った通りになりました。
こんなに短いプログラムでできるとは！

本当にありがとうございました。