vba sub什么意思（vba 解释代码的意思）

本文目录

• vba 解释代码的意思
• Excel VBA中常用的英语有哪些是什么意思
• EXCEL VBA这些语句是什么意思，有大神逐句翻译吗
• 关于VBA中public sub，private sub和sub区别
• vba sub 可以带几个参数
• VBA gosub..return语句，如何理解Exit sub
• EXCEL VBA编程“Sub test”、“Sub szbn”、“Sub dxbn”是什么意思
• EXCEL中 函数 与 vba 运用时有什么不同（vba中常用代码如sub都是什么意思）

vba 解释代码的意思

Sub iDelAndCreName(Nm As String, s As String) ’定义一个过程，作用大意是删除和新建名称，两个参数Nm和s，均为文本型
On Error Resume Next ’遇到错误继续执行下一句
With ThisWorkbook ’本工作簿
.Names(Nm).Delete ‘删除本工作簿内现有的定义为Nm的名称（此句有可能出错）
.Names.Add Name:=Nm, RefersTo:=s ’新建名为Nm的名称，引用位置为参数s所传递的单元格引用
End With ’与with语句对应的结束句
Err.Clear ’清除错误
End Sub ‘过程结束
Call iDelAndCreName("iList", "=" & sh.Name & "!" & .Address) ’此句即调用上述过程，同时传递了两个参数，一个是iList,，这个就是过程中新建的名称的名字，"=" & sh.Name & "!" & .Address，这句就是为iList指定的引用位置。
只是最后这个.Address有点蹊跷，因为没见到上面还有with语句。

Excel VBA中常用的英语有哪些是什么意思

分享VBA最常用的70个单词
Sub 开始
End结束
Range单元格，单元格区域
Msgbox 输出函数
Inputbox输入函数
Cells所有单元格
Sheets工作表集合
Worksheets工作表集合
Workbooks工作簿集合
Thisworkbook:
代码所在的工作簿
Activeworkbook活动工作簿
Ativecell活动单元格
Dim定义变量关键字
Redim重新定义变量关键字
Integer整型，简写 %
Long
长整型，简写&
Single单精度 简写!
Double 双精度 简写#
String字符串型 $
Variant
变体型，有的叫做万能型，如果不定义就是这个变体型
Object 对象
Usedrange
用过的区域
Union 联合
Intersect 交叉
Resize
重新定义区域大小
CurrentRegion：相连的
Value 值
Call呼叫
Visible可见性
Rows所有的行
Columns 所有列
Createobject引用动态库文件函数
Dictionary 字典
Regexp 正则
Application
Excel里最高对象
Format格式函数
Timer记时器
WorksheetFunction工作表函数
Transpose工作表里的转置函数
Add添加
Before前面
After 后面
Kye关键字
Item条目对
Remove清空
Removeall清空所有
Exists存在
Count点数
Array数组函数
Preserve保存
Ubound 上界
Lbound下界
Erase清空数组
Split 分割
Join 连接，组合
Filter筛选
Index 工作表引用函数
Function函数
Volatile易失性
ColorIndex颜色索引
Interior底纹
Font字体
Show显示
Unload关闭窗体
Onkey按钮事件
Ontime事件
Delete删除
Open打开
SaveSs保存

EXCEL VBA这些语句是什么意思，有大神逐句翻译吗

