摘要：
54:A0:50:57:49:7E 48:4D:7E:BD:09:BC 58:A0:23:56:3A:47 C8:94:02:6D:C0:07 38:BA:F8:6B:53:55 阅读全文
摘要：
#导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
摘要：
#导入各种包 from selenium import webdriver#浏览器 from selenium.webdriver.common.by import By#选择器 from selenium.webdriver.support import expected_conditions a 阅读全文
摘要：
// ==UserScript== // @name 平台培训 // @namespace http://tampermonkey.net/ // @version 0.1 // @description try to take over the world! // @author You // @ 阅读全文
摘要：
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 ListFilesTest() With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then FolderPath$ = .SelectedItems(1) Else Exit Sub End With If Rig 阅读全文
摘要：
var showTimu = []; function pushTimu(second,map){ showTimu = []; $.each(map,function(i,ele){ var index=parseInt(i); if(0index){ showTimu.push(ele); } }); return; } }); } functi... 阅读全文
摘要：
刚开始能把代码敲得行云流水的时候，写代码是种乐趣。有了功利目的之后，重复的工作写多几次，厌烦的情绪四处弥漫。 去年八月份正好写了一回，还能支持控件，在此备忘。 阅读全文
摘要：
花了一写时间做了一个Excel宏工作簿，可以根据考场人数、座位排列和考生名单 生成《考试座位表》《考生去向表》《考试通知单》，想要的前往了解哦： https://item.taobao.com/item.htm?id=589268244785 1、考场设置表。 （1）考场人数有两种设置方法，方法一是 阅读全文
摘要：
C-EC-4B-CF-FC-37RegisterCodeStart/D8-12-65-C1-26-31/04:0E:3C:2F:E8:29/8C-EC-4B-CF-FC-37/00:1E:33:E4:AB:1E/D8:CB:8A:B4:0B:C1/00-FF-1C-69-60-02/A0:D3:C1 阅读全文
摘要：
Sub 试卷顺题号() Selection.HomeKey 6 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting n = 0 With Selection.Find .text = "(^13)[0-9 阅读全文
摘要：
let topul=document.querySelector('ul.tree-ul.tree-top-ul'); let z1=topul.querySelectorAll('li[data-level="1"]'); txt=[]; i1=0; z1.forEach(x1=>{ i1++; 阅读全文
摘要：
Sub 生成二维码() Dim wb As Workbook Dim sht As Worksheet Set wb = Application.ThisWorkbook Set sht = wb.Worksheets(1) 'Randomize With sht '删除旧条码控件 .Shapes. 阅读全文
摘要：
Sub newPages() Application.DisplayAlerts = False Dim Wb As Workbook Dim NewSht As Worksheet Dim i Set Wb = Application.ThisWorkbook For i = 1 To 200 S 阅读全文
摘要：
Sub SplitTextFrame() '多段落文本框拆为多文本框一段落，加上（#）编号 Dim pre As Presentation Dim sld As Slide Dim shp As Shape Dim shp2 As Shape Set pre = ActivePresentation 阅读全文
摘要：
广告公司说不会从Excel里复制表格，然后粘贴到图片上面。只会从Word里复制表格，然后粘贴到照片里面。最后也不知道是谁拍板定下的广告公司，把要光荣榜做成word文档，真是闻所未闻！这种情况还持续了好几年。 等你忍无可忍你写了一段代码，想着以后能高效一点，它就改格式了，tnnd。真希望上面的人有点脑 阅读全文
摘要：
Sub 替换删除选择题括号中的选项() '2021-2-22 'dg nextseven Dim doc As Document, p As Paragraph Set doc = ThisDocument Set regex = CreateObject("VBScript.RegExp") Wi 阅读全文