大家帮我看看这段代码有什么问题？谢谢【vba吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：7,694贴子：
大家帮我看看这段代码有什么问题？谢谢收藏
我运行了这段代码，没有结果，初次接触VBA，请大家帮我看看，谢谢！Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 6 Then
If Target.Column & 1 And Target.Column & 10 Then
UserForm1.Show 0
UserForm1.ListBox1.ColumnCount = 3
UserForm1.ListBox1.RowSource = &k5:m30&
Unload UserForm1
Unload UserForm1
End IfEnd Sub
vba培训选择达内的理由1,企业级开发环境2,项目实战教学3,vba课程可选4,金牌讲师授课5,周末/业余班任选.vba培训首选达内--美国上市公司!
在你写这段代码想表达的意思：在工作表中双击第6行，第2到第9列的单元格，就会弹出Userform1。。前提是你的工程里有Userform1这个窗体。如果有这个窗体，并且里面有Listbox1这个控件，就设定最多为三列，并加载K5到M30这个区域的数据到Listbox1里。如果点击指定区域外的单元格窗体关闭。
弄对工作表了吗？
利用listbox控件的CLICK事件。然后把选定的项目复制给target
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.ValueEnd Sub
您再帮我看看，这段代码是什么意思？Private Sub UserForm_Initialize()
Dim irow As Integer
Dim arr As Variant, brr
arr = Sheet1.Range(&h1:i4&)
ReDim brr(0 To UBound(arr))
For i = 1 To UBound(arr)
brr(i - 1) = arr(i, 1) & vbTab & arr(i, 2)
Me.ListBox1.List = brrEnd Sub我是抄别人的
登录百度帐号推荐应用如何能有效地学习 VBA？ - 知乎2374被浏览212577分享邀请回答Dim X as Integer
上面的代码里面X就是个变量，X = 5是给X一个初值，X = X * X就是对X进行的加工，也就是求平方。两个基本点——“过程与函数”VBA区分过程与函数，实际上这两个货基本一样。函数是什么？这里的函数，其实和数学的函数很像，把变量丢进来（参数），产出就函数的返回值。还是举平方的例子：Function Square(Num As Integer)
Square = Num * Num
End Function
Sub Fun1()
Debug.Print Square(5)
很简单吧？函数就是Square，和函数同名的变量就是你要返回的值。把变量Square的值设置为你要返回的值就可以了。过程呢，也就是Sub，其实就是不返回值得函数。上面的过程Fun1里面调用了我们写的函数Square，传入了一个参数5。三个代表——“顺序、循环、判断”既然题主对公式里面的IF什么的比较熟悉了，那么下面的内容应该不难理解。“顺序”是最基础的语句执行模式，说白了就一句接着一句的执行。上面代码就是顺序执行的一个例子。先赋初值给X，然后再求平方。“判断”呢，就是说，根据某个判断结果，来选择执行那些语句：If X & 5 Then
' Do something
Else ' else is optional
' Do elsething
“循环”呢，就是重复做某件事情，这大约是最能解放你双手的以中语句了。比如我要求1~100的和，那么我可以X=X+1 X=X+2 …… X=X+100，呃，是不是快累死了？没关系，循环解救你：Dim Sum as Integer
For i = 1 to 100 Step 1
Sum = Sum + I
Debug.Print Sum
上面的代码应该挺直白，说白了就是设置一个变量Sum，设初值为0，然后从（For）1加到（to）100，然后Debug.Print Sum把最后结果打印出来。如果实在不懂也不必太纠结，具体的语法，你查查语法手册就了解了，用着用着自然也就熟悉了。接着，该学点儿什么？好了，基本思想就是这么地了，没什么神奇的。那接着怎么办？接下去，就要了解怎么用VBA操作Excel了，这一部分是VBA（Visual Basic for Application）中for Application的部分。于是Excel的VBA对象模型就登场了。其实也就是Application代表Excel程序，Workbooks代表所有打开的Excel文件的，Sheets代表Excel文件里面的表单，Range代表一个单元格区域什么的。比如Range("A1").Value = 1
就是将当前表单的A1单元格的值设置为1。打开VBA的录制宏，试一试你就了解了，很简单的。如果还是迷糊的话，先看本书吧，把概念捋顺一下。大厚本的不要，《别怕，Excel VBA其实很简单》还不错（不是广告……）。57644 条评论分享收藏感谢收起5iyk.me ，其中有这个教程。17928 条评论分享收藏感谢收起查看更多回答查看: 2583|回复: 24
梁小铭给罗刚君老师的一封信
本帖最后由 cagia 于
15:28 编辑
　　2016年的冬天依旧寒冷，2016年的经济依旧萧条。望着冷清的鱼市，心里一阵愁怅。2016年11月，和几位志同道合之士突发奇想，搞一款VBA插件吧。理由就这么简单，行动就这么迅速。2017年1月，“E殿园”如初生的婴儿，呱呱坠地。很荣幸，招集到不少VBA爱好者一同进行内测，检验我们的能力，检测E殿园的功能。1月17日，收到VBA界泰斗罗刚君老师的“讨伐”反馈，先是一诧，继尔不禁一笑。“讨伐”？“复印机”？内测阶段，何来“讨伐”之激烈？“复印机”？古有印刷术，近代有油印，目前有复印机，这不正是人类一步步进步所来的结果？“E殿园”还在内测，只是小范围内公布，我并不知道罗老师的“E殿园”插件如何而来，当然，这不重要，重要的是罗老师有反馈，我们的宗旨就是有反馈，我们就要跟进，就要改进。　　1、首先感谢罗刚君老师，没有罗刚君老师的《来吧！带你玩转EXCEL VBA》、《EXCEL VBA程序开发自学宝典（第2、第3版）》等著作和悉心指导，就没有我今天VBA的小有所获，也不可能获得罗刚君老师的“数万VBA学者中的佼佼者”之赞誉。我一直认为也向VBA好友说过：罗老师的著作，浅显易懂，是学习VBA的极佳典籍。　　2、第二，目前“E殿园”工具仅限于内测使用，并不公开发行。因为制作仓促，难免在功能和使用说明的表述会出现瑕疵和不当。就如现在内测过程中，引起罗刚君老师“侵权”之疑和身心不适，我深表歉意，向罗老师表示郑重道歉！　　3、第三，“E殿园”之使用说明中有关收费问题。因为后续开发或者用户定制某些不常用功能，会涉及到人力和物力，会进行一定的成本收费，但常用功能、已公开源代码部分、网络可搜索部分之功能，“E殿园”表示绝不收费，用户可以放心使用，如果因此而造成所谓“侵权”，E殿园在收到著作权人的回馈后，会及时跟进作解释或删除处理。　　4、第四，关于代码盒子。作为罗老师的学生，我是看过他的宝典2的，早期在这个帖子里已经说过的了一键制作专属的右键代码百宝箱插件（神器）
eh.png (135.87 KB, 下载次数: 10)
15:22 上传
(出处: ExcelHome技术论坛)，代码盒子并没有完全复制他的代码百宝箱，采用罗老师的也是基于其公开源码之部分，后续有些功能是通过用户自己添加代码模板而已生成，我做的就是进一步创新，当然，界面和功能会和罗老师的相似。但我们学习VBA，不就是要创新吗？难道我们只能是停步不前？只能用前人所著，在原有基础上创新就侵权？并且，代码盒子使用不设任何门槛，不收取任何费用，完全就是一款免费放心的软件。用户可以使用罗老师代码百宝箱，也可以使用我有小小创新的代码盒子，各取所需罢了。 　　5、第五，正如前面所述，古有印刷术，近代有油印，现在有复印机，人类之所以进步，靠的就是既读书，又会写书、更会不断创新。又如我们求学，老师教我们“1+1=2”，然后我们做“1+1+1=3”，这算侵权吗？好吧，既然罗刚君老师说“侵权”了，“E殿园”就改正，我们做“2+1=3”，我们就创新。比如“E殿园”贴心服务之天气功能，又比如邮件分发功能，再如类邮件合并之功能……　　6、关于接单的问题，这里不做过多回复，因为在此之前并没有收到用户的反馈，今天又特地问了一下客户，如果罗老师方便的话，我可以马上先行支付相关费用。其他证明一切以附图为准，相信大家会有自己的判断。
无标题.png (434.77 KB, 下载次数: 16)
15:22 上传
　　最后，再次感谢罗老师的悉心指导，再次因“E殿园”内测造成罗老师不适表示诚恳的道歉。我们会在后续更新中删减某些功能，在此造成的不便，敬请用户谅解。　　VBA，我们不会敝帚自珍、止步不前，“E殿园”会继续将VBA发扬光大。在发展创新这条路上，有再大的困难，“E殿园”都会迎难而上，因为“博爱·务实·致远”！　　2017，我们来了！
怪不得这是个出不了大师的时代，都在钱眼里秀泳技呢，都舍不得闭上钱眼沉到学海里去。
清末和民国那样一个乱离的时代，怎么会大师辈出的
梁总，加油
广告贴？讨伐贴？应战帖？
梁总，威武，祝卖鱼生意兴隆，财源滚滚
是卖海鲜吗？
快过年了，批车鱼卖卖，梁总，加油
小号 是啥问题
小号 是啥问题
Powered by查看: 1131|回复: 4
请老师帮忙看看关于复制插入行到另一个工作表的问题,谢谢
阅读权限30
在线时间 小时
点击导入数据按钮,
将该行的B列至E列的数值复制插入到数据工作表的下一行,
请问怎么实现?谢谢
07:03 上传
点击文件名下载附件
13.48 KB, 下载次数: 16
阅读权限95
在线时间 小时
是逐行导入，还是一次性全部导入？
阅读权限95
在线时间 小时
工艺列公式要转为文本才能复制，否则成了循环引用
阅读权限30
在线时间 小时
是选择性逐行导入,工艺列只导入文本,谢谢
阅读权限30
在线时间 小时
顶起来，望老师帮忙
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA中的错误处理_6C社区
VBA中的错误处理
VBA中的错误处理
从理论上讲，VBA没有提供任何的错误处理机制，这种被用在微软Office产品中的以Visual Basic语言为基础的脚本语言根本就不要任何的错误处理，当程序出现错误或产生异常情况时，VBA会自动定位到出错的代码行，然后提示用户出错的可能原因。这是典型的脚本语言的错误提示，联想到javascript语言，在浏览器中如果出现脚本错误，浏览器会给出提示信息，但这并不影响整个程序的正常运行，最多也就是出现错误之后的脚本不被继续解释而已。不过即便如此，javascript还是提供了较为良好的错误处理机制，例如常见的try catch语句和alert提示，以及后来支持的debugger调试信息等，javascript在支持面向对象语言特性的同时也逐渐改善了它的错误处理和调试方法。然而Visual Basci却没有这么幸运，从诞生之初，Visual Basic就没有提供一个比较好的错误处理机制，尽管我们在实际应用中总会遇到这样或那样的运行时错误（例如错误删除文件、磁盘驱动器空间不够、网络通信发生异常等），但是对于Visual Basic的过程来说根本就没有错误处理，当错误产生时程序便停止运行，直到异常被清除。有关比较详细的介绍Visual Basic的错误处理和调试方法的文章，读者可以参考下面这个链接。/Articles/office/VBABasic/36501.htmVBA的语言特性类似于Visual Basic，应该说它们属于同一家族，所以，用来在Visual Basic中处理程序异常的方法也同样可以被用在VBA中。在Visual Basic中，常用的程序错误处理的方式是设置或使用错误陷阱，以告诉应用程序当错误发生时转移到何处（或处理当错误发生时要运行的代码），通过在代码中定义标签来告知应用程序当错误发生时要转到的地方。这一点和C系列语言的错误处理方式是相同的。基本步骤如下：1.设置一个有效的错误陷阱，以告诉应用程序发生错误时转移到何处继续运行。Visual Basic中的On Error语句可以使错误陷阱有效，并为应用程序指定错误处理的入口。2.在错误程序的入口处编写响应错误的具体实现，如继续尝试执行之前的代码、或告知用户出错的具体原因以让用户尝试去解决等。3.退出错误处理。有关如何使用Visual Basic的错误处理和On Error语句的具体含义，读者可以仔细阅读上面给出的那个链接的文章，里面有非常详细的介绍。我在这里会结合实际应用来讲讲在VBA中如何具体使用错误处理。先看一个简单的示例。Private Sub CommandButton1_Click()On Error GoTo Err_HandleDim a As IntegerDim b As IntegerDim c As Integera = 10b = 0c = a / b '除数为0会导致运行时错误MsgBox cEnd SubErr_Handle:MsgBox Err.DescriptionEnd Sub在上述过程中，我们首先通过On Error语句设置了一个错误陷阱，该错误陷阱将自动被激活，同时错误陷阱指向了代码中定义的标签Error_Handle。当过程被调用时，如果出现异常，程序会自动运行标签所指向的代码段，这里会给用户一个提示。Err对象为系统对象，其中包含了当错误发生时的描述信息和错误编号，根据Err对象提供的这些简单信息我们也许可以告知用户应用程序发生了什么事情，从而最终找出出错的具体原因。
联系QQ： 邮箱：
本文地址： /article-10118-1.shtml 欢迎转载}