ke-toan-thuc-te

htkk 3.4.7

Tạo ra một lịch trong Excel?

 
Lịch trong Excel là một đối tượng hữu ích. Với một lịch trong Excel, bạn có thể ghi lại nhiều thông điệp trong lịch. Chẳng hạn như: ngày mà một nhân viên mới gia nhập công ty, ngày mà hàng hóa được giao và như vậy. Với lịch, các thư này sẽ xem xét trực quan và đơn giản. Làm thế nào để tạo ra một lịch hàng tháng hoặc một lịch hàng năm trong Excel?
 
Với phương pháp này, bạn phải đảm bảo rằng máy tính của bạn kết nối vào mạng, do đó bạn có thể tải về Lịch Templates .
 
Tới tập tin , nhấp vào New trên cửa sổ bên trái và kích Lịch từ Office.com Templates . Xem ảnh chụp màn hình:
 
tao-ra-lịch-voi-excel
 

hướng dẫn làm lịch bằng excel

 
Sau đó, bạn có thể chọn một thư mục lịch, và click vào nó, sẽ có nhiều phong cách của lịch, chọn một trong những bạn muốn và nhấp vào Tải về nút trên cửa sổ bên phải.
 
Sau khi tải về các mẫu lịch, bạn sẽ nhận được lịch trong một bảng tính mới.
 
mũi tên bong bóng màu xanh đúng
 

Tạo lịch hàng tháng với mã VBA

 
Với mã VBA sau đây, bạn có thể nhanh chóng tạo ra một lịch hàng tháng. Hãy làm như sau:
 
Nhấn vào phát triển > Visual Basic , một mới Microsoft Visual Basic cho các ứng dụng cửa sổ sẽ được hiển thị, nhấn Insert > Mô-đun , và nhập mã sau vào mô-đun :
 

VBA: tạo lịch hàng tháng trong Excel

 
Sub CalendarMaker () ActiveSheet.Protect DrawingObjects: = False, Nội dung: = False, _ Kịch bản: = False Application.ScreenUpdating = False On Error GoTo MyErrorTrap Range ( "a1: G14"). Rõ ràng MyInput = InputBox ( "Gõ vào Tháng và năm cho Lịch ") Nếu MyInput =" "Sau đó Exit Sub StartDay = DateValue (MyInput) Nếu ngày (StartDay) <> 1 Sau đó StartDay = DateValue (Tháng (StartDay) &" / 1 / "& _ năm (StartDay)) End Nếu Range ( "a1") NumberFormat = "mmmm yyyy". Với Range ( "a1: g1") .HorizontalAlignment = xlCenterAcrossSelection .VerticalAlignment = xlCenter .Font.Size = 18 .Font.Bold = True .RowHeight = 35 End Với Range ( "a2: g2") .ColumnWidth = 11 .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = xlHorizontal .Font.Size = 12 .Font.Bold = True .RowHeight = 20 End With Range ( "a2 ") =" Sunday " Range (" b2 ") =" Monday " Range (" c2 ") =" thứ ba " Range (" d2 ") =" thứ tư " Range (" e2 ") =" Thứ năm " Range (" f2 ") =" Friday " Range (" g2 ") =" Saturday " Với Range (" a3: g8 ") .HorizontalAlignment = xlRight .VerticalAlignment = xlTop .Font.Size = 18 .Font.Bold = True .RowHeight = 21 End với Range ( "a1"). Value = Application.Text (MyInput, "mmmm yyyy") dayOfWeek = Weekday (StartDay) CurYear = Năm (StartDay) CurMonth = Month (StartDay) FinalDay = DateSerial (CurYear, CurMonth + 1, 1 ) Chọn trường hợp dayOfWeek Trường hợp 1 Range ( "a3"). Value = 1 Trường hợp 2 Range ( "b3"). Value = 1 Trường hợp 3 Range ( "c3"). Value = 1 Trường hợp 4 Range ( "d3") Value. = 1 Trường hợp 5 Range ( "e3") Value = 1. Trường hợp 6 Range ( "f3") Value = 1. Trường hợp 7 Range ( "g3") Value = 1. Cuối Chọn Đối Mỗi tế bào trong Range ( "a3: g8 ") RowCell = cell.Row ColCell = cell.Column Nếu cell.Column = 1 Và cell.Row = 3 Sau đó ElseIf cell.Column <> 1 Sau đó Nếu cell.Offset (0, -1) .Value> = 1 Sau đó, tế bào .Value = cell.Offset (0, -1) .Value + 1 Nếu cell.Value> (FinalDay - StartDay) Sau đó cell.Value = "" Thoát Đối với Cuối Nếu End If ElseIf cell.Row> 3 Và cell.Column = 1 sau đó cell.Value = cell.Offset (-1, 6) .Value + 1 Nếu cell.Value> (FinalDay - StartDay) sau đó cell.Value = "" Thoát Đối với Cuối Nếu Cuối Nếu Tiếp Đối với x = 0 To 5 Phạm vi ( "A4") offset (x * 2, 0) .EntireRow.Insert. Với Range ( "A4: G4"). offset (x * 2, 0) .RowHeight = 65 .HorizontalAlignment = xlCenter .VerticalAlignment = xlTop .WrapText = True .Font.Size = 10 .Font.Bold = False .Locked = False End With Với Range ( "A3"). offset (x * 2, 0) .Resize (2, _ 7) .Borders (xlLeft) . trọng lượng = xlThick .ColorIndex = xlAutomatic End Với Range ( "A3"). offset (x * 2, 0) .Resize (2, _ 7) .Borders (xlRight) .Weight = xlThick .ColorIndex = xlAutomatic End With Range ( . "A3") offset (x * 2, 0) .Resize (2, 7) .BorderAround _ trọng lượng: = xlThick, ColorIndex: = xlAutomatic Tiếp theo . Nếu Range ( "A13") Value = "" sau đó, Range ( "A13 ") .Offset (0, 0) _ .Resize (2, 8) .EntireRow.Delete ActiveWindow.DisplayGridlines = False DrawingObjects ActiveSheet.Protect: = True, Nội dung: = True, _ kịch bản: = True ActiveWindow.WindowState = xlMaximized ActiveWindow .ScrollRow = 1 Application.ScreenUpdating = True Exit Sub MyErrorTrap: MsgBox "bạn có thể không đã nhập và Tháng Năm của bạn một cách chính xác." _ & Chr (13) & "Spell Tháng một cách chính xác" _ & "(hoặc sử dụng 3 chữ viết tắt chữ)" _ & Chr (13) & "và 4 chữ số cho năm" MyInput = InputBox ( "Gõ vào Tháng và năm Lịch ") Nếu MyInput =" "Sau đó Exit Sub Resume End Sub

