网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
03月12日漏签0天
excel吧 关注:282,319贴子:1,559,870
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 38回复贴,共1页
<<返回excel吧
>0< 加载中...

学习VBA又被坑啦

  • 只看楼主
  • 收藏

  • 回复
  • 秦時明月漢時圓
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
rt!单元格表示方法的区别,居然有个细节没人给我讲清楚,我说我测试程序怎么老出错呢?代码如下:
Sub test()
Dim c, k%, rng As Range
For Each rng In Sheets("总表").Range("a3:a" & Cells(Rows.Count, 1).End(xlUp).Row)
'For Each rng In Range(Sheets("总表").[a3], Sheets("总表").Cells(Rows.Count, 1).End(xlUp))
Set c = rng.Find("张三")
If Not c Is Nothing Then
Sheets("总表").[b3:d3].Offset(c.Row - 3).Copy Sheets("张三").[b5].Offset(k)
k = k + 1
End If
Next
End Sub
这样表达
Sheets("总表").Range("a3:a" & Cells(Rows.Count, 1).End(xlUp).Row)是对的,
Range是Sheets("总表")的从属对象。
这样表达
Range(Sheets("总表").[a3], Sheets("总表").Cells(Rows.Count, 1).End(xlUp)),才是对的。
如果这样表达
Sheets("总表").Range([a3], Cells(Rows.Count, 1).End(xlUp)),若当前工作表不是"总表“就是错的,
表明Range不是Sheets("总表")的从属对象。


  • 已经为了忘记
  • 日新月E
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
range不属于sheets(n)那sheets(n).range就无法编译,你觉得会吗?vbe中可以省略application并不代表对象不能属于子对象!


2026-03-12 03:42:16
广告
不感兴趣
开通SVIP免广告
  • 秦時明月漢時圓
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
假设我要清除第一张表的a1:a10区域,当前选择的工作表不是第一张工作表
实际测试结果:
sheets(1).range("a1:a10").clear正确
range(sheets(1).[a1],sheets(1).[a10]).clear也正确
sheets(1).range([a1],[a10]).clear错误


  • 秦時明月漢時圓
  • 以E待劳
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
从这里说明:
sheets(1).range("a1:a10")
A1:A10从属于sheets(1),a1:a10是sheet(1)的区域
range(sheets(1).[a1],sheets(1).[a10])
这里和上面是等效的,不同的是range是当前工作表的区域,除了选择目标区域,其他情况一律要默认为当前工作表,后面a1和a10必须在一工作表。
如果省略工作表名称,默认为当前工作表,否则就为指定名称的工作表。


  • 08074000
  • E览无余
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
vba学这么深有什么用……解决问题就行了


  • 谢宝良
  • 开卷有E
    4
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
真羡慕,懂vba的朋友。我这辈子是无法学会的了。


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 38回复贴,共1页
<<返回excel吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示