克服VBA輸入框字符限制

Question

我用來收集文本InputBox的當前函數顯然不能接受超過255個字符，而且我需要能夠收集比這更多的東西？是否有一個參數或不同的功能可以用來增加此限制？

Answer 1

要迂迴，Inputbox將允許您鍵入最多255個字符，但它只會返回254個字符。

除此之外，是的，你需要創建一個帶有文本框的簡單表單。接下來，只要一點點「輔助函數」是這樣的：

Function getBigInput(prompt As String) As String 
    frmBigInputBox.Caption = prompt 
    frmBigInputBox.Show 
    getBigInput = frmBigInputBox.txtStuff.Text 
End Function 

或類似的東西...

Answer 2

感謝BradC的信息說。我的最終代碼大致如下，我有一個按鈕，用於調用我創建的表單，並定位它，因爲我在第一次使用後每次都發現表單存在一些問題。

Sub InsertNotesAttempt() 
    NoteEntryForm.Show 
    With NoteEntryForm 
     .Top = 125 
     .Left = 125 
    End With 
End Sub 

userform是一個TextBox和兩個CommandButtons（Cancel和Ok）。對於按鈕的代碼如下：

Private Sub CancelButton_Click() 
    Unload NoteEntryForm 
End Sub 

Private Sub OkButton_Click() 
    Dim UserNotes As String 

    UserNotes = NotesInput.Text 

    Application.ScreenUpdating = False 
    If UserNotes = "" Then 
     NoteEntryForm.Hide 
     Exit Sub 
    End If 

    Worksheets("Notes").ListObjects("Notes").ListRows.Add (1) 
    Worksheets("Notes").Range("Notes").Cells(1, 1) = Date 
    Worksheets("Notes").Range("Notes").Cells(1, 2) = UserNotes 
    Worksheets("Notes").Range("Notes").Cells(1, 2).WrapText = True 
    ' Crap fix to get the wrap to work. I noticed that after I inserted another row the previous rows 
    ' word wrap property would kick in. So I just add in and delete a row to force that behaviour. 
    Worksheets("Notes").ListObjects("Notes").ListRows.Add (1) 
    Worksheets("Notes").Range("Notes").Item(1).Delete 
    NotesInput.Text = vbNullString 
    NotesInput.SetFocus ' Retains focus on text entry box instead of command button. 
    NoteEntryForm.Hide 
    Application.ScreenUpdating = True 
End Sub 

Answer 3

我沒有足夠的代表處發表評論，但在子的Form_Load的助手，你可以添加：

me.AutoCenter = True 

之外的形式，你可以做這樣的：

NoteEntryForm.Show 
Forms("NoteEntryForm").AutoCenter = True 

我的訪問形式讓所有困惑，當我從我的兩個額外的顯示器去上班時我一個額外的顯示器在家裏，並在角落裏有時會丟失。這個AutoCenter已經將它變成了我的每一個表單的表單屬性。