Sau đó nhấp vào  doc-Callendar-2nút để chạy mã, và một hộp nhắc sẽ bật ra, bạn có thể nhập vào tháng và năm trong hộp trống. Xem ảnh chụp màn hình:

tao-ra-lịch-voi-excel1

tạo lịch làm việc trên excel

 

Và sau đó nhấp OK . Và lịch hàng tháng mới đã được tạo ra trong bảng tính hiện hành. Xem ảnh chụp màn hình:

 

tao-ra-lịch-voi-excel2

chèn lịch tháng vào excel

Các mã VBA là khó khăn đối với hầu hết chúng ta, và với mã VBA này, bạn chỉ có thể tạo ra một lịch hàng tháng, nếu bạn muốn tạo ra một lịch hàng năm một cách nhanh chóng và dễ dàng, là có bất kỳ phương pháp đơn giản khác để làm điều này?

 

hướng dẫn làm lịch bằng excel
 
tạo lịch làm việc trên excel
 
lập lịch làm việc trên excel
 
tạo lịch trong excel 2007
 
chèn lịch tháng vào excel
 
tạo lịch trong excel 2010
 
lịch excel 2016
 
công thức chèn lịch trong excel

Liên quan: lịch âm dương 2017 file excel ; tạo công cụ nhập ngày tháng trong excel ; mẫu lịch làm việc excel ; lịch excel 2017 ; lịch excel 2018 ;

Comment lời nhắn:
Chua co comment nào

>>> Bạn đang có nhu cầu đăng ký tham gia lớp học kế toán hãy đăng ký để lại thông tin chúng tôi sẽ hỗ trợ tư vấn báo giá trực tiếp cho bạn
dang ky hoc ke toan

>>> Bài Viết Xem Nhiều Nhất

- Lịch khai giảng kế toán Hà Nội
- Khóa học thực hành kế toán trên excel
- Khai trương cơ sở Bình Dương Giảm 50% Học phí
- Khóa học kế toán cho người đã biết kế toán
- Khóa học kế toán dành cho người chưa biết
- Khóa học kế toán xây lắp
- Khóa học phần mềm kế toán Misa, Fast
- Nhận dạy kèm riêng kế toán 1 - 1
- Học kế toán theo thông tư 200/BTC

>>> Nếu bạn thấy Hay hãy Like và Chia sẻ cho bạn bè giúp chúng tôi. Xin cảm ơn. Bạn muốn nhận thông tin hay tài liệu mới nhất comment email của bạn ở phía dưới. Xin cảm ơn


Hãy like để nhận nhiều bài mới nhất

Các bài viết mới

Các tin cũ hơn