Tự tạo 1 tờ lịch tháng đơn giản. (1 người xem)

Người dùng đang xem chủ đề này

anhtuan1066

Thành viên gạo cội
Tham gia
10/3/07
Bài viết
5,802
Được thích
6,913
Tự tạo 1 tờ lịch tháng đơn giãn

Nhân dịp xuân về, chúng ta hãy dùng công thức Excel và 1 vài thủ thuật trang trí đễ tạo ra 1 tờ lịch tháng đơn giãn nhé!
Thật ra công việc cũng ko khó lắm, khung lịch có 42 ô, vậy chúng ta hãy làm sao tạo dc 1 mãng có 42 ngày với tiêu chí là ngày đầu tiên cũa mãng này luôn là ngày CN gần với ngày đầu tháng nhất (từ đó tính tới ngày thứ 42)... Tiếp theo dùng INDEX đễ đặt các phần tử trong mãng này nằm đúng nơi quy định (thêm 1 điều kiện ràng buộc: chỉ lấy phần tử nào có tháng = với tháng ta đang chọn).. vậy là xong...
Xin xem file đính kèm... và chú ý các công thức trong define name nhé... Rất đơn giãn, đúng ko?... hi... hi...
Đây chỉ là vọc chơi cho vui thôi.. các bạn có thể cải tiến thêm dc rất nhiều đấy, chẳng hạn thêm ghi nhớ vào lịch, khi đến đúng thời điểm thì ghi nhớ tự xuất hiện đễ nhắc chúng ta...
Mến
ANH TUẤN
 

File đính kèm

Đây là version 2, cho phép chèn thêm ghi nhớ vào tờ lịch... Các bạn sang sheet Data, gõ ghi nhớ vào 1 ngày nào đó, chẳng hạn là SN cũa người ấy thì tờ lịch bên này sẽ tự động cập nhật đúng vị trí...
Chúng ta ko có tham vọng làm 1 tờ lịch hoàn hão, về món này thì ThuNghi đã từng làm 1 cái quá xuất sắc rồi... Chỉ là muốn nhân cơ hội cuối năm hãy cùng nhau ôn lại kiến thức Excel đã học như:
1> Data Validation
2> Define name
3> Các công thức OFFSET và name động
4> Các công thức mãng
5> Các hàm thời gian
vân vân...
Hy vọng nó là bài tập nhỏ nhưng hữu ích...
ANH TUẤN
 

File đính kèm

Thêm 1 version 3 nữa đây... 4 tháng lịch trên 1 bãng tính..
Trong đây có sử dụng kỹ thuật định vị... các bạn xem name DINHVI trong define name nhé...
Chú ý: cái này nếu các bạn khéo léo có thể áp dụng nó để làm file báo cáo cho Sếp: Món hàng nào, vào ngày nào, số lượng bao nhiêu? Nếu Sếp nhìn thấy kiểu báo cáo theo kiểu khá hấp dẫn này tin chắc ông ta rất hài lòng đấy...
(Xem bãng tính trong chế độ Full Screen sẽ đẹp hơn)
Mến
ANH TUẤN
 

File đính kèm

Lần chỉnh sửa cuối:
anhtuan1066 đã viết:
Thêm 1 version 3 nữa đây... 4 tháng lịch trên 1 bãng tính..
Trong đây có sử dụng kỹ thuật định vị... các bạn xem name DINHVI trong define name nhé...
Chú ý: cái này nếu các bạn khéo léo có thể áp dụng nó để làm file báo cáo cho Sếp: Món hàng nào, vào ngày nào, số lượng bao nhiêu? Nếu Sếp nhìn thấy kiểu báo cáo theo kiểu khá hấp dẫn này tin chắc ông ta rất hài lòng đấy...
(Xem bãng tính trong chế độ Full Screen sẽ đẹp hơn)
Mến
ANH TUẤN
Theo tôi không nên dùng ct mảng và không cần list ngày. Chỉ cần list những ngày ghi nhớ. Sao AT không dùng if(weekday(date(...,...,1))=ThuI,...,+1) dùng cho tuần đầu.
Còn tuần cuối thì nếu day(...) =1,"",...
Gán ngày ghi nhớ thì 100 cách mà.
Xin mạo muội góp ý.
To Echho7: Bạn dùng Unikey chuyển hộ sang Unicode cái, dễ mà.
 
Cãm ơn ThuNghi đã gợi ý, tuy nhiên như tôi đã nói ở trên, file này các bạn nên xem nó như 1 bài tập thì đúng hơn, dùng đễ tổng kết lại những gì đã học trong năm qua.. Chứ còn mà làm 1 tờ lịch thật sự thì... hi.. hi... Bạn ThuNghi đã làm quá hoàn chỉnh rồi còn gì... Ko dám múa...
ANH TUẤN
 
To ThuNghi: Máy của mình bị lỗi phần đó rồi. Mình có Down thằng Unikey 3.6 về nhưng k làm ăn gì được. Bạn có thể chuyển hộ về Times New Roman cho cả làng cùng xem, với lại nó hợp với thời hội nhập hơn là Font Vntimes. Hay bạn send cho mình một bản theo d/c echo@mobifone.com.vn. Thanks
 
Năm mới, gởi tặng các bạn tờ lịch A4 có 12 tháng. Dùng các hàm đơn giản như DAY, DATE, WEEKDAY, IF.
 

File đính kèm

Các bạn hãy thử dùng tờ lịch này làm báo tháng xem!
Giã sử các bạn có 5 loại mặt hàng: MH1, MH2, MH3, MH4 va MH5... giờ các bạn sang sheet Data, sữa cột GHI NHỚ thàng cột MH1, cột tiếp là MH2, tiếp theo là MH3.. vân vân đến MH5... Bến dưới cho số vào... Qua sheet Calendar, sữa tí công thức (chủ yếu là VLOOKUP vào cột thứ mấy), thêm 1 ComboBox đễ chọn mặt hàng... Vậy là các bạn đã có ngay 1 báo cáo tháng khá hoàng tráng rồi đấy...
Các bạn hãy làm thử và post lên đễ chúng ta cùng tham khảo và góp ý nhé...
Tự mình làm lấy dù sao cũng rất thú vị!
Tôi gữi lên form lịch dc chỉnh sữa lần cuối cùng cho các bạn thuận tiện tạo form báo cáo
Mến
ANH TUẤN
 

