Excel精英培训网

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

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

  [复制链接]
发表于 2017-8-6 13:05 | 显示全部楼层

回复

使用道具 举报

发表于 2017-8-6 15:12 | 显示全部楼层
回复

使用道具 举报

发表于 2017-8-6 21:46 | 显示全部楼层
Sub 正数()
    Dim rgs As Range, rg As Range
    Set rgs = Selection
    For Each rg In rgs
        If rg > 0 And rg < 9.9E+307 Then
            rg = "正数"
        End If
    Next
End Sub
回复

使用道具 举报

发表于 2017-8-8 15:44 | 显示全部楼层
kankandierti
回复

使用道具 举报

发表于 2017-8-9 11:31 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2017-8-9 23:37 | 显示全部楼层
learn
回复

使用道具 举报

发表于 2017-8-10 20:57 | 显示全部楼层
我是来 学习的
回复

使用道具 举报

发表于 2017-8-12 08:37 | 显示全部楼层
回复

使用道具 举报

发表于 2017-8-12 17:53 | 显示全部楼层
太棒了
回复

使用道具 举报

发表于 2017-8-13 15:29 | 显示全部楼层
学习一下~~~
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 18:28 , Processed in 1.376513 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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