Giả sử chúng ta có 1 bài toán như sau:
Yêu cầu: Tính tổng điểm với điều kiện như sau:
Tổng điểm = Toán + Tin
Nếu đạo đức là A thì tổng điểm sẽ được cộng thêm 1
Nếu đạo đức là B thì tổng điểm sẽ được cộng thêm 0.5
Nếu đạo đức là D thì tổng điểm sẽ được trừ đi 1
Còn lại thì giữ nguyên tổng điểm
Để tạo ra một hàm tính tổng điểm theo những điều kiện trên, các bạn làm theo các bước sau:
Bước 1: Các bạn vào môi trường lập trình của Excel (phím tắt ALT+F11), tạo một module và copy code dưới đây vào trong module đấy:
Function TinhTongDiem(toan As Double, tin As Double, DD As String) As Double
If DD = "A" Then
TinhTongDiem = toan + tin + 1
ElseIf DD = "B" Then
TinhTongDiem = toan + tin + 0.5
ElseIf DD = "D" Then
TinhTongDiem = toan + tin - 1
Else
TinhTongDiem = toan + tin
End If
End Function
Bước 2: Các bạn trở về môi trường bảng tính, tại cột tổng điểm bạn gõ hàm như sau: G2=TinhTongDiem(D2,E2,F2)
Sau khi gõ xong, các bạn nhấn Enter để nhận kết quả.
Bước 3: Tiếp theo các bạn copy công thức cho các ô còn lại để nhận két quả.
Với Excel thuần túy, để giải quyết các bài toán như trên, chúng ta phải gõ nguyên đầy đủ cả công thức, khi gửi công thức cho người khác, nhiều người sẽ bị rối. Vậy chúng ta nên tự tạo ra một bộ hàm riêng để xử lý công việc của chúng ta. Các nhân viên chỉ việc gõ tên hàm và các đối số là đã có những bản báo cáo, số liệu chính xác mà nhìn vào sẽ rất ngắn gọn, dễ hiểu.
File ví dụ: http://www.mediafire.com/file/8on9x4p335c9xqu/bai+toan+tong+diem.xlsm
Để tìm hiểu thêm nhiều kiến thức về VBA cơ bản, các bạn tham khảo thêm tại khóa đào tạo VBA cơ bản của công ty.
Link khóa học: http://bluesofts.net/daotaothuchanh/daotaovbacoban.html