|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
如下程序,录好的普通宏:,选择“sheet1(销售)”的C列某单元格,复制该单元格,在"sheet2(明细)的B8单元格,ctrl+f ,粘贴,查找~~是一个正常的宏,改动了一下(改变部分见下面的说明),放到shett1(销售)里来,宏就无法正常使用了,请教各位老师指点问题所在了,先谢谢了
(附件见这个贴子http://club.excelhome.net/thread-1352754-1-1.html)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False '新增句子
n110 = ActiveCell.Value ’这一句是新加的变量
Sheets("明细").Select
ActiveSheet.PivotTables("数据透视表2").PivotFields("客户名称").ClearAllFilters
ActiveSheet.PivotTables("数据透视表2").PivotFields("客户名称").CurrentPage = "(All)"
ActiveSheet.PivotTables("数据透视表2").PivotFields("客户编号").ClearAllFilters
ActiveSheet.PivotTables("数据透视表2").PivotFields("客户编号").CurrentPage = "(All)"
ActiveSheet.PivotTables("数据透视表2").PivotFields("业务员姓名").ClearAllFilters
ActiveSheet.PivotTables("数据透视表2").PivotFields("业务员姓名").CurrentPage = "(All)"
ActiveSheet.PivotTables("数据透视表2").PivotFields("工号").ClearAllFilters
ActiveSheet.PivotTables("数据透视表2").PivotFields("工号").CurrentPage = "(All)"
Range("B8").Select ‘~~~这句是录下来的,没变过,提示,无效的选择。
Cells.Find(What:=n110, After:=ActiveCell, LookIn:=xlFormulas _ 'n110,是改动过的,原来是一个常量
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.Select ’这句也改了,原来是 range(b13125").select
Application.ScreenUpdating = True ‘新增句子
End Sub
|
|