snail一路向前
码龄10年
关注
提问 私信
  • 博客:125,237
    125,237
    总访问量
  • 32
    原创
  • 919,661
    排名
  • 71
    粉丝
  • 0
    铁粉
IP属地以运营商信息为准,境内显示到省(区、市),境外显示到国家(地区)
IP 属地:云南省
  • 加入CSDN时间: 2014-12-08
博客简介:

qq389445046的博客

查看详细资料
个人成就
  • 获得68次点赞
  • 内容获得6次评论
  • 获得578次收藏
  • 代码片获得640次分享
创作历程
  • 28篇
    2020年
  • 4篇
    2017年
成就勋章
TA的专栏
  • Excel VBA实例
    26篇
  • 其他
  • opencv学习笔记
    3篇
  • 杂技
创作活动更多

2024 博客之星年度评选报名已开启

博主的专属年度盛宴,一年仅有一次!MAC mini、大疆无人机、华为手表等精美奖品等你来拿!

去参加
  • 最近
  • 文章
  • 代码仓
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

npm安装过程中出现没有权限的解决方法-[OperationalError: EPERM: operation not permitted,

C:\Users\admin>npm install chromeos-apk -gnpm ERR! code EPERMnpm ERR! syscall mkdirnpm ERR! path C:\Program Files
odejs
ode_cache
ode_modules\.stagingnpm ERR! errno -4048npm ERR! Error: EP...
原创
发布博客 2020.03.21 ·
3780 阅读 ·
3 点赞 ·
1 评论 ·
0 收藏

【Excel VBA】控件应用(1)-文本框

12.1 限制文本框的输入用户在使用文本框输入数据时,往往希望可以限制输入数据的类型,例如,只允许输入数字,但是文本框的现有属性无法直接实现这样的要求。此时可以在文本框的KeyPress事件过程和Change事件过程中编写代码来判断输入的字符类型。只允许输入数字字符和一个"-"号、一个"."号,示例代码如下。Private Sub txtDemo_KeyPress(ByVal KeyA...
原创
发布博客 2020.03.16 ·
10698 阅读 ·
3 点赞 ·
0 评论 ·
28 收藏

【Excel VBA】PageSetup对象-打印设置

我们在工作中经常会打印东西,会手动设置一些参数,如横向或竖向打印等。了解下PageSetup属性,用简短的几行代码设置好打印参数,便可以设置一次,永久使用,方便高效。PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。下例将打印方向设置为横向,然后打印工作表。With Worksheets("Sheet1") .PageSetup...
原创
发布博客 2020.03.13 ·
14620 阅读 ·
14 点赞 ·
0 评论 ·
108 收藏

【Excel VBA】网抓知识(3)-获取当当网图书数据

假设需要根据工作表A2单元格所输入的关键字,查询并获取当当网图书类商品的封面、书名、现价、定价、折扣及链接数据,示例代码如下。​Sub WebCrawlerDangD() Dim objXMLHTTP As Object Dim objDOM As Object Dim objDOMLi As Object Dim objShape As Shape...
原创
发布博客 2020.03.12 ·
892 阅读 ·
0 点赞 ·
0 评论 ·
6 收藏

【Excel VBA】网抓知识(2)-抓取百度前5页查询结果

在百度中搜索关键字"网络爬虫",并将前5页查询结果的数据写入当前Excel工作表中,示例代码如下。Sub WebQueryBaiduPN() Dim strURL As String Dim objXMLHTTP As Object Dim objDOM As Object Dim objTitle As Object Dim intPageNum A...
原创
发布博客 2020.03.11 ·
1274 阅读 ·
2 点赞 ·
0 评论 ·
12 收藏

【Excel VBA】网抓知识(1)-网抓基本步骤

用户通过网络浏览器登陆互联网时,会向Web服务器请求某个网页页面,服务器收到请求后会做出响应,将设定好的页面文档发送到网络浏览器的显示界面,这便是一个完整的网页请求和处理的过程。网抓是尽量在代码过程中模拟这个交互过程。首先,在Excel中利用VBA可以抓取网站数据。其次,无论是利用Python、java还是VBA进行网抓,都需要对HTTP协议、HTML(HyperTextMarkup ...
原创
发布博客 2020.03.10 ·
6453 阅读 ·
6 点赞 ·
0 评论 ·
31 收藏

【Excel VBA】字典对象(4)-利用字典与数组实现多条件查询

多条件查询并返回多列数据,是在数据查询时经常会使用的功能,利用字典与数组结合,能够高效地实现此功能。数据源图如下。现需要根据款号,编号两个条件,查询工艺、数量、报价信息,示例代码如下。Function strDicLook(ByVal rngRegion As Range _ , ByVal rngConditionO As Range _ ...
原创
发布博客 2020.03.09 ·
4926 阅读 ·
1 点赞 ·
0 评论 ·
46 收藏

【Excel VBA】字典对象(3)-利用字典对象实现条件查询

如下图所示,"科目代码"与"科目名称"呈一一对应关系。如果需要根据"科目代码"查询对应的"科目名称",示例代码如下。Function strLookDic(ByVal rngData As Range, ByVal rngLook As Range) As String Dim dicData As Object Dim avntList() As Variant...
原创
发布博客 2020.03.08 ·
1780 阅读 ·
1 点赞 ·
0 评论 ·
8 收藏

【Excel VBA】字典对象(2)-常用方法与属性

字典对象用于保存两个相关联的一维数组,分别为关键字Key组成的关键字列表与对应条目Item组成的元素列表。其中,关键字Key具有唯一性,即在关键字Key所代表的数组中,将不允许出现重复数据,而Item则无此限制。1 Add方法使用字典对象的Add方法可以将一组关联的关键字与条目添加到字典对象中,其语法格式如下。Object.Add Key, ItemKey和Item两个参数都是必需...
原创
发布博客 2020.03.07 ·
3024 阅读 ·
1 点赞 ·
0 评论 ·
4 收藏

【Excel VBA】字典对象(1)-字典的前期绑定与后期绑定

字典(Dictionary)具有独特的属性和方法,但该对象并非VBA内部集成的对象,需要添加引用才可以在VBA中使用。字典对象被集成在Scrrun.dll动态链接库中,在使用之前,需要先注册该动态链接库。在VBA中调用字典对象有前期绑定与后期绑定两种方式,根据不同的需求可以选用不同的绑定方式。1.前期绑定按照如下具体操作,可以实现字典对象的前期绑定。步骤1:在VBE中选择【工具】→...
原创
发布博客 2020.03.06 ·
7561 阅读 ·
2 点赞 ·
0 评论 ·
12 收藏

【Excel VBA】数组应用(5)

1.多表查询在日常工作中,源数据经常分散在多个工作表中。例如,示例工作簿中有6个月的数据分别保存在不同的工作表中,如下图所示。现需要将全部月份金额大于或等于2000的数据罗列出来,示例代码如下。Sub TablesQuery() Dim wksList As Worksheet Dim avntList() As Variant, avntResults() ...
原创
发布博客 2020.03.05 ·
976 阅读 ·
0 点赞 ·
0 评论 ·
8 收藏

【Excel VBA】数组应用(4)

动态数组与静态数组在声明数组时将指定数组的上下界限与维度,由此创建的数组为静态数组。如下代码声明5行2列的静态二维数组,在代码中不再允许修改数组的维度。Dim aStr(1 to 5,1 to 2) As StringSub StaticArray() Dim astrStatic(1 To 5, 1 To 4) As String ReDim Preserve...
原创
发布博客 2020.03.04 ·
1064 阅读 ·
0 点赞 ·
0 评论 ·
1 收藏

【Excel VBA】数组应用(3)

按指定字符拆分字符串在VBA中,使用函数Split实现将一个字符串以指定分隔符拆分出多个字符串。Split函数返回下标下界从零开始的一维数组,包含以指定分隔符拆分后形成的子字符串,其语法格式如下。Split(expression[, delimiter[, limit[, compare]]])部分 描述 expression 必需的。包含子字符串和分隔符的字符串表...
原创
发布博客 2020.03.03 ·
932 阅读 ·
0 点赞 ·
0 评论 ·
5 收藏

【Excel VBA】数组应用(2)

图1 源数据如果需要查询所有"编号"为"EH002"的记录,并将查询结果展示在单元格区域中,示例代码如下。Sub LoopArr() Dim avntData() As Variant'声明数组保存数据源 Dim avntResults(1 To 30, 1 To 4) As Variant Dim intCount As Integer'声明变量用于记...
原创
发布博客 2020.03.02 ·
650 阅读 ·
0 点赞 ·
0 评论 ·
3 收藏

【Excel VBA】数组应用(1)

合理使用数组和字典,将极大地提升代码的运行效率。例如,将单元格内容加载到数组中,充分利用数组在内存中的快速处理特征处理数据,然后再将回写到工作表单元格之中。利用数组快速完成"编号"和"日期"两列数据的位置交换。Sub uRngTomRng() Dim avntNum() As Variant, avntDate() As Variant avntNum = Range...
原创
发布博客 2020.03.01 ·
1060 阅读 ·
0 点赞 ·
0 评论 ·
6 收藏

ExcelVBA 获取用户选择的文件夹名

如果需要对指定的文件夹进行操作,可以调用Excel内置的【文件夹选取器】对话框,对话框的返回值是用户选中的文件夹名,示例代码如下。Sub SelectFolder() Dim objDialog As FileDialog'定义变量 Set objDialog = Application.FileDialog(msoFileDialogFolderPicker)...
原创
发布博客 2020.02.29 ·
2234 阅读 ·
1 点赞 ·
0 评论 ·
11 收藏

ExcelVBA获取用户选择的文件名

如果需要对用户指定的文件进行操作,可以使用GetOpenFilename方法打开Excel内置的【打开】对话框,获取用户选择的文件名,此过程并不需要真正打开文件,示例代码如下。Sub SelectFile() Dim vntFilename As Variant Dim i As Integer vntFilename = Application.GetOpen...
原创
发布博客 2020.02.28 ·
2105 阅读 ·
0 点赞 ·
0 评论 ·
5 收藏

ExcelVBA使用Shape对象的AddPicture方法制作图片产品目录

​如果需要制作如图1所示的产品目录,因为所需图片的尺寸通常并非完全一致,所以除了插入图片,还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作,示例代码如下。Sub InsertPictures() Dim lngRow As Long Dim objShape As Shape Dim objTargetCell As R...
原创
发布博客 2020.02.27 ·
11222 阅读 ·
3 点赞 ·
0 评论 ·
33 收藏

ExcelVBA批量添加PDF文件

如图1所示,"BOM-01.xlsx"工作簿中的Sheet1工作表根据B列图号单元格中的内容,在图2所示的文件夹中找到对应的PDF文件,然后嵌入到相应的N列,双击N列中所示的图标,会打开PDF文件,是源文件的副本,即删除源文件,也可以打开N列的文件。图1 根据B列的图号在N列嵌入对应的PDF文件图2 PDF文件图3 文件格式Sub 导入文件() Ap...
原创
发布博客 2020.02.26 ·
4769 阅读 ·
4 点赞 ·
2 评论 ·
14 收藏

ExcelVBA 将多张工作表中的数据合并到一张工作表中

在工作中,我们经常遇到多张工作表合并到一张工作表的问题,比如希望将图1所示中各分表中保存的成绩记录,汇总到工作簿中的"成绩表"工作表中,可以用图2下面的程序。图1 七(3)班工作表中的成绩记录图2汇总结果Sub hebing() '把各班成绩表中的记录合并到"成绩表"工作表中 Dim sht As Worksheet Set sht = Wor...
原创
发布博客 2020.02.25 ·
5766 阅读 ·
3 点赞 ·
0 评论 ·
30 收藏
加载更多