CÁCH TẠO FORM VÀ CÁC HÀM
NHẬP DỮ LIỆU
TỰ ĐỘNG TRONG EXCEL
·
Lưu ý file
lưu ở dạng .xlsb vì có chứa Macro (Excel Binary
Workbook)
1. Tạo 3 Sheet. Sheet 1: Form; Sheet 2:
Danh sach; Sheet 3: Du lieu.
2. Tại Sheet: Danh sach thêm ô C2 Số
thí sinh, hàm tại ô D2 là: =COUNTA(B:B)-1
3. Tại Sheet: Form, ở hàng ghi tên thí
sinh C4 dùng hàm kiểm tra đã nhập chưa tại ô E4 là: =ISBLANK(C4)
4. Ở hàng ghi số điện thoại C5 dùng hàm
lớn hơn 10 số tại E5 là: =LEN(C5)<10
5. Ở hàng ghi năm sinh C6 dùng hàm chỉ
nhập số tại E6 là: =ISNUMBER(C6)=FALSE
6. Ở hàng ghi địa chỉ email C7 dùng hàm
với nhiều điều kiện tại E7 là: =OR(ISERROR(FIND("@";C7));ISERROR(FIND(".";C7));ISERROR(FIND("
";C7))=FALSE)
7. Ở hàng ghi trình độ, bấm vào ô C8
sau đó vào thẻ Data chọn Data Validation, trong mục Allow chọn List, trong mục Source
bấm sang sheet Du lieu chọn cột
Trình độ kéo chọn từ B4 đến B7 sau
đó bấm OK.
8. Ở hàng ghi kinh nghiệm, bấm vào ô C9
sau đó vào thẻ Data chọn Data Validation, trong mục Allow chọn List, trong mục Source
bấm sang sheet Du lieu chọn cột Kinh
nghiệm kéo chọn từ D4 đến D12 sau đó
bấm OK.
9. Ở hàng ghi vị trí ứng tuyển, bấm vào
ô C10 sau đó vào thẻ Data chọn Data Validation, trong mục Allow chọn List, trong mục Source
bấm sang sheet Du lieu chọn cột Vị
trí kéo chọn từ F4 đến F9 sau đó bấm
OK.
10. Ở hàng ghi kỹ năng, bấm vào ô C11 rồi vào thẻ Developer chọn Insert chọn Check Box
sau đó xuống kéo (dấu +) hộp check box cho vừa và copy bằng cách chọn Check Box đó và bấm Ctrl+D 2 lần (để tạo thêm 2 hộp check
box mới) sau đó bấm chuột phải sửa chữ và sắp xếp cho đẹp bằng cách bấm Ctrl và chọn cả 3 hộp check box rồi vào thẻ Format
chọn Align chọn Align Top và Distribute
Horizontally.
11. Ở hàng ghi giới tính, bấm vào ô C12 rồi vào thẻ Developer chọn Insert chọn Option Button sau đó xuống kéo (dấu +) hộp option cho
vừa và copy bằng cách chọn Option đó
và bấm Ctrl+D (để tạo thêm 1 hộp
option mới) sau đó bấm chuột phải sửa chữ thành Nam, nữ và sắp xếp cho đẹp.
12. Tiếp tục lish các kỹ năng ra bằng cách tại ô H1
ghi Excel, ô I1 ghi English, ô J1 ghi Word. Sau đó bấm chuột phải vào check box
của Excel tại C11 chọn Format Control,
trong mục Cell Link bấm vào ô H2 --> OK. Tương
tự vơi 2 check box còn lại.
13. Tại ô H3 ta thiết lập hàm: =COUNTIF(H2;TRUE), sau
đó kéo công thức qua ô I3 và J3.
14. Tại ô G8 ta ghi chữ Giới tính. Bấm chuột phải vào
check box Nam chọn Format Control,
trong mục Cell Link bấm vào ô C12 --> OK (Nam =
1, Nữ = 2).
15. Tại ô H8 ta thiết lập hàm: =IF(C12=1;"Nam";"Nữ").
16. Để 2 thí sinh không thể trùng 1 email nên tại F7
ta thiết lập hàm: =COUNTIFS('Danh Sach'!E:E;Form!C7) bằng cách viết hàm
=COUNTIFS( rồi bấm sang sheet Danh sach, chọn cột E địa chỉ email rồi đánh dấu
phẩy về sheet Form chọn ô ghi địa chỉ email C7.
17. Tạo Insert
à Shaper à Rounded
Rectangle ”CẬP NHẬT THÍ SINH”.
18. Vào thẻ Developer
chọn Visual Basic --> Chuột phải vào Sheet1
(Form) --> Insert à Module.
19. Viết code
vào Module1:
Sub
nhap_lieu()
Dim
form As Worksheet
Dim
danh_sach As Worksheet
Set
form = ThisWorkbook.Sheets("form")
Set
danh_sach = ThisWorkbook.Sheets("Danh sach")
'''''
Kiem tra danh sach'''
If
form.Range("E4").Value = True Then
MsgBox "Ban chua nhap ten thi
sinh"
Exit Sub
End
If
è Nhập thêm code vào đây.
''''''''''''''''''''''''''
End
Sub
Kích phải
vào ô CẬP NHẬT THÍ SINH” --> Assign Macro --> gán vào ô nhap_lieu --> OK
Tiếp tục
nhập code cho số điện thoại, năm sinh, địa chỉ email:
If
form.Range("E5").Value = True Then
MsgBox "Nhap lai so dien thoai"
Exit Sub
End
If
If
form.Range("E6").Value = True Then
MsgBox "Nhap lai nam sinh"
Exit Sub
End
If
If
form.Range("E7").Value = True Then
MsgBox "Nhap lai email cho dung"
Exit Sub
End
If
If
form.Range("F7").Value > 0 Then
MsgBox "Da co email nay roi"
Exit Sub
End
If
--> Nhập thêm code vào đây.
''''''''''''''''''''''''''
End
Sub
Tiếp tục nhập code:
''''''''''''''''''''''''''''
''''Copy
danh sach''''
Dim
hanh_cuoi As Long
hang_cuoi
= danh_sach.Range("D1").Value + 4
danh_sach.Range("B"
& hang_cuoi).Value = form.Range("C4").Value
danh_sach.Range("C"
& hang_cuoi).Value = form.Range("C5").Value
danh_sach.Range("D"
& hang_cuoi).Value = form.Range("C6").Value
danh_sach.Range("E"
& hang_cuoi).Value = form.Range("C7").Value
danh_sach.Range("F"
& hang_cuoi).Value = form.Range("C8").Value
danh_sach.Range("G"
& hang_cuoi).Value = form.Range("C9").Value
danh_sach.Range("H"
& hang_cuoi).Value = form.Range("C10").Value
'''Ky
nang''''
danh_sach.Range("I"
& hang_cuoi).Value = form.Range("H3").Value
danh_sach.Range("J"
& hang_cuoi).Value = form.Range("I3").Value
danh_sach.Range("K"
& hang_cuoi).Value = form.Range("J3").Value
''''''''''''
danh_sach.Range("L"
& hang_cuoi).Value = form.Range("H8").Value
''''''''''''''''
''''Xoa
du lieu de nhap moi''''
form.Range("C4:C10").ClearContents
form.Range("H2:J2").Value
= False
''''''''''''''''''''
End
Sub
20. Tại Sheet Danh Sach, ở cột Excel, English,
Word ta bôi đen sau đó vào thẻ Home --> Conditional
Formating --> chọn New Rule à tại Format Style --> chọn Icon Sets --> tại Icon Style --> chọn Symbols (Circled) và tích vào ô Slow Icon Only. Tại Icon
đầu tiên ta gán When Value is: >= 1,
tại Icon thứ 2 ta chọn dấu chéo (X)
và gán When < 1 and: >=0 à OK.
21. Tại Sheet Form vào Insert à shaper --> Rounded Rectangle ( để tạo 2 bảng Danh sách và Dữ liệu) sau đó kết
nối bằng cách bấm chuột phải vào từng bảng Danh
sách chọn Hyperlink --> kích vào Place
in This Document --> Danh Sach. Tương tự bấm chuột phải vào từng bảng Dữ liệu chọn Hyperlink --> kích vào Place in This Document --> Du lieu.
22. Tại Sheet Danh Sach ta vào thẻ Insert để tạo dấu mũi tên quay lại và
kết nối với Sheet Form.
23. Tại Sheet Du lieu ta cũng làm như mục 22.
24. Tại Sheet Form, để mất số 1 hoặc 2 tại ô
C12 (Nam, Nữ) ta bấm chuột phải vào ô đó (C12) --> chọn Format
Cells à Number – Custom --> tại Type ta xóa General và
đánh 3 dấu chấm phẩy (;;;) --> OK.
25. Tương tự
làm như mục 24 đối với những dữ liệu khác.
-----------------------------------------------
TOÀN BỘ ĐOẠN CODE
Sub
nhap_lieu()
Dim
form As Worksheet
Dim
danh_sach As Worksheet
Set
form = ThisWorkbook.Sheets("form")
Set
danh_sach = ThisWorkbook.Sheets("Danh sach")
'''''Kiem
tra danh sach'''
If
form.Range("E4").Value = True Then
MsgBox "Ban chua nhap ten thi
sinh"
Exit Sub
End
If
If
form.Range("E5").Value = True Then
MsgBox "Nhap lai so dien thoai"
Exit Sub
End
If
If
form.Range("E6").Value = True Then
MsgBox "Nhap lai nam sinh"
Exit Sub
End
If
If
form.Range("E7").Value = True Then
MsgBox "Nhap lai email cho dung"
Exit Sub
End
If
If
form.Range("F7").Value > 0 Then
MsgBox "Da co email nay roi"
Exit Sub
End
If
''''''''''''''''''''''''''''
''''Copy
danh sach''''
Dim
hanh_cuoi As Long
hang_cuoi
= danh_sach.Range("D1").Value + 4
danh_sach.Range("B"
& hang_cuoi).Value = form.Range("C4").Value
danh_sach.Range("C"
& hang_cuoi).Value = form.Range("C5").Value
danh_sach.Range("D"
& hang_cuoi).Value = form.Range("C6").Value
danh_sach.Range("E"
& hang_cuoi).Value = form.Range("C7").Value
danh_sach.Range("F"
& hang_cuoi).Value = form.Range("C8").Value
danh_sach.Range("G"
& hang_cuoi).Value = form.Range("C9").Value
danh_sach.Range("H"
& hang_cuoi).Value = form.Range("C10").Value
'''Ky
nang''''
danh_sach.Range("I"
& hang_cuoi).Value = form.Range("H3").Value
danh_sach.Range("J"
& hang_cuoi).Value = form.Range("I3").Value
danh_sach.Range("K"
& hang_cuoi).Value = form.Range("J3").Value
''''''''''''
danh_sach.Range("L"
& hang_cuoi).Value = form.Range("H8").Value
''''''''''''''''
''''Xoa
du lieu de nhap moi''''
form.Range("C4:C10").ClearContents
form.Range("H2:J2").Value
= False
''''''''''''''''''''
End
Sub
--------------------------------------------------------------------------------
CÁCH BẬT MACRO TRONG EXCEL
1. Vào File à
Options -->Trust Center và nhấn
nút Trust Center Settings….
2. Cửa sổ Trust
Center hiện ra --> Chọn Macro Settings --> Chọn Enable all macros à OK.
-----------------------------------------------------------------------------------
Video hướng dẫn
tạo Menu trong Excel
Không có nhận xét nào:
Đăng nhận xét