File đính kèm

Lần chỉnh sửa cuối:
Đây! Một báo cáo tháng đơn giãn dựa trên giao diện cũa tờ lịch này... Xin mời tham khão...
Các bạn có thể cãi tiến thêm theo hướng: Tạo 2 Option Button, nếu chọn Button 1 thì bãng tính trở thành dạng báo cáo tháng, chọn Button 2, bãng tính sẽ là tờ lịch bình thường...
Công cụ luôn sẳn có, chỉ là làm thế nào đễ có thể tung hoành ngang dọc, làm chủ dc công cụ là sướng nhất...
ANH TUẤN
 

File đính kèm

Các bạn ơi, mình muốn thể hiện cả ngày âm trên lịch thì phải làm sao?
 
Cảm ơn Anhtuan Nhiều Vể Mấy Cái Lịch Này, Qua đây Mình Học Hỏi Thêm được Rất Nhiều. Tuy Nhiên, Mình Vẫn Chưa Thực Sự Hiểu Về Công Thức Mảng Cho Lắm. Mình đã Thử Tạo Một Cái Lịch Giống Như Bạn, Nhưng Không Hiểu Sao Công Thức Mảng Của Mình Lại Không Nhảy đúng. Mình Gửi Kèm Theo File, Bạn Giúp Mình Với Nhé.
 

File đính kèm

Chào bạn...
Công thức bạn áp dụng tất cã đều đúng nhưng sai 1 chổ quan trọng nhất
Name cũa bạn là:
Mã:
TUAN ={1;2;3;4;5;6;7}
Nhưng chính xác phải là:
Mã:
TUAN ={1,2,3,4,5,6,7}
Cũa tôi là dấu phẩy (,) còn cũa bạn là dấu chấm phẩy (;)
Đây là 1 ví dụ điển hình về mãng ngang và dọc, nếu ko đễ ý sẽ gây sai lầm trầm trọng...
Chú ý:
-Các phần tử trong mãng ngang dc phân cách nhau bởi dấu phẩy
-Các phần tử trong mãng dọc dc phân cách nhau bởi dấu chấm phẩy
ANH TUẤN
 
tại sao mình không mở được mấy file kèm theo của bạn anhtuan nhỉ.
mở ra nó cứ hiện các ký tự lạ hoắc, không đọc được luôn. Hình như file của bạn để đuổi zip, hoặc rar là mình không đọc được. Có cách nào chỉ mình xem cùng.
Thanks
bye
 
hoaloaken đã viết:
tại sao mình không mở được mấy file kèm theo của bạn anhtuan nhỉ.
mở ra nó cứ hiện các ký tự lạ hoắc, không đọc được luôn. Hình như file của bạn để đuổi zip, hoặc rar là mình không đọc được. Có cách nào chỉ mình xem cùng.
Thanks
bye
Tôi vừa kiểm tra lại lần nữa thì thấy rằng nếu như các bạn down file bằng cách click vào link đễ tải về thì quả đúng là file sẽ ko đọc dc thật (dù có đổi đuôi file).. nhưng nếu dùng trình tăng tốc download thì ko có vấn đề gì?
Vậy BQT cho biết sẽ giãi quyết vấn đề này thế nào đây?
1> Chúng tôi phải up lại file gốc? (Như vậy thì hao tốn tài nguyên quá)
2> Hướng dẩn các bạn 1 cách nào đó tương đối, chẳng hạn như dùng trình hổ trợ download (chưa chắc có người làm dc)
3> .........
Nói riêng với tất cả các bạn: Nếu ai muốn down file của tôi thì tạm thời hãy gữi mail vào d/c: yeulachet1066@yahoo.com , nêu rõ file yêu cầu thuộc topic nào (mới biết mà gữi)... tôi sẽ cố gắng gữi trực tiếp cho các bạn trong khi chờ đợi việc chỉnh sửa của BQT
Mến!
ANH TUẤN
 
Bằng VBA đây

PHP:
Option Explicit:                             Option Base 1
 Dim MyPic As Object
 Const Top4 As Double = 200:                 Const Left1 As Double = 35

Sub LichNam()
 Dim Dat As Date
 Dim Rng As Range, Clls As Range
 Dim BDau As Byte, Ngay As Byte, Thang As Byte
 
 Sheets("Thang").Select:            Dat = DateSerial([a1] - 1, [b1], 1)
 BDau = Weekday(Dat):               Thang = Month(Dat)
 With Range("B9:H14")
    .ClearContents:                 .Interior.ColorIndex = 33
 End With
 Set Rng = Range(Chr(65 + BDau) & 9 & ":H9")
 Set Rng = Union(Rng, Range("b10:H15"))
 Rng.NumberFormat = "dd "
 For Each Clls In Rng
    With Clls
        .Value = Dat:                   Dat = Dat + 1
        .Interior.ColorIndex = 34 + (Thang Mod 6)
        If (Month(Dat) > Thang And Thang < 12) Or (Thang = 12 _
            And Month(Dat) = 1) Then Exit For
    End With
 Next Clls
 Auto_Open
 Set MyPic = Worksheets(3)
 MyPic.Shapes(1 + (Thang Mod 4)).Top = Top4
 MyPic.Shapes(1 + (Thang Mod 4)).Left = Left1
 
 Set Rng = Nothing
End Sub
Mã:
[B]Sub Auto_Open[/B]()
 Dim iZ As Byte
 On Error Resume Next
 
    Set MyPic = Worksheets(3)
    For iZ = 1 To 4
        MyPic.Shapes(iZ).Top = Top4 * 10
        MyPic.Shapes(iZ).Left = Left1 + 10 * iZ
    Next iZ
 Sheets("Thang").Select:        Range("J2").Select
[B]End Sub[/B]
 

