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

fuxuanbo

1. Option Explicit
   
2. Sub 题目1()
   
3.     Dim rg As Range
   
4.     Dim x As Integer
   
5.     Dim y As Integer
   
6.         For x = 4 To 8 Step 1
   
7.             For y = 1 To 3 Step 1
   
8.                Set rg = Sheets(1).Cells(x, y)
   
9.                      If rg.Value > 0 And IsNumeric(rg.Value) Then
   
10.                         rg.Value = "正数"
    
11.                      End If
    
12.             Next y
    
13.         Next x
    
14.         
    
15. End Sub
    
16. Sub 题目2()
    
17.     Dim x As Integer
    
18.     Dim y As Integer
    
19.     Dim rg As Range
    
20.    
    
21.         For x = 2 To 12 Step 1
    
22.             For y = 1 To 3 Step 1
    
23.                   If Cells(x, y) > 0 And IsNumeric(Cells(x, y)) Then
    
24.                         If rg Is Nothing Then
    
25.                             Set rg = Cells(x, y)
    
26.                         Else
    
27.                             Set rg = Union(rg, Cells(x, y))
    
28.                         End If
    
29.                   End If
    
30.             Next y
    
31.         Next x
    
32.      rg.EntireRow.Select
    
33. End Sub
    

复制代码

sdzdr123

没想出来，来看看

sdzdr123

没想出来，来看看

kamei

不会了.来看看答案

kamei

游客，如果您要查看本帖隐藏内容请回复

228869831

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

xfxxwangys

来看看答案来看看答案

lfp66

sdsadsdsdsdddddddddddddddddd

gaoshuichang1

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

smile_live

看看呗，我真的不会啊