克服 VBA 输入框字符限制

Question

我当前用来收集文本 InputBox 的函数显然不能接受超过 255 个字符，并且我需要能够收集更多字符？是否可以使用参数或不同的函数来增加此限制？

Answer 1

迂腐一点，输入框允许您输入最多 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

用户窗体是一个文本框和两个命令按钮（取消和确定）。按钮的代码如下：

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

当我在工作中从两个额外的监视器中走出来时，我的 Access 表单变得非常混乱我家里有一台额外的显示器，有时会迷失在角落里。这个 AutoCenter 已将其纳入我的每一个表单的表单属性中。