截个图证明我用SET了，也用with了，也用缩进了。太完美了~
请老师批阅，谢谢。
代码如下：
模块中代码：
Option Explicit
Public s As Integer
Sub fornext()
Dim rg As Range
Dim x As Integer
For x = 2 To 12
Set rg = Range("A" & x)
With rg.Interior
If rg <= 0 Then
rg = "FX负"
.ColorIndex = 3
End If
End With
Next x
End Sub
Sub foreach()
Dim rg As Range
For Each rg In Range("a2:a12")
With rg.Interior
If rg <= 0 Then
rg = "FE负"
.ColorIndex = 4
End If
End With
Next rg
End Sub
Sub dountil()
Dim x As Integer
x = 1
Do
With Cells(x, 1).Interior
x = x + 1
If Cells(x, 1) <= 0 Then
Cells(x, 1) = "DL负"
.ColorIndex = 5
End If
End With
Loop Until x = 12
End Sub
Sub dowhile()
Dim f As Integer
f = 1
Do While f < 12
f = f + 1
With Cells(f, 1).Interior
If Cells(f, 1) <= 0 Then
Cells(f, 1) = "DW负"
.ColorIndex = 6
End If
End With
Loop
End Sub
Sub 还原()
Range("A2:A12") = Application.Transpose(Array(2, 3, -2, 3, -55, 23, -5, 0, 42, -1111, 200))
Range("a2:a12").Interior.ColorIndex = 0
End Sub
事件中代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$16" Then
s = 0
MsgBox "操作已被清0,现在从新开始计数，清零成功"
ElseIf Target.Address = "$G$14" And s = 0 Then
MsgBox "记数已被清零,请选择“G4,G6,G8,G10,G12” 单元格后,再来查看操作次数!"
ElseIf Target.Address = "$G$14" Then
s = s
MsgBox "累计" & s & "次"
ElseIf Target.Address = "$G$4" Then
Call 我的试验.fornext
s = s + 1
ElseIf Target.Address = "$G$6" Then
Call 我的试验.foreach
s = s + 1
ElseIf Target.Address = "$G$8" Then
Call 我的试验.dountil
s = s + 1
ElseIf Target.Address = "$G$10" Then
Call 我的试验.dowhile
s = s + 1
ElseIf Target.Address = "$G$12" Then
s = s + 1
Call 我的试验.还原
End If
End Sub
研究了3天3夜的练习题，印象深刻了……谢谢老师~
楼主: 无聊的疯子
[复制链接]
IP卡
狗仔卡
发表于 2012-2-24 16:19
显身卡
