带你入门VBA（2004第一期）

czd

兰色幻想,你真是一个非常好的老师！

ssscq

学习

Angellong

我来的太晚了。 看了49页前面的帖子，也完成了“单元格表示过关题”和“变量过关题”，在做“语句使用过关题”的时候出现了问题。下面是我得代码：

Sub CYS()
Dim x As Integer
Dim y As Integer
Dim c As Integer
Dim d As Integer

For x = 1 To 12
For y = 1 To 7
If Cells(x, y).Interior.ColorIndex = 6 Then
c = Range("a65536").End(xlUp).Row
Cells(c, 1).Value = Cells(x, y).Value
End If
Next y
Next x

d = Range("a65536").End(xlUp).Row
Cells(d, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(12, 1), Cells(d, 1)))

End Sub

运行的结果是 把a列的数据都删除了（就剩下a1没有删掉），这是为什么啊？如果上面那个6换成27 就什么反应因都没有，也不报错，这是为什么啊？兰老师还过来吗？能不能帮我看看？

[em04][em04][em04]

谢谢！

Angellong

呵呵，学习了后面兰老师的那种方法居然成功了。而且简单好多。

新代码：

Sub CYS()
Dim x As Integer
Dim y As Integer
Dim c As Integer

For x = 1 To 12
For y = 1 To 7
If Cells(x, y).Interior.ColorIndex = 6 Then
c = c + Cells(x, y)
End If
Next y
Next x
Cells(1, 8) = c
End Sub

ajian012

费了很多天去看关于VBA的有关入门，很多象英语一样的词汇和语句让人摸不着头脑。越是这样就越是想了解它。我到底该从哪学起呢。

小猫快跑

要回帖吗??

QlhQ

以下是引用[I]kelly503[/I]在2006-4-30 14:41:00的发言：[BR]

兰色,教我学VBA我就嫁给你好咯![em04]

晕掉，这么容易啊

hfdmnac

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TempRag As Range
Set TempRag = Application.Selection
If (TempRag.Column <> 1) Then
Cells(TempRag.Row, 1).Select
End If
End Sub
这里Set TempRag = Application.Selection是什么意思？它的作用是什么？

wzh5041

我来了

兰色幻想

以下是引用[I]hfdmnac[/I]在2006-5-12 22:00:00的发言：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TempRag As Range
Set TempRag = Application.Selection
If (TempRag.Column <> 1) Then
Cells(TempRag.Row, 1).Select
End If
End Sub
这里Set TempRag = Application.Selection是什么意思？它的作用是什么？

Application.Selection是指当前已选取的单元格或单元格区域。 Set TempRag 是设置对象变量所代表的对象。这里是所选取的单元格。

[此贴子已经被作者于2006-5-14 14:26:51编辑过]