摘要：
from selenium import webdriver from selenium.webdriver.common.by import By from selenium.common.exceptions import NoSuchElementException import time ###################常量设置 TIME_FOR_LOGIN=60#########... 阅读全文
摘要：
from selenium import webdriver from selenium.webdriver.common.by import By import time TIME_FOR_LOGIN=30 TIME_FOR_READING=20#70秒阅读完一篇文章 TIME_FOR_VEDIO=300#5分钟看一个视频 TIME_FOR_AJAX=5 PAPER_START=6 ... 阅读全文
摘要：
Dim tg As Range Dim FreeInput As Boolean Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Debug.Print "Not tg Is Nothing "; (Not tg Is Nothing) If Not tg Is Nothing Then ... 阅读全文
摘要：
Sub MainProc() Dim Sht As Worksheet Dim Wb As Workbook Set Wb = Application.ThisWorkbook Set Sht = Wb.Worksheets(1) Sht.Cells.Clear Sht.Range("A1:D1").Value = Array("中文标题", "英... 阅读全文
摘要：
Public Sub simple() Set wb = ActiveWorkbook Set sht = ActiveSheet msg = MsgBox("程序准备清除活动工作表内容？按是确认，按否退出！", vbYesNo, "Tips") If msg = vbNo Then Exit Sub msg = MsgBox("请您确认是否对本文件做好了... 阅读全文
摘要：
Sub TagMyCourses() Const HEAD_ROW = 3 With ActiveSheet endrow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row endcol = . 阅读全文
摘要：
Sub 多表按姓名同时拆分20190102() AppSettings Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer On Error GoTo ErrHandler Dim fRng As Range Dim Wb As Workbook ... 阅读全文
摘要：
Sub GetZeroName() Dim Dic As Object Const SUBJECT = "科目名称" Dim Key As String Dim OneKey Dim Wb As Workbook Dim Sht As Worksheet Dim FolderPath As String Dim FileName A... 阅读全文
摘要：
Sub 导入成绩() Const TargetSheet = "年级_原始成绩汇总" Const DesSheet = "年级_本次成绩总表" Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Wb As Workbook, Sht... 阅读全文
摘要：
Public Sub 成绩报表优化() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>>... 阅读全文