本人办公室的秘书一枚。公文处理是我的日常，公文排版是我最基础的工作之一。文字排版其实是件无聊的工作，字体，字号、行距被规定得死死的，我们的工作就是识别，然后去设置。然而，这种机械式重复工作，做不得几下就腻了，我决定借助工具的辅助，帮我快速的完成工作。
学习Access是在从Excel中转变过来的，Excel尽管功能很强大，也非常实用，在有些数据录入和统计等方面存在一定的优势，但如果对Excel了解足够深的时候，你会发现它存在的一些弊端，比如：如果数据里大，表中使用了大量的函数，你会发现它的运行效率，就变得很低了，尤其对于操作人员，如果操作
这次我们会介绍如何使用xlwings将Python和Excel两大数据工具进行集成，更便捷地处理日常作。 说起Excel，那绝对是数据处理领域王者般的存在，尽管已经诞生三十多年了，现在全球仍有7.5亿忠实用户，而作为网红语言的Python，也仅仅只有700万的开发人员。 Excel是全世界最流行的编程语言。对，
使用DAO和ADODB 2中方法获取，结果显示在Debug中，以”,“分开，方便复制到Excel中处理。 附上常用对应关系。 'DAO ADO Type '1 11 Yes/No '2 17 Number byte '3 2 Number Integer '4 3 Number LongInteger '4 3 AutoNumber '5 6 Currency '6 4 N
1. excel宏设置 注册单元格选择、单元格值改变事件，事件中调用 xlwings UDF(用户自定义)pyhon函数。 Private Sub Worksheet_Change(ByVal Target As range) Dim ret As Variant ret = PyWorkSheetChange(Target.Address(0, 0)) If ret(0, 0) <> 0 Then
Sub 提取() Dim Res() Dim objRegEx As Object Dim objMH As Object Dim j As Integer Set objRegEx = CreateObject("vbscript.regexp") objRegEx.Pattern = "(\d{4}-\d{2}-\d{2}|\d{4}.\d{2}.\d{2}).*?(([A-Z]{3})*\d+[\d.,]*
上篇博文中，小爬曾多次为VBA字典带货。鼓励多用字典，可以让我们的VBA脚本工具执行更快。今天小爬来细聊一下VBA字典的具体应用！如果你有一定VBA基础，那么看完你一定会对VBA字典有全新的认识；如果你还是这方面的新手，也不影响点赞收藏哈。 字典，其实就是一些“键－值”对。使用起来
工作簿（workbook）汇总 打开一个文件 Set originalWb = Workbooks.Open(originalFileStr) 如果文件是带用户名和密码时，可以使用如下函数。 Set originalWb = Workbooks.Open(originalFileStr, 0, True, "用户名", "密码") 保存 Excel 文件 targetWb.Save 关闭 Excel 文件 tar
前言 要不是年会需要使用PPT来做抽奖，我才不会用这么难用的VBA。 VBA要实现延时功能，大多数教程都会拿2016年ExcelHome里的上古帖子不厌其烦地复制粘贴，然后你复制下来发现根本无法运行。 现在我从头给你讲，到底怎样在VBA中实现延时功能 思路 思路很清晰，分三步走： 1. 想办法获取当前
Option Explicit Sub RePlay() Dim rng As Range, i As Long, j As Long Set rng = Worksheets(1).Range("B2:J11") rng.ClearContents rng.Interior.Color = xlNone For i = 2 To 11 For j = 2 To 10 If Rnd() > 0.9 T
获取窗口的标题 ActiveWindow.Caption 获取工作簿的文件夹路径和完整路径 Application.ActiveWorkbook.path Application.ActiveWorkbook.FullName 判断单元格是否为空 IsEmpty(ActiveSheet.range("E2")) 如何使用否定条件进行筛选 Field参数为列的索引 Criteria1参数
Option Explicit Public Sub 分表循环() '注意执行此宏会修改当前工作表，一定要在副本中运行 '执行此宏前一定要选中用作分表的关键字的整列 '工作表当中必须只有一个区域，一个Sheet中有多个区域是不行的 '拆分的工作表在当前工作簿文件夹下 '列中的关键
网页自动化——VBA和InternetExplorer.Application 转载：http://www.360doc.com/content/18/0223/17/52075843_731762749.shtml VBA自动化网页的多种方式 其实并不知道有多少种方式，下面随便罗列了一些： 1.WebBrower方式 2.InternetExplorer.Application方式，需要引
Class04. VBA - 决策与循环 1. 决策 1.1. if语句 语法如下。 if boolean_expression then Statement 1 ..... ..... Statement n end if 案例： Sub if_demo_Click() Dim x As Integer Dim y As Integer x = 234 y = 32 If x > y Then
我编了一个通过电子邮箱发放工资条的 Excel VBA 程序，操作简单，不限工资表的格式，邮件的效果与 WPS 的 VIP 功能工资条基本一样，人资的同学有需要可以联系我哈。 文件是 Excel 表格，微软的 Excel 就可以运行哦。 图一是发放效果，图二是表格的操作界面。 另：有繁琐重复性表格处理工作
Sub selectAll() ' ActiveSheet 选中当前活动的Sheet ' Cells 单元格对象 ' Select 选中 ' 选中全部单元格 ActiveSheet.Cells.Select ' 选中指定单元格 ActiveSheet.Range("A1:B3").Select Selection.NumberFormatLocal = "@&qu
在B列已有图片的链接地址，要在C列显示相应的图片，下面是代码 Sub 把B列图片链接在C列生成图片() '以第2-4行为例，设定单位格宽度（图片宽度） Columns("C:C").ColumnWidth = 36.22 Rows("2:4").RowHeight = 150 '插入图片（假设图都是4：3的，否则还涉及要取得原始尺寸，如
Dim CN As Object '定义数据链接对象 ，保存连接数据库信息Dim rs As Object '定义记录集对象，保存数据表 Set CN = CreateObject("ADODB.Connection") '创建数据链接对象Set rs = CreateObject("ADODB.RecordSet") '创建记录集对象，用于接收数据查询获得的结果集 Dim strCn As S
VBA语句 Delete 和 Clear的区别 .Delete 是直接删除 例如 Range("A2:F900").Delete 会把整个单元格删除掉，上下左右的内容会自动往选定的删除区域移动 .Clear 是清除单元格中的内容 例如Range("A2:F900".Clear 只是删了A2:F900这个区域内的单元格的内容
Sub CreateContour() '##创建并提取轮廓 Dim rect As Shape Dim cSr As ShapeRange Set rect = ActiveShape ActiveDocument.Unit = 3 Set e = rect.CreateContour(cdrContourToCenter, 10) Set cSr = e.Separate Set s = cSr(1) End Sub
Sub BitmapsToCMYK() '## 位图转CMYK Dim s As Shape For Each s In ActivePage.Shapes.FindShapes(Type:=cdrBitmapShape) If s.Bitmap.Mode <> cdrCMYKColorImage Then s.Bitmap.ConvertTo cdrCMYKColorImage End If N
在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。 本文主要介绍四种
Sub BreakApartNode() '##断开节点 随机填充颜色 Dim s As Shape, sr As ShapeRange, sp As SubPath, nr As NodeRange Set sr = ActivePage.Shapes.FindShapes() Dim srBrokenCurves As New ShapeRange Dim n As Long, num As Long 'loop thru shape
Sub CreateMyVirtualCurve() '##利用虚拟图形创建形状 Dim s As Shape, crv As Curve Dim x As Double, y As Double Dim arrPoints(9, 1) As Double arrPoints(0, 0) = 162.4175222: arrPoints(0, 1) = 0.750376435 arrPoints(1, 0) = 162.1904178: arr
Private Sub FindTextOnPage(sFont$) '##查找字体 Dim sr As ShapeRange, s As Shape, sRect As Shape Dim x#, y#, w#, h#, cc& Set sr = ActivePage.Shapes.FindShapes(Query:="!@com.layer.name = 'Desktop'") If sr.Count =
