vba編程中的常用代碼(編輯修改稿)
2025-08-22 10:44 本頁面
【文章內(nèi)容簡介】 刪除一個文件kill c:\定制自己的狀態(tài)欄 = 現(xiàn)在時刻: amp。 Time恢復(fù)自己的狀態(tài)欄 = false在運行期執(zhí)行一個宏 macro:=text滾動窗口到a1的位置 = 1 = 1定制系統(tǒng)日期Dim MyDate, MyDayMyDate = 12/12/69MyDay = Day(MyDate)今天的年限D(zhuǎn)im MyDate, MyYearMyDate = Date MyYear = Year(MyDate)MsgBox MyYear 產(chǎn)生一個inputbox輸入框InputBox (Enter number of months to add)得到一個文件名：Dim kk As Stringkk = (EXCEL (*.XLS), *.XLS, Title:=提示：請打開一個EXCEL文件：)msgbox kk打開zoom對話框(xlDialogZoom).Show激活字體對話框(xlDialogActiveCellFont).Show打開另存對話框Dim kk As Stringkk = (excel (*.xls), *.xls) kk此段代碼尋找字符串中特定字符的位置，需要建立一個窗體，并在窗體中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3個文本框）及COMMANDBUTTON1(按鈕)，如下圖所示：Private Sub CommandButton1_Click()a = b = aa = Len(a)i = 1Dim YY As StringIf b = Then Exit SubDoIf InStr(i, a, b, vbTextCompare) = 0 Then Exit Dokk = InStr(i, a, b, vbTextCompare)YY = YY amp。 CStr(kk) amp。 /i = kk + 1Loop While aa = i = YYEnd Sub**************** * 定制模塊行為 * **************** Option Explicit 39。強制對模塊內(nèi)所有變量進行聲明 Option Private Module 39。標(biāo)記模塊為私有,僅對同一工程中其它模塊有用,在宏對話框中不顯示 Option Compare Text 39。字符串不區(qū)分大小寫 Option Base 1 39。指定數(shù)組的第一個下標(biāo)為 1 On Error Resume Next 39。忽略錯誤繼續(xù)執(zhí)行 VBA代碼,避免出現(xiàn)錯誤
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1