论坛 › Excel 视频教程 › VBA80集第11集练习题答案上交贴

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

**** Hidden Message *****
兰版辛苦了！

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

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

**** Hidden Message *****

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

沉痴 发表于 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

过来看看学习学习{:1_1:}

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

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

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

gggggggggggggggggggg

查看完整版本: VBA80集第11集练习题答案上交贴