论坛 › Excel 视频教程 › VBA80集第11集练习题答案上交贴

fuxuanbo 发表于 2011-12-20 12:34

Option Explicit
Sub 题目1()
    Dim rg As Range
    Dim x As Integer
    Dim y As Integer
      For x = 4 To 8 Step 1
            For y = 1 To 3 Step 1
               Set rg = Sheets(1).Cells(x, y)
                     If rg.Value > 0 And IsNumeric(rg.Value) Then
                        rg.Value = "正数"
                     End If
            Next y
      Next x
      
End Sub
Sub 题目2()
    Dim x As Integer
    Dim y As Integer
    Dim rg As Range
   
      For x = 2 To 12 Step 1
            For y = 1 To 3 Step 1
                  If Cells(x, y) > 0 And IsNumeric(Cells(x, y)) Then
                        If rg Is Nothing Then
                            Set rg = Cells(x, y)
                        Else
                            Set rg = Union(rg, Cells(x, y))
                        End If
                  End If
            Next y
      Next x
   rg.EntireRow.Select
End Sub

sdzdr123 发表于 2011-12-20 14:27

没想出来，来看看

sdzdr123 发表于 2011-12-20 14:28

没想出来，来看看

kamei 发表于 2011-12-23 23:31

不会了.来看看答案

kamei 发表于 2011-12-24 00:13

**** Hidden Message *****

228869831 发表于 2011-12-25 20:29

Sub a()
Range("a1,c18").Select
If Selection.Value > 0 Then
    Selection.Value = "正数"
End If

End Sub

xfxxwangys 发表于 2011-12-25 20:33

来看看答案来看看答案

lfp66 发表于 2011-12-29 21:56

sdsadsdsdsdddddddddddddddddd

gaoshuichang1 发表于 2011-12-30 14:04

前来学习!!!!!!!!

smile_live 发表于 2012-1-2 16:47

看看呗，我真的不会啊

查看完整版本: VBA80集第11集练习题答案上交贴