File đính kèm

Cho em góp 1 tờ nhé

1- Xin mời mọi người xem và đóng góp ý kiến để em tiếp tục hoàn thiện tờ lịch tháng (từ tháng 1 năm 1990 đến hết tháng 12 năm 2050) cho phép hiện các ghi nhớ sự kiện, công việc hay nhắc nhở 1 điều gì đó tùy ý mình
2- Rất mong các bác xem xét và dùng công thức xử lý giúp em mấy các cột phụ bên sheet nhập data

_______________________________________________________
File gốc là từ 1 phiên bản Calendar&Note_04.xls của anhtuan1066
xls.gif
Month Note (version 1).xls

Còn đây là 2 mẫu lịch dùng trong trường học. Cho phép ghi chú các ngày hoạt động, ngày lễ, ngày nghỉ theo kế hoạch (Office 2002 trở lên)
rar.gif
School Note01.rar
rar.gif
School Note02.rar

________________________________________________________
T/B: File nguồn nằm ở đây Month Note (version 1).xls School Note02.rar School Note02.rar
 
Lần chỉnh sửa cuối:
cảm ơn đã thông báo. Up lại rồi,
Xem file rồi... he... he... cậu cũng rất thông minh khi đặt công thức tại cột G sheet Data là:
Mã:
=IF(F2=1,D2," ")
Nếu máy móc:
Mã:
=IF(F2=1,D2,"")
thì công thức trong sheet Calendar ko trời nào cho kết quả đúng... Tuyệt lắm
Nhận xét:
1> Trong sheet Data các cột A, B, C, D, E, F tôi thấy đâu cần thiết, có thể bỏ dc đấy!
2> Nếu bỏ các cột trên thì công thức tại cột G theo tôi là:
Mã:
=IF(LEN(B2)>5,DATEVALUE(B2),IF(D2<=Calendar!$I$2,DATE(Calendar!$I$2,RIGHT(Data!B2,2),LEFT(Data!B2,2))," "))
Khi ấy những dử liệu nào bị trùng vẫn hiển thị, vì thế cái nào nhập trước sẽ ưu tiên hiển thị (hợp lý mà)
Còn như bạn muốn ngược lại, ưu tiên cái nhập sau thì vẫn có cách.. MATCH theo chiều ngược lại từ dưới lên (vụ này quá dể đối với bạn còn gì)
Mạn phép sửa file bạn theo ý tôi vừa nói nhé.. bạn xem thử còn chổ nào ko ổn ko?
------------------
Chú ý thêm: Do.. lười nên tôi dùng hàm DATEVALUE... nó sẽ sai trên hệ thống mà RLO set mm/dd/yy đấy... Làm siêng thì hãy dùng hàm cắt chuổi LEFT, RIGHT, MID
ANH TUẤN
 

File đính kèm

Lần chỉnh sửa cuối:
PHP:
Option Explicit:                             Option Base 1
 Dim MyPic As Object
 Const Top4 As Double = 200:                 Const Left1 As Double = 35
 
Sub LichNam()
 Dim Dat As Date
 Dim Rng As Range, Clls As Range
 Dim BDau As Byte, Ngay As Byte, Thang As Byte
 
 Sheets("Thang").Select:            Dat = DateSerial([a1] - 1, [b1], 1)
 BDau = Weekday(Dat):               Thang = Month(Dat)
 With Range("B9:H14")
    .ClearContents:                 .Interior.ColorIndex = 33
 End With
 Set Rng = Range(Chr(65 + BDau) & 9 & ":H9")
 Set Rng = Union(Rng, Range("b10:H15"))
 Rng.NumberFormat = "dd "
 For Each Clls In Rng
    With Clls
        .Value = Dat:                   Dat = Dat + 1
        .Interior.ColorIndex = 34 + (Thang Mod 6)
        If (Month(Dat) > Thang And Thang < 12) Or (Thang = 12 _
            And Month(Dat) = 1) Then Exit For
    End With
 Next Clls
 Auto_Open
 Set MyPic = Worksheets(3)
 MyPic.Shapes(1 + (Thang Mod 4)).Top = Top4
 MyPic.Shapes(1 + (Thang Mod 4)).Left = Left1
 
 Set Rng = Nothing
End Sub
Mã:
[B]Sub Auto_Open[/B]()
 Dim iZ As Byte
 On Error Resume Next
 
    Set MyPic = Worksheets(3)
    For iZ = 1 To 4
        MyPic.Shapes(iZ).Top = Top4 * 10
        MyPic.Shapes(iZ).Left = Left1 + 10 * iZ
    Next iZ
 Sheets("Thang").Select:        Range("J2").Select
[B]End Sub[/B]
Anh Sa ơi... cái file của anh sao chọn năm nó ko tác dụng gì vậy? Phải chọn thêm tháng nữa thì mới dc... Anh có thể sửa lại vụ này dc ko?
ANH TUẤN
 
Xem file rồi...
Khi những dử liệu nào bị trùng vẫn hiển thị, vì thế cái nào nhập trước sẽ ưu tiên hiển thị (hợp lý mà) ...
------------------
Chú ý thêm: Do.. lười nên tôi dùng hàm DATEVALUE... nó sẽ sai trên hệ thống mà RLO set mm/dd/yy đấy... Làm siêng thì hãy dùng hàm cắt chuổi LEFT, RIGHT, MID
ANH TUẤN
Theo mình nghĩ, dữ liệu nhập sau hoặc dữ liệu là sự kiện xuất hiện sau thì nên ưu tiên cho hiện khi trùng với sự kiện xảy ra thường xuyên hàng năm mới là hợp lý (thuộc tính cập nhật thông tin mà)
Còn như bạn muốn ngược lại, ưu tiên cái nhập sau thì vẫn có cách.. MATCH theo chiều ngược lại từ dưới lên (vụ này quá dể đối với bạn còn gì)
cái vụ này mình mới làm quen với nó chưa được lâu nên vẫn còn loay hoay
MATCH(lookup_value,lookup_array,match_type)
Lookup_value is the value you use to find the value you want in a table.
  • Lookup_value is the value you want to match in lookup_array. For example, when you look up someone's number in a telephone book, you are using the person's name as the lookup value, but the telephone number is the value you want.
  • Lookup_value can be a value (number, text, or logical value) or a cell reference to a number, text, or logical value.
