dinhanhency
Thành viên mới
- Tham gia
- 10/1/09
- Bài viết
- 25
- Được thích
- 46
Đoạn code sau tạo cho chúng ta 1 dòng chữ mỗi lần chúng ta mở file excel mà ta viết lệnh lên đó.
Sau đây là ví dụ vui cho các bạn.
Các bạn mở 1 file Excel. Không thay đổi gì cả. Các bạn click phải chuột vào Sheet1 click vào ViewCode. Tiếp theo các bạn click đúp vào ThisworkBook.
Các bạn viết đoạn lệnh sau.
Giải thích lệnh:
Ở trong excel, nếu các bạn viết thủ tục trong mục thisworkbook với tên thủ tục là Workbook_Open thì thủ tục này tự động chạy khi bạn mở file excel đó.
các đoạn sau xóa đi 1 Drawning nếu nó đã có và tạo lại với kiểu chữ và màu chữ như các bạn thấy. Dòng chữ là Welcome to Excel VBA on GiaiphapExcel.Com.
Các bạn lưu file này thành tên tùy thích và chạy lại nó xem kết quả ra sao nhé. các bạn thử xóa dòng chữ mà các bạn nhìn thấy và lưu file đó, đóng file sau đó mở lại file xem kết quá thể nào. Thú vị phải không các bạn.
Sau đây là ví dụ vui cho các bạn.
Các bạn mở 1 file Excel. Không thay đổi gì cả. Các bạn click phải chuột vào Sheet1 click vào ViewCode. Tiếp theo các bạn click đúp vào ThisworkBook.
Các bạn viết đoạn lệnh sau.
Mã:
Private Sub Workbook_Open()
On Error GoTo Err1:
ActiveSheet.Shapes("WordArt 1").Select
Selection.Delete
ActiveSheet.Shapes.AddTextEffect(msoTextEffect16, "Welcome to Excel VBA on GiaiphapExcel.Com", "Arial Black", 36#, msoFalse, msoFalse, 10.5, 185.25).Select
Application.CommandBars("WordArt").Visible = False
Err1:
ActiveSheet.Shapes.AddTextEffect(msoTextEffect16, "Welcome to Excel VBA on GiaiphapExcel.Com", "Arial Black", 36#, msoFalse, msoFalse, 10.5, 185.25).Select
Application.CommandBars("WordArt").Visible = False
End Sub
Giải thích lệnh:
Ở trong excel, nếu các bạn viết thủ tục trong mục thisworkbook với tên thủ tục là Workbook_Open thì thủ tục này tự động chạy khi bạn mở file excel đó.
các đoạn sau xóa đi 1 Drawning nếu nó đã có và tạo lại với kiểu chữ và màu chữ như các bạn thấy. Dòng chữ là Welcome to Excel VBA on GiaiphapExcel.Com.
Các bạn lưu file này thành tên tùy thích và chạy lại nó xem kết quả ra sao nhé. các bạn thử xóa dòng chữ mà các bạn nhìn thấy và lưu file đó, đóng file sau đó mở lại file xem kết quá thể nào. Thú vị phải không các bạn.