Cách tạo Date Picker trong Excel (Calendar form)
Vložit
- čas přidán 6. 09. 2024
- Hướng dẫn cách tự tạo date picker trong excel hay còn gọi Calendar form
----------
Link tải file thực hành: drive.google.c...
-----------------
Cảm ơn các bạn đã theo dõi. Nhớ đăng ký kênh, chia sẻ để ủng hộ và cập nhật video mới nhất từ Gà Excel nhé
Chúc các bạn học tốt Excel!!!
#Gaexcel "Gà_excel #ExcelChicken #CungHocExcel #ExcelCoBan #ExcelNangCao
Gà excel có những tuyệt chiêu rất hay và hửu ích, tôi luôn theo dõi các bài của bạn. Rất hoan nghênh bạn làm những bài không dùng Visual Basic mà vẫn chạy được, những bài này chắc chắn tôi và rất nhiều người khác giống như "Thầy bói xem voi" thôi, không ứng dụng cho trường hợp khác cho phù hợp của từng người mà không biết VB.
Hihi, Gà cảm ơn bạn đã ủng hộ ạ. Gà sẽ làm song song bài không VBA và có VBA để ai cũng có thể học ạ. Cảm ơn bạn rất nhiều.
Rất hay, mong anh ra nhiều bài hướng dẫn chi tiết như vậy.
Gà cảm ơn nha
Hướng dẫn đánh dấu ngày hiện tại và các ngày đặc biệt trên lịch. Cám ơn !
Cái này thêm 1 vài lênh là sẽ làm được thôi ạ. Bạn thử xem nha. Chúc bạn thành công ạ
Rất hay mong a ra tiếp tục nhiều clip nữa có những hàm mới a nhé. Tks a
Cảm ơn Gà Excel, video rất hữu ích👍
Mạc dù nhiều module có sẵn của date picker nhưng mà vẫn thích tự làm. Thanks anh Gà!
Hay quá,đúng cái em đang cần ạ😍😍😍
Hihi, Gà chúc bạn thành công nha
Bạn giản rất hay, cảm ơn bạn
hơi nhức đầu , mà hay quá đi , mình cũng đang tạo lịch để xếp ngày trực ,nhưng dùng của wincalendar thôi ,Thanks !
Anh Gà ơi, anh làm bảng tính lương cho công nhân đi anh, chấm công bằng thủ công. Chúc anh nhiều sức khoẻ.
Hay quá!thank gà exel
Hihi, Gà cảm ơn ạ
Gà ơi, hướng dẫn giúp chuyển số thập phân từ textbox sang sheet của Excel
Bạn tham khảo thêm các video khác trên kênh để áp dụng nha. Chúc bạn làm thành công ạ
Gà ơi. Hãy làm Dashbroad Excel nhé.
Xuất sắc nè!
Hihi, Gà cảm ơn nha
Gà ơi khi mình làm đến gán lệnh cho Img(Next) thì chương trình hiện : Private Sub img_next_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
On Error Resume Next
như vậy khi viết lệnh thêm không dc , xin Gà chỉ cách khắc phục nhé, cám ơn Gà nhìu nha....
dạ em làm theo anh gà đc hết rùi ạ!!!a Gà cò thể hướng dẫn thêm tạo menu ribbon cho cái addin này k anh gà ơi!
Xin chào Gà Excel ... mình cám ơn rất nhiều các chia sẽ của Gà Excel...." Date Picker" mình tạo xong chạy rất OK nhưng bị thiếu ngày 31 giờ khg biết sữa làm sao Gà Giúp mình sửa nhé...Tks Gà
Hay
Hihi, Gà cảm ơn nha
ngưỡng mộ !
Hi ga, mình làm đến phần load picture icon, Button netx thì được nhưng Icon Button previous thì báo lỗi, không biết lỗi ở đâu.
A làm vba cho người mới bắt đầu đi
Có video đó rồi ạ. Bạn theo dõi bài này nha.
czcams.com/video/DT0QOoLvM10/video.html
Bài giảng hay tuy nhiên bạn nên giải thích cách làm sơ quá trước chứ hơi khó hiểu hjhj
Hihi, Gà cảm ơn và sẽ lưu ý ạ
Muốn ngày hiện tại có màu khác để dễ nhận thì làm thế nào ạ?
Rằng: Tôi yêu ông.
Có gì thì tính sau.
Tôi yêu ông nhất trên đời.
Và chỉ mình ông thôi.
Ế ồ ồ ế ô.
....
Hihi, Gà cảm ơn nha. cũng ko hiểu bạn muốn nói j lắm ạ
Tôi học hỏi được rất nhiều điều từ bạn. Cảm ơn bạn nhiều lắm.
Sau khi mình làm xong chạy Ok, chép toàn bộ qua file khác, khi chạy phần ghi vào textbox thì báo lỗi ở câu lệnh Call ChonNgay.select_date(“textbox”)
Bạn kéo cả user của file cũ vào file mới (mở 2 file rồi vào VBA. Giữ Ctrl rồi kéo user từ file này sang file kia
Gà Excel cảm ơn bạn nhiều!
Cảm ơn anh Gà nhiều.
Còn trường hợp mình muốn nó hiện luôn để mình thao tác nhập liên tục vào nhiều cell trong sheet thì làm như nào anh. Vì có trường hợp 1 tuần nhập phiếu 1 lần ra cả 100 hàng thì như này hơi bất tiện anh.
hay quá anh ơi, đún cái em cần, mà anh ơi, ở khúc 1:04:59 anh nói là làm cho kỹ để sau này cần dùng Date Picker thì mình sẽ dùng nó luôn thì thì làm sao được v anh, anh có thể làm video hướng dẫn ko ạ.
Đoạn cuối Gà có nói cách dùng đó ạ
@ dạ cảm ơn anh gà nhưng em muốn hỏi là mình chuyển cả code lẫn user form từ file excel đó sang file excel khác thì làm như thế nào v ạ, cho đỡ tốn thg khi mình phải làm lại bên file khác v anh. Mong anh làm video hướng dẫn về vấn đề này
Hi, bác gà. E có hỏi ở bài tự viết hàm my-vlookup bằng vba như sau: thay vì nhiều kết quả trả về cách nhau bằng dấu phẩy, ta có thể viết sao cho mỗi giá trị trả về sẽ nhảy vào các cell kế tiếp nhau dc ko ạ. Mong bác hồi đáp. Cám ơn bác ạ:)
Được chứ ạ. Bạn học thêm về VBA để làm nha. cũng dễ thôi ạ. Chúc bạn thành công nha
Gà ơi giúp mình với trên 1 file excel mình lập 2 bảng mà khoảng cách các cột hàng nó khác nhau lập bảng trên dc xuống bảng dưới mà chỉnh là cái trên nó chạy theo làm cách nào giúp với thankiu gà
ANH VIẾT HAY QÁ,VIẾT CHƯƠNG TRÌNH NÀY MÌNH CHẮC PẢI HỌC QA CĂN BẢN PHẢI KHÔNG A?, GÀ MỜ NHÌN VÔ HỒI RỐI LUÔN HIHI
rất hay
gà ơi cho mình hỏi là sao image của mình k thấy event Click z ạ?
bạn ơi cho minh hỏi! mình làm ok hết r! cuối cùng là chọn ngày mà nó ko hiển thị ra ngoài ô trống là bị gì ạ! minh kiem tra ki rất nhiều lần! ko sai chỗ nào hết. cái txt_date_id thì nó hiện ngày tháng vô, mà sao chọn ngoài ô trống nó ko hiện
Hi GÀ, Mình làm theo bạn mà sau khi chọn thì không hiển thị ngày tháng ra ô đã chọn được, cảm ơn bạn video hữu ích !
minh cung bị y nhu bạn! tới giờ chưa biết cách khắc phục
@@trinhnguyen-ox9jv mình đã sửa được rồi, b coppy đoạn này paste lại chỗ sub button_select xem sao nhé :
Sub button_select(btn As MSForms.CommandButton)
If btn.Caption "" Then
Me.txt_date_id.Value = Format(DateSerial(Me.cbb_year.Value, Me.cbb_month.Value, btn.Caption), "mm-dd-yyyy")
End If
'''Unload Me'''
End Sub
@@phamngocbao1769 sub cua mình cung yk chan bạn luôn! mà có chỗ unload me bỏ trong 2 dấu "" thi ko dc
@@trinhnguyen-ox9jv Thế b copy đoạn function sau vào cuối là được nhé, nhớ xoá cái cũ của bạn đi
:
Function select_data(target As Object) As String
Dim str As String
ChonNgay.Show
If TypeName(target) = "CommanButton" Or TypeName(target) = "Label" Then
target.Caption = Me.txt_date_id.Value
ElseIf TypeName(target) = "Range" Or TypeName(target) = "TextBox" Then
target.Value = Me.txt_date_id.Value
Else
select_data = Me.txt_date_id.Value
End If
End Function
@@phamngocbao1769 cam ơn bạn! mih làm dc ùi
Em tạo phần userform bị lỗi phông là lỗi gì vậy ạ!
Gà Excel có thể hướng dẫn thêm nút "Today" để khi mình đang kéo xem lịch ở những tháng năm nào đó (không phải là tháng năm hiện tại), khi đó muốn lấy ngày tháng hiện tại thì ta chỉ cần click vào "Today" nó sẽ chọn luôn ngày hiện tại được không?
Hihi, đoạn này Gà lại ko nghĩ ra chứ lị. Bạn có thể thêm 1 lênh trọng vòng lặp của i từ 1 đến 42 rồi so sánh với today, nếu trùng thì tô màu j đó nha. Chúc bạn thành công ạ
@ ý mình là, nó sẽ trả luôn ngày hiện tại "Today" vào ô trên bảng tính, chứ ko phải tô màu trên userform. Ví dụ: mình đang kéo lịch đến tận ngày 27 tháng 12 năm 2100 để xem, bây giờ tự dưng muốn chọn ngày hiện tại "Today" (Ngày 10 tháng 9 năm 2020) để nó đổ vào ô trên bảng tính, thì lại mất thêm thao tác chọn lại năm, tháng (hoặc kéo mũi tên sang trái để trở về). Thay vì như thế mình có nút "Today", khi nhấn vào đó thì nó sẽ trả luôn giá trị ngày hiện tại (Ngày 10 tháng 9 năm 2020) vào ô trên bảng tình, cho bớt thao tác :)
Có sử dụng được trên gg sheet không ạ
Anh ơi cho e hỏi biến Additem mình khai báo sao ạ? Đến đoạn code này nó báo lỗi a ơi.
Anh ơi, cho em hoi tai sao lai co tên Me cua UserForm vậy ạ.
Cú pháp quy định thế ạ
Làm như nào để mình có thể chọn danh sách nó hiện cả mã và tên hàng đơn vị tính vậy gà. Nó giống như kiểu kick vào ô rồi hiện ra 1 cái bảng gõ tên muốn tìm xong nó hiện ra ấy
Mình muốn viết code các ngày Chủ nhật đổi màu và Fonts cũng đổi màu theo minh viết code như thế này :
If CInt(Weekday(DateSerial(Me.ComboBox2.Value, Me.ComboBox1.Value, Me.Controls("CommandButton" & i).Caption))) = 1 Then
Me.Controls("CommandButton" & i).ForeColor = RGB(255, 0, 0)
nhưng VBA không hiểu, bạn có thể giúp mình được không
Nếu mình tích chọn vào 1 ô và nó hiện ngày tháng của hiện tại có được không, khi học sinh đóng học phí, mình mở ds lên và chỉ tích hoặc chọn vào là hiển thị lên ngày tháng của ngày hôm nay là được
bạn dùng tổ hợp phím Ctrl + ; để hiện ngày, Ctrl + Shilt + ; để hiện giờ nhé
@@cannguyen7877 cảm ơn bạn rất nhiều, nếu trên đt thì làm sao bạn
@@ngoctrongnguyen4986 excel trên điện thoại chủ yếu hỗ trợ xem, còn mấy chức năng khác thiếu rất nhiều nên không có chức năng nhập ngày tháng như bạn đang cần nhé
@@cannguyen7877 cảm ơn bạn rất nhiều
Tks gà. Gà cho mình hỏi có cách gì để nó hiện Userform ra ở vị trí màn hình bảng tính theo ý mình ko.
Bạn cài thêm phần developer cho ribbon, tạo command button rồi gán macro của userform cho button nhé
Your link does not work?
link button đưa vào image kg đc bạn ơi, kg biết làm sao luôn
Bạn ơi ! có thể hướng dẫn dùm , đến phần chọn button next thì lại báo là " invalid picture" , xin bạn chỉ giúp , cám ơn nhiều
Bạn đổi đuôi thành jpg là dc
Xin chào Thầy, em đã làm được như hướng dẫn nhưng muốn áp dụng bảng Date picker này cho các file excel khác thì chưa biết làm thế nào. Xin thầy chỉ giúp. Cảm ơn Thầy.
Để áp dụng ứng dụng date picker này cho những bảng tính còn lại, bạn chỉ việc Import hoặc copy ứng dụng này trong sang bảng tính khác trong cửa sổ VBA thôi.
Mình làm được hết từ a tới z mà quên đổi file lưu cuối cùng công công cốc. Đau lòng quá đi
ANH GÀ CHO MÌNH HỎI, CHỖ HYBERLINK, MÌNH MUỐN LINK ĐẾN 1 Ô CỐ ĐỊNH, KHI CHÈN BAO NHIÊU DÒNG THÌ NÓ VẪN LINK CHÍNH XÁC ĐẾN Ô ĐÃ CHỌN BAN ĐẦU THÌ CÓ CÁCH NÀO KHÔNG?
Chào bạn, trên kênh có 1 số bài về hyperlink rồi đó ạ và bài 50 thủ thuật excel để tham khảo về hyperlink và áp dụng nha. Chúc bạn thành công ạ
Anh gà chưa hiểu ý mình rồi
Máy tính bạn để ngày/tháng/năm hay tháng/ngày năm ạ
Mình để mm/dd/yyyy ạ
Bạn ơi máy tính để dd/mm/yyyy, viết code cũng như vậy sao không ra định dạng date nhỉ, chỉ mình với
😚😚
Tks bạn nhé
Anh Gà Excel ơi, anh tạo Folder gì để có thể mở link ảnh vào VB đc vậy ạ? Em làm thử và bị vướng chỗ này. Mong anh giúp đỡ. Cảm ơn anh
Hic hic, Gà ko hiểu ý bạn ạ. Để chèn ảnh vào image thì trong phần properties bạn chọn mục picture rồi trỏ đến file ảnh là được ạ
Em thực hiện như anh nhưng đến phần chèn image button vào thì không đc ạ
không hiện ngày a ơi. Xin lỗi khắc phục
Minh vô trễ rồi
Hihi, Gà cảm ơn bạn nhiều nha
Mình không có hàm Caption luôn :(
Cho e xin file với
Bạn theo dõi và thực hành đẻ học VBA nha
Mình muốn sau khi hiện lịch chọn ngày thì có thể kích chọn nhiều ngày trên nhiêu Ô khác nhau, sau đó bấm mới nhấn nút dấu X ở góc bên phải mới thoát thì phải làm thế nào ạ. Xin cảm ơn Gà!
BAC GA OI CHO XIN SDT ZALO VOI