Lookup_array is a contiguous range of cells containing possible lookup values. Lookup_array must be an array or an array reference.
Match_type is the number -1, 0, or 1. Match_type specifies how Microsoft Excel matches lookup_value with values in lookup_array.
  • If match_type is 1, MATCH finds the largest value that is less than or equal to lookup_value. Lookup_array must be placed in ascending order: ...-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE.
  • If match_type is 0, MATCH finds the first value that is exactly equal to lookup_value. Lookup_array can be in any order.
  • If match_type is -1, MATCH finds the smallest value that is greater than or equal to lookup_value. Lookup_array must be placed in descending order: TRUE, FALSE, Z-A, ...2, 1, 0, -1, -2, ..., and so on.
  • If match_type is omitted, it is assumed to be 1.
Remarks
  • MATCH returns the position of the matched value within lookup_array, not the value itself. For example, MATCH("b",{"a","b","c"},0) returns 2, the relative position of "b" within the array {"a","b","c"}.
  • MATCH does not distinguish between uppercase and lowercase letters when matching text values.
  • If MATCH is unsuccessful in finding a match, it returns the #N/A error value.
  • If match_type is 0 and lookup_value is text, you can use the wildcard characters, question mark (?) and asterisk (*), in lookup_value. A question mark matches any single character; an asterisk matches any sequence of characters. If you want to find an actual question mark or asterisk, type a tilde (~) before the character.
