个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
两种方法:打开VB编辑器(VBE) 【1】在新的Excel中新建模块,把原来的VBA代码copy进去。 【2】在VB编辑器(VBE)工程资源窗口中,按着Ctrl把带原来的VBA代码的模块拖(复制)到新的文件中(如图,将模块1copy到Book2中)
1个回答
调用子程序: [call] [模块名称.]程序名称[(参数)] 关键词 call 在VBA中为可选,如果有用了call,而子过程(函数)有参数,则必须用括号把参数括起来。 模块名称,如果在同一模块中,则可省略 终止另一程序,如A程序终止B程序,那么在B程序中必须有一个终止出口及一处释放控制权 如下例...
我是个新手,刚接触VBA不久,买了赵老师的两本书学习了几天,但看不太明白这些代码,主要是不清楚思路和代码的运行规则。自己编个东西花了N长时间,收效甚微,没办法只好慢慢请教学习。哪位高手帮忙解释一下在过程列表框中这些名称的含义和用法(尽量详细点),感激不尽。 BeforeDragOver 控件拖放...
BUSSCTLL JD
SUB语言概念编辑Sub过程Sub过程是包含在Sub语句和EndSub语句中的一系列VisualBasic语句
单为了解决你的问题,原来的VBA代码中修改两个地方就可以了。 ir = Range("l65536").End(xlUp).Row 修改成: ir = Range("A65536").End(xlUp).Row
按照你的要求,又进行了一下修改.希望能帮上你的忙~~ 详情见附件
简单方法:进入vba编辑器,将模块/窗体等全部移除即可.
2个回答
可以加密码的。 在代码编辑器下选中相应的模块,在属性中有保护,可以设置密码。
不知道这个程序是解决什么问题的。
你怎么这么大方 3个100分的问题!! function is_even(x) if x mod 2 = 0 then is_even = 1 else is_even = 0 end if end function 都给我吧,呵呵
excel 如何根据时间自杀? exit代码编辑一下即可。
Sub 按钮1_单击() Set mycn = CreateObject(" nnection") mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=yes;imex=1';Data Sour...
Sub llll() r = 2 For i = 2 To [aa65536].End(xlUp).Row If Cells(i, 27) = Cells(i + 1, 27) Then Else For u = 2 To [t65536].End(xlUp).Row If Cells(u, 20)...
先看看这么行不行, 你蓝区中"我"这一列,在计算表中没有
vba有替换功能 按ctrl+r 调出
直接输入 Ctrl 1
你说的普通GBA代码又名GAMESHARK,还有VBA代码以及EC码,现在都流行EC码,你可以看下这个帖子:
您可以到我们的网站的共享资料里直接下载,有相应的资料提供。
在代码窗口中,选 工具->工程属性->保护选项卡
没太明白你的意思。 VBA是office里的工具,用创建、删除、导入文件什么的还行,用VBA去操作文件夹进行排序貌似有点难度,我没有试过,也许有我不知道。你不如把具体的情况说说看有没有其他的办法达到你的目的。 这篇文章是VBA对文件夹进行操作的,可以一读:
5个回答
代码在附件中,考虑到用循环比较的方法当数据很多时效率比较低,故使用了字典,字典采用的是前期绑定法,所以在引用里要把Mcrosoft Scripting Runtime项选中。具体见附件。
......用金就是无聊,你要真有本事+人品的话: 1:不认识日文 2:满足以上条件下载日文版木叶战计 3:去考试,非SL得到火影阶级...
进行页面设置: a.页眉: ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示 '; b.页脚: ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页 '; c.页眉到顶端边距2cm...
Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenF...
每次打开工作簿运行,可以调用open事件,在thisworkboox中加入代码: Private Sub Workbook_open() Sheet1.Range("a12") = Day(Date) End Sub
加气泡 加垫子 然后封箱