Tạo button xóa và ẩn hiện các dòng có điều kiện, nhờ các bạn giúp (1 người xem)

  • Thread starter Thread starter Hiennd2
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Hiennd2

Thành viên chính thức
Tham gia
22/4/09
Bài viết
60
Được thích
6
Tạo button xóa và ẩn hiện các dòng có điều kiện, nhờ các bạn giúp
 

File đính kèm


Tạo button xóa và ẩn hiện các dòng có điều kiện, nhờ các bạn giúp

Mình thấy bài của bạn gửi cũng đã lâu nhưng chưa có ai trả lời. Có thể là bài của bạn đã có quá nhiều trên diễn đàn này rồi,bạn cố gắng bớt chút time tham quan diễn đàn nhé là bạn sẽ thấy nhiều cái rất bổ ích

Nhân đây thôi thì mình cũng giống như bạn thôi --> chẳng biết gì về vba cả. Nhưng thời gian vừa qua nhờ các Thầy Cô chỉ bảo tận tình nên mình mới học được ít nhiều về cách lấy trộm của cải của người khác về làm của nhà .. :D

Bài của bạn có 2 ý:

Ý 1 bạn xem link này nhé:Nhờ giúp đỡ về vấn đề Msgbox?

Còn ý 2 bạn xem link này:Chuyên đề giải đáp những thắc mặc về vba.

Bạn tham khảo file đính kèm rồi áp dụng nhé!
 

File đính kèm

Upvote 0
Cảm ơn bạn, mình cũng tìm các bài viết, nhưng chưa áp dụng được. Ah, bạn cho mình hỏi thêm nếu dùng protect sheet tại vùng màu xanh đó thì có dùng được nút hide/unhide
 
Upvote 0
Cảm ơn bạn, mình cũng tìm các bài viết, nhưng chưa áp dụng được. Ah, bạn cho mình hỏi thêm nếu dùng protect sheet tại vùng màu xanh đó thì có dùng được nút hide/unhide

Làm tạm cho bạn

xem code trong file gửi kèm

Sheet chứa 2 nút đang được protect với password là 1 khoảng trắng (nếu thay đổi, thì trong code cũng phải thay đổi cho hợp lý)
hiện code xử lý đến dòng thứ 65000, nếu hơn thì thay đổi trong code
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Cảm ơn bạn nhiều, trong file mình muốn mở rộng việc xóa các vùng và ẩn hiện dòng

Cảm ơn bạn nhiều, Mình đã ứng dụng thử, mình muốn hỏi thêm trong file mình muốn mở rộng việc xóa các vùng và ẩn hiện dòng nhưng muốn 1 số vùng không bị khóa để có thể nhập bình thường. nhờ các bạn giúp
 

File đính kèm

Upvote 0
Cảm ơn bạn nhiều, Mình đã ứng dụng thử, mình muốn hỏi thêm trong file mình muốn mở rộng việc xóa các vùng và ẩn hiện dòng nhưng muốn 1 số vùng không bị khóa để có thể nhập bình thường. nhờ các bạn giúp

Bấm Alt+F11 để xem CODE hiệu chỉnh vùng cho thích hợp

Việc bạn muốn xoá vùng vàng - sao không liên tiếp vậy (thật là vụn vặt, và không quy luật - thường phải theo 1 vùng liên tiếp hay 1 cột) --nếu vẫn thích thế, thì cách tốt nhất là đặt tên cho toàn bộ các vùng ô đó - bấm ctrl đặt tên, rùi trong code sử dùng Range("<tên của name>") để xác định vùng đó

Ô muốn khoá Locked, hay không khoá -- khi protect sheet: thì bạn nên tự đọc tìm hiểu, chỉ biết rằng trước khi protect sheet thì bạn hãy format các ô muôn không khoá bằng cách chọn các ô đó và vào format cells / .bỏ locked trong tab protect (tự đọc thêm cho hiểu hơn)

vậy chắc đủ, bạn quá đủ trình để sửa đúng k?
 
Upvote 0
Cảm ơn bạn nhiều, Mình đã ứng dụng thử, mình muốn hỏi thêm trong file mình muốn mở rộng việc xóa các vùng và ẩn hiện dòng nhưng muốn 1 số vùng không bị khóa để có thể nhập bình thường. nhờ các bạn giúp

Bạn thử tải đoạn video về làm thử thế này xem!
------------------------------------------------
Bạn cứ bám theo 2 Thầy này mà học:

ptm0412
user-online.png
Excel Ordinary Member
pip.gif
pip.gif
pip.gif
pip.gif
pip.gif
pip.gif

ndu96081631
user-offline.png
Ăn cùng GPE, Ở cùng GPE
iconnh.gif
iconnh.gif
iconnh.gif



Nếu bạn có thời gian tìm hiểu các bài viết của 2 Thầy này thì chẳng mấy chốc bạn được như Anh này:

vodoi2x
user-offline.png
Nothing & Nothing
pip.gif


Cố gắng nên nhé ---> Chúc bạn thành công!
Mình thì chịu rồi dù rất muốn nhưng chẳng có thời gian và đầu óc để mà tìm hiểu kỹ nữa
 

File đính kèm

Upvote 0
Bạn thử tải đoạn video về làm thử thế này xem!
------------------------------------------------
Bạn cứ bám theo 2 Thầy này mà học:

