Tạo nút ẩn cột, ẩn dòng,... trong Sheet như thế nào? (1 người xem)

[vanle33]

Mình có file đính kèm như sau
1) Mình muốn tạo các nút bấm trong Sheet đó. Tên các nút bấm đó là "Xóa dòng" "Xóa cột" " Ẩn dòng" "Ẩn cột" " Paste Values"
Chỉ cần chọn các cột, dòng và nhấn vào nút đó. thì sẽ thực hiện được lệnh tương ứng. Với trường hợp Paste Values thì chọn ô nguồn, nhấn Paste Values , chọn ô đích
2) Các nút bấm này có thể áp dụng cho các Sheet khác của cùng 1 Work book
3) Có thể áp dụng sang file khác

 

[vanle33]

Trong file dữ liệu của bạn có đủ thứ trên đời, công thức, định dạng.....vv nên phải chơi kiểu thằng Đậu rồi
Thật tình mà nói làm cái này không khả thi, những gì mà công cụ trong bảng tính làm Ok (hide,delete..)thì cứ thế mà phang, tạo nút dấu, dán, xóa rồi lại tạo nút "Ân" với chả "đù" chỉ tổ rách việc vì nó cực kỳ hạn chế & cực kỳ "tèo", thấy lo lo rồi lại tạo bảng hỏi tới hỏi lui là có muốn "Ân đù" hông nữa
Nếu chỉ để tham khảo thì được, trăm ngàn lần mong bạn .....đừng áp dụng
Híc

Bác ơi
Em muốn hỏi
1) Sửa chữ "Totite" của bác thành "Back-Concogia" và "An-du" thành "Undo" như thế nào? hiii. Em tự sửa mà Code không chạy
2) Em thấy trong Code của bác có chữ "aaa" là gì vậy?
3) Code có thể chạy trong 1 sheet bất kỳ của 1 file bất kỳ đã có Code này không?

 

[concogia]

Bác ơi
Em muốn hỏi
1) Sửa chữ "Totite" của bác thành "Back-Concogia" và "An-du" thành "Undo" như thế nào? hiii. Em tự sửa mà Code không chạy
2) Em thấy trong Code của bác có chữ "aaa" là gì vậy?
3) Code có thể chạy trong 1 sheet bất kỳ của 1 file bất kỳ đã có Code này không?

Tất cả code của 6 cái nút mình gom vào 1 module ( module1)

1) Sửa chữ "Totite" của bác thành "Back-Concogia" và "An-du" thành "Undo" như thế nào? hiii. Em tự sửa mà Code không chạy

1)- Trong code của sub Public Sub Back(), bạn tìm dòng
Sheets("aaa").CommandButton1.Caption = "ToTiTe"
Sửa chữ trong 2 cái nháy nháy thành chữ gì mà bạn muốn
Tìm trong 5 code ( 5 nút) của bạn có dòng
Sheets("aaa").CommandButton1.Caption = "An-du PasteValues" ( cái này nằm trong code Sub PasteValues(), 4 code còn lại đều có dòng tương tự)
Sửa An- du thành cái quái gì cũng được

2)- Em thấy trong Code của bác có chữ "aaa" là gì vậy?

Chữ "aaa" là tên sheet của bạn .....đẻ ra nó chứ đâu phải của tui, sao bạn lại hỏi tui ??? Lạ chưa ??? Híc

3) Code có thể chạy trong 1 sheet bất kỳ của 1 file bất kỳ đã có Code này không?

Sao bạn không thử rồi....hãy hỏi. Híc
Thân