vba應(yīng)用開發(fā)與實例(編輯修改稿)
2025-08-14 12:56 本頁面
【文章內(nèi)容簡介】 I am a donkey )End SubPrivate Sub Wabbit_Click()Call PlaySound( + \)End SubPrivate Sub turtle_Click()Const Answer = TURTLEDim Tries As IntegerDim Message, Title, Default0, MyValue As StringTries = 0Message = What am I? 39。Set prompt.Title = What am I? 39。Set title.Default0 = ****** 39。Set default for input field.Question:Tries = Tries + 1If Tries = 3 ThenDefault0 = T*****End IfIf Tries = 4 ThenDefault0 = TUR***End IfMyValue = InputBox(Message, Title, Default0)MyValue = UCase(MyValue) 39。Convert to uppercase……示例：保存并關(guān)閉系統(tǒng)PrivateSubWorkbook_BeforeClose(CancelAsBoolean)OnErrorResumeNextDimabcabc=MsgBox(您確認(rèn)要關(guān)閉本系統(tǒng)嗎？ ,vbQuestion+vbYesNo+vbDefaultButton2,確認(rèn) )Ifabc=vbYesThenWorksheets(股票收益計算器 ).UnprotectPassword:=1Worksheets(股票收益計算器 ).Range(G13).FormulaR1C1=0Worksheets(股票收益計算器 ).ProtectDrawingObjects:=True,Contents:=True,Scenarios:=True,Password:=1Sheets(說明 ).SelectElseCancel=TrueEndIfEndSub程序編寫的特殊考慮u 如何啟動特定版本的應(yīng)用程序v CreateObjectu 如何使用當(dāng)前的應(yīng)用程序v GetObjectu 如何結(jié)束應(yīng)用程序v u 如何清除內(nèi)存的占用v SetappObject=Nothing創(chuàng)建用戶窗體u 提示使用者選取、輸入或瀏覽數(shù)據(jù)u 使用控件v 文本框輸入文字v 列表框選取內(nèi)容v 選擇框選取一個或多個功能用戶窗體窗口的操作u 建立用戶窗體u 配置 ActiveX控件u 設(shè)置窗口屬性u 配置控件屬性及其事件u Load與 UnLoad語句v 加載到內(nèi)存或從內(nèi)存中釋放
電大資料相關(guān)推薦
鄂ICP備17016276號-1