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

dicky_MM 发表于 2012-1-9 21:18

有一个地方卡住了

qingfengfeixin 发表于 2012-1-11 23:39

本帖最后由 qingfengfeixin 于 2012-1-11 23:57 编辑

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 发表于 2012-1-13 13:48

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

qingdaoruiping 发表于 2012-1-13 13:51

题目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

从从容容 发表于 2012-1-15 13:48

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

linch92413 发表于 2012-1-15 20:36

竞赛组E05:linch92413来交作业
**** Hidden Message *****

zwy15754205 发表于 2012-1-16 22:30

       看看{:021:}

xiaoxie2830398 发表于 2012-1-29 13:33

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

xiaoxie2830398 发表于 2012-1-29 16:24

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

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

xsswxhn2 发表于 2012-1-31 12:08

第二题有点难度的···

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