http://s8/mw690/002zjjKggy6KuJ5esQve7&690VBA应用：设置向上，向下，末行，首行查询按钮" TITLE="EXCEL VBA应用：设置向上，向下，末行，首行查询按钮" />

 

在工作中，设置好的窗体经常需要增加一个向下，向上，末行，首行的查询按钮。其代码如下：

http://s6/mw690/002zjjKggy6MCDPfBRze5&690VBA应用：设置向上，向下，末行，首行查询按钮" TITLE="EXCEL VBA应用：设置向上，向下，末行，首行查询按钮" />

Private Sub CommandButton3_Click()
'向上查询
W = ActiveCell.EntireRow.Row
If W = 2 Then
    MsgBox "已到首行，谢谢！", 64, "飞扬财务：专注于财务领域的应用与培训!"
    Else
    W = W - 1
End If
Rows(W).Select
TextBox1.Text = Range("A" & W)
TextBox2.Text = Range("B" & W)
ComboBox1.Text = Range("c" & W)
TextBox4.Text = Range("d" & W)

End Sub

Private Sub CommandButton4_Click()
'向下查询
W = ActiveCell.EntireRow.Row
If W = Range("A65536").End(xlUp).Row Then
    MsgBox "已到末行，谢谢！", 64, "飞扬财务：专注于财务领域的应用与培训!"
    Else
    W = W + 1
End If
Rows(W).Select
TextBox1.Text = Range("A" & W)
TextBox2.Text = Range("B" & W)
ComboBox1.Text = Range("c" & W)
TextBox4.Text = Range("d" & W)
End Sub

Private Sub CommandButton5_Click()
'末行
W = Range("A65536").End(xlUp).Row
Rows(W).Select
TextBox1.Text = Range("A" & W)
TextBox2.Text = Range("B" & W)
ComboBox1.Text = Range("c" & W)
TextBox4.Text = Range("d" & W)
End Sub

Private Sub CommandButton6_Click()
'首行
W = 2
Rows(W).Select
TextBox1.Text = Range("A" & W)
TextBox2.Text = Range("B" & W)
ComboBox1.Text = Range("c" & W)
TextBox4.Text = Range("d" & W)
End Sub