Nếu bạn muốn lấy bất kỳ thông tin nào từ người dùng, bạn có thể sử dụng chức năng INPUTBOX.

Hàm này hiển thị một hộp thoại cho phép người dùng điền vào bất cứ thứ gì và trả về nội dung dưới dạng một chuỗi.

Đôi khi bạn muốn quyết định những gì người dùng phải điền vào, thay vì chấp nhận bất kỳ thông tin nào. Đó là khi bạn sử dụng INPUTBOX-method:

Sub DecideUserInput()

Dim bText As String, bNumber As Integer

' here is the INPUTBOX-function :

bText = InputBox("Insert in a text", "This accepts any input")

' here is the INPUTBOX-method :

bNumber = Application.InputBox("Insert a number", "This accepts numbers only", 1)

MsgBox "You have inserted :" & Chr(13) & _

bText & Chr(13) & bNumber, , "Result from INPUT-boxes"

End Sub

Phương thức INPUTBOX có đối số thứ ba, Loại, quyết định những gì người dùng được phép chèn vào hộp thoại INPUTBOX.

Loại có thể là một trong những loại sau:

Loại:

Accepted input:

0   A formula

1   A number

2   Text

4   A logical value (True or False)

8   A cell reference, e.g. a Range-object

16  An error value, e.g. #N/A

64  An array of values

Khi chạy macro, chúng ta sẽ thấy các hộp nhập sau:

img1

img2

Bằng cách này, chúng tôi có thể nhận được kết quả thông qua hộp tin nhắn.