msgbox

    0熱度

    2回答

    我對VBA很陌生,只有基本的知識水平。 我一直在嘗試創建一個宏,以便在同一工作簿中的多張其他工作表上交叉引用一張工作表上的數據。如果找到記錄,我希望msgbox出現以提醒用戶數據的位置。 後幾個小時搜索互聯網和碼位拼湊這是我 Sub search() Dim ws As Worksheet, found As Range Dim TextToFind(1 To 20) As String D

    1熱度

    1回答

    你能幫我用宏嗎?我有一個3代碼,只顯示我的味精盒 - 特定的值。但不爲我工作。 :/我不知道爲什麼。一些錯誤,我想使所有的範圍和後顯示我msgbox值時履行。有人知道嗎? 現在我有,但告訴我錯誤見圖片 Public Sub found(worksheets) Dim found As Boolean Dim c As Range found = False For Each c In

    0熱度

    1回答

    我有一個FormClosing事件處理程序,在操作時顯示帶有兩個按鈕的消息框是或否 因此,如果用戶單擊是,那麼它使用For循環檢查值並找到無效價值它如何保持這種形式而不用打開新的一個保留所有的VALUES。 我該如何做到這一點。 簡化的代碼被如下所示: (類代碼駐留在EditDataForm.vb這是通過MainForm.vb柯樂的代碼中使用) ''' Closing Event that fir

    0熱度

    1回答

    我正在通過逗號分隔的*文本文件中的datagridview查看我的數據。我搜索並找到了這些值並更改了它的顏色和字體以供分離。其實這就夠了。但我打算通過msgbox顯示搜索行的列(1)值,稍後再將語音合成顯示給其他人。 我的問題是,我無法在msgbox的列(1)中顯示搜索到的值。我的搜索標準是時間。在我的專欄(1)中,我有一些文本,它將按時間進行搜索並顯示爲msgbox。所有在一個msgbox。 我

    0熱度

    2回答

    我想構建一個代碼,如果所有複選框在我的用戶窗體中留空,它將警告用戶一個消息框。 有關如何引用一個用戶窗體中的所有複選框控件來構建此代碼的任何幫助,將不勝感激。 下面是我嘗試過的代碼的一個例子,但它不起作用。 Dim Allcheckbox As Variant Allcheckbox = Array("checkbox1", "checkbox2", "checkbox3", "checkbo

    0熱度

    1回答

    我希望頁面在顯示msgBox時停止重定向,並等到直到用戶按下了框上的按鈕。 我可以在頁面卸載時顯示msgbox,但仍然可以將頁面重定向到另一個網頁,而無需等待用戶的輸入。 <script> $(window).bind('beforeunload', function() { msgbox(); }); function msgbox() {

    0熱度

    1回答

    有人可以解釋爲什麼我的代碼不會讓我將數據保存到Excel,除非包含MsgBox? 這裏是我的代碼: Sub createreport() Try Dim XA As New Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet wb = XA.Wo

    0熱度

    1回答

    我正在考慮用戶輸入條件在Excel VBA中編寫腳本,該腳本在國家數據庫中運行搜索。該搜索用完了UserForm,它考慮了來自三個搜索字段的用戶搜索。除了「國家」之外,用戶還可以通過提及它所感興趣的「信息類別」和「信息的子類別」來縮小搜索範圍。所有這些字段都是鏈接到列表的ComboBox。類別和子類別的一些例子是「地理」,「經濟指標」,「媒體」,「人口統計」等。 根據用戶提供的標準,該腳本將返回搜

    1熱度

    3回答

    我的VBA腳本中有一個Yes/No MsgBox,它返回一個供用戶回答的問題。每當按下「是」或「否」按鈕時,除了運行其各自代碼的腳本之外,彈出另一個帶有數字「6」或「7」的MsgBox。如何禁用第二個MsgBox? 這裏是我的代碼: Dim question As Integer question = MsgBox("Unfortunately, the Database has no sour

    0熱度

    1回答

    我想做一個宏。我的測試單元在另一張紙上。工作表 - (數據)宏檢查範圍("D2:D10")如果單元格包含值12,如果是顯示一個消息框"Go to add to system",並且此宏單元中的宏發現值將設置爲0. 我有此代碼,但它沒有'爲我工作我不知道爲什麼。你可以幫我嗎? Private Sub check(ByVal Target As Range) For Each c In Worksh