带你入门VBA，第二讲

hzymq

Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 15
Sheets("Sheet1").Cells(i, 2) = i + 100
Next
Range("b16").Value = Application.WorksheetFunction.Sum(Range("b1:b15"))

End Sub

结网

Sub 矩形1_单击()
Dim i As Integer
For i = 101 To 115
Sheets("sheet1").Cells(i - 100, 2) = i
Next
Range("b16").Value = Application.WorksheetFunction.Sum(Range("b1:b15"))
End Sub

兰色幻想

以下是引用[I]holywilly[/I]在2005-12-4 16:58:00的发言：[BR]Range("B65536").End(xlUp).Row
是什么意思？

End(xlUp).相当于平时操作的CTRL+向上箭头。意思是从A列最后的一行向上查找到第一个非空的内容

兰色幻想

以下是引用[I]xiebomb[/I]在2005-12-7 22:39:00的发言：[BR]

请问版主:

Sub 按钮1_单击()
x = InputBox("请输入你想要看的表格名字", "查询表格", "区分大小写")
i = 0
For m = 1 To Sheets.Count
If Worksheets(m).Name = x Then i = m
Next m

If i = 0 Then
xxx = MsgBox("输入错误", 16, "查询表格")

Exit Sub
End If
Worksheets(i).Activate

中为什么End If不能放在Exit Sub上面一行呢?

我放在上面，虽然可执行，但是却没得出我想要的效果......

如果Exit Sub放在后面，当找到相应工作表。Worksheets(i).Activate也不能执行，因为所有的语句到Exit Sub都会中止。而放入IF判断句中则符合条件才退出该模块

excel317

好贴，水平又有所长进，谢谢！！！

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶！！！

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶！！！

Z123_6

我下面的语句错在那里？错误原因是对象不支持该属性或方法！

Sub b()
Dim i As Integer
For i = 1 To 15
Sheets("sheet1").Cells(i, 2) = i + 100
Next
With Application.WorksheetFunction
Cells(i, 2).Value = .Sum(Range("b1:b15"))
a = .CountIf(Range("b1:b16"), ">106")
End With
For i = 1 To Range("b65536").End(xlUp).Row
If Cells(i, 2) > 106 And Cells(i, 2) < 112 Then
Cells(i, 2).interion.ColorIndex = 3
End If
Next
If a > 1 Then
MsgBox "大于数值106的个数为：" & a
End If
End Sub

把interion 改成 inderior

xiebomb

谢谢兰色幻想！！！（为避免影响大家学习，看到后可删除此贴，呵呵。）

[此贴子已经被作者于2005-12-31 14:54:48编辑过]

cncc

用了两个晚上把第二讲看完了,谢谢兰老师!

Applezhou

非常感谢兰色幻想，我没有一点基础，看你的贴学习，比看书真的容易多了，谢谢！

a86538873

thanks to chief