ptm0412
user-online.png
Excel Ordinary Member
pip.gif
pip.gif
pip.gif
pip.gif
pip.gif
pip.gif

ndu96081631
user-offline.png
Ăn cùng GPE, Ở cùng GPE
iconnh.gif
iconnh.gif
iconnh.gif



Nếu bạn có thời gian tìm hiểu các bài viết của 2 Thầy này thì chẳng mấy chốc bạn được như Anh này:

vodoi2x
user-offline.png
Nothing & Nothing
pip.gif


Cố gắng nên nhé ---> Chúc bạn thành công!
Mình thì chịu rồi dù rất muốn nhưng chẳng có thời gian và đầu óc để mà tìm hiểu kỹ nữa

vì thấy có liệt kê vodoi2x vào, nên ý kiến chút

Loằng ngoằng quá KUMI ah, theo nhiều thầy nhiều ma - khéo mà lại loạn lên tẩu hoả nhập ma lun hihihi (spam chút..)

Đừng tự làm khó mình, hãy học từ sách vở, đừng nghĩ khó - người ta (microsoft) còn làm ra phần mềm to khủng như vậy ta vọc chơi: chút biến tấu công thức hay VBA chỉ là góc nhỏ

Tóm lại cứ học từ sách vở, từ các ví dụ thực tế, tích luỹ dần sẽ có kinh nghiệm chinh chiến thôi - đừng lo gì cả hay hình tượng ai cả

---NHƯ việc khoá hay mở (locked) cells thì trong sách vở viết đầy đủ rùi: bạn ấy cứ chọn cells - bấm CTRL+1 sẽ hiểu
 
Upvote 0
Bấm Alt+F11 để xem CODE hiệu chỉnh vùng cho thích hợp

Việc bạn muốn xoá vùng vàng - sao không liên tiếp vậy (thật là vụn vặt, và không quy luật - thường phải theo 1 vùng liên tiếp hay 1 cột) --nếu vẫn thích thế, thì cách tốt nhất là đặt tên cho toàn bộ các vùng ô đó - bấm ctrl đặt tên, rùi trong code sử dùng Range("<tên của name>") để xác định vùng đó

Ô muốn khoá Locked, hay không khoá -- khi protect sheet: thì bạn nên tự đọc tìm hiểu, chỉ biết rằng trước khi protect sheet thì bạn hãy format các ô muôn không khoá bằng cách chọn các ô đó và vào format cells / .bỏ locked trong tab protect (tự đọc thêm cho hiểu hơn)

vậy chắc đủ, bạn quá đủ trình để sửa đúng k?
Cảm ơn bạn, mình muốn xóa các vùng ô xanh bạn à, vì dưới mỗi vùng có cột tổng cộng nên muốn để nguyên.
 
Upvote 0
Làm tạm cho bạn

xem code trong file gửi kèm

Sheet chứa 2 nút đang được protect với password là 1 khoảng trắng (nếu thay đổi, thì trong code cũng phải thay đổi cho hợp lý)
hiện code xử lý đến dòng thứ 65000, nếu hơn thì thay đổi trong code
Bạn ơi, sao trong code mình muốn rút gọn số dòng B5:B2345;....5:2345 lại không ẩn và hiện được vậy nhỉ
 
Upvote 0
Bạn ơi, sao trong code mình muốn rút gọn số dòng B5:B2345;....5:2345 lại không ẩn và hiện được vậy nhỉ

file bạn up lên mới đây, là B5:B3000 ==> bấm nut Un/Hide vào thấy chả ẩn các dòng 24 đến dòng 29 (tại đây cột B có giá trị =0) đó sao --thế là chuẩn còn gì?? (dĩ nhiên từ dòng 42 đến 3000 thì không ẩn, vì có dữ liệu gì đâu mà bắt nó ẩn, có tác dụng chi)

còn VÙNG XANH muốn xóa, thì sao cũng không liên tiếp vậy, - mà sao lại xóa giá trị đi tổng để lại, vậy nên để tổng cột khác nhé thì sẽ thuận hơn, - Túm lại bạn muốn nhận giúp đỡ chuẩn thì phải nói rõ tại sao muốn xóa mục đích, và yêu cầu gì, và nói vấn đề gốc khi đó có cách khác hay hơn là xóa có khi
 
Upvote 0
Bạn ơi, sao trong code mình muốn rút gọn số dòng B5:B2345;....5:2345 lại không ẩn và hiện được vậy nhỉ

file bạn up lên mới đây, là B5:B3000 ==> bấm nut Un/Hide vào thấy chả ẩn các dòng 24 đến dòng 29 (tại đây cột B có giá trị =0) đó sao --thế là chuẩn còn gì?? (dĩ nhiên từ dòng 42 đến 3000 thì không ẩn, vì có dữ liệu gì đâu mà bắt nó ẩn, có tác dụng chi)

còn VÙNG XANH muốn xóa, thì sao cũng không liên tiếp vậy, - mà sao lại xóa giá trị đi tổng để lại, vậy nên để tổng cột khác nhé thì sẽ thuận hơn, - Túm lại bạn muốn nhận giúp đỡ chuẩn thì phải nói rõ tại sao muốn xóa mục đích, và yêu cầu gì, và nói vấn đề gốc khi đó có cách khác hay hơn là xóa có khi
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom