2017-01-16 34 views
0

我創建了一個用戶窗體和6個文本框和一個按鈕。我需要找到第一,第二和第三大價值。VBA UserForm從文本框中找到第n個值

userform name: uform1 
testboxes name: t1, t2, t3, t4, t5, t6 

我想如recive消息「T4第一包含15最大值,t2包含這就是12第二大值,T5包含是10 tirth最大值」

我已籤一些代碼,但我找不到解決方案的文本框值。我已經嘗試了下面的代碼,但沒有用。

Private Sub CommandButton1_Click() 
    Dim Hrdlr As Integer 
    Hrdlr = Array(.t1, .t2, .t3, .t4, .t5, .t6) 

    Scnd = WorksheetFunction.Large(Hrdlr, 2) 
End Sub 

謝謝。

回答

0

得到了答案,對我來說工作正常。

Dim Hrdlr 
    Hrdlr = Array(Val(t1.Value), Val(t2.Value), Val(t3.Value), Val(t4.Value)) 

    Label1.Caption = WorksheetFunction.Large(Hrdlr, 2) & " in t" & Application.Match(WorksheetFunction.Large(Hrdlr, 2), Hrdlr, False)