1. Kích hoạt Menu để lập trình VBA (Excel 2010 trở lên)
B1. File → Options
- 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
