翻译一小段VBA程序代码（估计和VB差不多吧）
越详细越好，最好每句都说清楚是什么意思，让我看明白，还有那几个ChrW（数字）表示什么字，也说清楚，写论文用。谢谢了
Option Compare Database
Private Sub Cmdclose_Click()
On Error GoTo Err_Command30_Click
DoCmd.Close
Exit_Cmdclose_Click:
Exit Sub
Err_Cmdclose_Click:
MsgBox Err.Description
Resume Exit_Cmdclose_Click
End Sub
Private Sub Cmdreport_Click()
On Error GoTo Err_cmdreport_Click
DoCmd.Close acReport, "会员详细信息"
Dim stDocName As String
stDocName = ChrW(20250) & ChrW(21592) & ChrW(-29722) & ChrW(32454) & ChrW(20449) & ChrW(24687)
DoCmd.OpenReport stDocName, acPreview
Exit_cmdreport_Click:
Exit Sub
Err_cmdreport_Click:
MsgBox Err.Description
Resume Exit_cmdreport_Click
End Sub
我想知道ChrW（数字），这个从哪查具体代表什么汉字？
Option Compare Database '设置缺省的字符串比较方法。只能在模块级使用
Private Sub Cmdclose_Click() '响应事件
On Error GoTo Err_Command30_Click '如错误跳转至错误处理(标签)
DoCmd.Close '关闭窗口
Exit_Cmdclose_Click: '调用Exit_Cmdclose_Click
Exit Sub '跳出本过程
'(无错误执行上述代码)
'有错误执行下面代码
Err_Cmdclose_Click: '调用Exit_Cmdclose_Click
MsgBox Err.Description '弹出错误描述对话框
Resume Exit_Cmdclose_Click '返回本过程
End Sub
Private Sub Cmdreport_Click()
On Error GoTo Err_cmdreport_Click '如错误跳转至错误处理
DoCmd.Close acReport, "会员详细信息" '关闭"会员详细信息"窗口
Dim stDocName As String
stDocName = ChrW(20250) & ChrW(21592) & ChrW(-29722) & ChrW(32454) & ChrW(20449) & ChrW(24687)
'为stDocName赋值
'上句等价于 stDocName ="会员详细信息",ChrW(20250)等分别代表一个汉字
'chrw与chr功能差不多,参见这里http://baike.baidu.com/view/1022382.htm
DoCmd.OpenReport stDocName, acPreview
'打开报表stDocName(会员详细信息),
Exit_cmdreport_Click: '调用Exit_cmdreport_Click
Exit Sub
'(无错误执行上述代码)
'有错误执行下面代码
Err_cmdreport_Click: '调用Err_cmdreport_Click
MsgBox Err.Description '弹出错误描述对话框
Resume Exit_cmdreport_Click '返回本过程
End Sub
你如果只是想知道数字码代表什么汉字,最简单的办法就是用msgbox
如:
msgbox stDocName
要是想根据汉字反查反查编码可以查DBCS对照表,好像
MultiByteToWideChar
WideCharToMultiByte
之类的函数也可以,不过我没有用过.
Option Compare Database '设置缺省的字符串比较方法。只能在模块级使用
Private Sub Cmdclose_Click() '响应事件
On Error GoTo Err_Command30_Click '如错误跳转至错误处理(标签)
DoCmd.Close '关闭窗口
Exit_Cmdclose_Click: '调用Exit_Cmdclose_Click
Exit Sub '跳出本过程
'(无错误执行上述代码)
'有错误执行下面代码
Err_Cmdclose_Click: '调用Exit_Cmdclose_Click
MsgBox Err.Description '弹出错误描述对话框
Resume Exit_Cmdclose_Click '返回本过程
End Sub
Private Sub Cmdreport_Click()
On Error GoTo Err_cmdreport_Click '如错误跳转至错误处理
DoCmd.Close acReport, "会员详细信息" '关闭"会员详细信息"窗口
Dim stDocName As String
stDocName = ChrW(20250) & ChrW(21592) & ChrW(-29722) & ChrW(32454) & ChrW(20449) & ChrW(24687)
'为stDocName赋值
'上句等价于 stDocName ="会员详细信息",ChrW(20250)等分别代表一个汉字
'chrw与chr功能差不多,参见这里http://baike.baidu.com/view/1022382.htm
DoCmd.OpenReport stDocName, acPreview
'打开报表stDocName(会员详细信息),
Exit_cmdreport_Click: '调用Exit_cmdreport_Click
Exit Sub
'(无错误执行上述代码)
'有错误执行下面代码
Err_cmdreport_Click: '调用Err_cmdreport_Click
MsgBox Err.Description '弹出错误描述对话框
Resume Exit_cmdreport_Click '返回本过程
End Sub
你如果只是想知道数字码代表什么汉字,最简单的办法就是用msgbox
如:
msgbox stDocName
要是想根据汉字反查反查编码可以查DBCS对照表,好像
MultiByteToWideChar
WideCharToMultiByte
之类的函数也可以,不过我没有用过.
翻译一小段VBA程序代码(估计和VB差不多吧)
Private Sub Cmdclose_Click() '响应事件 On Error GoTo Err_Command30_Click '如错误跳转至错误处理(标签)DoCmd.Close '关闭窗口 Exit_Cmdclose_Click: '调用Exit_Cmdclose_Click Exit Sub '跳出本过程 '(无错误执行上述代码)'有错误执行下面代码 Err_Cmdclose_Click: '调用Exit_Cmdclose_Click ...
翻译一小段VBA程序代码(估计和VB差不多吧)
Private Sub Command43_Click()On Error GoTo Err_Command43_Click '如果出错，就跳到标签名为“Err_Command43_Click”的一行。Dim stDocName As String '定义一个字符串型变量 stDocName = ChrW(22995) & ChrW(21517) '把这个变量赋值为“姓名”DoCmd.OpenReport stDocName, acPreview '打开“...
急求一段vba程序代码。
arr = Sheet1.Range("a1").CurrentRegion ReDim b(1 To UBound(arr) - 1, 1 To 2)For r = 2 To UBound(arr)b(r - 1, 1) = Application.Large(Application.Transpose(Application.Index(arr, , 2)), r - 1)'这 是按分数从多到少排序，如果要相反，则把 LARGE换成SMALL，Next r ...
帮忙逐句翻译这段Excel VBA代码的详细意思
If FileName <> ThisWB Then \/\/如果FileName 不等于ThisWB 那么 Set Wkb = Workbooks.Open(FileName:=path & "\\" & FileName) \/\/打开一个文件(文件路径 path & "\\" & FileName) 并把这个文件记录到 wkb变量 For Each WS In Wkb.Worksheets \/\/循环所有sheet页 Set LastCell = WS.C...
请老师帮我写段VBA代码,谢谢。
Set Rng = .Range("C1") '判断开始的第一个单元格 '---改动结束--->> re = .UsedRange.Rows.Count + .UsedRange.Row - 1 If re < Rng.Row Then MsgBox "条件列内无数据", vbCritical: Exit Sub col = Rng.Column For Each c In .Range(Rng, .Cells(re, col))If c.Value <...
vb程序设计 代码
程序首先设定一个变量n，用于确定生成字符的数量。这里使用了随机数函数Rnd，并结合数学运算确保生成的字符数量在5到21之间。接下来是一个循环结构，用于生成指定数量的字符。在循环体内，程序生成一个随机字符，并与前一个字符进行比较。如果当前字符比前一个字符大，程序会将这两个字符和前一个字符加入...
VBA和VB一样吗
不一样。两者语法基本是一样的，但是VBA是微软放在Office等软件中的，用于帮助Office处理东西，简化操作用（例如可以用VBA编写Excel批量处理）；而VB则是面向所有程序的
VBA的程序语言同VB的有没有区别?
VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化,专门用于Office 的各应用程序。VB具有自己的开发环境,而VBA必须寄生于已有的应用程序。要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),VB 可运行直接来自Windows 95 或NT 桌面上的应用程序,...
VBA和VB有什么区别
VBA是Visual Basic的一个子集，也可以看作是VB的简化版本。VB编写的程序在系统下可以直接运行，而VBA则需要在Office环境下才能运行。在统计学应用中，VBA中曲线图有现成的“宏”程序，使用较为方便，但这些宏程序通常缺乏个性化，修改起来较为复杂。相比之下，VB的绘图功能非常强大，几乎可以画出任何图形...
vba编程是不是跟VB编程一样?
基本上是一样的，只是多了一些Excel对象、属性、方法。语法完全相同。可以把Excel看成是一个控件。
