qq389445046的博客

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...

12.1 限制文本框的输入用户在使用文本框输入数据时，往往希望可以限制输入数据的类型，例如，只允许输入数字，但是文本框的现有属性无法直接实现这样的要求。此时可以在文本框的KeyPress事件过程和Change事件过程中编写代码来判断输入的字符类型。只允许输入数字字符和一个"-"号、一个"."号，示例代码如下。Private Sub txtDemo_KeyPress(ByVal KeyA...

我们在工作中经常会打印东西，会手动设置一些参数，如横向或竖向打印等。了解下PageSetup属性，用简短的几行代码设置好打印参数，便可以设置一次，永久使用，方便高效。PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。下例将打印方向设置为横向，然后打印工作表。With Worksheets("Sheet1") .PageSetup...

假设需要根据工作表A2单元格所输入的关键字，查询并获取当当网图书类商品的封面、书名、现价、定价、折扣及链接数据，示例代码如下。​Sub WebCrawlerDangD() Dim objXMLHTTP As Object Dim objDOM As Object Dim objDOMLi As Object Dim objShape As Shape...

在百度中搜索关键字"网络爬虫"，并将前5页查询结果的数据写入当前Excel工作表中，示例代码如下。Sub WebQueryBaiduPN() Dim strURL As String Dim objXMLHTTP As Object Dim objDOM As Object Dim objTitle As Object Dim intPageNum A...

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

多条件查询并返回多列数据，是在数据查询时经常会使用的功能，利用字典与数组结合，能够高效地实现此功能。数据源图如下。现需要根据款号，编号两个条件，查询工艺、数量、报价信息，示例代码如下。Function strDicLook(ByVal rngRegion As Range _ , ByVal rngConditionO As Range _ ...

如下图所示，"科目代码"与"科目名称"呈一一对应关系。如果需要根据"科目代码"查询对应的"科目名称"，示例代码如下。Function strLookDic(ByVal rngData As Range, ByVal rngLook As Range) As String Dim dicData As Object Dim avntList() As Variant...

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

字典(Dictionary)具有独特的属性和方法，但该对象并非VBA内部集成的对象，需要添加引用才可以在VBA中使用。字典对象被集成在Scrrun.dll动态链接库中，在使用之前，需要先注册该动态链接库。在VBA中调用字典对象有前期绑定与后期绑定两种方式，根据不同的需求可以选用不同的绑定方式。1.前期绑定按照如下具体操作，可以实现字典对象的前期绑定。步骤1：在VBE中选择【工具】→...

1.多表查询在日常工作中，源数据经常分散在多个工作表中。例如，示例工作簿中有6个月的数据分别保存在不同的工作表中，如下图所示。现需要将全部月份金额大于或等于2000的数据罗列出来，示例代码如下。Sub TablesQuery() Dim wksList As Worksheet Dim avntList() As Variant, avntResults() ...

动态数组与静态数组在声明数组时将指定数组的上下界限与维度，由此创建的数组为静态数组。如下代码声明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...

按指定字符拆分字符串在VBA中，使用函数Split实现将一个字符串以指定分隔符拆分出多个字符串。Split函数返回下标下界从零开始的一维数组，包含以指定分隔符拆分后形成的子字符串，其语法格式如下。Split(expression[, delimiter[, limit[, compare]]])部分 描述 expression 必需的。包含子字符串和分隔符的字符串表...

图1 源数据如果需要查询所有"编号"为"EH002"的记录，并将查询结果展示在单元格区域中，示例代码如下。Sub LoopArr() Dim avntData() As Variant'声明数组保存数据源 Dim avntResults(1 To 30, 1 To 4) As Variant Dim intCount As Integer'声明变量用于记...

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

如果需要对指定的文件夹进行操作，可以调用Excel内置的【文件夹选取器】对话框，对话框的返回值是用户选中的文件夹名，示例代码如下。Sub SelectFolder() Dim objDialog As FileDialog'定义变量 Set objDialog = Application.FileDialog(msoFileDialogFolderPicker)...

如果需要对用户指定的文件进行操作，可以使用GetOpenFilename方法打开Excel内置的【打开】对话框，获取用户选择的文件名，此过程并不需要真正打开文件，示例代码如下。Sub SelectFile() Dim vntFilename As Variant Dim i As Integer vntFilename = Application.GetOpen...

​如果需要制作如图1所示的产品目录，因为所需图片的尺寸通常并非完全一致，所以除了插入图片，还需要调整图片的尺寸以适应"图片"列单元格的大小。使用VBA可以快速完成这一系列繁杂的操作，示例代码如下。Sub InsertPictures() Dim lngRow As Long Dim objShape As Shape Dim objTargetCell As R...

如图1所示，"BOM-01.xlsx"工作簿中的Sheet1工作表根据B列图号单元格中的内容，在图2所示的文件夹中找到对应的PDF文件，然后嵌入到相应的N列，双击N列中所示的图标，会打开PDF文件，是源文件的副本，即删除源文件，也可以打开N列的文件。图1 根据B列的图号在N列嵌入对应的PDF文件图2 PDF文件图3 文件格式Sub 导入文件() Ap...

在工作中，我们经常遇到多张工作表合并到一张工作表的问题，比如希望将图1所示中各分表中保存的成绩记录，汇总到工作簿中的"成绩表"工作表中，可以用图2下面的程序。图1 七(3)班工作表中的成绩记录图2汇总结果Sub hebing() '把各班成绩表中的记录合并到"成绩表"工作表中 Dim sht As Worksheet Set sht = Wor...