Tạo Hình Ảnh Cây Thông Noel Độc Đáo Với Excel

Tạo cây thông Noel bằng Excel hiện đang là một xu hướng được chia sẻ rộng rãi trên nền tảng TikTok. Bài viết này sẽ cung cấp hướng dẫn từng bước cụ thể về cách tạo ảnh cây thông Noel để chào đón mùa Giáng sinh bằng bảng tính Excel.

Các Bước Thực Hiện

Bước 1: Điều Chỉnh Bảng Ô Tính Excel Thành Lưới Pixel
Bước 2: Xây Dựng Khung Hình Cây Thông
Bước 3: Thêm Hiệu Ứng Đèn LED Nhấp Nháy

Bước 1: Điều Chỉnh Bảng Ô Tính Excel Thành Lưới Pixel

Theo mặc định, các ô trong bảng tính Excel có dạng hình chữ nhật. Để tạo hiệu ứng pixel hoàn hảo, bạn cần điều chỉnh chúng thành hình vuông. Hãy di chuyển con trỏ chuột đến đường phân cách giữa cột A và B, sau đó kéo để thu hẹp chiều rộng cột.

Mục tiêu là tạo ra các ô vuông với kích thước khoảng Width: 20 pixels (tương đương 2.14 unit) và chiều cao theo mặc định của hàng.

Bước 2: Xây Dựng Khung Hình Cây Thông

Giữ phím Ctrl và sử dụng chuột trái để chọn các ô tạo thành hình dáng tán cây (tam giác hoặc tháp xếp tầng). Bạn có thể tăng số lượng ô theo cấp số cộng từ trên xuống dưới, chia đều cho cả hai bên trái và phải.

Truy cập tab Home > Fill Color (biểu tượng thùng sơn) và chọn màu Xanh lá để tô màu cho tán cây.

Tiếp theo, chọn các ô phía dưới và tô màu Nâu để tạo phần gốc cây.

Bước 3: Thêm Hiệu Ứng Đèn LED Nhấp Nháy

Để cây thông trở nên sống động hơn, bạn có thể thêm hiệu ứng đèn nhấp nháy. Đây là một tính năng thú vị mà Excel có thể thực hiện được.

Chọn lại vùng màu xanh lá cây (tán cây). Nhập công thức: =RANDBETWEEN(1,3) và nhấn Ctrl + Enter để áp dụng công thức cho toàn bộ vùng chọn.

Thực hiện tương tự với phần thân cây màu nâu. Bạn sẽ nhận được kết quả như sau:

Truy cập Conditional Formatting > Icon Sets > và chọn bộ icon hình tròn hoặc đèn giao thông. Để cây thông trông đẹp mắt hơn và loại bỏ các con số hiển thị, hãy chọn vùng cây, nhấn Ctrl + 1, chọn Custom, nhập ;;; (ba dấu chấm phẩy) vào ô Type và nhấn OK.

Kết quả cuối cùng:

Nếu bạn muốn đèn nhấp nháy tự động, hãy sử dụng đoạn mã sau:

Trên file Excel, nhấn Alt + F11, chuột phải vào File ở bên trái, chọn Insert > Module.

Sao chép và dán đoạn code sau:

Dim HenGio As DateSub BatDen()CalculateHenGio = Now + TimeSerial(0, 0, 1) 'Chớp tắt mỗi 1 giâyApplication.OnTime HenGio, "BatDen"End Sub
Sub TatDen()On Error Resume NextApplication.OnTime HenGio, "BatDen", , FalseEnd Sub