vba编程代码大全事例
vba常用代码有哪些？
vba常用代码有哪些？
我以前总结过我常用的一些，见
https://github.com/mzlogin/learn-vba-the-hard-way
主要的实用代码片段如下：
## 实用代码片段
文件操作
# 引用打开的工作簿
使用索引号（从 1 开始）
```vbnet
Workbooks(1)
```
使用工作簿名称
```vbnet
Workbooks(\
vba常用代码有哪些？
我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
vba代码对照表？
vba代码对照表
Dim i
For i = 1 To [A65536].End(xlUp).Row #39先用for循环把A与B列的数据合并到C列
Cells(i, 3) = Cells(i, 1) amp #34_#34 amp Cells(i, 2)
Next i
For i = 1 To [C65536].End(xlUp).Row #39再用for 循环检查C弄数据是否存在重复值
If WorksheetFunction.CountIf([C:C], Cells(i, 3)) gt 1 Then #39用EXCEL公式COUNTIF判断是否有重复值，1为未发现重复，gt1则有重复值
Cells(i, 1).Interior.Color = 255 #39经判断有重复值则将相对应的A列填充为红色
End If
Next i
vba打印代码大全？
代码：
sub 宏1()
dim p,n,st as worksheet
p=#34c:\\#34 #39文件所在位置，你可能需要修改，没必须是\\
n=dir(p amp #34amp.xls*#34)
do while n#34#34
with workbooks.open(p amp n)
for each st in .sheets
if st.name=#34施工记录#34 or st.name=#34施工记录 (2)#34 or st.name=#34施工记录 (3)#34 then st.printout
next st
.close
end with
n=dir
loop
end sub