Excel VBA 小天地

摘要： 'PPT 加载宏 代码模板 Dim cmdBar As CommandBar, cmdBtn As CommandBarControl Const cmdBtnCap As String = "从Word文档导入图片" Sub Auto_Open() Call DelCmdBtn Call AddC 阅读全文

摘要： Sub 试卷顺题号() '作者 DG-wang '时间 2021-01-28 '用途 试卷重新顺题号 '未解决的问题 “ 1．2008年 ”这样的文本 Const MAX_INDEX As Integer = 20 '设定修改题号的上限值 Dim doc As Document '声明word文档变 阅读全文

摘要： Sub 提取红色正确答案选项() Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed Selection.Find.Replacement.ClearForma 阅读全文

摘要： Sub AddTitle(ByVal sht As Worksheet) '第一步插入行 sht.Rows("1:1").Insert Shift:=xlDown '第二步合并单元格 With sht.Range("A1:D1") .HorizontalAlignment = xlCenter .V 阅读全文

摘要： 9F-3F-6B-62-B4-EC 9F-18-0C-DA-BE-87 44-A8-42-EA-ED-FF 3F-15-D2-18-07-93 FF-2F-9C-B1-7F-53 00-FF-B6-C4-DE-15 思维 34-17-EB-B3-2C-35 04-D9-F5-D3-DD-A8 54: 阅读全文

摘要： 因工作偶尔需要 保留视频截图证明自己观看了视频。 from selenium import webdriver import time url=''#视屏网页url dr=webdriver.Chrome()#新建浏览器 dr.maximize_window()#浏览器最大化 dr.get(url) 阅读全文

摘要： 单位弄的统一PPT花里胡哨一堆动画效果和动画切换，写个代码删除。 Sub 删除切换与动画() Dim sld As Slide, pre As Presentation Dim seq As Sequence, eff As Effect Set pre = Application.ActivePr 阅读全文

摘要： Sub AddConnector(ByVal sld As Slide, ByVal beginshp As Shape, ByVal endshp As Shape, ByVal curshp As Shape, ByVal CnnType As MsoConnectorType, _ Optional SelectLastShape As Boolean = True, Op... 阅读全文

摘要： from selenium import webdriver from selenium.webdriver.common.by import By from selenium.webdriver.support import expected_conditions as EC from selenium.webdriver.support.wait import WebDriverWait f... 阅读全文

摘要： Sub CopyVisibleToNewSheet() Dim Wb As Workbook Dim Sht As Worksheet Dim NewSht As Worksheet Dim Rng As Range Set Wb = Application.ThisWorkbook Set Sht = Wb.ActiveSheet Wit... 阅读全文