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

vbamaster · 发表于 2012-2-1 14:49

游客，如果您要查看本帖隐藏内容请回复

兰版辛苦了！

peter.lp.li · 发表于 2012-2-6 21:08

本帖最后由 peter.lp.li 于 2012-2-6 21:09 编辑

游客，如果您要查看本帖隐藏内容请回复

辛苦兰版了！元宵节快乐！

沉痴 · 发表于 2012-2-7 10:39

偷看一下，是怎么写的

xflying322 · 发表于 2012-2-9 18:45

{:091:}学习学习，学到老。

majianxwyg · 发表于 2012-2-9 23:33

Sub 一题()
Dim a, b As Range
'Set a = Selection

For Each b In Selection

If IsNumeric(b) = True Then

If b > 0 Then b = "正数"

End If
Next

End Sub
Sub 二题()
Dim a, b As Range

For Each a In Range("a2:c12")
  If IsNumeric(a) = True Then
If a > 0 Then

If b Is Nothing Then
      Set b = a
   Else
Set b = Union(b, a)
   End If
End If
   End If
Next a

b.EntireRow.Select
End Sub

dtxczjzmp · 发表于 2012-2-10 21:29

学习一下，感觉很难！

xlr313 · 发表于 2012-2-11 18:50

题目需要有判断单元格中内容是数值还是文本的过程吧，这个是前11集已学知识么？

124756422 · 发表于 2012-2-12 22:19

过来看看学习学习

wangfengren · 发表于 2012-2-16 15:25

学习学习{:061:}{:171:}

xiaoni · 发表于 2012-2-17 06:10

gggggggggggggggggggg

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