各位大神解释下这段vba代码为什么报错？ vba代码解释
- 请问哪位 VBA 大神，能详细解释一下这段代码？
- 求大神解释一下这段VBA设么意思
- VBA 在网上搜了好几段代码，我在别人电脑里也试了，但是在自己的电脑里就各种报错。。。不知道为什么。
- 帮忙再解释下这段vb代码
请问哪位 VBA 大神，能详细解释一下这段代码？
arr = Range("b10:I14")
brr = Range("c6")
crr = Range("f6") & Range("H6") & Range("I6")
drr = Range("F7")
X = Sheets("数据汇总").Range("E65536").End(xlUp).Row'E列最下面有数据的行号
Y = WorksheetFunction.CountA(Range("B10:B14")) '当前工作表B10:B14中有数据的单元格个数
MsgBox "复制 ：" & Y & " 行数据"'提示信息:复制几行数据
Sheets("数据汇总").Cells(X + 1, "E").Resize(5, 6) = arr'有E列最下面有数据的下一行6列放置Arr数据也就是B10:I14数据
Sheets("数据汇总").Cells(X + 1, "D").Resize(Y, 1) = brr '在对应行的D列放置brr
Sheets("数据汇总").Cells(X + 1, "C").Resize(Y, 1) = crr '在对应行的C列放置crr
Sheets("数据汇总").Cells(X + 1, "B").Resize(Y, 1) = drr'在对应行的B列放置drr
n = Sheets("数据汇总").Range("E65536").End(xlUp).Row'找出有数据的最大行号
Sheets("数据汇总").Range("a2:a" & n) = "=row(a1)"'在A列写入序号,A2为1开始直到最大数据行
Sheets("数据汇总").Select'设置"数据汇总"工作表为当前工作表MsgBox "送货单已保存成功！"
'以上代码y=这句外,其他都是针对"数据汇总"工作表
求大神解释一下这段VBA设么意思
这段代码是用户窗体的初始化代码，先设置窗口为无边框格式，然后把工作表上A列内容添加到组合框的选项，然后设置两个组合框的内容。
VBA 在网上搜了好几段代码，我在别人电脑里也试了，但是在自己的电脑里就各种报错。。。不知道为什么。
死机原因主要有以下方面中毒或中恶意软件，引起电脑异常，解决法是，升级杀毒软件，杀毒，实在不行，就重装或恢复过系统。重装或恢复过系统可以完全解决软件方面的问题。由于电压不稳点，电源功率不够，也会经常引起电脑异常，如果是这些原因引起的就配置一个稳压器，换大功率电源就能解决。由于运行大软件、大程序而导致的，如玩大游戏、用大型软件、看蓝光电影等，那就应该是电脑硬件配置差的原因引起的。解决法就只有升级电脑配置、优化电脑系统。建议经常用腾讯电脑管家优化系统，清理垃圾，杀杀毒，有帮助的。
帮忙再解释下这段vb代码
Private Sub Com_PayCode_Click() '声明函数开始
On Error GoTo ErrHandler: '如果发生错误跳到下面的 “ErrHandler：” 这个标签，执行标签后面的语句
Dim RS As New ADODB.Recordset, Sql As String, HH As Integer, i As Integer, j As Integer '定义记录集 字符串等变量
Com_PayName.ListIndex = Com_PayCode.ListIndex '把控件 Com_PayCode的ListIndex 赋值给 控件Com_PayName
Exit Sub '函数的逻辑部分的代码正确执行到这里 就退出，不继续执行下面的那个只有错误才会执行的标签的代码
ErrHandler:
MsgBox "同步付款条件时发生异常!" & vbCrLf & vbCrLf & Err.Description, vbExclamation, Me.Caption & " -> [Com_PayCode_Click]" '输出错误信息
End Sub '声明函数结束