當前位置:成語大全網 - 書法字典 - Vba字典錯誤13

Vba字典錯誤13

有兩個錯誤:

1,主要錯誤是MsgNox函數的參數錯誤。第二個參數指定顯示按鈕的數量和形式、使用的圖標樣式、默認按鈕和消息框的強制響應。如果省略,默認值為0。這個問題應該是省略值,所以要加逗號。

2.聲明的參數title作為String沒有賦值,但是沒有聲明和使用的tile = "operation confirmation "被賦值,然後出現了x = 7。

先說第二個問題。養成好習慣,把Option Explicit強制變量聲明放在模塊裏,就不會犯第二個錯誤了。完整的代碼附後。

現在讓我們來理解MsgBox函數的用法:

MsgBox用法

功能:在對話框中顯示壹條消息,等待用戶點擊按鈕,返回壹個整數告訴用戶點擊哪個按鈕。

語法:

MsgBox(提示[,按鈕[,標題] [,幫助文件,上下文])

參數描述:

MsgBox函數的語法具有以下命名參數:

提示-必需。作為消息顯示在對話框中的字符串表達式。prompt的最大長度約為1024個字符,由所用字符的寬度決定。如果提示的內容超過壹行,可以使用回車(Chr(13))、換行符(Chr(10))或者回車和換行符的組合(Chr(13)&;Chr(10))分隔線。

按鈕-可選。數值表達式是值的總和,它指定了顯示按鈕的數量和形式、使用的圖標樣式、默認按鈕和消息框的強制響應。如果省略,按鈕的默認值為0。

標題-可選。對話框標題欄中顯示的字符串表達式。如果省略title,應用程序名稱將放在標題欄中。

幫助文件-可選。壹個字符串表達式,標識用於向對話框提供上下文相關幫助的幫助文件。如果提供了helpfile,還必須提供上下文。

上下文可選。數值表達式,由幫助文件的作者分配給適當幫助主題的幫助上下文編號。如果提供了上下文,還必須提供helpfile。

MsgBox函數中用於按鈕參數的常數

常量值描述

VbOKOnly 0僅顯示確定按鈕。

VbOKCancel 1顯示“確定”和“取消”按鈕。

VbAbortRetryIgnore 2顯示終止、重試和忽略按鈕。

Vyesno Cancel 3顯示Yes、no和Cancel按鈕。

VbYesNo 4顯示“是”和“否”按鈕。

VbRetryCancel 5顯示重試和取消按鈕。

VbCritical 16顯示“關鍵信息”圖標。

VbQuestion 32顯示警告查詢圖標。

VB感嘆號48顯示警告消息圖標。

VbInformation 64顯示通知消息圖標。

vbDefaultButton1 0的第壹個按鈕是默認值(默認設置)。

第二個按鈕是默認值。

VbDefaultButton3 512第三個按鈕是默認值。

第四個按鈕是默認值。

VbApplicationModal 0應用程序強制返回;應用程序被掛起,直到用戶響應消息框。

回應後再繼續工作。

VbSystemModal 4096系統強制返回;所有應用程序都被掛起,直到用戶在消息框上發表評論

繼續工作的回應。

在消息框中添加幫助按鈕。

VbMsgBoxSetForeground 65536指定消息框窗口為前臺窗口。

Vbmsgboxright 524288Text文本右對齊。

Vbmsgboxreading 1048576指定在希伯來語和阿拉伯語系統中文本應該從右向左顯示。

描述:

(1)第壹組值(0–5)描述消息框中顯示的按鈕的類型和數量;第二組值(16,32,48,64)描述了圖標的樣式;第三組值(0,256,565,438+02,768)表示哪個按鈕是默認值;第四組值(0,4096)決定消息框的強制返回。當這些數字加在壹起生成按鈕參數值時,每組值中只能有壹個數字。

(2)這些常量由Visual Basic for Applications (VBA)指定。因此,這些常量名稱可以在程序代碼中的任何地方使用,而不需要使用實際的數值。實際值相當於常量名稱。

返回值

用於返回MsgBox函數的值的常數。

常量值描述

VbOK 1 OK

VbCancel 2取消

VbAbort 3終止

Vbtry 4重試

VbIgnore 5忽略

維斯6是

第7號

(1)如果同時提供了Helpfile和Context參數,可以按F1查看上下文對應的幫助主題,Excel通常會自動在輸入框中添加壹個幫助按鈕。

(2)如果取消按鈕顯示在消息框中,按ESC鍵與單擊取消按鈕具有相同的效果。如果消息框中有“幫助”按鈕,請提供相關的幫助信息。

(3)如果要輸入多個參數,中間省略壹些參數,必須在相應位置加逗號分隔符。

選項顯式

私有子窗體_Click()

將消息顯示為字符串,將標題顯示為字符串

將a作為整數變暗

Msg = "請確認正確的操作"

Title = "操作確認"

a = MsgBox(消息,,標題)

如果a = 6,那麽

打印6 ^ 2

那麽ElseIf a = 7

打印“請重新操作並確認”

如果…就會結束

末端接頭