搜索
首页 电脑/网络 软件

EXCEL宏的问题

  你好,下面是年告诉我的操作代码,只适合于SHEET1、2、3表格,如果我需要的表在SHEET5/6表中,我该如何更改代码,谢谢,急!代码应该怎么写? 操作方法:先在已发货明细表后增加一个工作表,并将其更名为未发货明细,然后在这个新增的工作表标签上点击鼠标右键,在弹出的菜单上点击查看代码,在弹出的窗口里输入以下代码(当然要学会编写代码,可不是三言两语能讲的清的)即可。
  Private Sub Worksheet_Activate() Application。ScreenUpdating = False With Sheets(2) For i = 2 To 。[A65536]。End(3)。Row str1 = 。
  Cells(i, 1) & 。Cells(i, 2) & 。Cells(i, 3) With Sheets(1) For n = 2 To 。[A65536]。End(3)。Row str2 = 。Cells(n, 1) & 。Cells(n, 2) & 。
  Cells(n, 3) If str1 = str2 Then Sheets(1)。Rows(n)。Hidden = True: Exit For Next End With Next End With Sheets(3)。Cells。Clear Sheets(1)。
  Cells。Copy Sheets(3)。[A1] Sheets(1)。Cells。EntireRow。Hidden = False End Sub。

全部回答

2011-09-30

0 0

代码中,“Sheets”后面括号“()”中的数字“1、2、3”都是工作表标签的顺序编号分别为第1个工作表、第2个工作表、第3个工作表。因此,你可根据实际情况对此作相应更改。

类似问题换一批

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
软件
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
软件
多媒体软件
系统软件
办公软件
网络软件
图像处理软件
举报
举报原因(必选):
取消确定举报