Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

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

  [复制链接]
发表于 2017-7-17 20:48 | 显示全部楼层
看看大家都答案
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2017-7-17 22:13 | 显示全部楼层
回复

使用道具 举报

发表于 2017-7-18 19:57 | 显示全部楼层
回复

使用道具 举报

发表于 2017-7-20 20:31 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2017-7-20 22:13 | 显示全部楼层
谢谢
回复

使用道具 举报

发表于 2017-7-21 08:51 | 显示全部楼层
想看想看,谢谢谢谢!
回复

使用道具 举报

发表于 2017-7-22 05:16 | 显示全部楼层
小白来参与学习一下
回复

使用道具 举报

发表于 2017-7-22 15:27 | 显示全部楼层
想看答案
回复

使用道具 举报

发表于 2017-7-22 15:59 | 显示全部楼层
题目1:
sub t1()
dim rg as range
range("a1:c18").select
for each rg in selection
if numeric(rg) and rg >0 then
rg = "正数"
end if
next
end sub
题目2:
Sub t2()
Dim rg As Range, ws As Range
For Each ws In Range("a1:c12")
If IsNumeric(ws) And ws > 0 Then Set rg = ws
Next
For Each ws In Range("a1:c12")
If IsNumeric(ws) And ws > 0 Then
Set rg = Union(rg, ws)
rg.EntireRow.Select
End If
Next
End Sub
回复

使用道具 举报

发表于 2017-7-22 22:11 | 显示全部楼层
上来看看答案,做不出来
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-7 20:45 , Processed in 0.611278 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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