Tạo nút ẩn cột, ẩn dòng,... trong Sheet như thế nào? (3 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

 

[ndu96081631]

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

Ví dụ xóa dòng:

Sub DelRows()
  Dim rng As Object
  On Error Resume Next
  Set rng = Selection
  If TypeOf rng Is Range Then rng.EntireRow.Delete
End Sub

Những cái khác tương tự
Riêng phần Paste Values bạn có thể tự mình record macro và nghiên cứu nhé

 

[vanle33]

Ví dụ xóa dòng:

Sub DelRows()
  Dim rng As Object
  On Error Resume Next
  Set rng = Selection
  If TypeOf rng Is Range Then rng.EntireRow.Delete
End Sub

Những cái khác tương tự
Riêng phần Paste Values bạn có thể tự mình record macro và nghiên cứu nhé

Em chưa nghiên cứu gì về Code bác ah.
Bác giúp em làm từng cái nút bấm và Code của các nút bấm đó trên file của em với nhé!!

 

[ndu96081631]

Em chưa nghiên cứu gì về Code bác ah.
!

Tôi biết nên mới khuyên bạn RECORD MACRO ---> Đó là cách học cho người mới bắt đầu
--------------------

Bác giúp em làm từng cái nút bấm và Code của các nút bấm đó trên file của em với nhé!!

Cái này cũng nhờ giúp nữa sao? Bạn không biết vẽ nút nhấn ra bảng tính à?

 

[vanle33]

Tôi biết nên mới khuyên bạn RECORD MACRO ---> Đó là cách học cho người mới bắt đầu
--------------------

Cái này cũng nhờ giúp nữa sao? Bạn không biết vẽ nút nhấn ra bảng tính à?

Em chỉ biết chèn cái hình trong Form control
chứ em không biết ghi Marco đâu!

 

[nhat chi mai]

Tôi biết nên mới khuyên bạn RECORD MACRO ---> Đó là cách học cho người mới bắt đầu
--------------------

Cái này cũng nhờ giúp nữa sao? Bạn không biết vẽ nút nhấn ra bảng tính à?

Giúp thì giúp nốt đi Thầy, em cũng muốn biết thêm tí nữa...

 

[ndu96081631]

Giúp thì giúp nốt đi Thầy, em cũng muốn biết thêm tí nữa...

Ví dụ Record macro để paste values:
- Quét chọn sẵn 1 vùng (mà bạn muốn copy)
- Bấm tổ hợp phím Alt + T + M + R để khởi động record macro
- Hộp record macro xuất hiện, cứ Enter
- Giờ bấm Ctrl + C để copy vùng dữ liệu
- Chuyển chuột sang nơi muốn paste và Paste Special\Values
- Bấm nút ESC để hũy chế độ CutCopyMode (tắt đường đứt nét bao quanh vùng copy)
- Bấm tiếp tổ hợp phím Alt + T + M + R để tắt record macro
- Bấm Alt + F11 để xem code
Vậy thôi!
Từ code thu được khi record macro, cố gắng hiểu từng dòng lệnh mang ý nghĩa gì (để mà tùy biến)

 

[vanle33]

Ví dụ xóa dòng:

Sub DelRows()
  Dim rng As Object
  On Error Resume Next
  Set rng = Selection
  If TypeOf rng Is Range Then rng.EntireRow.Delete
End Sub

Những cái khác tương tự

Bác cho em mấy cái Code của "Xóa cột" " Ẩn dòng" "Ẩn cột" luôn nhé!
Em không biết sửa Code trên của bác.

 

[Hong.Van]

Bác cho em mấy cái Code của "Xóa cột" " Ẩn dòng" "Ẩn cột" luôn nhé!
Em không biết sửa Code trên của bác.

Muốn xóa cột thì thay Row thành Column
Muốn ẩn dòng, ẩn cột thì đã thử nghiệm record macro chưa?

 

[vanle33]

Ví dụ xóa dòng:

Sub DelRows()
  Dim rng As Object
  On Error Resume Next
  Set rng = Selection
  If TypeOf rng Is Range Then rng.EntireRow.Delete
End Sub

Làm phiền bác hướng dẫn cụ thể cho em 1 trường hợp trên với. Em thử Code của bác mấy lần mà không được!?

 

[ndu96081631]

Làm phiền bác hướng dẫn cụ thể cho em 1 trường hợp trên với. Em thử Code của bác mấy lần mà không được!?

Bạn nói gì tôi không hiểu!
Code không chạy?
Code báo lỗi
Hay là.. sao?
----------
Ghi chú: Trước khi chạy code, đương nhiên phải dùng chuột chọn 1 vùng ---> Bạn có làm không?

 

[vanle33]

Bạn nói gì tôi không hiểu!
Code không chạy?
Code báo lỗi
Hay là.. sao?
----------
Ghi chú: Trước khi chạy code, đương nhiên phải dùng chuột chọn 1 vùng ---> Bạn có làm không?

Em tạo cái nút Command Buton rồi cho toàn bộ Code của bác vào đó Save lại rồi em chọn 1 dòng bất kỳ , nhấn cái nút đó mà không thấy thay đổi gì cả.
Chắc em làm sai bước nào rồi a?

 

[Hong.Van]

Em tạo cái nút Command Buton rồi cho toàn bộ Code của bác vào đó Save lại rồi em chọn 1 dòng bất kỳ , nhấn cái nút đó mà không thấy thay đổi gì cả.
Chắc em làm sai bước nào rồi a?

File của bạn đâu, chuyển lên cho mọi người xem!
(Tôi thường thấy bạn hay nhắc nhở người khác đưa file lên mà!)

 

[vanle33]

File của bạn đâu, chuyển lên cho mọi người xem!
(Tôi thường thấy bạn hay nhắc nhở người khác đưa file lên mà!)

1 file ví dụ ở bài #1 đó Mrs
Còn phần ẩn ........... Mrs cứ theo dõi nhiều Diễn đàn nhiều sẽ biết!

 

[Hong.Van]

1 file ví dụ ở bài #1 đó Mrs
Còn phần ẩn ........... Mrs cứ theo dõi nhiều Diễn đàn nhiều sẽ biết!

File bài 1 của bạn code khóa Unviewable, bạn muốn thử tài tôi bẻ khóa giùm bạn hả?

 

[vanle33]

File bài 1 của bạn code khóa Unviewable, bạn muốn thử tài tôi bẻ khóa giùm bạn hả?

Tôi có biết nó bị khóa gì đâu, đấy là 1 file dự toán tôi định áp dụng các "nút" bấm đó
Tương tự tôi muốn làm cho các file khác
Bạn Có thể tạo file bất kỳ nào cũng được để tạo các "nút" đó mà!

 

[ndu96081631]

Tôi có biết nó bị khóa gì đâu, đấy là 1 file dự toán tôi định áp dụng các "nút" bấm đó
Tương tự tôi muốn làm cho các file khác
Bạn Có thể tạo file bất kỳ nào cũng được để tạo các "nút" đó mà!

Để biết bạn "hiểu bài" đến đâu, bạn vui lòng tạo 1 file mới, chèn code vào ---> Nếu không chạy được thì đưa file ấy lên đây

 

[vanle33]

Để biết bạn "hiểu bài" đến đâu, bạn vui lòng tạo 1 file mới, chèn code vào ---> Nếu không chạy được thì đưa file ấy lên đây

ví dụ file này a
Tại Sheet 1 em đã chèn Code của bác

 

[ndu96081631]

ví dụ file này a
Tại Sheet 1 em đã chèn Code của bác

Trong file bạn đang cùng CommandButton thuộc họ ActiveX
Với các bạn mới học, khuyên không nên dùng mấy control này. Bạn có thể chèn Button thuộc Forms control, thậm chí là bất kỳ hình vẽ nào cũng được
- Xong, Alt + F11, vào menu Insert, chọn Module
- Copy code của tôi, paste vào khung phải của Module vừa chèn
- Alt + Q trở về bảng tính
- Click phải vào hình vẽ, chọn Assign Macro, chọn tên Sub DelRows rồi OK
Xem file đính kèm

 

[vanle33]

Code Ok rồi bác ah
+) Bác cho em cái Code "Ẩn dòng hoặc cột"
+) Sang file khác chỉ cần copy cái hình đó sang a?
+) Code này xóa dòng nhưng em muốn Undo cho các thao tác em vừa bấm "nút" có được không a?