六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

Excel根据当前工作薄的活动单元格内容自动查找另外一个工作薄的相同内容并选中

Admin | 2011-4-27 10:34:04 | ReadNums | 7603 | 标签 六合开奖结果现场直播 | 打印本页
     

  要想了解这个问题的实用性,首先,我们看下面的两个工作薄,A、B两个工作并的第二列,分别都保存着人物的姓名。

  此外,还有前提条件,那就是,这两个工作薄的姓名都是相同的,但是,排序却不同,并且,还不能进行排序后对比。

  同时,我们还得实现这样的效果,当我们选择A工作薄的某个姓名时,B工作薄会根据这个姓名,查找B工作薄中是否存在这个姓名,如果存在,就选中该名字所在的单元格或整行,这样,就实现了,A中选择一个姓名,B工作薄就会自动查找该姓名所在的单元格并选中行或单元格。

  这有点像不同工作薄之间的联动。

  下面我们开始吧,得使用VBA来解决,看好洛,代码事件及功能代码如下。

  如上代码是放在A工作薄的,请注意,为方便您的学习,下面,俺将代码粘贴如下:

  Workbooks("A.XLS").Sheets("Sheet1").Activate
MyName = Trim(Sheet1.Cells(Target.Row, Target.Column).Value)
If (Target.Column = 2 And Target.Row <= ThisWorkbook.Sheets(1).UsedRange.Rows.Count) Then
    Workbooks("B.XLS").Sheets("Sheet1").Activate
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
      If Trim(ActiveSheet.Cells(i, 2).Value) = MyName Then
          ActiveSheet.Cells(i, 2).Select
          ActiveSheet.Rows(i).Select
         Exit Sub
      End If
    Next i
End If


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日