Example
The example may be easier to understand if you copy it to a blank worksheet.
How to copy an example
  1. Create a blank workbook or worksheet.
  2. Select the example in the Help topic. Note Do not select the row or column headers.
    default.aspx

    Selecting an example from Help
  3. Press CTRL+C.
  4. In the worksheet, select cell A1, and press CTRL+V.
  5. To switch between viewing the results and viewing the formulas that return the results, press CTRL+` (grave accent), or on the Tools menu, point to Formula Auditing, and then click Formula Auditing Mode.
12345ABProductCountBananas25Oranges38Apples40Pears41FormulaDescription (Result)=MATCH(39,B2:B5,1)Because there is not an exact match, the position of the next lowest value (38) in the range B2:B5 is returned. (2)=MATCH(41,B2:B5,0)The position of 41 in the range B2:B5. (4)=MATCH(40,B2:B5,-1)Returns an error because the range B2:B5 is not in descending order. (#N/A)

Hàm MATCH
Hàm MATCH() dùng để biết vị trí của một giá trị trong một dãy giá trị (một hàng hoặc một cột)

Cú pháp: MATCH(lookup_value, lookup_array, match_type)
lookup_value ___Giá trị dùng để tìm kiếm trong hàng đầu tiên của table_array, giá trị này có thể là một số, một chuỗi, hoặc là một tham chiếu

lookup_array___Cột hoặc hàng dùng để dò tìm

match_type____Là -1, 0 hoặc 1, để chỉ kiểu tìm kiếm
-1 : MATCH() sẽ tìm giá trị nhỏ nhất mà lớn hơn hoặc bằng lookup_value
_____trong trường hợp này, lookup_array phải được xếp theo thứ tự giảm dần (từ lớn đến nhỏ)
0 : _MATCH() sẽ tìm chính xác giá trị lookup_value

1 : _(là giá trị mặc định) MATCH() sẽ tìm giá trị lớn nhất mà nhỏ hơn hoặc bằng lookup_value
_____trong trường hợp này, lookup_array phải được xếp theo thứ tự tăng dần (từ nhỏ đến lớn)
Một số lưu ý khi sử dụng hàm MATCH()
- Nếu match_type = 0, và lookup_value giá trị kiểu text, bạn có thể dùng các ký tự đại diện cho lookup_value
- (dấu * đại diện cho nhiều ký tự / hoặc dấu ? đại diện cho một ký tự)

- Nếu không tìm thấy lookup_value trong lookup_array, hàm MATCH() sẽ báo lỗi #NA!
(trước đây toàn thêm cột phụ để xài thằng VLOOKUP thấy quá bất tiện so với việc kết hợp INDEX + MATCH và OFFSET) chắc phải thêm cột phụ quá

Thằng DATEVALUE bất tiện nên mình phải sửa lại
PHP:
A1=Calendar!$I$2
A2=IF(LEN(B2)>5,DATE(MID(B2,7,4),MID(B2,4,2),MID(B2,1,2)),IF(D2="",DATE($A$1,MID(B2,4,2),MID(B2,1,2)),IF(D2<=$A$1,DATE($A$1,MID(B2,4,2),MID(B2,1,2))," ")))

Cảm ơn rất nhiều
Nói thật là cột phụ rất muốn bỏ nhưng vẫn cứ phải ưu tiên công thức trên cell phải thất ngắn gọn, dễ hiểu, dễ sửa trước
 
Lần chỉnh sửa cuối:
Cảm ơn rất nhiều
Nói thật là cột phụ rất muốn bỏ nhưng vẫn cứ phải ưu tiên công thức trên cell phải thất ngắn gọn, dễ hiểu, dễ sửa trước
Đồng ý điều này... vậy cùng lắm bạn chỉ nên thêm 3 cột nữa là đủ: NĂM, THÁNG , NGÀY ... các điều kiện ràng buột gán luôn vào đây
ANH TUẤN
 
Với sự giúp đỡ của anhtuan1066 tôi đã hoàn thành tờ lịch tháng có ghi nhớ
file:
xls.gif
Month Note (version 2).xls này tôi đã bổ xung
  1. Khi mở file luôn hiện trang lịch với NGÀY THÁNG NĂM hiện hành được tô màu xanh
  2. Trang Ghi chú
    • 1- Ngày cố định có sự kiện thì nhập đủ (dd-mm-yyyy)
    • 2- Ngày hàng năm đều diễn ra sự kiện thì nhập (dd-mm)
    • 3- Ngày nhập chuyển MÀU ĐỎ NỀN VÀNG => Trùng ngày. Lịch chỉ hiện được 1 sự kiện được ghi sau (phía dưới hoặc theo cột G)
    • 4- Trường hợp một số sự kiện xảy ra có mốc thời gian thì bổ sung thêm năm vào cột G (Từ năm nào) VD: sự kiện 30-4 "Giải phóng Miền nam" thì bổ sung Từ năm 1975, ...
  3. Trang Lịch có 3 điều khiển
    • 1- Spinner Góc trên, bên trái để thay đổi THÁNG của Lịch
    • 2- Spinner Góc trên, bên phải để thay đổi NĂM của Lịch
    • 3- Check Box để thay đổi ngày đầu tuần là THỨ 2 hay là CHỦ NHẬT



Tập tin đính kèm: [URL="http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=9915&d=1209891923"]Month Note (version 2).xls
(52.0 KB)
 
Tuyệt cú mèo... Giờ chỉ còn vài món mà ta đang "tham vọng"
1> Có ngày ÂM LỊCH
2> Hyperlink khi nhấp chọn ngày có ghi chú kỹ niệm, nó sẽ đưa ta đến 1 sheet khác để xem thông tin chi tiết về ngày kỹ niệm ấy... Riêng phần này nếu làm dc cũng phải đặc biệt chú ý sao cho người dùng nhập liệu dể dàng, tức là họ có thể thêm bớt thông tin 1 cách đơn giãn nhất
3> Có file âm thanh khi TODAY có ngày kỹ niệm (hoặc trước ngày kỹ niệm 1, 2 ngày gì đó)
Vân vân và vân van...
......
ĐƯỢC VOI ĐÒI.. HAI BÀ TRƯNG...
He... He...
 
Tuyệt cú mèo... Giờ chỉ còn vài món mà ta đang "tham vọng"
1> Có ngày ÂM LỊCH
2> Hyperlink khi nhấp chọn ngày có ghi chú kỹ niệm, nó sẽ đưa ta đến 1 sheet khác để xem thông tin chi tiết về ngày kỹ niệm ấy... Riêng phần này nếu làm dc cũng phải đặc biệt chú ý sao cho người dùng nhập liệu dể dàng, tức là họ có thể thêm bớt thông tin 1 cách đơn giãn nhất
3> Có file âm thanh khi TODAY có ngày kỹ niệm (hoặc trước ngày kỹ niệm 1, 2 ngày gì đó)
Vân vân và vân van...
......
ĐƯỢC VOI ĐÒI.. HAI BÀ TRƯNG...
He... He...
CHẢ TỘI GÌ MÀ KHÔNG DÒI................

CÁC BÁC XẮN TAY ÁO LÊN, NHÚNG TAY VÀO GIÚP TỜ LỊCH NÀY NGÀY CÀNG HOÁN THIỆN THÊM NHA

CẢM ƠN CÁC BÁC TRƯỚC

Mấy file bác post lên lai bị protect = password roài???!!!**~****~****~**

xls.gif
Month Note (version 1).xls protect mà lại là không protect

rar.gif
School Note01.rar
rar.gif
School Note02.rar thì password là 1 phím dài nhất

hiiiiiiiiii
 
Lần chỉnh sửa cuối:
Lịch Việt Nam - Lich ÂM DƯƠNG

Hi

Và đây là 1 tờ lịch tháng tính năng như bản
xls.gif
Month Note (version 2).xlsbổ sung thêm ngày âm (từ tháng 12-1959 đến tháng 12-2012),

Các bác phát triển thêm về giới hạn năm và các tính năng mới giúp em nha
(bản gốc Font VNI-Time của ThuNghi được anhtuan1066 cung cấp - em phát triển thêm và chuyển sang Font Unicode)
 

File đính kèm

Lần chỉnh sửa cuối:
Hi

Em góp thêm 1 tờ lịch có bổ sung thêm cả ngày âm (từ tháng 12-1959 đến tháng 12-2012), các bác phát triển thêm về giới hạn năm và các tính năng mới giúp em nha
(bản gốc dùng Font VNI-Time là của ThuNghi được anhtuan1066 cung cấp - em phát triển thêm và chuyển sang Font Unicode)
He... he... Từ năm 1959 đến 2012 là xài mệt nghĩ rồi...
Cảm ơn bạn!
Có vài lần tôi làm LỊCH và cố tình chèn hình ảnh vào (như WordArt chẳng hạn) thì thấy mỗi lần thay đổi số liệu nó cứ chớp chớp rất khó chịu... càng nhiều hình thì nó càng.. cà giựt... Nói chung cái tiêu đề chỉ với mục đích làm đẹp, nếu ko cần thiết thì có thể bỏ đi cũng ko vì thế mà quyển lịch xấu đi!
---------------------------
Một trục trặc nho nhỏ trong macro của file: Mổi khi thoát file thì nó lại hiện hộp cảnh báo macro, nếu bấm Enable macro thì nó lại vào file tiếp.. Hơi vô lý... Bạn xem thử và sửa lại phần này tí
ANH TUẤN
 
Lần chỉnh sửa cuối:
He... he... Từ năm 1959 đến 2012 là xài mệt nghĩ rồi...
Cảm ơn bạn!
Có vài lần tôi làm LỊCH và cố tình chèn hình ảnh vào (như WordArt chẳng hạn) thì thấy mỗi lần thay đổi số liệu nó cứ chớp chớp rất khó chịu... càng nhiều hình thì nó càng.. cà giựt... Nói chung cái tiêu đề chỉ với mục đích làm đẹp, nếu ko cần thiết thì có thể bỏ đi cũng ko vì thế mà quyển lịch xấu đi!
---------------------------
Một trục trặc nho nhỏ trong macro của file: Mổi khi thoát file thì nó lại hiện hộp cảnh báo macro, nếu bấm Enable macro thì nó lại vào file tiếp.. Hơi vô lý... Bạn xem thử và sửa lại phần này tí
ANH TUẤN

Khi cho chay Macro để hiện trên thanh trạng thái (hàm Now được cập nhật liên tục) để hiện ngày và giờ thì khi thoát File phải tắt bằng nút [x] Close màu đỏ thì không vấn đề gì, nhưng nếu thoát File bằng cách dùng nút [x] Close Window màu đen, vẫn để Excel hoạt động thì Macro lại khởi động lại File (chấp nhận vậy thôi), muốn không bị như vậy thì chỉ còn cách không cho hiện ngày và giờ trên thanh trạng thái là OK
-------------------------------
Để Security Level là Low thì không hiện cảnh báo Macro nữa
File mới Up đã xử lý cái vụ Đặt Security Level là Low
 
Lần chỉnh sửa cuối:

File đính kèm

File đính kèm

Lần chỉnh sửa cuối:
Lich Am Duong (version 3).rar

Lich Am Duong (version 3).rar

đã Unlock hoàn toàn - Mời mọi người xem và tham gia góp ý để mình tiếp tục hoàn thiện thêm
(không UnHide vì tính thẩm mỹ, mỹ quan)​
  1. Mới bổ xung được 385 câu danh ngôn, ca dao tục ngữ.
  2. Có thay đổi cách nhập ngày tháng dương lịch để xem ngày âm lịch (tránh trường hợp gặp lỗi trên những máy có định dạng ngày tháng khác nhau)
  3. Tháng AL theo CAN CHI
  • Trong khoảng thời gian Từ ngày 1 đến ngày 15 của tháng Dương Lịch này có ngày Mùng 1 của tháng Âm Lịch nào thì tính CAN CHI theo tháng Âm Lịch đó
  • Nếu không có sẽ tính từ ngày 16 đến cuối tháng của tháng Dương Lịch trước
 

File đính kèm

Lần chỉnh sửa cuối:
He... he... Giờ này thì tờ lịch đâu còn là "ĐƠN GIẢN" như cái tiêu đề của topic nữa hả boyxin !
 
He... he... Giờ này thì tờ lịch đâu còn là "ĐƠN GIẢN" như cái tiêu đề của topic nữa hả boyxin !

Vậy thì cùng kiến nghị MOD
  1. sửa tên topic cho phù hợp là xong
  2. chuyển sang thành 1 topic mới để mọi người dễ tìm
Hoặc là .... mọi người bổ sung thêm phương án mới ....
 
He... he... Đùa thôi...
Nếu xem từ đầu topic đến giờ thì có thể hiểu dc... Còn 1 nhát tắt ngang vào file của bạn chắc.. đói luôn quá!
ANH TUẤN
 
He... he... Đùa thôi...
Nếu xem từ đầu topic đến giờ thì có thể hiểu dc... Còn 1 nhát tắt ngang vào file của bạn chắc.. đói luôn quá!
ANH TUẤN

he he he

nếu vẫn hiểu được thì chứng tỏ 1 điều rằng nó vẫn còn đơn giản (tuy nhiên không phải cứ đơn giản thì phải như nhau)
 
He... he... Từ năm 1959 đến 2012 là xài mệt nghĩ rồi...
Cảm ơn bạn!
Có vài lần tôi làm LỊCH và cố tình chèn hình ảnh vào (như WordArt chẳng hạn) thì thấy mỗi lần thay đổi số liệu nó cứ chớp chớp rất khó chịu... càng nhiều hình thì nó càng.. cà giựt... Nói chung cái tiêu đề chỉ với mục đích làm đẹp, nếu ko cần thiết thì có thể bỏ đi cũng ko vì thế mà quyển lịch xấu đi!
---------------------------
ANH TUẤN

Sao anh không đặt hnhf ảnh ở chế độ background là OK!

và nhờ giảm độ phân giải của ảnh xuống nhỏ nhất chấp nhận được - thương xem trên màn hình chúng ta chỉ để độ phân giải = 72px
 
Sao anh không đặt hnhf ảnh ở chế độ background là OK!

và nhờ giảm độ phân giải của ảnh xuống nhỏ nhất chấp nhận được - thương xem trên màn hình chúng ta chỉ để độ phân giải = 72px
Nhưng hình ảnh mà tôi nói là WordArt cơ mà... đâu thấy chỉnh độ phân giãi chổ nào đâu!
 
1- Protect sheet lại là hết chớp chớp ngay thôi mà anhtuan1066

2- Có điều nếu ai đó dùng Office2000 trở về trước thì file của mình không thể hiện được hết ý đồ của mình thôi
 
Cũng với tiêu chí đơn giãn, ta chuyển sang dùng VBA để cùng nhau tạo 1 tờ lịch đơn giãn nhé!
Tiến hành công việc:
1> Các bước chuẩn bị:
a) Mở 1 Workbook mới, tạo 2 Validation tại B1 và B2 để chọn NĂM và THÁNG
b) Giã sử rằng ta muốn đặt lịch tháng tại vùng C9:I14, vậy tại C8:I8 ta gõ tiêu đề của THỨ TRONG TUẤN vào (Sun, Mon.... Sat)
c) Quét vùng C9:I14 và Format sẳn cho các cell trong đó là dd
2> Tạo code:
a) Bấm Alt + F11 để mở cửa sổ VBE...
b) Double click vào sheet1 ở khung trái...
c) Dán đoạn code này vào khung bên phải"
PHP:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Clls As Range, Rng As Range
  Dim Nam As Integer, Start As Long
  Dim Thg As Byte, i As Byte
  If Not Intersect(Range("B1:B2"), Target) Is Nothing Then
     Set Rng = Range("C9:I14")
     Nam = [B1]: Thg = [B2]
     Start = DateSerial(Nam, Thg, 1) - Weekday(DateSerial(Nam, Thg, 1))
     i = 1
     Rng.ClearContents
     For Each Clls In Rng
       If Month(Start + i) = Thg Then
          Clls = Start + i
       End If
       i = i + 1
     Next Clls
  End If
End Sub
c) Đóng cửa sổ VBE lại
2> Chạy thử:
Chọn Validation từ B1 và B2 xem thử vùng C9:I14 thay đổi thế nào
3> Trang trí:
Dùng Conditional Formating để trang trí cho bảng tính theo ý của mình (Menu Format\Conditional Formating)
4> Nâng cấp:
Có thể nâng cấp theo code này bằng cách quy định rằng mổi khi mở file thì lịch luôn hiện tháng hiện hành... Muốn dc vậy ta thêm đoạn code này vào sự kiện Workbook_Open
PHP:
Private Sub Workbook_Open()
   Sheet1.Range("B1") = Year(Date)
   Sheet1.Range("B2") = Month(Date)
End Sub
Vậy là ta đã hoàn tất tờ lịch rất đơn giãn!
Các bạn tham khảo file đính kèm để biết thêm chi tiết! Hãy từng bước nâng cấp thêm tờ lịch tùy theo năng khiếu thẩm mỹ và sở thích của từng người
Mến
ANH TUẤN
 

File đính kèm

Chào các bạn
Tôi có xem các file trên, và phát hiện là năm 1900 nhuận (29/2/1900), kiểm tra trong excel 2003 thì đúng là năm 1900 nhuận. Vậy excel không đưa quy tắc tính năm nhuận vào chương trình hay có gì sai ở đây mà ngày, tháng và thứ các năm khác vẫn đúng, nhờ các cao nhân giải thích giúp
Xin cảm ơn
 
Chào các bạn
Tôi có xem các file trên, và phát hiện là năm 1900 nhuận (29/2/1900), kiểm tra trong excel 2003 thì đúng là năm 1900 nhuận. Vậy excel không đưa quy tắc tính năm nhuận vào chương trình hay có gì sai ở đây mà ngày, tháng và thứ các năm khác vẫn đúng, nhờ các cao nhân giải thích giúp
Xin cảm ơn
Trường hợp này có nói nhiều trên diễn đàn rồi.
Excel tính rất chính xác các năm nhuận, trừ năm 1900 (không phải là năm nhuận, nhưng với Excel thì đó là năm nhuận).
Tôi nghĩ vấn đề chúng ta đành phải tự chấp nhận, cũng như chấp nhận nhiều cái lỗi khác của Excel, bởi vì đâu có phần mềm nào mà hoàn hảo 100% đâu.
 
Lich Am Duong (version 3).rar

đã Unlock hoàn toàn - Mời mọi người xem và tham gia góp ý để mình tiếp tục hoàn thiện thêm
(không UnHide vì tính thẩm mỹ, mỹ quan)​

  1. Mới bổ xung được 385 câu danh ngôn, ca dao tục ngữ.
  2. Có thay đổi cách nhập ngày tháng dương lịch để xem ngày âm lịch (tránh trường hợp gặp lỗi trên những máy có định dạng ngày tháng khác nhau)
  3. Tháng AL theo CAN CHI

  • Trong khoảng thời gian Từ ngày 1 đến ngày 15 của tháng Dương Lịch này có ngày Mùng 1 của tháng Âm Lịch nào thì tính CAN CHI theo tháng Âm Lịch đó
  • Nếu không có sẽ tính từ ngày 16 đến cuối tháng của tháng Dương Lịch trước
Tập tin đính kèm
rar.gif
Lich Am Duong (version 3).rar (159.4 KB, 392 lần tải)

Sau khi mình tải về và giải nén thì vẫn không mở được, không biết là tại sao, load các file chưa có thêm ngày âm xem được bình thường, nhờ các anh/chị chỉ giúp...
 
Sau khi mình tải về và giải nén thì vẫn không mở được, không biết là tại sao, load các file chưa có thêm ngày âm xem được bình thường, nhờ các anh/chị chỉ giúp...

Bạn giải nén file Lich Am Duong (version 3).rar được file Lich Am Duong (version 3).exe
kick đúp file Lich Am Duong (version 3).exe nó sẽ giải nén file Lich Am Duong (version 3).xls trong thư mục D:\My Documents.

File này vẫn chạy bình thường mà
 
Năm 2009 sắp tới, mình muốn có một tờ lịch như vậy có được không? Làm sao để nó có thể tự động nhảy ngày và hiện lên ghi chú khi mình nhấp chuột vào ngày nào đó.
 
Thêm 1 version 3 nữa đây... 4 tháng lịch trên 1 bãng tính..
Trong đây có sử dụng kỹ thuật định vị... các bạn xem name DINHVI trong define name nhé...
Chú ý: cái này nếu các bạn khéo léo có thể áp dụng nó để làm file báo cáo cho Sếp: Món hàng nào, vào ngày nào, số lượng bao nhiêu? Nếu Sếp nhìn thấy kiểu báo cáo theo kiểu khá hấp dẫn này tin chắc ông ta rất hài lòng đấy...
(Xem bãng tính trong chế độ Full Screen sẽ đẹp hơn)
Mến
ANH TUẤN
Chào bạn! Mình muốn xem tất cả các công thức của bạn nhưng kong được,Chỉ giùm mình được ko? Cảm ơn bạn nhiều!
 
Mình cũng muốn làm một tờ lịch như của bạn anhtuan1066 nhưng hình như công thức bị giấu rồi. Bạn có thể giúp mình cách làm với! Cảm ơn nhiều!
 
Mình muốn thấy những công thức tạo ra ngày, click chuột vào mình thấy công thức ko thay đổi, tất cả đều giống nhau! không copy được! Mọi người giúp với!
Ngoài công thức nhìn thấy trên bảng tính, còn có 1 số công thức khác nằm trong Define name nữa!
Bạn vào menu Insert\Name\Define, chọn vào từng name sẽ thấy công thức của nó ở khung Refers to
 
Ý mình là mình muốn tạo một tờ lịch giống như bạn Tuan nhưng mình muốn tự viết công thức cho quen ấy mà! Mà file đó công thức bị khóa hết rồi, có cách nào để xem từng công thức một ko? giống như một file bình thươngấy! làm phiền bạn lần nữa!
 
Ý mình là mình muốn tạo một tờ lịch giống như bạn Tuan nhưng mình muốn tự viết công thức cho quen ấy mà! Mà file đó công thức bị khóa hết rồi, có cách nào để xem từng công thức một ko? giống như một file bình thươngấy! làm phiền bạn lần nữa!
Chưa hiểu lắm! Tôi thấy công thức vẩn hiện bình thường, có khóa gì đâu chứ
Có điều đây là công thức mãng... Người ta quét chọn 1 lần nhiều cell ---> Gõ công thức vào thanh Formula, sau đó bấm Ctrl + Shift + Enter ---> Vì lẽ đó không thể sửa từng cell được (sửa hoặc xóa 1 lần nguyên 1 vùng)
 
Chưa hiểu lắm! Tôi thấy công thức vẩn hiện bình thường, có khóa gì đâu chứ
Có điều đây là công thức mãng... Người ta quét chọn 1 lần nhiều cell ---> Gõ công thức vào thanh Formula, sau đó bấm Ctrl + Shift + Enter ---> Vì lẽ đó không thể sửa từng cell được (sửa hoặc xóa 1 lần nguyên 1 vùng)
Cho mình hỏi thêm cái này: Mình muốn thêm ghi chú cho từng ngày thì làm thế nào, và làm thêm ngày âm lịch thì làm như thế nào? mình gửi file kèm theo! Cảm ơn bạn nhiều!
 

File đính kèm

Cho mình hỏi thêm cái này: Mình muốn thêm ghi chú cho từng ngày thì làm thế nào, và làm thêm ngày âm lịch thì làm như thế nào? mình gửi file kèm theo! Cảm ơn bạn nhiều!
Công thức của bạn như thế thì thật khó mà phát triển thêm! Nếu cố làm thì cũng sẽ gây rườm rà... Bạn cố gắng bằng mọi cách tạo 1 công thức duy nhất cho tất cả các cell ---> Như vậy sẽ rất dể chỉnh sửa và phát triển!
 
Mở rộng phạm vi áp dụng

mình đã down file lịch âm dương về sử dụng, thấy rất hữu ích.
cám ơn các bạn rất nhiều
có điều phần ghi hình như bị giới hạn, bởi 2 dòng mà mình ghi đầy đủ thì không hiện ở phần lịch ( các phần trước mình sửa 1 chút để bảo toàn riêng tư)
nhờ các bạn xem file đính kèm và chỉ giúp mình cách thức để có thể mở rộng phạm vi ghi chú ( càng có nhiều dòng ghi chú càng tốt)
xin cám ơn
 

File đính kèm

Bạn giải nén file Lich Am Duong (version 3).rar được file Lich Am Duong (version 3).exe
kick đúp file Lich Am Duong (version 3).exe nó sẽ giải nén file Lich Am Duong (version 3).xls trong thư mục D:\My Documents.
Vấn đề là ở đây bác ạ, máy em không có ổ D, bó tay luôn. Bác có thể chỉnh sửa để em có thể tự chọn ổ đĩa không?
 
Vấn đề là ở đây bác ạ, máy em không có ổ D, bó tay luôn. Bác có thể chỉnh sửa để em có thể tự chọn ổ đĩa không?
Trời ơi!
Giãi nén vào đâu tùy bạn ---> Ổ nào cũng được ---> Miển là có cái.. Ổ
 
Trời ơi!
Giãi nén vào đâu tùy bạn ---> Ổ nào cũng được ---> Miển là có cái.. Ổ
Không phải đâu bác ạ. Khi chạy file Lich Am Duong (version 3).exe nó default giải nén file Lich Am Duong (version 3).xls trong thư mục D:\My Documents. Không có ổ D báo lỗi luôn. Chứ không phải là giải nén Lich Am Duong (version 3).rar. Có thể bác hiểu nhầm câu hỏi của em.
 
Trên cơ sở lịch tháng của các cao thủ tren GPE, mình có bổ sung thêm chức năng xem ghi chú khi kích chọn ngay dó. Xin được góp thêm một ý tưởng làm lịch cho vui nhé.
 

File đính kèm

Trên cơ sở lịch tháng của các cao thủ tren GPE, mình có bổ sung thêm chức năng xem ghi chú khi kích chọn ngay dó. Xin được góp thêm một ý tưởng làm lịch cho vui nhé.
Mấy vụ Protect, rồ tiết gì đó có hay ho đâu mà sao mọi người khoái thế nhỉ?
Cho dù Protect với mục đích gì thì khi đưa lên đây, với tinh thần chia sẽ ta cũng nên bỏ pass đi ----> thể hiện sự tôn trong đối với mọi người, nhất là những thứ mình phát triền từ ý tưởng của người khác
 
Lịch còn bị lỗi ở THỨ

Lich Am Duong (version 3).rar
Cảm ơn các bạn đã tạo 1 cái lịch đẹp & tiện lợi để cho cộng đồng sử dụng
Sau khi xem tôi thấy chỗ phần đổi từ dương lịch sang âm lịch thì chỗ THỨ đã bị lỗi. VD: hôm nay 25/11/2011 là thứ sáu thì lịch thể hiện thứ 2, tôi đã test một số ngày khác cũng bị lỗi.
Các bạn có thể sửa để cho cuốn lịch được hòan hảo hơn.
Thân!
 
Cảm ơn các bác. nhìn sản phẩm của các bác em thấy "Choáng" quá.
tuyệt cú mèo luôn.
các bác tư duy tốt quá em thậm chí còn chưa bao giờ nghĩ tới việc dùng tên trong tên cho công thức nữa. giờ mới biết ứng dụng cho cái thứ đó vô biên thật.
Một lần nữa chân thành cảm ơn tất cả mọi người.
 
Hãy đưa pass trong code để anh em cùng tham khảo!!!
 
Dear adm,

Mình muốn tạo một file excel quản lý danh mục công việc/thời gian hiệu quả, nhờ adm giúp đỡ với.

Cảm oen anh/chị. Chúc một cuối tuần vui vẻ.
 

Bài viết mới nhất

Back
Top Bottom