初学VBA录制宏，按照书上写的操作的，提示出错是什么原因啊？

xzp0706

初学VBA录制宏，按照书上写的操作的，提示出错是什么原因啊？

xzp0706

这个文件里有操作视频

WANT-T

原因就是你写错了

xzp0706

WANT-T 发表于 2023-2-28 14:21
原因就是你写错了

我有录制操作视频，但是20多M传不上来，我都是按照视频操作的

ykcbf1100

你这个用数组比较简单。

建议你重点学学字典+数组，数据处理的大部分问题都可以得到解决了。

xzp0706

ykcbf1100 发表于 2023-2-28 14:29
你这个用数组比较简单。

建议你重点学学字典+数组，数据处理的大部分问题都可以得到解决了。

一般不需要用录制宏功能么？因为我才刚开始

ykcbf1100

xzp0706 发表于 2023-2-28 14:34
一般不需要用录制宏功能么？因为我才刚开始

简单的可以录制宏解决，但录制的宏并不简洁，有些改起来感觉无从下手。
论坛里都很多教程，你可以多学学。

tanglf188

根据你的要求大概改了一下，宏录制只能做个参考，不能全部套用，有时候它会把默认的参数一股脑的写进去，初学的时要学会把自己需要的提取出来，主要的一点：在跨表操作时一定要带表名。

1. Sub 筛选数据()
   
2. '
   
3. ' 筛选数据 Macro
   
4. ' 宏由 Xu Zhipeng 录制，时间: 2023/02/28
   
5. '
   
6. 
   
7. '
   
8.     Range("D22").Select
   
9.     Sheets("筛选结果").Activate
   
10.     Cells.Select
    
11.     Range("A226").Activate
    
12.     Cells.Delete Shift:=xlShiftUp
    
13.     ActiveWindow.ScrollRow = 216
    
14.     Range("B222").Select
    
15.     ActiveWindow.Panes(1).Activate
    
16.     ActiveWindow.Panes(1).Activate
    
17.     ActiveWindow.ScrollRow = 1
    
18.     Range("A1").Select
    
19.     Sheets("数据表").Activate
    
20.     ActiveWindow.ScrollRow = 1
    
21.     Sheets("筛选结果").Activate
    
22.     Sheets("数据表").Range("A1:E1681").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G1:G2"), CopyToRange:=Selection, Unique:=False
    
23.     Sheets("筛选结果").Columns("A:E").AutoFit
    
24.     Range("C4").Select
    
25. End Sub
    

复制代码

xzp0706

ykcbf1100 发表于 2023-2-28 14:36
简单的可以录制宏解决，但录制的宏并不简洁，有些改起来感觉无从下手。
论坛里都很多教程，你可以多学学 ...

对了，老哥，还有就是想问下，VBA写代码的时候不能自动把你想要引用的对象或者函数下拉出来让你选吗？比如别的编程工具打个“.”就自动出来对应的函数或者对象了，VBA怎么还要自己写出来？是我设置的问题吗？

ykcbf1100

xzp0706 发表于 2023-2-28 19:46
对了，老哥，还有就是想问下，VBA写代码的时候不能自动把你想要引用的对象或者函数下拉出来让你选吗？比 ...

代码全部手动输入，好像可以带出来