第二期：带你入门VBA.doc.pdfVIP

2003vba 1、要求做一个按纽，执行程序后在B1 ：B15 填入101 至115 的数值，并在最后一行的单元 格求和 Sub 按钮1_单击() 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 2 、在上题的基础上，求B 列106 数的个数(包括刚才求单元格B16),并用对话框的形式显示 出来 Sub 矩形1_单击() 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 补充：Range(B65536).End(xlUp).Row 是指B 列最后一个非空单元格，END （XLUP ）是向 上数第一个非空单元格，为了找到最下面的非空单元格，当然要从RA