VBA80集第11集练习题答案上交贴

zxc1152468 · 发表于 2011-8-28 23:35

{:021:}{:011:}

潜龙飞天 · 发表于 2011-9-4 12:22

剽窃，参考，学习，……

zr0203 · 发表于 2011-9-4 20:18

提示: 作者被禁止或删除内容自动屏蔽

110413234 · 发表于 2011-9-4 20:40

还不会做啊

scallionchou · 发表于 2011-9-7 15:48

看看..........

dbidb · 发表于 2011-9-7 23:54

提示: 作者被禁止或删除内容自动屏蔽

dbidb · 发表于 2011-9-8 00:21

提示: 作者被禁止或删除内容自动屏蔽

chenshuna2006 · 发表于 2011-9-9 10:46

来看看看的

chenshuna2006 · 发表于 2011-9-9 11:22

Sub F()
Dim rg As Range, ds As Range

For Each rg In Range("a2:c12")

If Val(rg.Value) = rg.Value And rg.Value > 0 Then
   Set ds = rg
   Set ds = Union(ds, rg)
   End If
Next
ds.EntireRow.Select

End Sub
总是提示VBA运行时错误'91'对象变量或with块变量未设置

110413234 · 发表于 2011-9-9 12:44

还不会，继续学习

		自动登录	找回密码
密码			注册

zr0203 zr0203 当前离线积分 0 IP卡狗仔卡	发表于 2011-9-4 20:18 \| 显示全部楼层工作中最常用的Excel函数公式，全印在一张鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
zr0203 zr0203 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡

dbidb dbidb 当前离线积分 214 IP卡狗仔卡	发表于 2011-9-7 23:54 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
dbidb dbidb 当前离线积分 214 IP卡狗仔卡
	回复使用道具举报显身卡

dbidb dbidb 当前离线积分 214 IP卡狗仔卡	发表于 2011-9-8 00:21 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
dbidb dbidb 当前离线积分 214 IP卡狗仔卡
	回复使用道具举报显身卡