Private Sub Worksheet_Activate() ’工作表激活事件
Set d = CreateObject("Scripting.Dictionary") ’赋值D为字典对象
arr = Sheet1.UsedRange
For i = 2 To UBound(arr)
If arr(i, 1) 《》 "" Then d(arr(i, 1)) = "" ’D增加关键字
Next
With Range("B2").Validation
.Delete
.Add 3, 1, 1, Join(d.keys, ",") ’B2增加数据有效性等于D关键字相连的值
End With
Set d = Nothing
End Sub
Sub 查询()
Dim d, arr, brr(), ar, br(), abr(), m, n, i, j, a, b, aa, s
Range("A5:P10000").ClearContents ’清除("A5:P10000")单元格区域内容
If Range("B2") = "" Then MsgBox "请选择【料号】！程序退出。", 64, "温馨提示": Exit Sub
If Range("C2") = "" Then MsgBox "请填写出库数量！程序退出。", 64, "温馨提示": Exit Sub ’单元格B2和C2单元格为空值时弹出对话框提示
arr = Sheet1.UsedRange ’赋值ARR
For i = 2 To UBound(arr) ’在ARR1维中循环
If arr(i, 1) = Range("B2") And arr(i, 4) = "Available" Then ’判定单元格是否等于 Range("B2") 和arr(i, 4) = "Available"就执行下面的代码
m = m + 1 ’M值进行累加
ReDim Preserve brr(1 To 7, 1 To m) ’给BRR数给赋值，
For j = 1 To 6 ’J从一到6循环
brr(j, m) = arr(i, j) ’给BRR赋值等于对应的arr数组理面的值
Next
brr(7, m) = arr(i, 10) ’同样是是BRR赋值
End If
If arr(i, 1) = Range("B2") Then ’判定arr(i, 1) = Range("B2")就执行下面代码
s = s + 1 ’S值进行累加
ReDim Preserve abr(1 To 7, 1 To s) ’M 同样也是给abr赋值等于对应的arr数组理面的值
For j = 1 To 6
abr(j, s) = arr(i, j)
Next
abr(7, s) = arr(i, 10)
End If
Next
If m = 0 Then ’判断M等于0就执行下面的程序
Range("B5:H10000").ClearContents ’清除(("B5:H10000")单元格区域内容
扩充区域后赋值等于abr转置的值
Range("B5:H" & s + 4).Sort ’对H列排序
MsgBox "【" & Range("B2") & "】料号可出库的库存是【0】！程序退出。", 64, "温馨提示" ’弹出提示
Exit Sub ’退出程序
End If
扩充区域后赋值等于BRR转置的值
Range("B5:H" & m + 4).Sort ’对H列排序
arr = Range("B5:H" & m + 4) ’重新赋值ARR
Range("B5:H10000").ClearContents ’清除(("B5:H10000")单元格区域内容
扩充区域后赋值等于abr转置的值
Range("B5:H" & s + 4).Sort ’对H列排序
For i = 1 To UBound(arr) ’在ARR数组中循环
a = a + arr(i, 3) ’给A赋值
Next
b = Val(Range("C2")) ’给B赋值
If a - b 《 0 Then ’判定A-B小于0就执行下面程序
MsgBox "【" & Range("B2") & "】料号现有库存 " & a & " 不够本次出库！程序退出。", 64, "温馨提示" ’弹出提示
Exit Sub
End If
For i = 1 To UBound(arr)
n = n + 1
ReDim Preserve br(1 To 7, 1 To n)
For j = 1 To 7
br(j, n) = arr(i, j)
Next
aa = aa + arr(i, 3)
If Val(aa) 》= Val(b) Then
Exit For
End If
Next
br(3, n) = br(3, n) - (aa - b)
.Resize(n, 7)这个区域赋值等于转置后的(br) 内容
End Sub

关于VBA中public sub，private sub和sub区别

private
sub
表示私有程序，只能在本模块被调用
sub
等同于
public
sub，表示公用程序，可以被其他模块调用
特殊情况：
如果sub放在sheet表的代码中，无论
private
或
public，都不能被其他模块直接调用
要调用其他sheet的sub，只能用
.
号调用，如：调用sheet2的程序
bb()
，使用语句：
sheet2.bb
并且，bb程序必须为
public

vba sub 可以带几个参数

可以不要参数、1个参数、多个参数，遇到你说的问题，一般是调用的语句不对，你可以粘贴你的定义的格式和调用的语句来看看。
一般直接调用SUB名称可以不用引号，使用引号的时候需要添加CALL，例如：
SUB XXX(Y)
END SUB
XXX 123
CALL XXX(123)

VBA gosub..return语句，如何理解Exit sub

通常Goto或者Gosub语句，如果跳转后代码在末尾，为防止多余程序运行，需要添加Exit Sub提前终止代码运行。
你框住代码F8一直按，你就看到原因了：
当X循环到10结束的时候，如果没有Exit sub这一句的时候，接着会在A11出现偶数，但这显然是错误的。

EXCEL VBA编程“Sub test”、“Sub szbn”、“Sub dxbn”是什么意思

sub 是程序开始部分\x0d\x0asub aaa()\x0d\x0aaaa代表程序的名称，可以随便你写，但是尽量写得有意义一些，一般的程序不用返回aaa的值，所以括号内无内容，如果是自定义函数Function可以带参数，或系统自带的Worksheet_Change等括号内是有参数的。\x0d\x0a\x0d\x0aend sub 是程序结束的标志。

EXCEL中 函数 与 vba 运用时有什么不同（vba中常用代码如sub都是什么意思）

Sub开始的是一个子过程，Function开始的是一个函数过程。每个Sub都要以End Sub结束，每个Function也都要以End Function结束。
VBA中这两种都有使用。共同点就是，都是用来完成某种特殊功能的一组程序代码。区别是，函数是带有返回值的特殊过程，函数过程在定义时有返回值的类型说明。
定义的子过程或函数都可以在其他地方被调用，只是形式略有区别。