事件程序练习2（结束）

无聊的疯子

我只能评分，没有BB，最后那位只能评5分了，系统不让评6分，对不住了！！

本练习使用 SelectionChange 事件,附件和作业是一个版本,只是要求和操作方法有点不同而已

可使用 Call 调用模块中的 过程,
Call使用方法  Call 模块名 点 过程名 (输入 Call 模块名 和 点 后,会看到里面的过程名)
如 模块1" 中有 "求和" 过程 ,则 Call 模块1.求和

附件中的模块和练习无关,可自建立一个模块,也可以将里面的代码删除掉!

图片中的三个 Msgbox,这里提供两个,还有一个自己修改
   MsgBox "记数已被清零,请选择“G4,G6,G8,G10,G12” 单元格后,再来查看操作次数!", , "未操作"
   MsgBox "操作已次数被清零,现在开始重新计数!", , "清零成功"

评分要求:
1,Set 必需使用,强化上节课的内容
2,With 欢迎使用
3,代码也需要缩进(什么叫缩进,可以问各学委)
4,小组成员需要写上组号和ID,如 A03:无聊的疯子, 否则不予评分
5,重复回帖不会重复评分,在未开贴前,允许修改

回帖要求:
将附件打包后上传,本贴已设置<仅作者可见>


要求见附件,效果见图片
附件中的要求说明与图片中的文字有点不同,以附件中为主
具体效果看图片中的操作:


事件练习题2.zip (8.01 KB, 下载次数: 161)

2012-2-22 18:38 上传

点击文件名下载附件

hrpotter

C12:hrpotter
C12-hrpotter-事件练习题2.rar (12.59 KB, 下载次数: 22)

2012-2-22 20:49 上传

点击文件名下载附件

sunjing-zxl

E学委:sunjing-zxl
事件练习题2-E学委-sunjing-zxl.rar (13.05 KB, 下载次数: 15)

2012-2-22 20:54 上传

点击文件名下载附件

zjcat35

练习了,多谢!!!  

wenchduan

这个为啥没有下载权限呢？！后来下载下来了

雨后彩霞

D组长交练习，有好多都不会写，现在只把会写的写上去了。能不能提个建议过几天把贴打开，让我们都学习下。谢谢 ！

jiahua1010

A16：jiahua1010
事件练习题2.rar (13.75 KB, 下载次数: 20)

2012-2-23 13:46 上传

点击文件名下载附件

sliang28

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rg As Range
Dim i As Integer
Set rg = Worksheets(1).Range("a2:a12")

With Worksheets(1)
If Target.Address = "$G$4" Then
    For i = 2 To 12
        If .Cells(i, 1) < 0 Then
            .Cells(i, 1) = "FX负"
            .Cells(i, 1).Interior.ColorIndex = 3
        End If
    Next
       j = j + 1
ElseIf Target.Address = "$G$6" Then

    For Each rg In rg
        If rg < 0 Then
           rg = "FE负"
          rg.Interior.ColorIndex = 4
        End If
    Next
       j = j + 1
ElseIf Target.Address = "$G$8" Then
        i = 2
    Do
        If .Cells(i, 1) < 0 Then
            .Cells(i, 1) = "DL负"
            .Cells(i, 1).Interior.ColorIndex = 5
        End If
        i = i + 1
    Loop Until i > 12
        j = j + 1
ElseIf Target.Address = "$G$10" Then
        i = 2
    Do While i < 13
        If .Cells(i, 1) < 0 Then
            .Cells(i, 1) = "DW负"
            .Cells(i, 1).Interior.ColorIndex = 6
        End If
        i = i + 1
    Loop
        j = j + 1
ElseIf Target.Address = "$G$12" Then

        rg = Application.Transpose(Array(2, 3, -2, 3, -55, 23, -5, 0, 42, -1111, 200))
        rg.Interior.ColorIndex = 0
        j = j + 1
ElseIf Target.Address = "$G$14" Then
    If j = 0 Then
        MsgBox "记数已被清零,请选择“G4,G6,G8,G10,G12” 单元格后,再来查看操作次数!"
    Else
        MsgBox "您已操作" & j & "次！"
    End If
ElseIf Target.Address = "$G$16" Then
       j = 0
       MsgBox "操作已次数被清零,现在开始重新计数!"
End If
End With
End Sub

linch92413

E05:linch92413交作业
第一次做的，不严谨，修改了一下，重新上传，删掉第一个附件
事件练习题2 (linch92413)1.rar (14.8 KB, 下载次数: 11)

2012-2-24 20:48 上传

点击文件名下载附件

dsjohn

B017：dsjohn
试试
重新修改了一下，重新传附件