美文网首页
VBA之前写的

VBA之前写的

作者: 猛犸象和剑齿虎 | 来源:发表于2022-06-11 10:36 被阅读0次

Private Sub ComboBox1_Change()

Dim d, m As Integer, rng1 As Range, k, k1

Set d = CreateObject("scripting.dictionary")

For Each rng1 In Range("b2:b1000")

 If rng1.Value = ComboBox1.Value Then

 d(rng1) = rng1.Offset(0, 3).Value

 End If

Next

k = d.Items

k1 = d.keys

TextBox8.Text = Application.Max(d.Items)

End Sub

相关文章

网友评论

      本文标题:VBA之前写的

      本文链接:https://www.haomeiwen.com/subject/bldjqqtx.html