带你入门VBA，第二讲

兰色幻想

昨天由于上不了网，只好今天重新开始，

如果你对VBA很兴趣，现在又有时间（不能半途而废），还要做出下面的习题后，马上跟贴。如果做不出习题，请参考第一讲的内容，不懂的在第一讲后跟贴提问。

只限三名

习题：

0THA4hLN.rar (1.81 KB, 下载次数: 3100)

2004-10-5 11:15 上传

点击文件名下载附件
带你入门VBA，第二讲（限三名）

第一讲链接:

http://club.excelhome.net/viewthread.php?tid=64171

[此贴子已经被作者于2004-10-5 18:08:23编辑过]

whwin98

兰老师：这是我做的，不会这样麻烦吧。（还好没有让我们填101-1115~^_@)我想了半天，就是没找到方法，唉！~~笨哟~~~。请讲一下其中的窍门！

不好意思 ，删了~~~~~~~

[此贴子已经被作者于2004-10-5 13:19:05编辑过]

月黑风高

我做出来了，程序如下：

Sub 按钮2_单击() 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

运行结果正确无误，还请“兰色幻想”指教

[此贴子已经被作者于2004-10-5 13:07:49编辑过]

whwin98

聪明呀！

我为什么这么笨哟！！

哈哈。+100。

yuhuiyong

Sub ¾ØÐÎ2_µ¥»÷() Dim x As Integer For x = 1 To 15 Sheets("sheet1").Cells(x, 2) = 100 + x Next Range("b16").Value = Application.WorksheetFunction.Sum(Range("b1:b15")) End Sub

这是我做的，对吗？

兰老师，不是说今天用我的实列的吗

月黑风高

发现问题：如果用下面的程序，最后是在B15和B16单元格同时出现“1620”这个运算结果，不知是什么原因？

Sub 按钮2_单击()

Dim i As Integer

Dim x As Integer

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

x = Application.WorksheetFunction.CountA(Columns("b"))

Cells(x + 1, 2) = Application.WorksheetFunction.Sum(Range("b1:b15"))

End Sub

f:\1.bmp

如果将Cells(x + 1, 2) 里面的“+ 1”去掉就没问题了，兰色幻想可以解释一下吗？

[此贴子已经被作者于2004-10-5 13:34:52编辑过]

lllllll007

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

[此贴子已经被作者于2004-10-5 13:37:20编辑过]

兰色幻想

现在在原来题的基础上，求B列>106数的个数(包括刚才求单元格B16),并用对话框的形式显示出来

兰色幻想

代码如下：

Sub 矩形4_单击() For i = 1 To Range("B65536").End(xlUp).Row If Cells(i, 2) > 106 Then K = K + 1 End If Next MsgBox "大于106数值个数有" & K & "个", 1 + 64, "统计信息" End Sub

先锋

帮忙看看，求和为什么不在最后一行B16，而是在B31？

粘不上来，不知怎么回事

[此贴子已经被作者于2004-10-6 12:00:50编辑过]