新浪博客

EXCEL VBA应用：设置向上，向下，末行，首行查询按钮

2014-10-07 11:19阅读：

http://blog.sina.cn/dpool/blog/u/2354041560

EXCEL <wbr>VBA应用：设置向上，向下，末行，首行查询按钮

在工作中，设置好的窗体经常需要增加一个向下，向上，末行，首行的查询按钮。其代码如下：
EXCEL <wbr>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

我的更多文章

下载客户端阅读体验更佳

APP专享