vba01

I. Kiến thức về VBA
1. Kích hoạt Menu để lập trình VBA (Excel 2010 trở lên)
B1. File → Options

B2. Nháy chọn Customize Ribbon

B3. Nháy chọn Developer

B4. Kiểm tra trên Menu của hệ thống đã có thêm menu DEVELOPER

2. BÀI 1
   - Tạo tự động 1 Macro.
   - Tự tạo 1 hàm.
   - Gắn macro cho 1 đối tượng để kích hoạt.

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

1. Macro tự tạo	Sub Macro_vd() ' ' Macro_vd Macro     Rows("4:4").Select 'Chon hang 4     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Chen vao 1 hang truoc hang 4, hang 4 bi day xuong...     Columns("C:C").Select ' Chon cot C     Range("C3").Activate     Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Chen vao 1 cot truoc cot C, cot C bi day sang phai...     Columns("C:C").Select ' Chon cot C     Selection.Delete Shift:=xlToLeft 'Xoa cot C, cac cot sau cot C don ve ben trai...     Rows("4:4").Select ' Chon hang 4     Selection.Delete Shift:=xlUp 'Xoa hang hang 4, cac hang duoi tu don len tren... End Sub
2. Hàm Hellovba	Function hellovba(dc As Range) As String     hellovba = "Hello " & dc.Value & "!" End Function
3. Hàm tong_teo	Function tong_teo(vdc As Range) As Long     Dim s As Long     s = 0     For Each c In vdc         s = s + c.Value     Next c     tong_teo = s End Function
4. Gắn macro	Sub SmileyFace1_Click()     For Each c In Range("C5:F5")         MsgBox "Xin chao " & c.Value     Next c End Sub

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

Tải file ví dụ: Tại đây