Question

我创建了一个userform和6个文本框和一个按钮。我需要找到第一，第二和第三大价值。

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

我希望收到一条消息，如＆＃34; t4包含第一个最大值15，t2包含第二个最大值12，t5包含tirth最大值10＆＃34;

我检查了一些代码，但我找不到文本框值的解决方案。我已经尝试过以下代码，但没有用。

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

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

谢谢。

Answer 1

得到了答案，对我来说很好。

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)

VBA UserForm从文本框中查找第n个值

1 个答案: