![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
虾的哥哥
学无止境,努力努力!
展开
-
EXCEL VBA 读写 ANSI
EXCEL VBA 读写 ANSI原创 2022-10-23 15:09:32 · 646 阅读 · 0 评论 -
ASCII码对应表
chr(9) tab空格 chr(10) 换行 chr(13) 回车 Chr(13)&chr(10) 回车换行 chr(32) 空格符 chr(34) 双引号 chr(39) 单引号chr(33) ! chr(34) " chr(35) # chr(36) $ chr(37) % chr(38) & chr(39) ' ...转载 2021-03-18 09:33:53 · 768 阅读 · 0 评论 -
wps VBA 更改模块的名字,VBA模块重命名,坑
使用的WPS,使用模块的时候想把名字修改了。网上查的结果的是http://www.excelpx.com/thread-79694-1-1.html 但是呢,我的就是没有属性这个框框,到群里问,大佬说,自己百度。结果我又百度了,还是这个结果。可是我右键出来的是没有啊,怎么办呢,自己琢磨,先点其他的控件,然后会弹出属性框,然后在单击模块就出来了记录一下吧,不会问别人还是挺气人的,希望能在细节上帮助需要的人...原创 2021-03-10 11:10:27 · 3213 阅读 · 1 评论 -
VBA 中 imagelist 图片插入位置,找了挺久
原创 2021-02-10 14:46:31 · 1172 阅读 · 0 评论 -
VBA FSO对象模型详解(转载)
文章来源:http://club.excelhome.net/blog-238368-1693.html转载方便整理收集,如有侵权,联系删除。谢谢!一个高手的代码:遍历文件夹下的文件夹Public Fso As Object Sub getFldList() Set Fso = CreateObject("Scripting.FileSystemObject") Fldnm (CreateObject("Shell.Application").BrowseFo..转载 2021-02-09 09:59:14 · 2771 阅读 · 0 评论 -
VBA 根据单元格颜色,填充其他单元格颜色时注意的问题
今天在做时序图,填充单元格颜色的时候,想让使用者从源单元格的颜色,来确定填充时单元格的颜色。用宏录制是:Sub Macro3() Range("D4:G8").Select With Selection.Interior .Pattern = xlPatternSolid .ThemeColor = 7 .TintAndShade = 0.4 .PatternColorIndex = -4105 End With原创 2021-02-07 21:43:59 · 1741 阅读 · 0 评论 -
vba实现粘贴复制功能
vba实现粘贴复制功能Sub 复制粘贴()'第1种 复制粘贴的方法--利用range的copyRange("C13:C21").Copy Range("F13")'第2种Range("C13:C21").CopyRange("F13").SelectActiveSheet.PasteEnd Sub学习了几天VBA,突然觉得啊,只有想不到的,没有做不到的。这话怎么讲呢?根据需求去学习很快,有些功能只有你想用的时候才最棒!...原创 2021-02-06 22:24:11 · 13900 阅读 · 0 评论 -
VBA中,将一个区域赋值给变量(定义为一个变量),然后其中进行操作
VBA中,将一个区域赋值给变量(定义为一个变量),然后其中进行操作。这样可以简写。Sub Macro1()Set 表格区域 = Range("A9:H40")表格区域.Cells(4, 8).SelectEnd Sub原创 2021-02-06 21:55:27 · 5209 阅读 · 0 评论 -
2021-02-06 VBA中选中最后一行的下一行,用于新增插入
VBA中选中最后一行的下一行: Cells(Rows.Count, 1).End(xlUp).Select原创 2021-02-06 21:35:54 · 3395 阅读 · 3 评论 -
2021-02-05 VBA获取最大行列区域
Sub 获取最大行列区域()DimDim ji = Range("A" & Rows.Count).End(xlUp).Row '通过A1,获得使用的最大行j = Cells(1, Columns.Count).End(xlToLeft).Column '通过A1,获得使用的最大列Range(Cells(1, 1), Cells(i, j)).Select '选中最大行列所包含的区域End Sub...原创 2021-02-05 23:21:29 · 1849 阅读 · 0 评论