【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“VB编程小程序 - 编程语言”一文,供大家参考学习!
新建 excel 表Private Sub CommandButton2_ClickSet NewBook Workbooks.Add With NewBook .Title All Sales .Subject Sales .SaveAs Filename:汇总.xls‘文件名 End WithEnd SubPrivate Sub CommandButton3_Click Sheets.AddEnd Sub打开工作表Sub OpenUp Workbooks.OpenC:MyFolderMyBook.xlsEnd Sub可使用 Range 属性来引用 A1 引用样式中的单元格或单元格区域。
下述子
程序将单元格区域 A1:D5 的字体设置为加粗。
Sub FormatRange WorkbooksBook1.SheetsSheet1.RangeA1:D5.Font.Bold TrueEnd Sub通过使用行列编号,可用 Cells 属性来引用单个单元格。
该属性返回代表单个单元格的 Range 对象。
下例中,Cells61 返回 Sheet1 上的单元格 A6,然后将 Value 属性设置为 10。
Sub EnterValue WorksheetsSheet1.Cells6 1.Value 10End Sub因为可用变量替代编号,所以 Cells 属性非常适合于在单元格区域中循环,如下例所示。
Sub CycleThrough Dim Counter As Integer For Counter 1 To 20 WorksheetsSheet1.CellsCounter 3.Value Counter Next CounterEnd Sub可用 Rows 属性或 Columns 属性来处理整行或整列。
这两个属性返回代表单元格区域的 Range 对象。
下例中,用 Rows1 返回 Sheet1 上的第一行,然后将单元格区域的 Font 对象的 Bold 属性设置为 True。
Sub RowBold WorksheetsSheet1.Rows1.Font.Bold TrueEnd Sub若要同时处理若干行或列,请创建一个对象变量并使用 Union 方法,将对 Rows属性或 Columns 属性的多个调用组合起来。
下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。
Sub SeveralRows WorksheetsSheet1.Activate Dim myUnion As Range Set myUnion UnionRows1 Rows3 Rows5 myUnion.Font.Bold TrueEnd Sub可用方括号将 A1 引用样式或命名区域括起来,作为 Range 属性的快捷方式。
这样就不必键入单词“Range”或使用引号,如下例所示。
Sub ClearRange WorksheetsSheet1.A1:B5.ClearContentsEnd SubSub SetValue MyRange.Value 30End Sub下述过程创建了对象变量 myRange,然后将活动工作簿中 Sheet1 上的单元格区域 A1:D5 赋予该变量。
随后的语句用该变量代替该区域对象,以修改该区域的属性。
Sub Random Dim myRange As Range Set myRange WorksheetsSheet1.RangeA1:D5 myRange.Formula RAND myRange.Font.Bold TrueEnd Sub如果对工作表应用 Cells 属性时不指定编号,该属性将返回代表工作表上所有单元格的 Range 对象。
下述 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。
Sub ClearSheet WorksheetsSheet1.Cells.ClearContentsEnd Sub使用 Visual Basic 时,经常需要对某一单元格区域内的每个单元格运行同一段语句。
为达到这一目的,可组合循环语句和一个或多个方法来标识每个单元格,一次针对一个单元格,并执行该操作。
在单元格区域中循环的一种方法是将 For...Next 循环语句与 Cells 属性配合使用。
使用 Cells 属性时,可用循环计数器(或其他变量或表达式)来替代单元格索引编号。
下例中,变量 counter 代替了行号。
此过程将在单元格区域C1:C20 中循环,将所有绝对值小于 0.01 的数字都设置为 0(零)。
Sub RoundToZero1 For Counter 1 To 20 Set curCell WorksheetsSheet1.CellsCounter 3 If AbscurCell.Value 0.01 Then curCell.Value 0 Next CounterEnd Sub使用 Microsoft Excel 时,通常要先选定单元格或单元格区域,然后执行某一操作,如设置单元格的格式或在单元格中输入数值。
但在 Visual Basic 中,通常在修改单元格之前不必先选定它们。
例如,如果要用 Visual Basic 在单元格 D6 中输入公式,就不必先选定单元格D6,而只需返回 Range 对象,然后将该对象的 Formula 属性设置为所需的公式,如下例所示。
Sub EnterFormula WorksheetsSheet1.RangeD6.Formula SUMD2:D5End Sub使用 Select 方法和 Selection 属性 而Select 方法激活工作表和工作表上的对象; Selection 属性返回代表活动工作簿中活动工作表上的当前选定区域的对象。
在成功使用 Selection 属性之前,必须先激活工作簿,并激活或选定工作表,然后用 Select 方法选定单元格区域(或其他对象)。
宏录制器经常创建使用 Select 方法和 Selection 属性的宏。
下述 Sub 过程是用宏录制器创建的,该过程
演示了 Select 方法和 Selection 属性在一起使用的方法。
Sub Macro1 SheetsSheet1.Select RangeA1.Select ActiveCell.FormulaR1C1 Name RangeB1.Select ActiveCell.FormulaR1C1 Address RangeA1:B1.Select Selection.Font.Bold TrueEnd Sub下例完成同样的任务,但不激活或选定工作表或单元