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

can1

bastion 发表于 2022-11-19 08:51
很久后再来,看看答案.

好

woshi0xulei0

进来学习一下

kxss

题目１:
  任意选取本工作表中的一个区域，然后把选取区域中的大于0的数字替换为字符“正数”

1. Sub test()
   
2.     Dim rng As Range
   
3.     For Each rng In Selection
   
4.         If rng.Value > 0 And IsNumeric(rng.Value) Then
   
5.         rng.Value = "正数"
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

题目2:
  用代码一次选取“A2：C12”区域所有大于0数字所在的行

1. Sub test2()
   
2.     Dim iColum As Integer
   
3.     Dim iRow As Integer
   
4.     Dim rng As Range
   
5.     For iColum = 1 To 3 Step 1
   
6.         For iRow = 2 To 12 Step 1
   
7.             If Cells(iRow, iColum) > 0 And IsNumeric(Cells(iRow, iColum)) = True Then
   
8.                 If rng Is Nothing Then
   
9.                 Set rng = Cells(iRow, iColum)
   
10.                 Else
    
11.                 Set rng = Union(rng, Cells(iRow, iColum))
    
12.                 End If
    
13.             End If
    
14.         Next iRow
    
15.     Next iColum
    
16.     rng.EntireRow.Select
    
17. End Sub

复制代码

luxupeng

学习学习

muxiao1225

来学习了

追风驹

支持

anna_zz

学习一下

jinxuanmr

学习一下前辈答案

johnkingwei

第359楼盖楼工报到~

d602909401

还是很热闹哟