VBA查找，跳到符合要求的单元格

emanlondy

各位老师：
        我想实现这样的VBA程序：
        A1=[1年级-6年级]  (可选其一)
        B1=[1班-6班]         (可选其一)
        然后再本sheet的其它位置有各年级各班的明细；
        如果A1&B1=某年级某班，然后点击按钮，活动单元格就会跳转到这个班级的明细的位置。
        具体如附件，望各位老师指导~谢谢了

emanlondy

在线等啊~~

gaohong267

Sub 宏1()
'
'
Dim x, y, m, n
x = ActiveSheet.UsedRange.Rows.Count


For m = 4 To x
  For n = 1 To 23

If ActiveSheet.Cells(m, n) = ActiveSheet.Cells(1, 1) & ActiveSheet.Cells(1, 2) Then

ActiveSheet.Cells(m, n).Select
End If
Next
Next
'
End Sub

z403025335

Sub 查找2()
Dim s$, n1%, n2%
s = "一二三四五六"
With Sheet1
    If .Cells(1, 1) <> "" And .Cells(1, 2) <> "" Then
        n1 = InStr(s, Left(.Cells(1, 1), 1))
        n2 = Left(.Cells(1, 2), 1)
        .Cells((n1 - 1) * 7 + 4, (n2 - 1) * 4 + 1).Resize(5, 3).Select
    End If
End With
End Sub

emanlondy

z403025335 发表于 2018-8-16 16:35
Sub 查找2()
Dim s$, n1%, n2%
s = "一二三四五六"

感谢，我试一下

emanlondy

gaohong267 发表于 2018-8-16 16:30
Sub 宏1()
'
'

非常感谢，我能看的明白，试一下先

emanlondy

gaohong267 发表于 2018-8-16 16:30
Sub 宏1()
'
'

1 to 23 我理解，是n的范围在所用的单元格列内
那 4 to X 是什么意思？为何是4呢？