Chủ Nhật, 27 tháng 11, 2022


 

 

  #ocdaybonho #thuthuatmaytinh #ntsoftware Cách xử lý khi ổ C bị đầy bộ nhớ Cách làm ổ c giảm dung lượng Làm gì khi ổ C Bị đầy bộ nhớ trong win 10 1. Xóa file trong thùng rác 2. Xóa các tập tin tạm thời % temp% Nhấn Windows+ R 3. Chức năng Storage 4. Xóa lịch sử tìm kiếm File Control Panel - History * Đã có nhiều bạn làm thành công, ổ cứng đã gần hết dung lượng làm các bước hướng dẫn giảm dung lượng ổ cứng thì ổ cứng trống lên đến 2G.. Xin cảm ơn các bạn đã gởi bình luận về kênh youtube của mình, mình sẽ có gắng ra nhiều video về thủ thuật máy tính nữa. Nếu win 7 bạn có thế xem video sau: https://youtu.be/D4mVtn8nZEs Để nhận nhanh nhất các video mới về các thủ thuật máy tính các bạn nhớ đăng ký kênh: https://www.youtube.com/c/NTSoftware Các liên kế hay khác: Thủ thuật Excel: https://www.youtube.com/watch?v=UdO6X... Học Microsoft Access: https://www.youtube.com/watch?v=Tn4AC... Liên kết các thủ thuật: https://nhatthanh.net/thu-thuat-may-tinh Phần mềm bán hàng: https://phanmeminhoadon.com/ Học làm web: https://iif.vn Chúc bạn một ngày thật vui vẻ !

 


 

 

 

Posted on 04:46 by NHAT THANH SOFTWARE

No comments

  #vbaexcel #phanmem #ntsoftware Code VBA đếm số lần mở file Excel, thoát file Excel nếu mở quá số lần quy định Bạn muốn viết 1 app excel để giới hạn số lần mở file, nếu mở quá số lần quy định thì sẽ thoát file và thông báo cho khách hàng biết là đã mở tối đa số lần file excel cho phép. Hãy tham khảo đoạn code vba sau nha: Áp dung trong một số nghiệp vụ làm app excel cho khách hàng sử dụng thử trong thời gian quy định, nếu mở quá số lần file excel tự động đóng. Bước 1: Tạo file Excel có Type As 


 

Save: Excel Macro Enabled Workbook Bước 2: Mở được chức năng CODE VBA - Tạo được lệnh tác động đến Workbook * Phân biệt code trong Sheet và trong Workbook - Sheet : code chỉ tác động được đến sheet - Workbook: code tác động được đến file excel. Tham khảo lệnh VBA theo liên kết: https://nhatthanh.net/hoc-lap-trinh/4... Sau đây là code VBA, bạn COPY vào nha nhớ thay lại [dấu lớn hơn] và[ dấu nhỏ hơn] lại, vì ký tự đó không nhập được trên youtube 'Lenh chay khi mo file Excel Private Sub Workbook_Open() 'khai bao bien so lan mo file Dim SoLanMoFileExcel As Integer Dim MatKhau As String ' lay gia tri so lan mo hien tai ra bien SoLanMoFileExcel = Range("A1").Value 'tang so lan mo len 1 SoLanMoFileExcel = SoLanMoFileExcel + 1 'ghi lai bien so lan mo ra o A1 Range("A1").Value = SoLanMoFileExcel 'Neu nhu gia tri bien SoLanMoFileExcel lon hon 5 If SoLanMoFileExcel [dấu lớn hớn] 5 Then 'hien thi hop thoai nhap lieu 'gia tri nhap tu ban phim se dua vao bien MatKhau MatKhau = InputBox("File excel mo duoc "& SoLanMoFileExcel &" lan ,neu nhap MK sai file Excel se bi thoat", "NT Software", "") 'Neu gia tri bien MatKhau khac 123 thi thoat If MatKhau l [dấu nhỏ nhỏ] l [dấu lớn hơn] "123" Then Application.Quit ' thoat End If End If End Sub ' Lenh chay TRUOC KHI thoat file excel Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Neu chua luu thi Luu ' Me.Saved TRUE neu da luu 'Me.Saved FALSE neu chua luu If Not Me.Saved Then Me.Save End If End Sub ► Nhận thêm nhiều video về thủ thuật phần mềm nhanh nhất: https://www.youtube.com/c/NTSoftware?... ------------------------------------ ► Hãy Liên Hệ Email Của Tôi: ► Gmail : nhatthanhchulai@gmail.com ------------------------------------ ► Powered by NT SOFTWARE ©. Vui lòng không đăng tải lại dưới bất kì hình thức nào. ► Copyright © By NT SOFTWARE

 


 

 

Posted on 04:41 by NHAT THANH SOFTWARE

No comments