- 博客(30)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 Lookup-包含查找
要在{1，2，3，4，60}中查找最大的值60.可以查找一个无限大的数：9^9，当在这个数组中找不到这个无限大的数值时，匹配了比较接近的数值60.=LOOKUP(9^9,0/SEARCH({"捷达","速腾","迈腾","高尔夫"},A2),{"捷达","速腾","迈腾","高尔夫"})公式：=LOOKUP(9^9,FIND({"捷达","速腾","迈腾","高尔夫"},A2),{"捷达","速腾","迈腾","高尔夫"})【例】如下表A列，为包括各车类别的明细车型，现需在B列当中，将车类别提取出来。
2023-05-22 11:08:48
590
原创 VBA 不连续的多行一次选中操作
不连续的多行一次选中操作，比如复制或者删除。这个用法，还是与前面说到过的多行一次选中删除一样的原理。为了更好操作，将不连续的多行用个range对象装起来，即可方便操作。原理：将不连续的多行使用字符串装起来，各行号间用逗号隔开。格式如：myrow = "1,3,9"然后使用这个轮子，把字符串代表的行给转换成单元格对象：Function RowsSelect(ByVal Rowstr As String) As Range Dim cc As Variant, ran As R.
2021-12-10 17:36:38
3442
原创 模糊查询_lookup
很常见的单向查询应用，要查找的数据在某一区间范围内，然后取得对应的值。比如下面例子： 等次 成绩 分数 A B C D 70 1 1 1 1 75 2 3 4 5 80 3 5 7 9 85 4 7 10 13 90 5 9 13 17 95 6 11 16 21 100 7
2021-11-18 18:02:35
385
原创 如何用VBA遍历指定文件夹内的所有文件
用baidir函数加上循环即可。比du如将D:\ABC文件夹内的所有文件zhi显dao示到zhuanA列，代码如下：Sub遍历所有文件()DimFn$,N%Fn=Dir("D:\ABC\*.*")WhileFn<>""N=N+1Range("A"&N)=FnFn=DirWendEndSub上述方法对一层目录有效，并且不对子文件夹进行遍历。...
2021-03-04 10:14:14
2792
1
原创 VBA 筛选结果存入数组
:自动筛选--获取可见行（数据）数据自动筛选，按第3列的缺勤进行筛选后，将筛选结果复制到F：H.Sub 获取可见数据() Dim LastRow As Long Dim Rng As Range, Rng1 As Range With ActiveSheet .UsedRange LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row '返回最后一行行号 Set Rng ...
2020-11-20 20:15:25
9803
3
原创 VBA 字典+计次统计一个区域连续负数的最大个数
解决思路：遍历数组，出现负值，Key就递增，出现连续负值，相关key对应的item就递增。然后取item最大值具体代码：Function负数(rn)SetD=CreateObject("Scripting.Dictionary")n=1ForEachrInrnIfr<0ThenD(n)=D(n)+1Elsen=n+1...
2020-11-09 18:14:03
626
原创 VBA 二维数组整体直接赋值的方法小结
一维数组可以通过这样一行代码来整体赋值：arr = Array("你", "我", "他", "1", "2", "3", "aa", "bb", "cc")那么，如果想给二维数组采用类似的方法来整体赋值，要怎么办呢？arr=array("你", "我", "他" ;"1", "2", "3" ; "aa", "bb", "cc")，好像不行。一番搜索，网上给出的答案有如下：第一种：使用[{}]将字符串括起来,字符串行间用分号（；）分割，列间用逗号（，）分割：arr = [{"你", "..
2020-10-26 20:31:11
11056
2
原创 VBA 批量打印多工作簿的指定工作表
要解决的问题：同一个文件夹有多个工作簿，工作簿中有相同格式的多个sheet表，其中有两个固定的SHEET需要打印（所有EXCEL工作簿表格中两个固定SHEET的名字相同）。每次打开这么多文档，再将表格一个个打印很繁琐，有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容？解决思路：1、将要打印的工作簿放在同一个文件夹内，如：D:\mywbooks\2、使用dir在文件夹中遍历文件，然后打开工作簿，再打印指定的工作表，然后关闭文件。EXCELVBA代码如.
2020-10-10 20:11:57
5578
2
原创 VBA 批量打印单工作簿内所有可见工作表（sheet）
要解决的问题：一个工作簿中有相同格式的多个sheet表，手动点击一张一张打印，太慢了。能不能一次性打印？解决思路：1、sheet表做好后，提前设置好打印的格式设置；2、有默认的打印机。3、根据工作表数量进行循环，然后打印，打印份数默认设为1份。EXCELVBA代码如下： Sub test() Dim ws As Worksheet For Each ws In Worksheets If ws.Visible = xlSheetV...
2020-10-10 16:20:26
3861
2
原创 VBA 一次性选中符合条件的单元格 整行删除
有同学问:能不能使用union函数将符合条件的单元格所在行全部选中,然后删除.如下图:删除黄色底纹的标题行为此,给出代码如下:Sub test()Dim arr, myrow As StringDim cc As Variant, ran As Ranger = Sheet1.Range("b65536").End(xlUp).Rowarr = Sheet1.Range(B...
2020-04-08 22:36:58
6647
原创 VBA 单列合并单元格经典代码
Sub 合并单元格() Dim i As Integer, j%, rng As Range,strng as range Application.DisplayAlerts = False i = Cells(Rows.Count, 1).End(xlUp).Row set strng =Application.InputBox("请选择要合并区域的任一...
2020-03-30 18:27:50
1095
原创 VBA 获取单元格行标和列标&数字转字母
在vba中,对单元格进行操作,经常需要知道单元格所在的行或列.可用以下方法获取:一、单元格的行标和列标 set C=range("A1") c.row 得行号, c.column 得列号 二、列号转字母 ‘将1,2,3,....转为"A","B","C"..... Sub test() For i = 1 To 26 ...
2020-03-30 15:27:38
8395
原创 VBA 用变量或数组引用不连续单元格
在工作中,常常会遇到引用不连续单元格的情况,经过摸索总结,有以下方法：一、对象变量引用单元格本身假如有三个不连续的单元格：A1,B2,B5则用vba方法选中这三个不连续单元格的代码如下:1, range("A1,B2,B5").select2,Union([A1], [B2], [B5]).selcet以上均可使用range对象变量进行直接引用.dim c as ran...
2020-03-15 15:53:36
5572
原创 excel vba 将jpg图片批量转pdf文件
网友问题:如何能够将jpg图片批量转成pdf文件,并将pdf子文件合并成一个文件.?为此给出解题思路如下：将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。主要步骤：1,使用Scripting.FileSystemObject对象遍历图片文件.2,建立word.application的引用Set appWD = CreateObject(...
2020-03-14 11:19:12
2381
原创 VBA 在行中循环遍历的例子
在单元格区域对象中循环：For Each c In Range("$A$2:$A$" & Cells(Rows.count, "A").End(xlUp).row ‘do somethingNext c基于上述代码运行后，你会发现，少量数据处理上还行，但大量数据之后，电脑卡慢，用时较长等缺点就出来了。那要如何操作才能既快速，又能按行的要求进行循环遍历呢？答案是：使用数组替...
2020-01-12 10:13:56
2778
原创 VBA 获取最大行数和最大列数
在EXCEL中,对数据进行定位操作,必然要用到数据区域的最大行和最大列,代码如下:columnmax = Range("IV1").End(xlToLeft).Column '取得1行的最大列数columnmax =cells(i,columns.count).end(xltoletf).column 'i行的最大列数rowmax = Sheet1.Range(...
2020-01-12 09:19:29
26603
2
原创 vba判断word表格中单元格内空是否为空
使用vba在word中处理表格时,有时要判断这一行表格是否为空白,无内容,以便中止或者跳过读取数据,编辑内容。可以使用Table对象的Rows属性返回具体的行，然后判断第一个单元格无内容.再做下一步操作.在word中,空白内容有回车符的段落标记显示，使用代码Chr(13) & Chr(7)表示。Chr(7)表示数据末尾带制表符的黑点。With wd.Documents.O...
2019-12-25 21:09:09
5428
原创 VBA 自定义数据结构 含嵌套
在日常工作中,有时会希望有些数据按照特定的结构进行使用.比如:点的坐标point(x,y,z).同时还希望增加一些辅助信息.比如:点号,工程名称等等.这样的情况下,我们可以使用自定义数据结构来定义变量,使用一个变量就可以将很多信息一同引用.下面举个例子来说明:在标准模块中进行自定义数据结构的声明:type pointx as longy as longz as longen...
2019-12-25 18:05:57
1573
原创 VBA 字典使用小结:关键字循环
一、字典的基本知识字典是一种封装有属性和方法的对象，简单理解：字典其实就是一些“键－值”对。字典相当于一个多行二列的二维数组或单元格数据区域。字典数据结构有两个很重要的特性：I key（键）不允许重复。当给字典元素赋值时，不存在key时可以新建，存在key时可以更新值。II 数据元素通过key进行索引，我们知道，数据是通过下标进行索引的，所以顺序很重要。而字典是通过key进行索...
2019-12-22 16:59:03
8387
原创 在word中使用vba查找指定字符的上一个字符
有同学反映，需要查找指定字符的前一个字符。根据此需求，大家可用录制宏操作一下查找某字符的操作，然后得到一些基本代码，在此基础上进行修改，得到具备相应功能的过程代码。最终代码如下：Sub findtext()Dim MyRange As Range, arr(), brr(), mytext$, tstr&, tend&Text = InputBox("请输入要查找的文本："...
2019-11-25 16:11:11
3441
原创 易语言对象--Excel之单元格区域读取数据（多行多列）
用易语言在excel表格中读取数据，单个range直接使用ranges.读属性 (“Value”, )就可，多个ranges采用变体变量存储后，用循环方式读出数据。至于要返回文本数组，整数数组，或者文本，全凭个人喜好，但在易语言中，最好操作的当属文本型，所以文例 主要使用文本型 ，其他类型的请对照修改。具体见如下代码： .版本 2 .支持库 spec .子程序 单元格区域...
2018-11-06 11:03:24
15502
2
原创 易语言对象--Excel之单元格区域一次性写入数据（多行多列）
用易语言向excel表格中写数据，单个range或者多个ranges采用循环方式写入数据，对excel的表格访问太过频繁，速度上有一定的影响，思维上不太直观，特别是要对表格中的多个单元格进行更多计算后并一次性写入时，就不容易了。因此，结合变体型变量的灵活性，用其代替多单元格区域属性进行一次写入操作，具体见如下代码： .版本 2 .子程序 单元格区域操作, , , 对excel...
2018-10-29 15:20:46
7023
原创 杀一个五余+杀一尾+杀三个和值的方法
1 杀五余(上期百位+个位)/0.618，四舍五入取整后除于5的余数。使用：046 开208(2+8)/0.618=16。16/5的余数=1,047杀五余一。2 杀一尾上期和值/0.618，四舍五入取整后取个位数为尾。使用：046 开20810/0.618=16。16取个位数为尾，杀6尾。3 教大家稳杀三个和值 100期最多错3期方法一：12+上期十...
2018-08-24 20:44:44
7217
原创 易语言对象--Excel之活动单元格写入文本或数字
易语言用对象操作excel单元格，主要围绕三个对象：workbooks,wordsheets,ranges等同的还有sheets,range。‘本例对当前工作簿的Excel表格中的活动单元格进行文字或数字的输入。操作前，提前打开一个excel文档。窗口中增加两个编辑框组件，一个按钮组件。.版本 2.子程序 活动单元格操作.参数 定位, 编辑框.参数 输入文本, 编辑框...
2018-08-24 17:01:49
5247
原创 易语言对象--Word之精确定位表格单元格中并写入文本
1,打开一个doc文档;2,代码编写:变量定义 .版本 2 .局部变量 wdapp, 对象 .局部变量 tblIndex, 整数型 .局部变量 row, 整数型 .局部变量 column, 整数型 .版本 2' doc文档中精确定位表格单元格中并写入文本wdapp.获取(“word.application”) ' 加载已经打开的d...
2018-08-22 23:02:36
5240
原创 易语言对象--Word之按行定位并写入文本
1,打开一个doc文档;2,代码编写:变量定义 .版本 2 .局部变量 wdapp, 对象 .局部变量 What, 变体型 .局部变量 Which, 变体型 .局部变量 Count, 变体型 .局部变量 Name, 变体型 .版本 2' doc文档中按行定位并写入文本wdapp.获取(“word.application”) '...
2018-08-22 01:16:06
4415
原创 易语言 取无标题的窗口中编辑框句柄
这是一个无标题的窗口:如果要向该运行中的程序窗口编辑框中发送消息,就得先取到编辑框的窗口句柄.才能进一步操作.那要如何才能取到该窗口句柄呢?解决办法:一个运行中的程序,虽然没有窗口标题,但是在进程中有进程名,精易模块中,可以使用:hwnd1＝ 进程_名取ID (“*****.exe”)hwnd2 ＝ 进程_ID取窗口句柄 (hwnd1)先取到顶级窗口句柄,然后,以此去...
2018-08-16 19:24:33
3854
转载 易语言 文本的创建和追加
文本的创建和追加 就是往一个文本写内容文件格式常用为：*.txt，*.csv在易语言中创建文本的命令，就是：写到文件（），要追加文本，思路上就是先把文件中的数据读入变量，再把要追加的文本加在变量中，一起写到文件就是了。具体的代码如下：注：原贴地址来源于精易论坛，如有不妥，请删贴处理。原贴地址：https://bbs.125.la/forum.php?mod=viewthre...
2018-08-13 10:40:30
6682
PictureToPdf.zip
2020-03-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人