预见未来to50的专栏

Life is limited, but art is long

他山之石——VBA文本框

继续学习VBA!'**********************文字框控件*************** '一 显示 '1 多行显示 'MultiLine 属性值为true时,可以多行显示文本 '2 文本框对齐 '左右对齐可以用TextAlign对齐,但上下对齐则没有相应...

2018-06-29 23:58:59

阅读数:264

评论数:0

他山之石——按钮示例

继续学习VBA!'**********************按钮控件**************** '一 按钮显示 '1 鼠标放在按钮上时可以显示的提示文字 '设置controltiptext属性 '2 在按钮上添加图片 '设置PicturePosition属性 ...

2018-06-29 23:56:42

阅读数:29

评论数:0

他山之石——VBA窗体事件

继续学习VBA!

2018-06-29 23:47:35

阅读数:156

评论数:0

他山之石——VBA窗体的使用

继续学习VBA!

2018-06-28 23:38:02

阅读数:345

评论数:0

调试经验——Excel无效名称占用大量空间,删除后文件大小明显减小

今天,在调试一段VBA代码,净化待交付文件时,发现Excel中包含很多无效名称(Range Name),且占用大量空间。删除这些名称后,文件大小由9M减小到不到500K,相差近20倍。至于为什么?暂时不清楚,留待以后解决。...

2018-06-28 16:24:56

阅读数:93

评论数:0

他山之石——Txt文件的读取

这一节实用性不高,但是也挺有意思。先留着,需要时再来。'Open 文件名 打开方式 as 文件编号 '打开方式: 'Input :只能读,不能写 'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件 'Output:可以读,也可以写。但总会...

2018-06-28 01:47:09

阅读数:46

评论数:0

他山之石——使用VBA写入txt文件

这一节基本没用,除了最后一个例子:记录文件的打开和关闭时间。'Open 文件名 for 打开方式 as 文件编号 '打开方式: 'Input :只能读,不能写 'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件 'Output:可以读,也...

2018-06-28 01:17:29

阅读数:1468

评论数:0

调试经验——使用VBA下载网络资源

第一次使用VBA从网上下载了一张图片,挺有意思!哈哈。代码:#If Win64 Then Private Declare PtrSafe Sub sleepp Lib "kernel32.dll" Alias "Sleep&qu...

2018-06-27 23:07:57

阅读数:98

评论数:0

他山之石——VBA压缩文件和解压缩 (Compression/Decompression with VBA)

文件压缩和解压缩,目前在实际工作中用的不多,先留着吧,需要时再来看看。'获得rar的安装路径 Function GetSetupPath(AppName As String) Dim WSH As Object Set WSH = CreateObject("Ws...

2018-06-27 22:16:11

阅读数:233

评论数:0

他山之石——VBA代码操作代码(Manipulating code with VBA)

代码操作代码,倒是挺高级的。至少在学习C、Java等其他语言时没有这样玩过。事实上,今天使用VBA删除了待交付文件中的VBA代码,技术水平有了进一步的提高!这节的内容感觉挺充实,认真学习,会有收获的。'VBE对象是根对象,表示在VBA编辑器中存在的所有对象的最上层对象 '一 VBAproj...

2018-06-27 22:01:54

阅读数:453

评论数:0

调试经验——VBA编程中遭遇“Runtime-error '9'”: Subscript out of range错误

今天,为了实现一个看似比较简单的功能,结果调试VBA代码花费了我近3个小时,一杯咖啡从早上喝到现在还没喝完。其中,遭遇了一个“Runtime-error '9'”: Subscript out of range错误,就耽误了很多时间。问题代码:With workbooks(fileName).VB...

2018-06-27 18:29:02

阅读数:772

评论数:0

调试经验——使用VBA删除待交付文件中的无效名称(Delete invalid range names with VBA)

需求:在辛苦生成报表后,要交付给用户的文件越“干净”越好!比如,在工作文件(workfile)中可能创建了很多vlookup区域(vlookup range names),这些名称会随着工作文件而“另存为”在待交付文件中。不要小看这些区域,实践证明,如果区域较多时,会额外占用很多空间。而且,这些区...

2018-06-27 18:07:39

阅读数:62

评论数:0

调试经验——删除待交付文件中的VBA代码(Delete VBA code in the deliverable file)

需求:手动报表生成后,通常需要删除一些辅助工作表及VBA代码,因为用户是不需要看到这些内容的。代码:Sub deleteVBACode() Dim wkBook As Workbook      '用于删除delivery文件中的VBA代码(模块及工作表) Dim objVbc As Obje...

2018-06-27 17:53:55

阅读数:76

评论数:0

半年总结——CSDN博客篇数、访问量、排名及积分的统计

努力就有回报,利用空闲时间,将自己的学习经验写成博客,分享给所有有缘之人,也是一种积德行善。而排名,只是这个努力的副产品。何况,就算是排名第一又能说明什么呢?毕竟,写的多不代表学的好,学的好也不代表工作干的好。但是,有一点是肯定的:用心写好每一篇博客,做到言之有物,肯定是有意义的。因为,在工作中,...

2018-06-27 01:10:17

阅读数:135

评论数:0

他山之石——VBA文件夹遍历

Sub test3() Dim wb As Workbook Dim i As Long Dim t Dim arr() t = Timer ActiveSheet.UsedRange = "" With Application.FileSearch '...

2018-06-27 00:00:42

阅读数:71

评论数:0

他山之石——VBA文件夹操作

'1 判断文件夹是否存在 'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹,如果结果为"",则表示不存在。 Sub w1() If Dir(ThisWorkbook.path & &am...

2018-06-26 23:59:26

阅读数:40

评论数:0

他山之石——VBA程序提速-Part1

'调用对象是非常非常的耗费资源的,所以一定要尽可能的少调用对象。包括: '工作簿、工作表、单元格以及外引用对象。 Sub 在循环中调用单元格() Dim x As Integer, k Dim t t = Timer For x = 1 To 20000 k = [a1] Ne...

2018-06-26 23:58:12

阅读数:56

评论数:0

他山之石——VBA随机抽取

Sub Ëæ»úÌôÑ¡ÑÝʾ³ÌÐò1() Dim arr Dim x As Integer, num As Integer, k As Integer Range("c1:c10") = "" Range...

2018-06-26 23:56:31

阅读数:190

评论数:0

转发-一名 40 岁“老”码农的反思

原文链接:https://blog.csdn.net/zV3e189oS5c0tSknrBCL/article/details/80780586看到这篇文章,送给正在奔四路上的自己,共勉!-------------------------------------------------------...

2018-06-26 17:02:59

阅读数:33

评论数:0

他山之石——VBA中使用时间和日期

时间、日期是编程中经常用到而功能、格式众多的领域,程序调试中往往在其身上花费不少时间。'1 计算两个日期相隔天数,月数,年数,小时,分种,秒 Sub tt1() Dim d1, d2 As Date d1 = #11/21/2011# d2 = #12/1/201...

2018-06-26 00:24:28

阅读数:650

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