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

VBA流云 · 发表于 2012-3-10 13:17

{:041:}{:35:}{:912:}

ztccsj · 发表于 2012-3-10 18:42

我不会，想学习，这里给了20分，估计是正确的了吧

ztccsj · 发表于 2012-3-10 19:18

liuts 发表于 2011-7-3 23:32
**** 本内容被作者隐藏 ****

多谢，我学习了。

ruanjianyihao · 发表于 2012-3-11 14:14

Sub 替换()
Dim rg As Range
For Each rg In Selection
If rg > 0 And IsNumeric(rg) Then
rg = "正数"
End If
Next rg
End Sub
Sub 选取()
Dim rg As Range, r As Range
Set r = Range("a2")
For Each rg In Range("a1:c12")
If rg > 0 And IsNumeric(rg) Then
Set r = Union(r, rg)
End If
Next
r.EntireRow.Select
End Sub

复制代码

我的11题答案

神七飞天 · 发表于 2012-3-12 20:05

Sub 第一题()
Dim rg As Range
For Each rg In Selection
If IsNumeric(rg) And rg > 0 Then
rg = "正数"
End If
Next rg
End Sub

yzj2558 · 发表于 2012-3-13 16:58

学习有点吃力，诶。

yzj2558 · 发表于 2012-3-14 10:15

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

海云飞 · 发表于 2012-3-14 23:06

我现在才学习，好累呀

王永峰 · 发表于 2012-3-15 10:52

呵呵呵呵额呵呵

王永峰 · 发表于 2012-3-15 13:23

Sub 第一题()
Dim rg As Range
Range("a1:c18").Select
For Each rg In Selection
If rg.Value > 0 Then rg.Value = "正数"
Next rg
End Sub
Sub 第二题()
Dim rg As Range
Range("a2:c12").Select
For Each rg In Selection
If rg.Value > 0 Then rg.EntireRow.Select
Next rg
End Sub

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