Chào các bạn, bài viết này mình sẽ hướng dẫn chi tiết cách làm một multitab page như hình trên.
- Yêu cầu: biết sử dụng excel và lập trình VBA
Bước 1: Tắt lưới và thay đổi màu nền trên Excel
- Tắt lưới trên Excel: trên tab View, bỏ check Gridlines
- Thay đổi màu nền trên Excel: chọn tất cả các ô, và nhấp vào Fill Color rồi chọn màu nền tuỳ thích.
- Đây là diễn tiến bước 1
Bước 2: Tạo và đặt tên cho 6 Tab
Để thay đổi kiểu shape, các bạn nhấp phải vào shape, chọn Style.
Thay đổi màu nền của shape thì các bạn chọn Fill.
Thay đổi thuộc tính đường viền thì các bạn chọn Outline.
Để thay đổi hoặc thêm một nhãn cho các tab, các bạn chọn Edit Text, và nhập nhãn vào mong muốn.
Để thay đổi kích thước chính xác cho shape các bạn chọn Size and Properties…
Bước 3: Xếp chồng từng cặp Tab
Tiếp theo dịch chuyển từng cặp tab lại gần nhau cho đẹp mắt nhé.
Bước 4: Tạo 3 khung dữ liệu cho 3 cặp Tab
Sau đó các bạn chọn hết 3 khung dữ liệu và xếp chồng chúng lại với nhau bằng cách dùng Align Top & Align Left nhé.
Bước 5: Viết Code tạo sự kiện khi nhấn vào ReportOff, ReSumOff, AboutOff.
Các bạn vào tab Developer, rồi nhấp vào Visual Basic để chuyển qua khung soạn code VBA.
- Cách show Developer trên Excel: Bài 1: Làm quen với lập trình VBA trên Excel
Code sự kiện cho tab Report
Sub ReportOn()
End Sub
Sub ReportOff()
With Sheets(1)
'Su khien cho tab Report
.Shapes("ReportOn").Visible = msoTrue
.Shapes("ReportOff").Visible = msoFalse
'Su khien cho tab ReSum
.Shapes("ReSumOn").Visible = msoFalse
.Shapes("ReSumOff").Visible = msoTrue
'Su khien cho tab About
.Shapes("AboutOn").Visible = msoFalse
.Shapes("AboutOff").Visible = msoTrue
'Su khien cho 3 khung du lieu
.Shapes("FReport").Visible = msoTrue
.Shapes("FReSum").Visible = msoFalse
.Shapes("FAbout").Visible = msoFalse
End With
End Sub
Code sự kiện cho tab ReSum
Sub ReSumOn()
End Sub
Sub ReSumOff()
With Sheets(1)
'Su khien cho tab Report
.Shapes("ReportOn").Visible = msoFalse
.Shapes("ReportOff").Visible = msoTrue
'Su khien cho tab ReSum
.Shapes("ReSumOn").Visible = msoTrue
.Shapes("ReSumOff").Visible = msoFalse
'Su khien cho tab About
.Shapes("AboutOn").Visible = msoFalse
.Shapes("AboutOff").Visible = msoTrue
'Su khien cho 3 khung du lieu
.Shapes("FReport").Visible = msoFalse
.Shapes("FReSum").Visible = msoTrue
.Shapes("FAbout").Visible = msoFalse
End With
End Sub
Code sự kiện cho tab About
Sub AboutOn()
End Sub
Sub AboutOff()
With Sheets(1)
'Su khien cho tab Report
.Shapes("ReportOn").Visible = msoFalse
.Shapes("ReportOff").Visible = msoTrue
'Su khien cho tab ReSum
.Shapes("ReSumOn").Visible = msoFalse
.Shapes("ReSumOff").Visible = msoTrue
'Su khien cho tab About
.Shapes("AboutOn").Visible = msoTrue
.Shapes("AboutOff").Visible = msoFalse
'Su khien cho 3 khung du lieu
.Shapes("FReport").Visible = msoFalse
.Shapes("FReSum").Visible = msoFalse
.Shapes("FAbout").Visible = msoTrue
End With
End Sub
Sau khi đã tạo code sự kiện cho các Tab xong. Các bạn bắt đầu công việc gán sự kiện cho mỗi Tab. Để gán sự kiện cho mỗi Tab, các bạn nhấp phải vào Tab và chọn Assign Macro.
Các bạn nhớ gán Macro sự kiện cho đúng các tab:
- Tab ReportOn – Sub ReportOn()
- Tab ReportOff – Sub ReportOff()
- Tab ReSumOn – Sub ReSumOn()
- Tab ReSumOff – Sub ReSumOff()
- Tab AboutOn – Sub AboutOn()
- Tab AboutOff – Sub AboutOff()
- File Excel chứa source code: MultiTab trong VBA Excel
- Cách tải file các bạn xem ở bài : Share 5 Template Powerpoint cực đẹp
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.
