VBA EXCEL – Bài 2. Cách dùng MsgBox và InputBox – Bui The Tam
1/ Cách sử dụng MsgBox
Msgbox dùng để hiện một thông báo hướng dẫn hay cảnh báo dữ liệu không hợp lệ. Cú pháp:
MsgBox(Prompt,Buttons,Title,HelpFile,Context)
2/ Cách sử dụng hàm InputBox
Hàm InputBox dùng để nhập dữ liệu cho một biến. Khi nhập giá trị, nếu chọn OK hoặc nhấn phím Enter trên bàn phím thì InputBox sẽ trả về giá trị của ô nhập. Hoặc chọn Cancel thì InputBox sẽ trả về giá trị rỗng. Cú pháp:
InputBox(Prompt,Title,Default,Xpos,Ypos,HelpFile,Context)
GIỚI THIỆU KÊNH
– Đây là kênh chính thức của Bùi Thế Tâm, Kênh đào tạo miễn phí về Tin học và Toán. Nội dung: Tin học văn phòng, Windows, Microsoft Office, Google Drive, Lập trình C/C++, Cấu trúc dữ liệu và giải thuật, Algorithms (thuật toán), Toán tối ưu, các bài toán Thống kê.
– Bùi Thế Tâm có nhiều năm kinh nghiệm viết sách và dạy Tin học ở các trường Đại học, làm việc tại Viện Toán học Hà Nội từ 1969 – 2013, là tác giả của một số đầu sách nhiều người dùng: “Giá trình tin học văn phòng”, “Cẩm nang sử dụng máy vi tính”, “Ngôn ngữ lập trình C và lập trình hướng đối tượng”, “Giáo trình Turbo Pascal 7.0”, “Các phương pháp tối ưu hóa” …
– Kênh này dành cho các bạn sinh viên, giáo viên dạy môn Tin học và Toán Tối ưu, các bạn muốn học Tin học mà không có điều kiện tới các lớp học.
– Hãy like và chia sẻ các video trên Kênh cho bạn bè và người quen đang muốn học về Tin học. Mọi hình thức copy và sao chép đều vi phạm bản quyền của Youtube nếu không được sự đồng ý của tác giả. Đừng quên đăng ký kênh để học thêm các bài mới
Subscribe kênh Youtube Bui The Tam:
Blog:
inputBox gõ tiếng việt Nam được không anh
Chẳng hạn Nguyễn Văn Dũng
Con cảm ơn thầy!
Sub ThongTinCaNhan()
Dim HoTen As String * 40, Tuoi As Byte
HoTen = InputBox(Prompt:="Nhap ho va ten : ", _
Title:="Nhap thong tin ca nhan", Xpos:=1000, Ypos:=1000)
Tuoi = InputBox("Nhap tuoi lao dong " & Chr(13) & "Thap nhat: 18 tuoi " & _
Chr(13) & "Cao nhat: 60 tuoi", "NHAP TUOI", 18, 2000, 2000)
MsgBox HoTen & Tuoi
End Sub
Sub TinhTong()
‘ Tao mot mang co 5 phan tu va tinh tong
Dim tong, a(1 To 5) As Double, i, TrungGian As Long
TrungGian = MsgBox("Ban co in trung gian khong ? ", vbYesNo + vbQuestion, _
"Thong bao in")
For i = 1 To 5
a(i) = 159.85 + i ^ 5
If TrungGian = vbYes Then
MsgBox "a(" & i & ") = " & a(i)
End If
Next
tong = 0
For i = 1 To 5
tong = tong + a(i)
If TrungGian = vbYes Then
MsgBox "Voi i = " & i & " thi Tong = " & tong
End If
Next
MsgBox "Ket qua tinh tong = " & tong
End Sub
thanks thầy