Kết quả tìm kiếm cho từ khóa: Calendar

..."#") + 1 End Sub Private Sub Lb_TimeBD_DblClick(ByVal Cancel As MSForms.ReturnBoolean) isDATE = True Me.Height = 200 With Calendar1 .Value = Now: .Visible = True End With End Sub Private Sub LB_TimeKT_DblClick(ByVal Cancel As MSForms.ReturnBoolean) isDATE = False Me.Height...

Cảm ơn bạn Learning Excel Vì em không biết xứ lý cái điều kiện: Nếu Click chọn ngày bắt đầu hiện ra form (Calendar) chọn ngày bắt đầu và đưa ngày bắt đầu vào Lable tương ứng ngày bắt đầu. Nếu Click chọn ngày kết thúc thì cũng vẫn hiện ra form (Calendar) chọn ngày kết thúc và đưa ngày bắt đầu vào...

Thầy ơi cho em hỏi em muốn tạo lịch như thầy nhưng mà trên nguyên cột A thì làm sao thầy? Nghĩa là khi bấm vào A1 thì nó hiện ra cái lịch, bấm vào A2 cũng hiện ra cái lịch.... Nhờ thầy giúp dùm em chỉnh code với!

Các bạn dùng ActiveX (*.ocx) cần phải hiểu rõ ứng dụng của mình đang dùng ActiveX nào, để khi đưa sang máy khác phải cài các ActiveX đó. Một khi mà báo lỗi không có Object hay DLL gì đó thì tất cả các code trong file đều lỗi hết. Lưu ý, các phiên bản Windows phần lớn cung cấp sẵn ActiveX...

ANH ndu96081631 CHO EM HỎI. SAO SAU KHI EM SỬ DỤNG CALENDAR CHO TEXTBOX THI CÁC TEXTBOX KHÁC EM SỬ DỤNG LIST BÕ KHÔNG SỬ DỤNG ĐƯỢC . ANH GIÚP DÙM HEN THANKS

Dạo này...no mind...no feeling...no nhiều thứ :D 30/4 định bụng sẽ vào rừng Cát Tiên ở ẩn mấy ngày. Ai dè nhỏ đồng nghiệp cũ vừa gọi điện "block" mất tiêu cái "calendar" của mình vào ngày 30.4 cho đám cưới của nó ở Đồng Nai. Đen ơi là đen!

Bạn làm như sau: giả sử muốn áp dụng cho sheet1. Tại sheet1 vào Toolbox chọn nút more control (búa và ca le). Trong danh sách chọn Calendar control 9.0 vẽ lên sheet1 1bảng lịch (lưu ý kiểm tra xem tên có đúng la Calendar1 không? nếu không đúng phải diều chỉnh lại thành Calendar1. Nhấn chuột phải...

Bạn phải tự mình vẽ cái Calendar ấy lên bảng tính thì mới chạy ---> Chỉ có code thôi là chưa đủ (cũng như bạn muốn dùng ComboBox, nếu không vẽ nó ra mà chỉ có code thôi thì lấy ComboBox đâu cho bạn chọn)

Vấn đề này đã giải quyết tại topic này, sao lại mở topic khác hỏi nữa? Phải chịu khó đọc bài chứ?

Sao nó báo lỗi nhỉ Calendar1.Visible = False bó tay luôn! Cần giúp đỡ

Khuyên bạn nên dùng Calendar hoặc DTPicker ---> Ai biết dùng form thì chẳng bao giờ lại đi dùng TextBox để nhập ngày tháng cả bạn à Nói chung là: Dùng đúng công cụ ----> Dùng kềm để đóng đinh? Cũng được nhưng mà... cực

...Dùng textbox chứ không dùng Calendar, nhưng ràng buộc gõ dd/mm/yyyy với input mask __/__/____, không cho gõ ký tự chữ cái. (Tuyệt phẩm VBA của MrOkeBab) Nếu làm thì làm vậy,chứ // chả có ý nghĩa quái quỷ gì. Còn điền "//" xuống cell thì quá dễ: Nếu len(...) = 0 thì cells() = "//". TUy vậy...

Em xin hỏi thêm: Nếu Textbox nào mà để trống thì nó sẽ tự động điền "//" vào cell. Vậy code em phải sửa lại như thế nào?

...của ndu hoặc là vầy: i = .Range("A65535").End(xlUp).Row Ngay1 =Me.txtNgay.Value .Cells(i + 1, 1).Value = DateSerial(Right(Ngay1, 4), Mid(Ngay1, 4, 2), Left(Ngay1, 2))Và nhớ là có chữ nếu: Nếu gõ trong textbox dạng đầy đủ 20/02/2011. Và có cả chữ nên, nên làm như nghiaphuc: gắn calendar.

Đúng là em cũng biết các sư phụ đó đã nói mà em vẫn không làm được. Thú thật cái đó em chưa biết! Giờ em sẽ tham khảo bài của anh!

Như thầy ptm0412 đã khuyên ở trên, bạn nên dùng Calendar cho ngày tháng, còn ngày tháng hiển thị trên Form chỉ để... xem cho vui thôi. Mình sửa lại một chút về cấu trúc trên Form của bạn: Thay Textbox txtNgay bởi Label LblNgay, thay Textbox txtNgayCtu bởi Label LblNgayCtu, thêm 2 Calendar 1 và...

Câu 1 và 2: Liên quan đến ngày tháng Nếu dùng text box và gõ 20/02/2011 thì phải dùng hàm DateSerial(year, month, day) với các tham số lấy bằng hàm xử lý chuỗi Lời khuyên: Đã dùng Userform thì nên dùng calendar hoặc DateTime Picker cho ngày tháng. Câu 3: Record macro 1 cái biết liền.

Làm kiểu vầy đây: Public iDate As Long Private Sub Calendar1_Click() iDate = Calendar1.Value TextBox1.Text = Format(iDate, "dd/mm/yyyy") Calendar1.Visible = False End Sub Private Sub CommandButton1_Click() Calendar1.Visible = True End Sub Private Sub UserForm_Initialize()...

Cám ơn bác, em làm được rồi. Em cũng muốn lấy calendar làm tính toán luôn nhưng em mù VBA cũng như mấy cái userform. Cũng như muốn nó hiển thị trên userform Em không biết lấy gì thay cho cái textbox cả . Ý của bác là em nên thay textbox bằng cái label chăng. Em hết quota rồi nên ko biết tải lên...

Thì thay đoạn ActiveCell.Value = Calendar1.Value thành TextBox1.Text= Calendar1.Value thôi Mà đã xài Calendar rồi thì lấy nó tính toán luôn, mắc gì phải cho vào TextBox để làm giống gì