Excel-VBA-常用代码50例.doc

Excel VBA（Visual Basic for Applications）是一种强大的编程工具，它允许用户自定义Excel的各种功能，包括自动化任务、创建宏和编写复杂的数据处理算法。以下是从提供的文档中提取的一些常用VBA代码实例及其详解： 1. **打印指定区域** - 代码：`Sheets("Sheet1").PrintArea = "B2:M30"`；`Sheets("Sheet1").PrintOut` - 解释：这段代码将Sheet1的工作表的打印区域设置为B2到M30的单元格范围，然后调用`PrintOut`方法打印这个范围的内容。 2. **删除文字尾部字符** - 公式：`=REPLACE(A1, LEN(A1), 1, " ")"` - 解释：在过渡列中，使用此公式可以替换A1单元格的最后一个字符为空格。`LEN(A1)`返回A1单元格的字符数，`REPLACE`函数则用于替换特定位置的字符。 3. **根据条件自动填充序号** - VBA代码： ```vba Dim xuhao As Integer xuhao = 1 Range("B2").Select Do While Selection <> "" If Selection.Value <> 0 Then Selection.Value = xuhao xuhao = xuhao + 1 End If (1, 0).Range("A1").Select Loop ``` - 解释：这段代码定义了一个变量`xuhao`作为计数器，然后从B2单元格开始，检查每行的值。如果值不等于0，则在当前行写入序号`xuhao`并递增。 4. **自定义函数处理Range参数** - VBA代码： ```vba Public Function SUMX2(rng As Range) As Integer Dim rg As Range Dim ivalue As Integer For Each rg In rng ivalue = ivalue + rg.Value ^ 2 Next SUMX2 = ivalue End Function ``` - 解释：这个自定义函数`SUMX2`接收一个Range参数`rng`，然后通过循环遍历Range内的每个单元格，计算其值的平方和。 5. **字符串包含性判断** - 代码：`If InStr(1, "abcdefg", "abc") <> 0 Then MsgBox "包含"` - 解释：`InStr`函数用于查找子字符串在主字符串中的位置。如果返回值不为0，表示找到了子字符串，因此显示消息框提示“包含”。 6. **背景套打解决方案** - 这个部分介绍的是如何使用Excel的背景功能和图片来实现套打，例如打印支票。关键步骤包括扫描图片、调整图片大小以匹配表格、设置数据位置以及进行精确套打。 以上代码示例展示了VBA在Excel中的实际应用，涵盖了打印、文本处理、数据处理、自定义函数和图形处理等多方面。通过学习和理解这些例子，用户可以提升自己的Excel自动化能力，更高效地处理日常工作。