原创 【VBA】判斷文件或文件夾是否存在
Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory
原创 【VBA】【增強版】【收藏備用】遍歷文件夾內所有文件
N次修改了,此模塊應該比較健壯吧 sub searchTxt() ' ---------------遍歷文件夾內所有文件----------------------------- FileType = ".txt" '查
原创 Octave/Matlab Tutorial(吳恩達機器學習第6課)
http://www.cnblogs.com/leezx/p/5635056.html Basic Operations 你現在已經掌握不少機器學習知識了 在這段視頻中 我將教你一種編程語言 Octave語言 你能夠用它來非常迅速地 實現
原创 【VBS】vbs鼠標方法——模擬鼠標按鍵
引用於https://www.cnblogs.com/jinjiangongzuoshi/p/3821375.html Set mouse=New SetMouse 'mouse.getpos x,y ''獲得鼠標當前位置座標
原创 FormulaR1C1是EXCEL中單元格公式輸入方法(補充解說)
部分內容引用於https://blog.csdn.net/sptoor/article/details/52790892 Range("C2:C58").FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R2
原创 【VBA】單元格格式化彙總
with Range("A1:B10") .HorizontalAlignment = xlLeft '左對齊 .HorizontalAlignment = xlCenter ' 居中 .Horizont
原创 ReDim Preserve只能改變數組最末維大小
eDim Preserve file_info(1 To i, 1 To 2) As String file_info(i, 1) = Filename file_info(i, 2) = Folderpat
原创 【VBA】按條件生成txt文件,複雜問題簡單化(標準化)
總表數據 各種情況 預處理 對各種條件的數據分配成獨立的數組,然後輸出到標準模塊 Private Sub crIptxt_Click() Dim err, frr, eUb%, lRow%
原创 【cmd】合併當前目錄下所有文本
直接合並 @echo off for /f "delims=" %%i in ('dir /b *.txt') do (type "%%i"&echo.)>>合併結果.txt 帶文件名一起合併 @echo off for /f
原创 【VBA】工作表刪除所有圖片、形狀
Dim shp As Object For Each shp In ActiveSheet.Shapes shp.Delete Next shp
原创 【VBA】csv轉xlsx
Sub csv2xlsx() Application.ScreenUpdating = False Dim FilePath, MyFile, iPath As String iPath =
原创 【VBA】批量解壓文件
Call UnRarFile("D:\壓縮文件\") Sub UnRarFile(myPath) '解壓縮程序 Dim Rarexe As String Dim RAR
原创 【VBA】一行代碼刪除所有空行
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
原创 【VBS】整點報時,代碼超級簡單哦
dim str1 set objTTS = createobject("sapi.spvoice") while true if Minute(Time)=0 then str1 = "現在時間是" & Tim