Excel VBA 小天地

摘要： Sub CropPicture() Dim shp As Shape, picFile As String, n As Long Dim sld As Slide, pre As Presentation Dim RowCount As Long, ColCount As Long RowCount = 2 '上下裁剪为几部分 ColCount = 2 '... 阅读全文

摘要： 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 fr 阅读全文

摘要： Sub ExportImages() Dim doc As Document Dim folderPath As String Dim pageCount As Long Dim i As Long Dim pApp As Object Dim pre As Object Dim sld As Object Set pApp = CreateObject("Powerpoint.Applicati 阅读全文

摘要： mport random from selenium import webdriver from selenium.webdriver import ActionChains from selenium.webdriver.common.by import By from selenium.webdriver.support import expected_conditions as EC fr... 阅读全文

摘要： Public Sub MergeSameItem(ByVal Rng As Range, Optional KeyColumnNo = 1, Optional MergeColumnNo = 1) '*Rng 参数出入一个Range区域，注意该区域必须是已经按key先排好序的 '*KeyColumnNo 参数表示关键字在Rn... 阅读全文

摘要： Public Sub SmartIndenterProcedure() Dim StartLine As Long, EndLine As Long Dim LineIndex As Long Dim StartCol As Long, EndCol As Long Dim LineText As String Dim ProcName As S... 阅读全文

摘要： 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 根据红色整理选择题答案() N = 0 Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed Selection.Find.Replacement.ClearFormatting With S... 阅读全文

摘要： Sub LayoutForExamPaper8() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range ... 阅读全文

摘要： jQuery(function($){jQuery.ajaxSetup({cache:false});});/*重置ajax并取消缓存*/ /*初始化语言*/ if ($.fn.pagination){ $.fn.pagination.defaults.beforePageText = '第'; $.fn.pagination.defaults.afterPageText = '共 {pa... 阅读全文