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

z9bhd · 发表于 2020-12-19 13:51

学习学习

snowman961201 · 发表于 2020-12-22 19:56

赞一个

170766071 · 发表于 2020-12-22 23:51

学习学习

you3694 · 发表于 2020-12-24 13:29

学习一下啊~

Handsome_47 · 发表于 2021-2-24 17:12

学习了

kingoflink · 发表于 2021-3-18 16:05

小数点0 · 发表于 2021-3-19 11:12

'题目1
Sub a()
Dim rg As Range, x As Integer, y As Integer
Set rg = Range("A2:C18")
For x = 2 To 18
      For y = 1 To 3
         If IsNumeric(Cells(x, y)) And Cells(x, y) > 0 Then
            Cells(x, y) = "正数"
         End If
      Next
Next
End Sub

'题目2
Sub b()
Dim rg As Range, x As Integer, y As Integer
Set rg = Cells(2, 1)
For x = 2 To 18
      For y = 1 To 3
         If IsNumeric(Cells(x, y)) And Cells(x, y) > 0 Then
            Set rg = Union(rg, Cells(x, y))
         End If
      Next
Next
rg.EntireRow.Select
End Sub

brittany_sh · 发表于 2021-3-19 14:04

看答案

33333ccccc · 发表于 2021-3-21 11:34

小白看看答案

a530405859 · 发表于 2021-3-21 22:17

小白看看答案

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