|
拜托各位大师看看,因为要在很多地方用到相同的文字信息,所以把单元格字符改为引用别的单元格的,这样就造成查询页面无法查找到相关信息了。能不能通过修改VBA代码实现成功查询?
Sub h()
Dim FindRng As Range
bj = [J2] & "班"
[A3:M60].ClearContents
With Sheet2
Set FindRng = .UsedRange.Find(bj)
If FindRng Is Nothing Then
MsgBox "成绩未录入或查无此班!": Exit Sub
Else
r1 = FindRng.Row
r2 = .Cells(r1 + 1, 3).End(xlDown).Row
[a3].Resize(r2 - r1 + 12, 13) = .Cells(r1, 2).Resize(r2 - r1 + 12, 13).Value
End If
End With
End Sub
Sub f()
Dim FindRng As Range
njxk = [J2]
[a5:n23].ClearContents
With Sheet3
Set FindRng = .UsedRange.Find(njxk)
If FindRng Is Nothing Then
MsgBox "成绩未录入或查无此班!": Exit Sub
Else
r1 = FindRng.Row
r2 = .Cells(r1 + 1, 2).End(xlDown).Row
[a5].Resize(r2 - r1 + 2, 14) = .Cells(r1, 1).Resize(r2 - r1 + 2, 14).Value
End If
End With
End Sub
|
|