制作四个按钮，怎么实现上一条，下一条，第一条，最后一条数据

peacedotli

我想制作四个按钮，
怎么实现上一条，下一条，第一条，最后一条数据



谢谢！

小花鹿

以A列为关键字判断，然后对应填写                                                                                       

peacedotli

小花鹿 发表于 2019-9-24 20:22
以A列为关键字判断，然后对应填写                                                                      ...

你能帮我做一个，并附上文件吗？

清风竹-

请看附件。

lh123lh1234

喏喏喏喏喏，原来有人写啊

小花鹿

Private Sub CommandButton3_Click()
Dim d, i&, ar, s
Set d = CreateObject("scripting.dictionary")
ar = Sheet2.Range("a1").CurrentRegion
For i = 2 To UBound(ar)
    d(ar(i, 1)) = i
Next i
s = Sheet1.Range("b2")
i = d(s)
If i < 2 Then i = 1
If i = UBound(ar) Then Exit Sub
i = i + 1
With Sheet1
    .Range("b2") = ar(i, 1)
    .Range("d2") = ar(i, 2)
    .Range("f2") = ar(i, 3)
    .Range("b3") = ar(i, 4)
    .Range("b4") = ar(i, 5)
    .Range("b5") = ar(i, 6)
End With
End Sub

peacedotli

我更改了一下，但是，怎么只能显示第6-10行的数据呀？

peacedotli

清风竹- 发表于 2019-9-24 21:44
请看附件。

D:\Desktop\2019-09-25 10_15_52-Record_Switching_924.xls  -  Compatibility Mode - Excel.png

你能把中文更改成英文吗？

peacedotli

清风竹- 发表于 2019-9-24 21:44
请看附件。

Dim arr, brr
Sub 打开文件的()
m = Sheet2.Range("A" & Rows.Count).End(3).Row
arr = Sheet2.Range("A2:a" & m)
brr = Sheet2.Range("A2:f" & m)
End Sub

Private Sub Worksheet_Activate()
Call Sheet1.打开文件的

End Sub
Sub 第一条()
[b2] = brr(1, 1)
[d2] = brr(1, 2)
[f2] = brr(1, 3)
[b3] = brr(1, 4)
[b4] = brr(1, 5)
[b5] = brr(1, 6)
End Sub
Sub 最后一条()
s = UBound(arr)
[b2] = brr(s, 1)
[d2] = brr(s, 2)
[f2] = brr(s, 3)
[b3] = brr(s, 4)
[b4] = brr(s, 5)
[b5] = brr(s, 6)
End Sub
Sub 下一条()
b2 = [b2]
w = Application.Match(b2, arr, 0)
s = UBound(arr)
If w = s Then Exit Sub
[d2] = brr(w + 1, 2)
[f2] = brr(w + 1, 3)
[b3] = brr(w + 1, 4)
[b4] = brr(w + 1, 5)
[b5] = brr(w + 1, 6)
Range("B2") = brr(w + 1, 1)
End Sub
Sub 上一条()
b2 = [b2]
w = Application.Match(b2, arr, 0)
If w = 1 Then Exit Sub
[d2] = brr(w - 1, 2)
[f2] = brr(w - 1, 3)
[b3] = brr(w - 1, 4)
[b4] = brr(w - 1, 5)
[b5] = brr(w - 1, 6)
Range("B2") = brr(w - 1, 1)
End Sub

peacedotli

Private Sub Workbook_Open()
Call Sheet1.′ò&#191;a&#206;&#196;&#188;tμ&#196;
End Sub