Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 405|回复: 10

[求助] VBA代码报错

[复制链接]
发表于 2020-1-15 11:05 | 显示全部楼层 |阅读模式
本帖最后由 heftyguy 于 2020-1-15 11:43 编辑

显示“应用程序定义或对象定义错误”
 楼主| 发表于 2020-1-15 11:06 | 显示全部楼层
Sheets.Add after:=Sheets(Sheets.Count)
Sheet3.Range("a1:c" & i + 1).Copy ActiveSheet.Range("a1:c" & i + 1)
ActiveSheet.Range("a2:c" & i + 1).Select
ActiveSheet.Range("a2:c" & i + 1).Sort [c2]

以上代码前面3行都能运行,就第4行报错了,关键是这个第4行代码在其他表格的程序运行是没问题的啊

回复

使用道具 举报

 楼主| 发表于 2020-1-15 11:09 | 显示全部楼层
回复

使用道具 举报

发表于 2020-1-15 11:14 | 显示全部楼层
猜的ActiveSheet.Range("a2:c" & i + 1).Sort ActiveSheet.Range("c2")
回复

使用道具 举报

 楼主| 发表于 2020-1-15 11:17 | 显示全部楼层
大灰狼1976 发表于 2020-1-15 11:14
猜的ActiveSheet.Range("a2:c" & i + 1).Sort ActiveSheet.Range("c2")

大神确实厉害!
回复

使用道具 举报

 楼主| 发表于 2020-1-15 11:20 | 显示全部楼层
大灰狼1976 发表于 2020-1-15 11:14
猜的ActiveSheet.Range("a2:c" & i + 1).Sort ActiveSheet.Range("c2")

1
1
2
2
2
3
3
4
4
5
6
6
8
8
8
11
12
14
如何在同名排序的项目中再随机抽一个呢?保证抽出来的项目排名不一样呢?
回复

使用道具 举报

发表于 2020-1-15 12:53 | 显示全部楼层
随机抽一个怎么判断不一样,和什么比较?
回复

使用道具 举报

 楼主| 发表于 2020-1-15 13:34 | 显示全部楼层
大灰狼1976 发表于 2020-1-15 12:53
随机抽一个怎么判断不一样,和什么比较?

也说不上来,有什么好的抽样算法?根据评分标准,评分高的容易抽中
回复

使用道具 举报

发表于 2020-1-15 13:36 | 显示全部楼层
随机抽样就是RND呗,最多加权重值,这个要根据自己需要来设置。
回复

使用道具 举报

 楼主| 发表于 2020-1-15 13:59 | 显示全部楼层
大灰狼1976 发表于 2020-1-15 13:36
随机抽样就是RND呗,最多加权重值,这个要根据自己需要来设置。

这个就是权重抽样啊,大神看看有没有可以优化的呢
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-8-14 03:35 , Processed in 0.078000 second(s), 3 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表