VBA

Bài 1: làm quen với VBA

Mở developer

Bài 2: làm quen với msgbox

------------------------------

sub xinchao()

Msgbox "Xin chao"

end sub

-------------------------------

Sub xinchao()

MsgBox "Xin chao", vbYesNo, "Mo dau"

End Sub

-------------------------------

Sub xinchao()

MsgBox "Hello, My name is Duy Tung Nguyen", vbYesNoCancel, "Thong bao"

End Sub

-------------------------------

Bài 3: làm quen với Inputbox

Code:

Sub test02()

Dim a, b, c

a = InputBox("Hay nhap ten cua ban", "Nhap thong tin ho va ten")

b = InputBox("Hay nhap nam sinh cua ban", " Nhap thong tin nam sinh")

c = InputBox(" Hay nhap nghe nghiep cua ban", " Nhap thong tin nghe nghiep")

MsgBox "Ho va ten cua ban la:" & a & ", nam sinh:" & b & ", nghe nghiep:" & c, vbOKOnly, "Thong bao"

End Sub

---------------------------------------------

Sub test02()

Dim a, b, c

a = InputBox("Hay nhap ten cua ban", "Nhap thong tin ho va ten")

b = InputBox("Hay nhap nam sinh cua ban", " Nhap thong tin nam sinh")

c = InputBox(" Hay nhap nghe nghiep cua ban", " Nhap thong tin nghe nghiep")

MsgBox "Ho va ten cua ban la:" & a & vbCr _

& "nam sinh:" & b & vbCr _

& "nghe nghiep:" & c, vbOKOnly, "Thong bao"

End Sub