Trang chủ Funny Excel Làm Thiệp Giáng sinh- Cây thông Noel bằng VBA trong Excel

Làm Thiệp Giáng sinh- Cây thông Noel bằng VBA trong Excel

634
0

Hello, xin chào các bạn !

Excel thì chán òm, nhẩy! Excel toàn là con số, hàm, tính toán đồ ha.

Giáng sinh gòi- Có gì hot?

Giáng sinh cũng sắp đến gòi. Để đời bớt nhạt, rắc thêm tí muối vào cuộc sống này. Để các thanh niên FA bớt lạnh lẽo trong mùa Giáng sinh. Để các anh chị văn phòng đổi gió tí. Hôm nay mình sẽ cùng các bạn làm X’mas tree- cây thông Noel bằng Excel nha.

Các bạn có muốn tặng một thiệp Giáng sinh cho đồng nghiệp bằng một file Excel như này không?

Nếu có thì bắt tay vào làm thôi nào ! Let’s go !

Nội công cần vận dụng:

  • Conditional Formating
  • Chèn hình
  • Định dạng màu sắc cơ bản
  • Một chút Lập trình VBA (đừng hoảng nhé, không có gì phải sợ đâu, cứ theo dõi tiếp nhé)

Tạo Cây thông Noel bằng Excel

1. Vẽ cây thông Noel

a. Tạo khung vẽ

Chọn các cột từ C đến U. Nhấp phải chuột (right click) vào tiêu đề cột U, chọn Column Width để điều chỉnh độ rộng của cột.

Trong khung hiện ra, nhập chiều rộng của cột là 1.7

thiệp giáng sinh- cây thông noel- VBA- Excel- điều chỉnh độ rộng cột

Xong bước này chúng ta được bộ khung là chiều rộng của cây thông Noel.

thiệp giáng sinh- cây thông noel- VBA- Excel- điều chỉnh độ rộng cột

Tiếp theo mình sẽ điều chỉnh độ cao của cây thông.
Chọn dòng 3 và 4, nhấp phải chuột (right click) vào tên dòng, chọn Row Height. Trong box hiện ra, nhập 15.75 để điều chỉnh chiều cao dòng.

thiệp giáng sinh- cây thông noel- VBA- Excel- điều chỉnh chiều cao dòng

Làm tương tự với dòng 21,22,23, chiều cao dòng là 8.

Các dòng từ 5 đến 20 các bạn không cần chỉnh chiều cao.

b. Vẽ cây thông Noel

Bắt đầu từ ô L3, nhấn giữ phím CTRL và chọn các ô như sau:

thiệp giáng sinh- cây thông noel- VBA- Excel

Tô nền cho các ô vừa chọn thành màu xanh lá cây, như sau:

thiệp giáng sinh- cây thông noel- VBA- Excel

2. Thêm đèn cho cây thông Noel

Ở ô L3, nhập công thức =RANDBETWEEN(1,10)
Hàm này sẽ trả về một giá trị ngẫu nhiên từ 1 đến 10.

thiệp giáng sinh- cây thông noel- VBA- Excel- hàm ngẫu nhiên randbetween

Copy công thức này qua tất cả các ô còn lại của vùng màu xanh lá cây.

thiệp giáng sinh- cây thông noel- VBA- Excel

Tiếp theo, chúng ta sẽ thêm Conditional Formating cho các ô này.

Chọn Home > Conditional Formating > Icon Sets, sau đó chọn bộ nút ba trạng thái xanh-đỏ-vàng như bên dưới.

thiệp giáng sinh- cây thông noel- VBA- Excel- conditional formating

Chọn vùng K21:M23 (gốc cây thông Noel) và tô màu nền cho nó. Ở đây mình sẽ tô màu Dark Red- đỏ nâu.

thiệp giáng sinh- cây thông noel- VBA- Excel- conditional formating

Nguyên tắc hoạt động của bộ đèn của cây thông Noel này như sau:

  • Mỗi khi tính toán lại, bằng việc tính toán của một ô bất kỳ, hay nhấn phím F9 (để yêu cầu Excel tính toán lại các công thức trong bảng tính), hàm RANDBETWEEN sẽ cho một giá trị ngẫu nhiên.
  • Conditional Formating sẽ dựa trên giá trị ngẫu nhiên đó để hiện một trong ba màu xanh/đỏ/vàng.

Nhưng mà không lẽ để bộ đèn hoạt động thì chúng ta cứ bấm F9 hoài hay sao. Chúng ta phải nghĩ ra cách để nó tự động hoạt động chứ, đèn mà, phải hem nà.

3. Cho đèn tự động chạy

Nhấp phím ALT+F11 để mở cửa sổ lập trình VBA. Chúng ta sẽ lập trình một số lệnh để bộ đèn kia hoạt động nha.

a. Thêm một Module

Trong cửa sổ soạn code VBA, bên phía tay trái, nhấn chuột phải (right click) vào tiêu đề file excel của bạn, chọn Insert > Module

thiệp giáng sinh- cây thông noel- VBA- Excel

Một Module tên Module1 đã được thêm vào cho bạn. Hãy mở nó lên. Bạn sẽ thấy khung nhập code VBA bên tay phải.

thiệp giáng sinh- cây thông noel- VBA- Excel

b. Nhập code VBA

Nhập đoạn lệnh sau vào khung soạn thảo code VBA:

Option Explicit

Sub XmasTree()
Dim Lc As Integer
For Lc = 1 To 15
Calculate
Application.Wait Now + TimeValue(“00:00:01”)
Next Lc
End Sub

c. Tạo nơi kích hoạt lệnh

Để chạy đoạn lệnh, mình sẽ chèn một hình ảnh, ví dụ dòng chữ Merry Christmas. Nhấn chuột phải vào hình, chọn Assign Macro.

Trong box hiện ra, chọn tên macro, ở đây là XmasTree, nhấn OK.

thiệp giáng sinh- cây thông noel- VBA- Excel

Như vậy đoạn lệnh đã được gán cho đối tượng hình ảnh. Mỗi khi chúng ta click chuột vào hình thì đoạn lệnh sẽ chạy và bộ đèn trên cây thông Noel sẽ hoạt động.

d. Một số trang trí khác

Phần còn lại các bạn chỉ cần trang trí một số hình ảnh theo ý muốn. Ví dụ hình Ông già Noel, Ngôi sao trên đỉnh cây thông Noel, hộp quà giáng sinh,…

4. Ẩn một số thành phần & lưu file

Trong Ribbon View, bạn hãy tắt Gridlines, Formular Bar và Headings để Excel không hiện các thành phần này & cây thông Noel sẽ trông đẹp hơn nhé.

thiệp giáng sinh- cây thông noel- VBA- Excel- tắt gridlines

Sau cùng, nhớ lưu file với đuôi (phần mở rộng) là .xlsm để Excel lưu cả code VBA nhé. Nếu không khi bạn muốn gởi file làm một món quà Giáng sinh cho ai đó thì bạn í sẽ không thấy thành quả bạn làm đâu nhé.

MERRY X’MAS

Merry X’mas cũng là lời chúc mà elego muốn gởi đến các bạn. Chúc các bạn & Gia đình có một mùa Giáng sinh An lành & Hạnh phúc nhé.

Chúc mừng Giáng sinh !

Download:

Tạo cây thông Noel với VBA trong Excel

 

Bình luận của bạn