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

mushashi

现在还能不能回复啊

iopan2023

看看其他同学做得咋样

legendsair

第二题又不会了TAT

曹雪峰

啊甘学VBA 发表于 2022-2-23 12:57
'题目2:用代码一次选取“A2：C12”区域所有大于0数字所在的行
Sub t2()
Dim x, y As Range

这个是我看最简介的，但是这个没有判断cells(2,1)

别别别

看看

别别别

看看

vikings0316

看答案

xiongweixiang

Sub t101()
Dim newRange As Range
Set newRange = Application.InputBox(prompt:="请用鼠标选定一个区域", Title:="返回区域类所有大于0数字所在的行", Type:=8)
newRange.Select
Dim x As Integer, y As Integer, row_id As Integer, column_id As Integer
x = Selection.Rows.Count
y = Selection.Columns.Count
row_id = ActiveCell.Row
column_id = ActiveCell.Column
Dim x1 As Integer, y1 As Integer
Dim rg As Range, isx As Integer

For x1 = row_id To (row_id + x - 1) Step 1
    For y1 = column_id To (column_id + x - 1) Step 1
    If (IsNumeric(Cells(x1, y1))) And Cells(x1, y1) > 0 And isx = 0 Then
        Set rg = Range(x1 & ":" & x1)
        isx = 1
             Else
              If (IsNumeric(Cells(x1, y1))) And Cells(x1, y1) > 0 And isx >= 1 Then
              Set rg = Union(rg, Range(x1 & ":" & x1))
              End If

     End If
    Next y1
Next x1

这个女人叫小美

Sub 题目1()
Dim rg As Range
For Each rg In Selection
    If IsNumeric(rg) And rg.Value > 0 Then
        rg = "正数"
    End If
Next
End Sub



Sub 题目2()
Dim rg As Range
Dim r1 As Range
For Each rg In Range("A2:C12")
    If IsNumeric(rg) And rg.Value > 0 Then
        If r1 Is Nothing Then
            Set r1 = rg.EntireRow
        Else: Set r1 = Union(r1, rg.EntireRow)
        End If
    End If
Next
r1.Select
End Sub

asdf19880718

学习下