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

dicky_MM

有一个地方卡住了

qingfengfeixin

Sub t2()
Dim rg, rng As Range
For Each rg In Range("a2:c12")
    If rg.Value > 0 And Val(rg.Value) = rg.Value Then
        If rng Is Nothing Then Set rng = rg
        
     Set rng = Union(rng, rg)
    End If
Next
rng.EntireRow.Select
End Sub

qingdaoruiping

我的课件上面看不见任何内容啊~~

qingdaoruiping

题目1：
Sub s1()
Dim x As Integer
Dim y As Integer
For x = 1 To 5
For y = 1 To 3
Range("a1:c5").Select
If Cells(x, y).Value > 0 Then
Cells(x, y) = "ÕýÊý"
End If
Next
Next
End Sub

从从容容

我向高手们学习，请多指教。

linch92413

竞赛组E05:linch92413来交作业

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

zwy15754205

       看看{:021:}

xiaoxie2830398

来学习一下，11集的作业好像很难呀

xiaoxie2830398

talentmei 发表于 2011-7-14 17:46
楼主辛苦喇,麻烦指点一下喇~~~
**** 本内容被作者隐藏 ****

第一题是错的呀，怎么也加分呢？

xsswxhn2

第二题有点难度的···