本周二VBA课问题收集贴

心灯芯

当时建组时有“组长学委测试题”。说是到时开课时讲解答案，不知是我没听当时那节课，还是到现在还未讲解呢？

琴箫剑气

对象变量,好晕,测试的时候,不知道怎样去看对象变量在变的情况

wangchangjun

我依葫芦画瓢用一种方法做，没有交作业。
Sub xuanqu2()
    Dim x, y, z, hang
    For x = 2 To 11
        If Cells(x, 4).Value > 20 Then
            y = Cells(x, 4).Row & ":" & Cells(x, 4).Row
            z = z & "," & y
        End If
    Next
    hang = Right(z, Len(z) - 1)
    Range(hang).EntireRow.Select
End Sub
在网上搜到另一种做法。
Sub xuanqu1()
    Dim x As Integer
    Dim rg As Range
    Dim y As Integer
    For x = 2 To 11
        If Cells(x, 4) > 20 Then
            y = y + 1
            If y = 1 Then
                Set rg = Cells(x, 4)
            Else
                Set rg = Union(rg, Cells(x, 4))
            End If
        End If
    Next
    rg.EntireRow.Select
    Set rg = Nothing
End Sub

wangchangjun

怎样用rows表示不连续的行呢？

老九别走

第8课作业的代码能发一下吗？就是那个查找价格练习。
我通过视频记录下来的，不能正确运行。估计是有的地方出错啦。

linmm

真如13楼所说听的时候好像都听懂了，实战自己做的时候就不会了，也不是全不会，就是部分不会，比如昨讲的作业，其他都知道，就是不知道怎样才是“同时选取”，想破头也想不到要用nothing，还有前次作业，那个“只能查看“主界面”工作表,其他工作表不能选取”的，我也知道要在thisworkbook里做，可就是不知道要用哪个声明，最后只有在一个个工作表写，；还有是不知道如何来恰当运用学到的，象循环语句for to……next和do while，知道用法，但不知道在哪个场合下用哪个才合适，平时做作业是for to ……next用的多，do while 基本没用过，我现在学习是因忙没空先预习，只有先上课听校长讲一遍，隔几天在做作业时听录音和看书重温习一遍，作业做不出来的地方等校长下周讲解时再加深理解，唉～感慨知识的匮乏，书到用时方恨少

mxbabo

校长书里面的题目是不是跟网上视频讲的一样呀?伤心

tcn541

恩 我也感觉有点吃力 有些东西还是要回顾一下才可以写出来