分类：电脑/网络-软件
问题：EXCEL宏的问题你好，下面是年告诉我的操作代码，只适合于SHE 
你好，下面是年告诉我的操作代码，只适合于SHEET1、2、3表格，如果我需要的表在SHEET5/6表中，我该如何更改代码，谢谢，急！代码应该怎么写？操作方法：先在已发货明细表后增加一个工作表，并将其更名为未发货明细，然后在这个新增的工作表标签上点击右键，在弹出的菜单上点击查看代码，在弹出的窗口里输入以下代码（当然要学会编写代码，可不是三言两语能讲的清的）即可。Private Sub Worksheet_Activate() Application.ScreenUpdating = False With Sheets(2) For你好，下面是年告诉我的操作代码，只适合于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
回答：代码中，“Sheets”后面括号“（）”中的数字“1、2、3”都是工作表标签的顺序编号分别为第1个工作表、第2个工作表、第3个工作表。因此，你可根据实际情况对此作相应更改。