Chức năng hiện tại tôi sử dụng để thu thập văn bản InputBox không thể chấp nhận hơn 255 ký tự, và tôi cần có khả năng thu thập nhiều hơn thế? Có một tham số hoặc chức năng khác mà tôi có thể sử dụng để tăng giới hạn này?Vượt qua giới hạn ký tự đầu vào VBA
Trả lời
Để trở nên phổ biến, Hộp nhập liệu sẽ cho phép bạn nhập tối đa 255 ký tự, nhưng nó sẽ chỉ trả lại 254 ký tự.
Ngoài ra, có, bạn cần phải tạo một biểu mẫu đơn giản với hộp văn bản. Sau đó chỉ cần làm một chút "chức năng helper" một cái gì đó như:
Function getBigInput(prompt As String) As String
frmBigInputBox.Caption = prompt
frmBigInputBox.Show
getBigInput = frmBigInputBox.txtStuff.Text
End Function
hoặc một cái gì đó như thế ...
không nên nằm trong nhãn như thế này 'frmBigInputBox.myLabel.caption = prompt' nếu không mọi thứ nằm trong thanh trên cùng của biểu mẫu/cửa sổ. – mountainclimber
Cảm ơn BradC cho các thông tin đó. Mã cuối cùng của tôi là gần như sau, tôi có một nút gọi biểu mẫu mà tôi đã tạo và định vị nó một chút khi tôi gặp một số vấn đề với biểu mẫu nằm sai chỗ mỗi lần sau lần đầu tiên tôi sử dụng.
Sub InsertNotesAttempt()
NoteEntryForm.Show
With NoteEntryForm
.Top = 125
.Left = 125
End With
End Sub
Biểu mẫu người dùng là một TextBox và hai CommandButton (Hủy và Ok). Các mã cho các nút như sau:
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
tôi không có đủ đại diện cho bình luận, nhưng trong Form_Load phụ cho helper bạn có thể thêm:
me.AutoCenter = True
Ngoài hình thức đó, bạn có thể làm như sau:
NoteEntryForm.Show
Forms("NoteEntryForm").AutoCenter = True
Biểu mẫu truy cập của tôi bị lẫn lộn khi tôi đi từ hai màn hình phụ làm việc thêm một màn hình phụ ở nhà và đôi khi bị mất ở góc. AutoCenter này đã biến nó thành các thuộc tính biểu mẫu của mỗi một trong các biểu mẫu của tôi.
Chào mừng bạn đến với trang web! Điều này không cố gắng trả lời câu hỏi đã đăng, như bạn biết và phải là nhận xét. [Vui lòng sử dụng Câu trả lời dành riêng để trả lời câu hỏi] (// meta.stackoverflow.com/q/92107). Để phê bình hoặc yêu cầu làm rõ từ tác giả, để lại nhận xét bên dưới bài đăng của họ - bạn luôn có thể nhận xét về bài đăng của riêng bạn và sau khi bạn có [đủ danh tiếng] (// stackoverflow.com/help/whats-reputation), bạn sẽ có thể để [nhận xét về bất kỳ bài đăng nào] (// stackoverflow.com/help/privileges/comment). Trong thời gian chờ đợi, vui lòng không sử dụng câu trả lời để đăng nhận xét. – Mogsdad
- 1. Giới hạn kích thước mảng vượt qua đối số mảng trong VBA
- 2. Giới hạn Ký tự trong HTML
- 3. RegularExpressionValidator để giới hạn độ dài đầu vào mà không có giới hạn về các loại ký tự
- 4. Giới hạn chuỗi đầu vào Python đối với các ký tự và độ dài nhất định
- 5. VBA Vượt qua từ điển
- 6. grep giới hạn ký tự - một dòng
- 7. pexpect không thể vượt qua đầu vào hơn 1024 ký tự?
- 8. Bắt xung quanh giới hạn ký tự mailto/href/url
- 9. Làm cách nào để giới hạn ký tự trong UITextView?
- 10. Bộ ký tự JDBC Oracle và giới hạn 4000 char
- 11. Java: Giới hạn đánh dấu đầu vào
- 12. Giới hạn số ký tự trong trường nhập
- 13. vượt qua adoconnection từ vba để delphi
- 14. Giới hạn số ký tự với bộ lọc Mẫu Django
- 15. Giới hạn ký tự cho System.out.println() trong Java
- 16. Google URL Shortener 403 Giới hạn tỷ lệ vượt quá
- 17. Đặt màu trong Thiết bị đầu cuối dẫn đến giới hạn dòng ký tự lạ
- 18. Cách đọc các ký tự không giới hạn trong C
- 19. Giới hạn ký tự thông báo đẩy của iPhone
- 20. Giới hạn ký tự trên Instagram Tên người dùng
- 21. NSRangeException từ removeObjectsInRange: nhưng phạm vi đã vượt qua nằm trong giới hạn
- 22. Giới hạn kích thước mảng Excel 2007 VBA
- 23. Làm thế nào để vượt qua giới hạn giai đoạn GHC?
- 24. Làm thế nào để vượt qua giới hạn document.domain khi mở tệp cục bộ?
- 25. Phát hiện xem văn bản trong phần tử đầu vào (loại = văn bản) có vượt quá giới hạn trong FireFox
- 26. Chuỗi con có phạm vi vượt quá giới hạn?
- 27. TIBCO ems Hàng đợi giới hạn vượt quá
- 28. Lớp tự vượt qua nó
- 29. cách vượt qua đối số không giới hạn bằng cách tham chiếu trong php
- 30. Cách khắc phục giới hạn chức năng Excel Vlookup là 256 ký tự
Tại sao hộp nhập liệu? Một hình thức nhỏ và hộp văn bản gần như luôn luôn là một ý tưởng tốt hơn. – Fionnuala
@Remou ~ bởi vì phải mất nhiều mã hơn và không phải lúc nào cũng dễ dàng cho nhà phát triển mới sử dụng, trong khi InputBox rất dễ truy cập. Nếu không +1 – jcolebrand
~ Tôi không nghĩ rằng nó sẽ mất một chuỗi dài hơn, SOL ... Làm theo lời khuyên của @ Remou. – jcolebrand