系统:Windows 7 软件:Excel 2016 本系列是假设一种应用场景,键盘质量检查中,发现问题,如何在键盘图片上进行标记和后续的跟踪管理其实也同样适用在其它应用场景,尤其与位置相关的质量特性管理上核心知识点:在背景图片特定位置插入一个圆圈(表示问题点),并对圆圈进行进行颜色等特性的改
相关背景 之前接到一个任务,要将旧系统中的业务数据导入到新的生产库(Oracle 11g)。由于大部分数据是按年份收集的CSV 文件,于是想到 PL/SQL Developer 中的文本导入器(Text Importer)。可惜历史数据质量很差,且年代越久远,数据越不规范,根本无法直接导入目标库。因此必须对原数据进行
小爬一般习惯使用Python来解决爬虫和某些办公自动化场景问题,不过最近却需要实现一个VBA需求:从一堆人员处理的Excel数据记录中,排除某些“用户名称”处理的数据。整个思考过程很有意思,很值得分享下。 这个需求看上去很简单,实际当我们的待排除“用户名称”数超过2时,Excel原生的筛
Option Compare Database Private Sub Combo4_AfterUpdate() Dim index As String Dim county As String index = Me.Combo4 county = Me.Combo8 itemtype = Me.Combo10 If (county = "全部" And itemtype = "全部") Then
Function 返回班组所在部门(bz_name As Variant) Dim rang As Range Set rang = ThisWorkbook.Worksheets("员工指标库").Range("B1:B2000").Find(bz_name) 返回班组所在部门 = rang(1, 0) End Function Function 返回班组编码(bz_name As Variant) Dim rang As Range
Sub 插入() On Error GoTo errHandler Dim i As Long '按照标题插入空行For i = 2 To Range("A1").CurrentRegion.Count - 1Selection.End(xlDown).SelectSelection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAboveActiveCell.Offset(1, 0).Range("A1"
口袋妖怪皮卡丘金手指 《口袋妖怪黄》又名口袋妖怪 皮卡丘,是第一世代的最后一个版本,作为超梦的逆袭播放的纪念作品发售。黄版的游戏系统与红绿基本无异,但剧情根据动画的展开而进行了修改,经典的皮卡丘谁会忘记呢。 遇到的精灵状态 01XXD0CF 睡眠02 烧伤10 中毒08 睡眠+中毒09 睡眠+
Sub 插入() On Error GoTo errHandler Dim i As Long '按照标题插入空行For i = 2 To Range("A1").CurrentRegion.Count - 1Selection.End(xlDown).SelectSelection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAboveActiveCell.Offset(1, 0).Range("A1"
Sub 德赛() Dim xDim rng As Range Set rng = Range("$F$1:$F$1048576") '筛选目标列 If ActiveSheet.AutoFilterMode = True Then '关闭筛选模式 ActiveSheet.AutoFilterMode = False End If rng.AutoFilter Field:=1, Criteria1:="=*" & x & &quo
Sub main() Dim a() a = Array(1, 3, 2, 5, 6, 7, 9, 8) sort a End Sub ' 冒泡排序 Sub sort(a) Dim i As Integer Dim j As Integer If Not VBA.IsArray(a) Then Exit Sub For i = LBound(a) To UBound(a) For j = LBound(a
系统:Windows 7 软件:Excel 2016 本系列是假设一种应用场景,键盘质量检查中,发现问题,如何在键盘图片上进行标记和后续的跟踪管理其实也同样适用在其它应用场景,尤其与位置相关的质量特性管理上核心知识点:在背景图片特定位置插入一个圆圈(表示问题点),并对圆圈进行进行颜色等特性的改
Sub 复制表头() Dim i As Long For i = 2 To Range("A1").CurrentRegion.Count - 1 ActiveCell.Offset(-1350, 0).Rows("1:1").EntireRow.Select ActiveCell.Offset(-1350, -4).Range("A1").Activate Selection.Copy ActiveCell.
合并需求 假如某一列包含多种重复单元,但是重复的单元对应的其它列却不相同,需求便是指定某一列,寻找其中相同的元素,对两行元素进行合并。如下图所示的源数据, 可以看到,该Excel表格的A列有很多重复项,对他们进行合并,其它列直接连接起来,效果如下图所示。 解决方案 在这里提供一个
•将对象赋值到变量 用到Set •将对象赋值到变量中的好处 •将单元格赋值到变量 •将工作表赋值到变量 Sub test() Dim i As Integer Dim sht As Worksheet For i = 2 To 5 Set sht = Sheets.Add sht.Name = Sheet1.Range("a" & i) Next End Sub •将
等于 = 不等于<> 宏就是一种批量处理的称谓 宏 开发者工具-(使用)宏/录制宏 宏执行的步骤不能撤销 不会写的VBA代码可以通过录制宏,然后查看代码 用VBA代码执行宏 call 宏名 自定义功能区 开始-选项-自定义功能区 Dim i as Integer //定义整型变量 For i=1 To 10 //for循
房地一体项目需要的房屋照片表格 Sub MainSub() Dim fso, path, fld, file, wd As Object Dim fd As FileDialog Dim i As Integer Dim docName As String Dim thisDocPath As String thisDocPath = ThisDocument.FullName '.path + "\"
下面是VBA中的代码 '//mr:: 调用acrobat的方法, 大小写都可以. '//mr:: 不需要AcroExch.App这个对象. Sub GetAnnotationFromPDF() Dim AcrApp As Acrobat.AcroApp Dim AcrAvDoc As Acrobat.AcroAVDoc Dim pdDoc As Acrobat.CAcroPDDoc Dim Jso As Object Dim Annots() As Va
这是系列免费教程《Excel VBA:办公自动化》,还是老规矩,看看我们走到哪里了。 1.认识VBA:什么是VBA? 2.这些掌握了,你才敢说自己懂VBA 3.VBA变量5年踩坑吐血精华总结 4.VBA中重要的强制申明,谁看谁明白 我们先看上次分享的案例题目。 在「单元格B2」输入不同的行号,点击
在浏览器中打开如下网址:https://www.kj009.net/web1/upload.aspx 可以看到一个“选择文件”的按钮,其实它的定义是一个input,只不过type是file。 <input name="myfile" type="file" id="myfile"> 如果手工操作的话,会弹出一个选择文件的对话框。在SeleniumBasic中,只需要定位到
在Chrome浏览器上点击其他软件的安装包,或者超链接,通常会弹出一个文件保存对话框,必须手工选择文件夹和文件名称才能继续下去。 在SeleniumBasic中遇到这种情况会把程序堵死。 但是,Chrome浏览器的选项设置中,可以设置是否弹出文件保存对话框,以及保存文件的默认路径(如果不修改设置,默认
每次使用SeleniumBasic启动Chrome浏览器,都弹出如下对话框,必须手工点击“取消”。 解决方法: 在注册表编辑器中找到 HKEY_CURRENT_USER\Software\Google\Chrome\TriggeredReset把这个贱直接删除。下次不弹
在Chrome选项中增加参数 .AddArgument "–proxy-server=http://ip:Port" Dim Options As SeleniumBasic.ChromeOptions Set Options = New SeleniumBasic.ChromeOptions With Options .AddArgument "–proxy-server=http://192.168.1.1:808
虽然Excel催化剂已经包含了大量的功能,但面对现实工作中,各种纷繁复杂的场景,仍然显得不够。 刚好QQ群里有讨论到学习VBA的话题,也顺带参与了一下,有了Excel催化剂,不止是对零代码使用上带来很大的便利,其实在日常编写VBA代码时,同样可以受益,轻松调用Excel催化剂开发出来的众多自定义函数
我们在做WEB自动化时,一般要等待页面元素加载完成后,才能执行操作,否则会报找不到元素的错误,这样就要求我们在有些场景下加等待时间。 SeleniumBasic有三种等待方式: 强制等待:与Selenium无关的一种堵塞线程的延时方法,固定毫秒数 隐式等待:设置一个等待时间,如果在这个等待时间内,网页加
1、bat中打开excle文件 1)绝对路径、一行语句 "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" "D:\Users\bat.xlsm" \batOpen 2) 绝对路径、变量路径 set exePath="C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" set fi