[已解决]求助一个简单的查询宏

wqol

uce1zszA.rar (8.73 KB, 下载次数: 13)

2010-4-10 18:21 上传

点击文件名下载附件
求助一个简单的查询宏 求助一个简单的查询宏，

最佳答案

月排行榜 / 总排行榜

紫猪侠

2010-4-10 19:00

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Range("B:B").Find(TextBox1.Text)
If Not rng Is Nothing Then
    For i = 1 To 4
        Me.Controls("Label" & i + 5).Caption = rng.Offset(, i).Value
    Next
End If
End Sub

跳转到最佳答案楼层

yuang68

建议用函数vlookup查找简单多了　vba 你用find查找

紫猪侠

Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Range("B:B").Find(TextBox1.Text)
If Not rng Is Nothing Then
    For i = 1 To 4
        Me.Controls("Label" & i + 5).Caption = rng.Offset(, i).Value
    Next
End If
End Sub

wqol

谢谢你，没有想到还真可以的

wqol

QUOTE:

以下是引用紫猪侠在2010-4-10 19:00:00的发言：
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Sheet1.Range("B:B").Find(TextBox1.Text)
If Not rng Is Nothing Then
    For i = 1 To 4
        Me.Controls("Label" & i + 5).Caption = rng.Offset(, i).Value
    Next
End If
End Sub

谢谢你，没有想到还真可以的