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

mjzeng

看一下

fuxingcaipiao

Sub 替换正数()
Dim rg As Range
Range(Cells(1, 1), Cells(4, 4)).Select
For Each rg In Range(Cells(1, 1), Cells(4, 4))
  If rg.Value > 0 Then
     rg.Value = "正数"
End If
Next
End Sub

Sub 选取正数所在行()
Dim rg As Range
Dim rs As Range
For Each rg In Range("a2,c12")
If rg Like "####" And rg.Value > 0 Then
Set rs = rg
Set rs = Union(rs, rg)
End If
Next
rs.EntireRow.Select
End Sub

老师，如何判断单元格是否为数字？
另外我第二个代码为什么运行一半就不循环了？

好奇好奇好奇

萨达所大所大所多

keenzhou

做完了,但是不对

正冈子规

想了解一下正确答案

woodyfong

正确答案？

fuxingcaipiao 发表于 2019-3-10 11:15
Sub 替换正数()
Dim rg As Range
Range(Cells(1, 1), Cells(4, 4)).Select

Sub 选中内容数字替换成正数方法1()
Dim r As Integer, R1 As Integer
Dim c As Integer, C1 As Integer
R1 = Selection.Rows.Count
C1 = Selection.Columns.Count
For r = 0 To R1 Step 1
    For c = 0 To C1 Step 1
      If Application.IsNumber(Selection.Range("A1").Offset(r, c)) And Selection.Range("A1").Offset(r, c) > 0 Then
         Selection.Range("A1").Offset(r, c) = "正数"
      End If
    Next c
Next r
End Sub

Sub 选中正数行()
Dim rg As Range, Un As Range
Set Un = Range("A2")
For Each rg In Range("A2:C12")
   If Application.IsNumber(rg) And rg.Value > 0 Then
      Set Un = Union(Un, rg)
    End If
Next rg
Un.EntireRow.Select
End Sub

Sub 选中内容数字替换正数方法2()
Dim rg As Range
For Each rg In Selection
  If Application.IsNumber(rg) And rg.Value > 0 Then
     rg.Value = "正数"
  End If
Next rg
End Sub

fuxingcaipiao 发表于 2019-3-10 11:15
Sub 替换正数()
Dim rg As Range
Range(Cells(1, 1), Cells(4, 4)).Select

判断是否为数字可以使用 application.isNumber()这个系统提供的方法

看下