Em muốn có thêm phần chú thích ở code này được không ah?

[Lequocvan]

Sub hoima()
On Error Resume Next
Dim rng As Range
Dim pass As String
Dim Message, Title, Default ', MyValue
Dim MyValue As String

Message = "Go ma can bo tin dung: " ' Set prompt.
Title = "Bang hoi ma" ' Set title.
Default = "150700794" ' Set default.

MyValue = InputBox(Message, Title, Default, 10000, 1000)

ActiveSheet.Range("b1") = MyValue

'MsgBox MyValue
'Hien thi ket qua da nhap ma can bo tin dung duoc hoi
End Sub

Em muốn ở phần Message = "Go ma can bo tin dung: "
Liệt kê ra dữ liệu kiểu khi gõ mã thì hiển thị thêm phần chú thích họ tên gắn với mã đó:
150700010 Ten 1
150700049 Ten 2
150700065 Ten 3
150700120 Ten 4
150700159 Ten 5
150700214 Ten 6
150700227 Ten 7
150700230 Ten 8
150700243 Ten 9
150700256 Ten 10
150700269 Ten 11
150700308 Ten 12
150700324 Ten 13
150700450 Ten 14
150700463 Ten 15
150700489 Ten 16
150700502 Ten 17
150700531 Ten 18
150700544 Ten 19
150700683 Ten 20
150700735 Ten 21
150700751 Ten 22
150700764 Ten 23
150700777 Ten 24
150700780 Ten 25
150700781 Ten 26
150700783 Ten 27
150700785 Ten 28
150700786 Ten 29
150700787 Ten 30
150700790 Ten 31
150700791 Ten 32
150700792 Ten 33
150700793 Ten 34
150700794 Ten 35

"Ý em là phần default - chỉ toàn mã số"
là mã số thì khó nhớ và dễ sai, nên em muốn có thêm gõ mã thì hiển thị thêm tên cho nó ít sai sót
Các thầy giúp em với

 

[Quang_Hải]

Sub hoima()
On Error Resume Next
Dim rng As Range
Dim pass As String
Dim Message, Title, Default ', MyValue
Dim MyValue As String

Message = "Go ma can bo tin dung: " ' Set prompt.
Title = "Bang hoi ma" ' Set title.
Default = "150700794" ' Set default.

MyValue = InputBox(Message, Title, Default, 10000, 1000)

ActiveSheet.Range("b1") = MyValue

'MsgBox MyValue
'Hien thi ket qua da nhap ma can bo tin dung duoc hoi
End Sub

Em muốn ở phần Message = "Go ma can bo tin dung: "
Liệt kê ra dữ liệu kiểu khi gõ mã thì hiển thị thêm phần chú thích họ tên gắn với mã đó:
150700010 Ten 1
150700049 Ten 2
150700065 Ten 3
150700120 Ten 4
150700159 Ten 5
150700214 Ten 6
150700227 Ten 7
150700230 Ten 8
150700243 Ten 9
150700256 Ten 10
150700269 Ten 11
150700308 Ten 12
150700324 Ten 13
150700450 Ten 14
150700463 Ten 15
150700489 Ten 16
150700502 Ten 17
150700531 Ten 18
150700544 Ten 19
150700683 Ten 20
150700735 Ten 21
150700751 Ten 22
150700764 Ten 23
150700777 Ten 24
150700780 Ten 25
150700781 Ten 26
150700783 Ten 27
150700785 Ten 28
150700786 Ten 29
150700787 Ten 30
150700790 Ten 31
150700791 Ten 32
150700792 Ten 33
150700793 Ten 34
150700794 Ten 35

"Ý em là phần default - chỉ toàn mã số"
là mã số thì khó nhớ và dễ sai, nên em muốn có thêm gõ mã thì hiển thị thêm tên cho nó ít sai sót
Các thầy giúp em với

Cũng may là chỉ có 35 cái tên gì đó. Nếu không thì.... tới Biển đông luôn.
Phải tạo 1 bảng bên ngoài rồi kết hợp. Nói chung phải có file đàng hoàng thì may ra có đáp án.
Sao các bạn cứ nghĩ là người ta đủ thông minh để hiểu mình nghĩ gì trong đầu vậy?

 

[Lequocvan]

ah không, ý em là em dùng inputbox trên để hỏi, em vẫn gõ mã theo danh sách trên giấy của em, ví dụ 150700794, (nhìn sang bên cạnh là ai), lần lượt từng mã như vậy, em bị rơi vào tình huống, là có 2 Trần Tuấn Anh, nhưng khác mã nhau. Em muốn làm sao trên inputbox chỉ cho phép gõ số, còn phần tên đầy đủ thì hiển thị bên cạnh kiểu tooltips ấy.

 

[ndu96081631]

ah không, ý em là em dùng inputbox trên để hỏi, em vẫn gõ mã theo danh sách trên giấy của em, ví dụ 150700794, (nhìn sang bên cạnh là ai), lần lượt từng mã như vậy, em bị rơi vào tình huống, là có 2 Trần Tuấn Anh, nhưng khác mã nhau. Em muốn làm sao trên inputbox chỉ cho phép gõ số, còn phần tên đầy đủ thì hiển thị bên cạnh kiểu tooltips ấy.

Kiểu đó thì chắc phải dùng ListBox hoặc cái gì đó tương tự chứ sao lại là InputBox?
Dùng sai công cụ ---> Gây hậu quả nghiêm trọng!
Ẹc.. Ẹc...