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

啊甘学VBA · 发表于 2022-2-23 12:57

'题目2:用代码一次选取“A2：C12”区域所有大于0数字所在的行
Sub t2()
Dim x, y As Range
Set y = Cells(2, 1)
For Each x In Range("A2:C12")
If x.Value > 0 And IsNumeric(x) Then
Set y = Union(y, x)
y.EntireRow.Select
End If
Next
End Sub

huangyu0601 · 发表于 2022-2-28 16:41

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

Kriva · 发表于 2022-3-5 17:53

学习了

yuanxz · 发表于 2022-3-8 08:02

学习一下

zhaoqin123 · 发表于 2022-3-8 23:24

啊啊啊

coldwind86 · 发表于 2022-3-9 12:32

玉玉uu · 发表于 2022-3-9 21:07

hui1990 · 发表于 2022-3-15 20:02

学习

amwy · 发表于 2022-3-15 20:31

hao

amwy · 发表于 2022-3-15 20:44

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