[Excel VBA] 如何根据单元格的值跳转到另一工作表有相同值的单元格？

网站名称: Excel技巧网 | Excel 2010新领地

署名作者: zzmxy

版权声明: 版权所有 非作者本人转载须经许可并注明作者和出处

本文来自:

引用作品:

适用版本: 2010 2007 

语言环境: 简体中文 (頁麵右上角簡繁轉換)

文章地址: http://www.exceltip.net/thread-21092-1-1-41856.html

学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识

 

Q: 如何根据单元格的值，直接跳转到另一个工作表具有相同值的单元格？
    如下图所示，能否实现从“订单表”的A7单元格跳转到“订购计划表”的A8单元格上？

 



A: 使用VBA可以实现这个功能，按Alt+F11，调出VBE编辑器，将下面代码输入到“订单表”工作表代码窗口即可。

 

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2.     If Target.Count = 1 And Target.Value <> "" Then
3.         Set Rng = Sheets("订购计划表").UsedRange.Find(Target.Value, , xlValues, xlWhole)
4.         If Not Rng Is Nothing Then Sheets("订购计划表").Activate: Rng.Select
5.     End If
6. End Sub

 

 

详细内容及操作附件，请见ExcelTip.Net论坛原帖：

[Excel VBA] 如何根据单元格的值跳转到另一工作表有相同值的单元格？

http://www.exceltip.net/thread-21092-1-1-41856.html