乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>excel</em>中符合条件的自动跳到某单元格的vba函数

<em>excel</em>中符合条件的自动跳到某单元格的vba函数

作者:乔山办公网日期:

返回目录:excel表格制作


其实你只需要一个工作表事件就可以了,不需要增加超链接
"首页"工作表标签,单击右键,查看代码,粘贴下面的代码

Sub 链接()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next

END SUB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Target.Column = 1 Then
Sheets(Target.Value).Activate
Sheets(Target.Value).Range("A10").Select
Else: Exit Sub: End If
Else: Exit Sub: End If
End Sub

亲,没看明白您的意思,努力尝试解答一下吧:

假如您的意思是符合条件的数据“跳”到某单元格,那么首先在数据区域进行for each遍历,循环内加入if判断是否满足条件,满足则将数据用 = 或者copy的方法,放到您指定的单元格去。如果满足条件的不止一个,那么可以设一个变量累加,存放时按行或者按列递增。

假如您的意思是符合条件,就将当前活动单元格切换到您指定的单元格。那么一样需要在您的数据区域用for each遍历,同样要逐个进行if判断。一旦满足条件,就对您指定的那个单元格使用select命令。

您能具体说明一下要求吗?
  • 打开Excel 2010,在Sheet1的单元格中输入作为超链接的文字,如图

  • 百" class="ikqb_img_alink">

    2.点击设置好的某一单元格,选择插入-->超链接,如图

    3.在出现的插入超链接弹出框中选择要链接到的工作表,本例中选择名称为Sheet2的工作表,如图

    4.点击链接就可以跳转到相应工作表了,如图



1.下面看实例。

2.上图中,在Sheet1中,A列的A3单元格,数据是“李四”;

3.看上图,Sheet2中的A23单元格,内容也是“李四”;

  现在,要做的是,在Sheet1中,点击A3中的“李四”,就会自动跳到Sheet2中的A23单元格。

  可以这样说,无论点击Sheet1A列中的任何一个单元格,只要在Sheet2中的A列,有与其值相同的,就自动跳到Sheet2的相应单元格;

  方法是:右键点击“Sheet1”,在弹出的快捷菜单中,点击“查看代码”,如下e68a847a64363图。

4.之后,会弹出如下图一个的VB代码编写窗口。

5.这个时候,无须做额外的代码编写,只需要按照上图,把代码粘贴上去就完成了。

  为了方便大家的学习,下面,将代码贴到下文:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 Then
  If Sheet1.Cells(Target.Row, 1) <> "" Then
  For i = 1 To Sheet2.UsedRange.Rows.Count
  If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value Then
  Sheet2.Activate
  Sheet2.Range("A" & i).Select
  End If
  Next i
  End If
  End If
  End Sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网