Office中国论坛/Access中国论坛

标题: 如何用VBA代码再添加一个工作表BOOK1得到和BOOK2一样的效果 [打印本页]

---

作者: huangyepeng    时间: 2012-3-10 22:07
标题: 如何用VBA代码再添加一个工作表BOOK1得到和BOOK2一样的效果
[attach]48682[/attach]

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("a2") <> "" Then
  Sheets("sheet1").Range("A1:E60000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:E4"), Unique:=False
End If

End Sub
请高手帮忙解答 ，小弟感激不尽，谢谢

---

作者: roych    时间: 2012-3-11 11:34
手动复制另存一份不算太难吧？为什么非要搞VBA呢？

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3