灵台方寸山斜月三星洞

参考Functions (Visual Basic for Applications)Office VBA Reference

一下代码实现用户输入判断，出错可以一直重试。Sub demo() Dim birthday As Date On Error Resume Next ' 出错时忽略，继续向下运行。 Do birthday = InputBox ("输入您的生日(yyyy-MM-dd)") ' 假设此处用户没有输入日期。 If Err. Number <> 0 Then MsgBox "您的输入有误！请按照提示的日期格式输入。" ' 如有需要，可以在此提醒用户。 GoTo Err

Sub 清除单格内部分文字() On Error Resume Next ' 忽略报错 Dim r As Range Dim count As Integer Dim c As Characters Dim str As String For Each r In Range("A2:E115") count = r.Characters.count For i = 1 To count

【代码】VBA 学习笔记 - 网络请求。

复制工作表，生成一个新工作薄。获取当前活动工作薄，然后保存。（说实话，VBA这种思路很别扭。Copy竟然没返回值。）Sub Split2Book() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In Th.

Word 赚 TxtWord 直接另存为 txt处理错误文件处理：6296处理：5792Word 直接另存为 txtOption ExplicitPublic Const INPUT_PATH As String = "E:\temp\文件\word\" ' 要处理的文件所在Public Const OUTPUT_PATH As String = "E:\temp\文件\txt\" ' 存完成文件的目录名Public Const ERR

遍历处理所有Excel文件，有什么需要，直接改Function 处理Excel(path As String)中的逻辑就好了。Dim wb As WorkbookFunction 统计字符串出现次数(sourceStr As String, searchStr As String) As Long On Error GoTo Error_Handler 统计字符串出现次数 = UBound(Split(sourceStr, searchStr))Error_Handler_Exit:

VBA 收集 Word关键字批量处理-Excel版。包含图片zip合并功能：内涵图。copy /b 图片.gif /b + 压缩包.zip /b 结果图片.gif

Word VBA 实例收集批量对关键字打标记批量对关键字打标记Option Explicit Sub 批量对关键字打标记() Dim Self$, CurrPath$, CurrFile$ Dim Doc As Document, p As Paragraph, i As Integer, keyArrLen As Integer, keyArray() As String CurrPath = ThisDocument.Path & "\" S

Excel中公式那么多现成的公式，可以直接调用。比自己重新造轮子要方便许多，另外听说自己造的轮子不一定有人家亲生的快。Sub test () MsgBox Application.WorksheetFunction.Sum([A1:A10])End Sub|参考资料微软Docs 》Office VBA 参考 》Excel 》对象模型 》WorksheetFunction 对象...

设置图片格式Sub setShapeStyle() ' 声明个内嵌图片（暂时没用到） Dim theShape As InlineShape ' 关闭屏幕更新 Application.ScreenUpdating = False For Each myShape In ActiveDocument.InlineShapes With myShape.Borders .OutsideLin

移除样式并保留格式Sub 移除样式并保留格式() '不能完全保留格式 'https://sspai.com/post/38852 '对于一个由多文档合并起来的长文档，它的样式多而混乱以致于无法使用，会引起word崩溃 '对于这些样式，移除（即都统一为正文样式），并保留各种格式（变成不受样式控制的直接格式） Dim Para As Paragraph Dim Fnt As Font '代码字体的所有格式 Dim Pfmt As ParagraphFormat '代表段落

Sub 批量插入批注()On Error Resume Next '批注来源列名 Dim targetColumnName As String '批注来源列号 Dim offsetColumn As Integer '计数 Dim count As Integer targetColumnName = InputBox("直接输入列名字母： ", "批注来源列") If targetColumnName = "" Then

Sub 获得当前表的序号() With Selection If .Information(wdWithInTable) = True Then If .Cells.Count = 1 Then StrAddr = "T" & Selection.Tables(1).Range.Start &...

选择所有当前文档所有表'名称 值 说明'wdEditorCurrent -6 代表文档的当前用户。'wdEditorEditors -5 代表使用"信息版权管理"的文档的"编辑"组。'wdEditorEveryone -1 代表打开文档的所有用户。'wdEditorOwners -4 ...

Sub 添加标注参考图_弹出选择窗口版()'单选一个格子，打开选择文件窗口，选择图片确定。'图片会入去作为批注背景图插入单元格。'2015-07-06 笨笨'上次等比缩放写错了，已经修正'2015-11-10On Error Resume Next Dim j_h, j_w, ww, initialPath Dim k '当前单元格 Set k =...

'大家好，我是笨笨，笨笨的笨，笨笨的笨，谢谢！'excel 2010'选中单元格，按其内容，插入图片'2014-08-08Sub inputImg() On Error Resume Next Dim Cell As Range Dim Pics As String Dim ErrCell As String Dim PictruePat...

'r,c 图片所在单元格的偏移量，用来做图片的名字Sub exportPic()r = 0c = -2 For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Select Name = Range(ActiveSheet.Shapes(i).TopLeftCell.Address).Of...

Option Explicit'By Demon'http://demon.twDim pSet p = LoadPicture(&amp;quot;F:\curve.jpg&amp;quot;)WScript.Echo &amp;quot;Width: &amp;quot; &amp;amp;amp; Himetric2Pixel(p.Width)WScript.Echo &amp;quot;Height: &amp

Sub 添加标注参考图()'On Error Resume Next 'Set rngTemp = Application.InputBox(&quot;图片插入区域：&quot;, &quot;选择单元格&quot;, Dim j_h, j_w, ww ww = 400 For Each k In Selection Set p = Nothing '用相对路径，有...

ExcelSub 批量修改标注尺寸()'批量调整选中的单元格的尺寸。'2015-07-10 笨笨On Error Resume Next '注意：这里的单位不是像素是点 Dim j_h, j_w j_w = 320 j_h = 180 For Each k In Selection If Not k Is Nothing Then...