sMei

摘要： set myshapes=.worksheets（1）.shapes（“1”） myshapes.CopyPicture Appearance:=xlScreen, Format:=xlPicture ThisWorkbook.Worksheets("Sheet3").Paste Destinati 阅读全文

摘要： Public Function ChooseFolder() As String '定义并新建一个对话框对象 Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) '如果当前 阅读全文

摘要： "lives":[ // 央•卫标清,#genre# {"group":"央•卫标清","channels":[{"name":"CCTV-1 综合","urls": ["http://39.134.66.110/PLTV/88888888/224/3221225816/index.m3u8"]}] 阅读全文

摘要： Sub al() Call CreatingChartOnChartSheet("Optimize ELVSS 1000nits", "R", 167, 9) Call CreatingChartOnChartSheet("Optimize ELVSS 1000nits", "G", 167, 11 阅读全文

摘要： 相关系数：考察两个事物（在数据里我们称之为变量）之间的相关程度。 EXCEL 公式： PEARSON(array1,array2) Array1 自变量集合。 Array2 因变量集合。 说明 参数可以是数字，或是包含数字的名称、数组常量或引用。 若数组或引用参数包含文本、逻辑值或空白单元格，则这些 阅读全文

摘要： Public Sub Q() Application.ScreenUpdating = False Dim PicName$, pand&, k&, PicPath, i, p, n, PicArr, TitleRow Dim PicNameCol, PicPath2, PicPath3, TPna 阅读全文

摘要： Sub pj()'批量破解工作表加密 Dim sht As Worksheet For Each sht In Worksheets sht.Protect AllowFiltering:=True sht.Unprotect Next End Sub 阅读全文

摘要： MsgBox函数显示一个消息框，并等待用户点击一个按钮，然后根据用户点击的按钮执行相关的操作。 语法 MsgBox(prompt[,buttons][,title][,helpfile,context]) 参数说明 prompt - 必需的参数。在对话框中显示为消息的字符串。提示的最大长度大约为10 阅读全文

摘要： waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) Application.Wait waitTime 阅读全文

摘要： Dim s$, fNm$ '定义公共变量：关键词s和文件名结果fNm Sub FindFile() Dim Arr, i&, pth$, ML, MT, MW, MH, shp Arr = [a1].CurrentRegion With Cells(2, 2) MW = .Width MH = .H 阅读全文