[VBA EXCEL BÀI 4] – LẤY DỮ LIỆU TỪ BẢNG TÍNH EXCEL ( CELLS, RANGE, ACTIVECELL, OFFSET)

Lấy dữ liệu từ bảng tính sau đó xử lý chúng đó là cách mà vba hoạt động, bạn có thể điều khiển các thuộc tính trên bảng tính excel chỉ với một hoặc nhiều dòng lệnh theo ý muốn.

File thực hành các bạn tải xuống để làm: Bài 4 – Cells, Range, Offset, End

1. Chức năng của các đối tượng (object) cơ bản

 Range(arg) :   Ở đây arg là tên của vùng chọn, range này trả về đối tượng vùng chọn có thể là một ô (cell) hoặc nhiều ô, nói nôm na là khoảng chọn.

 Cells(rowindex,columnindex): Trả về đối tượng của một ô trong bảng tính.

 Activecell : Trỏ về ô hoặc khoảng được chọn.

2. Chọn ô trong bảng tính (sheet) bằng địa chỉ tuyệt đối.

• Thêm một nhân viên mới vào dòng tiếp theo

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

‘ ham nay se dien them mot hang gia tri tu nhung o biet truoc Sub chon_codinh()         Range(“A13”).Select ‘ chon o A13     ActiveCell.Value = 11 ‘ sau khi chon o nay o trang thai active và ta cho gia trị vào o nay          Cells(13, 2).Select     ActiveCell.Value = “HN024”          ‘ ngan gon     [C13].Select     ActiveCell.Value = “Phan Cong Thanh”          Cells(13, 4).Select     ActiveCell.Value = #3/13/2018#     End Sub

Đoạn code trên chỉ các cách sử dụng của các hàm Range, Cells và ActiveCell các bạn có thể sử dụng phím F8 để xem cách thức hoạt động của chúng.

• Thay thế nhân viên khác 

1 2 3 4 5 6 7

‘ thay doi gia tri o dong 12 Sub doi_giatri()     Range(“A12”).Value = 11     Cells(12, 2).Value = “HN034”     Range(“C12”).Value = “Nguyen Hoai Nam”     Range(“D12”).Value = #3/11/2018# End Sub

Bạn có thể thay đổi giá trị của Cell bằng giá trị khác khi thiết lập một giá trị mới.

• Định dạng lại vùng chọn, đổ màu, thay đổi size chữ, kiểu chữ

1 2 3 4 5 6 7 8 9 10

Sub chon_vung()     ‘ dong 1     Range(“A1:D1”).Select     Selection.Interior.Color = rgbDarkBlue     Range(“A1:D1”).Font.Color = vbWhite     ‘ dong 2     Range(“A2”, “D2”).Interior.Color = rgbLightBlue     Range(Cells(2, 1), Cells(2, 4)).Font.Color = vbBlue     Range(“A2”, “D2”).Font.Italic = True End Sub

Ở phần trên bạn chỉ chọn một cell thì ở phần này bạn có thể thao tác trên nhiều cell cùng lúc. Và trong đối tượng range thì có các đôi tượng font, color như khi chúng ta sử dụng fomat cell như ở ngoài bảng tính.

3. Chọn ô trong bảng tính bằng địa chỉ tương đối.

• Thêm nhân viên mới bằng dòng cuối cùng của danh sách (không biết cố định ở dòng bao nhiêu)

1 2 3 4 5 6 7

Sub Them_nhanvien() Range(“A1”).End(xlDown).Offset(1, 0).Select ActiveCell.Value = 12 ActiveCell.Offset(0, 1).Value = “HN023” ActiveCell.Offset(0, 2).Value = “Nguyen Van Hai” ActiveCell.Offset(0, 3).Value = #12/2/2018# End Sub

Chức năng của End là tìm ô tính từ ô chọn ở Range() tới ô có dữ liệu cuối cùng, nghĩa là đến ô không có dữ liệu thì dừng lại. Các tùy chọn của xlDown – Xuống, xlUp – lên, xlToLeft – trái,  xlToRight – phải.

Chức năng của Offset là có thể tìm tới một ô bất kỳ tính từ ô chọn bằng cách sử dụng tham chiếu địa chỉ bằng chỉ số dòng cột.

Để thực hiện tính toán sau này thì việc chọn vùng dữ liệu rất quan trọng, dưới đây là đoạn mã chọn tất cả thông tin của các nhân viên:

1	Range(“A3”, Range(“D3”).End(xlDown)).Select

1	Range(“A3”, Range(“A1”).End(xlDown).End(xlToRight)).Select

Như vậy các bạn có thể hiểu sơ qua về cách lấy, xử lý dữ liệu từ bảng tính bằng VBA, chúc các bạn thành công.

?DienDan.Edu.Vn cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn. https://diendan.edu.vn/

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.