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

555599999 · 发表于 2022-8-8 15:07

牛

risona · 发表于 2022-8-31 15:40

[replyview]第十一集作业
'作业一：任选区域，大于0的填充为正确 a1-H26
Sub job2()
Dim x As Integer
Dim y As Integer
For x = 1 To 26
For y = 1 To 8
      If Worksheets("练习11").Cells(x, y) > 0 Then
         Worksheets("练习11").Cells(x, y) = "正确"
      End If
Next
Next
End Sub

♥'作业二：一次选取a2:c12区域所有0数字所在的行  ♥
Sub job3()
Dim rg As Range
Dim x As Integer
Dim y As Integer
Dim n As Integer
n = 0
For x = 2 To 12
For y = 1 To 3
   If Worksheets("练习11").Cells(x, y) = 0 Then
         '初始化要命啊
      n = n + 1
         If n = 1 Then
            Set rg = Worksheets("练习11").Cells(x, y)
         ElseIf n > 1 Then
            Set rg = Union(rg, Worksheets("练习11").Cells(x, y))
         End If
End If
Next
Next
rg.EntireRow.Select
End Sub[replyview]

abcqqabc · 发表于 2022-8-31 16:19

学习学习

BSM学习VBA · 发表于 2022-8-31 20:57

6666666

BSM学习VBA · 发表于 2022-8-31 20:58

666666

wuchao906 · 发表于 2022-9-8 23:58

学习学习

kameric · 发表于 2022-9-9 09:18

[hide] Sub 数字大于0替代成正数()
Dim rg As Range '声明单元格对象变量rg
For Each rg In Selection.Cells '用for each in语句，循环所有选中的单元格
If TypeName(rg.Value) <> "String" And rg.Value > 0 Then rg.Value = "正数" '判断单元格变量rg的数据类型和数值是否大于0，满足条件，变量rg的值替换成“正数”
'用typename函数返回单元格变量rg的数据类型
Next rg
End Sub
Sub 选择数字大于0的所在行()
Dim rg As Range '声明单元格对象变量rg
Dim selectrg As Range '声明符合条件的单元格对象变量selectrg
For Each rg In Range("A2:C12") '用for each in语句循环“A2：C12”区域内所有的单元格
If TypeName(rg.Value) <> "String" And rg.Value > 0 Then '判断单元格变量rg的数据类型和数值是否大于0，执行union方法合并符合条件的单元格，重新赋值给变量selectrg
If selectrg Is Nothing Then Set selectrg = Cells(rg.Row, rg.Column) '插入单元格变量selectrg是否赋值的判断，逻辑是：执行首次赋值set语句
Set selectrg = Union(selectrg, Cells(rg.Row, rg.Column))
End If
Next rg
selectrg.EntireRow.Select '选择对象变量selectrg所有单元格的行
End Sub
[/hide]

复制代码

黄豆飞 · 发表于 2022-9-9 09:50

fangmai923 · 发表于 2022-9-10 17:49

查看答案

不告你 · 发表于 2022-9-19 10:58

看看学习学习

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