tự động tìm khi nhập mã số

[hong gam]

Cám ơn bác Po_Pikachu đã rất nhiệt tình giúp đỡ. Đôi khi button ở chế độ unprotec nhưng các cell có dữ liệu cũng không chịu lock. Các bác cao thủ ơi, mong các bác giúp vấn đề của em ạh.

 

[Po_Pikachu]

Bạn có thể chỉ mình được không? Mình thấy các ô có dữ liệu luôn khóa mà! Chỉ có rắc rối ở các ô trống có công thức thôi. Mình cũng đã khắc phục được tình trạng quét chọn bị khóa rồi! Thân.

 

[hong gam]

thật cám ơn bác lắm lắm. Nay mình lại vấn đề.
1. mình hide sheet loc chua tien roi mà unhide không được. Mình vào format/sheet để unhide nhưng chữ này bị mờ. mình mỡ pás cho 2 sheet có code vba rồi nhưng vẫn không được. làm giúp mình với nha. thanks.

 

[Po_Pikachu]

Bạn vào VBA, click chuột vào Sheet 5 "Loc chua tien" rồi tìm trong khung ở dưới mục cuối cùng Visible bạn sửa mục kế bên là "-1 - xlSheetVisible". Là nó sẽ hiện lên à. Lệnh "2 - xlSheetVeryHidden" là siêu ẩn, ngay cả lệnh Unhide cũng không thể thấy được! Nên khi khóa VBA rồi thì cũng khá yên tâm là không ai có thể mở được từ ngoài đâu! Đây cũng là 1 tuyệt chiêu đấy nhé! Thân.

 

[hong gam]

Mình vào file gốc, mình tạo 2 button bằng view/ toolbar/ form ở 2 file cần khóa cell rồi cho record macro với tuần tự tên prot1_lick() và prort2_lick(). sau đó copy toàn bộ các câu lệnh từ file bạn đính kèm vào file mình nhưng vẫn báo lỗi. ( lý do mình muốn tự thực hành làm macro này và file mình gởi lên cho bạn có vài sheet cho nó nhẹ ( trong đó có 2 sheet chính ) trong khi đó file gốc mình có nhiều sheet lắm.
Tuy nhiên mình copy lệnh của bạn vào, mình phát hiện nó có tới có 2 sub là ajh và dsf. mình mở phần macro thì nó chính là macro.
Ở nút button bạn thiết kế là unprotect và protec.Vây mình phải làm như thế nào ạh. Nhờ các bác hướng dẫn mình nhé.
---
Ah bác po_pikachu ơi, ở sheet 3, ở sheet ban hang thì ok nhưng sheet Quy thì sau khi nhập liệu, di chuyển sang vùng khác là cell tự khóa vẫn không cho sửa khi chưa save.

 

[Po_Pikachu]

Lệnh button trong thanh Form đó là dạng nút lệnh bằng hình nên khi kích hoạt thì nó sẽ lấy code (Hay mình gọi là Macro) trong Module. Nên bạn copy code trong Sheet thì sẽ không chạy đâu! Muốn dùng code trong Sheet thì phải dòng thanh Control Toolbox, và gọi lệnh Button ra. Bạn để ý, lệnh button trong Form thì khi bạn chọn nó xong thì nó sẽ hiện thị 1 bảng Macro để chọn Macro chạy nó. Còn Button trong Control Toolbox thì không thấy có hiện tượng gì hết. Mà bạn phải nhấp đúp chuột vào nó thì trong Sheet sẽ có dòng chữ "Private Sub CommandButton1_Click()" để bạn thiết lập lệnh thực thi cho nó! Đó là hai sự khác biệt lớn về hai lệnh này. À, việc này là do mình đang tìm cách sử lý việc các ô có công thức mà chưa hiện dữ liệu lên. Mình đã copy thử sang sheet Quy xem có tác dụng không! Rồi quên xóa đi đó mà. Bạn sửa code lại như vầy là được liền! Mặt dù tình huống đó vẫn còn bế tắt! Chẳng biết làm sao để hết cả! Mong bạn thông cảm nha!

Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo loi If Sheet3.prot1.Caption = "UnProtect" And Target.Value = "" Then         Sheet3.unprotect "DANH"         Target.Locked = False         Sheet3.Protect "DANH", True, True, True End If loi: Exit Sub End Sub

Còn hai sub ajh(), dsf() là để thử nghiệm thôi, bạn có thể xóa tự nhiên. Thân.

 

[hong gam]

thật cám ơn bác rất nhiều. Bác rất nhiệt tình giúp em cũng đâu dám trách. em còn chưa biết làm phải nhờ đến bác mà và còn chưa hậu tạ bác nữa

 

[hong gam]

cám ơn bác Po_pikachu nhé. mình chỉnh sửa câu lệnh và giờ thì đã khắc phục được những vấn đề trên rồi. Mình đang hoàn thiện lại file - loay hoay tạo button cũng khá phê vậy mà các bác làm thiệt lẹ.(chắc làm luôn trên file có lệnh của bác cho tiện quá).

 

[Po_Pikachu]

Bạn không biết hay bí chỗ nào cứ hỏi, về nút lệnh thì vào Control Toolbox, kéo thả thôi. Nhấp đúp để nhập code. Bạn viết như trên thì bó tay rồi! Thân.

 

[tuanlichviet]

chương trình này thật tuyệt nhưng quan trọng nhất trong sổ bảng tính chia sẻ share Workbook thì mất tác dũng các bạn có thể sửa lại được không

 

[phuongc5]

Bài #4 của anh Ndu rất hay nhưng mà nếu dữ liệu lên đến 5000 dòng thì phải đợi hơi lâu (lúc lọc thì nhanh nhưng lúc bỏ lọc thì đợi lâu). Có cách nào làm cho nó nhanh được không ạ. Vì em lọc theo thủ công thì ấn vào All ở hình tam giác xổ xuống thì rất nhanh.

 

[doantrang57]

Bài này dùng Advanced Filter thôi, kết hợp với code VBA nữa là thành tự động!
Xem file nhé

Em nhìn pác dùng VBA mà siêu thế, em chưa bít dùng nó như thế nào cả. Nhìn thấy có vẻ tiện ích lắm, Trong diễn đàn mình có bài nào hướng dẫn từ đầu cách dùng vba ko nhỉ. gửi cho bà con mới như em học tập cái coi

 

[ndu96081631]

Em nhìn pác dùng VBA mà siêu thế, em chưa bít dùng nó như thế nào cả. Nhìn thấy có vẻ tiện ích lắm, Trong diễn đàn mình có bài nào hướng dẫn từ đầu cách dùng vba ko nhỉ. gửi cho bà con mới như em học tập cái coi

Đương nhiên là nó rất "tiện" rồi...
Bạn có thể tập tành VBA bằng cách Record maco
Tiếp theo hãy xem bài viết này:
http://www.giaiphapexcel.com/forum/showpost.php?p=183052&postcount=1163