excel 设置一个命令按钮用VBA实现单元格的自动跳转！

如图单元格选中金铂按下按钮选择框自动跳转到一下个单元格（金铂，巴丹……）到金曼迪时自动停止等于做一次循环有知道的朋友把函数解释一下加分！！！
实现循环打印金铂巴丹乔顿……
Private Sub 按钮4_Click()
Prn2
Sheets("流程表 (2)").Activate
ActiveSheet.PrintOut
Sheets("业务计件").Activate
这里要加什么函数？？？
End Sub

举报该问题

推荐答案 2009-10-26

sub macro1 ()
x = ActiveCell.Row
do while cells(x,1)<>""
cells(x,1).select
x=x+1
loop
end sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/DnrBnZZTj.html

其他回答

第1个回答 2009-10-26

须用到
i=Target.row 当前单元格行数
j=Target.Column 当前单元格列数
cells(i+1,j).select 跳到当前单元格下一个单元格（行+1，列不变）

相似回答

excel 设置一个命令按钮 用VBA实现单元格的自动跳转!答：假如添加的控件按钮的名字是command1 代码如下：private sub command1_click()dim i as integer for i=1 to 10 if selection.count=1 then activecell.offset(1,0).select end if next i end sub

excel vba需要实现自动跳转到对应单元格答：可以这样说，无论点击Sheet1A列中的任何一个单元格，只要在Sheet2中的A列，有与其值相同的，就自动跳到Sheet2的相应单元格；方法是：右键点击“Sheet1”，在弹出的快捷菜单中，点击“查看代码”，如下图。4.之后，会弹出如下图一个的VB代码编写窗口。5.这个时候，无须做额外的代码编写，只需要按照...

excel 如何用宏VBA实现输入完数据光标框从一个单元格跳转到下一行的单元...答：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count > 1 Then Exit SubIf Target <> "" Then Cells(WorksheetFunction.Min(65536, Target.Row + 1), WorksheetFunction.Max(1, Target.Column - 1)).SelectEnd Sub右键SHEET1，查看代码。粘贴上面的代码。因为考虑到在第一列或第6...

excel 利用VBA 如何实现输入一个两位数后自动换到下一个单元格?答：因此达不到你要的效果。而你一旦结束该单元格的操作，自然是跳到了下一个单元格。如果你意思是跳到下一行的或右侧的单元格，分别回车或TAB键就行。如果你意思是跳到特定的单元格，就要看实际来说了。ActiveCell.Offset(0, 1).Activate 这个是自动换到下一个单元格的简单语句提供给你 ...

大家正在搜

excel给单元格设置选填 excel单元格筛选设置 excel表格按钮设置 excel跳转到指定单元格 excel 返回单元格所在位置 excel设置筛选按钮如何给excel设置选择按钮 excel添加命令按钮 excel单元格内换行

excel 设置一个命令按钮 用VBA实现单元格的自动跳转！

excel 设置一个命令按钮用VBA实现单元格的自动跳转！