Tạo nút bấm chọn lịch trong vba excel

[Bui Van hieu]

Bạn không nói rõ tạo lịch xong rồi làm gì nữa nên cũng chẳng biết viết code thế nào cả
Còn như tạo chỉ để... ngó chơi thì dùng code này:

Sub MakeCalendar()
  With ActiveSheet.OLEObjects.Add("MSCAL.Calendar.7")
    .Left = ActiveCell.Left: .Top = ActiveCell.Top
    .Width = 268: .Height = 164
    .Visible = False: .Visible = True
  End With
End Sub

Hi anh
Em có userform mak giờ e muốn tạo lịch, mak trên toolbox không có cho add calenda
Vậy làm sao để cho hiển thị được calenda lên ạ
Thanks Anh

 

[ndu96081631]

Hi anh
Em có userform mak giờ e muốn tạo lịch, mak trên toolbox không có cho add calenda
Vậy làm sao để cho hiển thị được calenda lên ạ
Thanks Anh

Nếu bạn đang cài office 32 bit thì hiện tại chỉ có thể cài DTPicker để có lịch (bằng cách download file mscomct2.ocx về máy tính rồi đăng ký)
Hiện tại office 2013 trở đi đã không còn hổ trợ Calendar (MSCAL.OCX) nên chỉ có cách dùng DTPicter (mscomct2.ocx). Tuy nhiên nếu dùng office 64 bit thì không thể cài được bất cứ lịch nào được

 

[Bui Van hieu]

Vâng ạ
Em đang cài office 2010, nhưng nếu bộ office 64bit thì bó tay hả...
Vậy phải cài lại bộ 32bit mới sử dụng đc ạ
Thanks Anh

 

[quanluu]

Hi anh
Em có userform mak giờ e muốn tạo lịch, mak trên toolbox không có cho add calenda
Vậy làm sao để cho hiển thị được calenda lên ạ
Thanks Anh

Bạn có thể dùng lich tự tạo bằng user form nhé, dùng cho bất kì office nào

Vâng ạ
Em đang cài office 2010, nhưng nếu bộ office 64bit thì bó tay hả...
Vậy phải cài lại bộ 32bit mới sử dụng đc ạ
Thanks Anh

Trong trường hợp này thì bạn nên dùng lịch tự tạo (lịch tạo bằng userform control). Bạn tìm kiếm trên mạng sẽ có 1 số người chia sẻ.

 

[Bui Van hieu]

Em tìm hoài mak không thấy ạ
Em cũng không biết làm sao hết....
vì trên toolsbox không cho add calenda,,,
Hỗ trợ giúp em ca này ạ
Thanks ANh

 

[quanluu]

Em tìm hoài mak không thấy ạ
Em cũng không biết làm sao hết....
vì trên toolsbox không cho add calenda,,,
Hỗ trợ giúp em ca này ạ
Thanks ANh

em xem bài này
http://www.vbaexpress.com/kb/getarticle.php?kb_id=543

 

[Bui Van hieu]

vâng ạ
em đọc rồi, nhưng không hiểu ạ, cái đoạn code này là copy vào trong chỗ nào ạ,,,

 

[Bui Van hieu]

Private Sub btnSAVE_Click()
Dim EndR As Long
With Sheets("DATA")
EndR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & EndR + 1) = txta..........
End With
Unload Me
End Sub
\chỗ dấu chấm á,,, sao nó không cho em chọn text ạ.

 

[quanluu]

vâng ạ
em đọc rồi, nhưng không hiểu ạ, cái đoạn code này là copy vào trong chỗ nào ạ,,,

Em tải file của họ về chạy thử chưa? của họ là click vào những ô định dạng ngày sẽ xuất hiện form calendar. Để dùng cho trường hợp của em thì phải tùy biến thêm, tức là khi nhập ngày em gọi form đó lên và chọn ngày sau đó gán vào dữ liệu của em

 

[Hoang2013]

Mình có file này tiện nhập ngày sinh của học sinh đầu năm học nè, tham khảo cho vui lúc rỗi nha.

 

[Phuongmai2015]

Có cao nhân nào nhận dạy vba online và viết code theo yêu cầu ko ạ. Em đang cần học mà ko có thời gian đi đến trung tâm. Liên hệ em 0946269217