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

 

[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?

 

[ndu96081631]

Code Ok rồi bác ah
+) Bác cho em cái Code "Ẩn dòng hoặc cột"

Các code chỉ khác nhau có dòng này thôi If TypeOf rng Is Range Then rng.EntireRow.Delete
Xóa cột: If TypeOf rng Is Range Then rng.EntireColumn.Delete
Ẩn dòng: If TypeOf rng Is Range Then rng.EntireRow.Hidden = TRUE
Ẩn cột: If TypeOf rng Is Range Then rng.EntireColumn.Hidden = TRUE

+) Sang file khác chỉ cần copy cái hình đó sang a?

Copy code thôi, hình bạn tự vẽ, xong Click phải lên hình, Assign Macro và chỉ đến tên Sub bạn cần

+) 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?

Không có undo gì được cả đâu ---> Thành ra thao tác phải cẩn thận, cùng lắm thì đóng file không lưu

 

[vanle33]

Các code chỉ khác nhau có dòng này thôi If TypeOf rng Is Range Then rng.EntireRow.Delete
Xóa cột: If TypeOf rng Is Range Then rng.EntireColumn.Delete
Ẩn dòng: If TypeOf rng Is Range Then rng.EntireRow.Hidden = TRUE
Ẩn cột: If TypeOf rng Is Range Then rng.EntireColumn.Hidden = TRUE

Copy code thôi, hình bạn tự vẽ, xong Click phải lên hình, Assign Macro và chỉ đến tên Sub bạn cần

Không có undo gì được cả đâu ---> Thành ra thao tác phải cẩn thận, cùng lắm thì đóng file không lưu

+) Sửa chữ màu đỏ mà không phải sửa chữ sau chữ Sub ah bác?
+) Không Undo được cũng nguy hiểm bác nhỉ? Có cách nào làm cho có thể Undo không bác?
+) Em có làm nút Paste Value như thế này
Sub Macro1()
'
' Macro1 Macro
'


'
Selection.Copy
Range("L21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Bác sửa cho em để mình có thể chọn địa chỉ đích của Paste Values chứ không cố định tại L21???
Thanks bác

 

[vanle33]

Bác ndu xem cho em hai vấn đề ở hai dấu cộng ở bài trên với nhé!???
(dấu cộng thứ nhất em đã làm được rồi) hii

 

[ndu96081631]

Bác ndu xem cho em hai vấn đề ở hai dấu cộng ở bài trên với nhé!???
(dấu cộng thứ nhất em đã làm được rồi) hii

Làm cho bạn luôn cho rồi

Sub PasteValues()
  Dim rng As Object
  On Error Resume Next
  Set rng = Selection
  If Application.CutCopyMode Then
    If TypeOf rng Is Range Then rng(1, 1).PasteSpecial 3
  End If
End Sub

Hic.. Hic...

 

[concogia]

+) Không Undo được cũng nguy hiểm bác nhỉ? Có cách nào làm cho có thể Undo không bác?
Thanks bác

Mình nghĩ ( mới nghĩ thôi nhé) là làm được _nhưng chắc chắn sẽ rất "tèo". Đại khái như thế này
1) Muốn tránh không bị nguy hiểm, trong code xóa dòng cột cho xuất hiện bảng thông báo, thí dụ: "Bạn muốn xóa dòng....cột...vv, nếu đòng ý thì nhấn OK và đừng hối hận nhé", lúc đó bạn sẽ...suy nghĩ
2) Nếu sau khi suy nghĩ mà vẫn bị "nguy hiểm" vì xóa tầm bậy, muốn "Ân đù" thì trong code xóa ta tạo một biến chung lưu lại vùng dữ liệu ban đầu vào mảng (nếu vùng dữ liệu chỉ có value) hoặc chép vùng dữ liệu bỏ qua một sheet trống nào đó (tèo thật). Code của nút "Ân- đù" sẽ chép dữ liệu cũ vào vùng chứa lúc đầu. Hihi, ta "Ân- đù" được....một lần, thôi có còn hơn không
Mới suy nghĩ thế, nếu anh Ba Tê & bạn Quang Hải chủ nhật mà rảnh làm ơn thử xem có khả thi hay không
Híc

 

[aviaiva]

Mình nghĩ ( mới nghĩ thôi nhé) là làm được _nhưng chắc chắn sẽ rất "tèo". Đại khái như thế này
1) Muốn tránh không bị nguy hiểm, trong code xóa dòng cột cho xuất hiện bảng thông báo, thí dụ: "Bạn muốn xóa dòng....cột...vv, nếu đòng ý thì nhấn OK và đừng hối hận nhé", lúc đó bạn sẽ...suy nghĩ
2) Nếu sau khi suy nghĩ mà vẫn bị "nguy hiểm" vì xóa tầm bậy, muốn "Ân đù" thì trong code xóa ta tạo một biến chung lưu lại vùng dữ liệu ban đầu vào mảng (nếu vùng dữ liệu chỉ có value) hoặc chép vùng dữ liệu bỏ qua một sheet trống nào đó (tèo thật). Code của nút "Ân- đù" sẽ chép dữ liệu cũ vào vùng chứa lúc đầu. Hihi, ta "Ân- đù" được....một lần, thôi có còn hơn không
Mới suy nghĩ thế, nếu anh Ba Tê & bạn Quang Hải chủ nhật mà rảnh làm ơn thử xem có khả thi hay không
Híc

bác concogia còn nợ em chưa trả lời bài viết này, code của bác hiện tại xuất hiện lỗi, em đợi vài ngày rồi mà không bác nào giúp, chắc chỉ có chính chủ giúp thôi http://www.giaiphapexcel.com/forum/showthread.php?66656-Chuyển-hàng-thành-cột&p=449844#post449844

 

[Quang_Hải]

Mình nghĩ ( mới nghĩ thôi nhé) là làm được _nhưng chắc chắn sẽ rất "tèo". Đại khái như thế này
1) Muốn tránh không bị nguy hiểm, trong code xóa dòng cột cho xuất hiện bảng thông báo, thí dụ: "Bạn muốn xóa dòng....cột...vv, nếu đòng ý thì nhấn OK và đừng hối hận nhé", lúc đó bạn sẽ...suy nghĩ
2) Nếu sau khi suy nghĩ mà vẫn bị "nguy hiểm" vì xóa tầm bậy, muốn "Ân đù" thì trong code xóa ta tạo một biến chung lưu lại vùng dữ liệu ban đầu vào mảng (nếu vùng dữ liệu chỉ có value) hoặc chép vùng dữ liệu bỏ qua một sheet trống nào đó (tèo thật). Code của nút "Ân- đù" sẽ chép dữ liệu cũ vào vùng chứa lúc đầu. Hihi, ta "Ân- đù" được....một lần, thôi có còn hơn không
Mới suy nghĩ thế, nếu anh Ba Tê & bạn Quang Hải chủ nhật mà rảnh làm ơn thử xem có khả thi hay không
Híc

Ý tưởng của anh Cò quá hay nhưng em pó tay với vụ undo rồi.
Chỉ còn 1 cách duy nhất ( theo ý của em thôi nhé ) là viết 1 Sub để copy nguyên sheet ra 1 sheet mới trước khi thực hiện code xóa hay làm gì đó. Muốn undo thì dễ rồi hén.

 

[dongducnhiem]

Ý tưởng của anh Cò quá hay nhưng em pó tay với vụ undo rồi.
Chỉ còn 1 cách duy nhất ( theo ý của em thôi nhé ) là viết 1 Sub để copy nguyên sheet ra 1 sheet mới trước khi thực hiện code xóa hay làm gì đó. Muốn undo thì dễ rồi hén.

Không biết bạn đã đọc bài này chưa?

 

[ndu96081631]

Không biết bạn đã đọc bài này chưa?

Thế bạn có cảm thấy là RẤT CỰC NHỌC không?
Vấn đề Undo thật ra các trang nước ngoài đã nói nhiều nhưng nói chung để làm điều này cũng rất nhiêu khê
Vậy nên, code mình viết, mình tự cẩn thận lấy ---> Tự làm tự chịu

 

[vanle33]

Thế bạn có cảm thấy là RẤT CỰC NHỌC không?
Vấn đề Undo thật ra các trang nước ngoài đã nói nhiều nhưng nói chung để làm điều này cũng rất nhiêu khê
Vậy nên, code mình viết, mình tự cẩn thận lấy ---> Tự làm tự chịu

Em muốn phát triển thêm Code tý bác nhé?
Em muốn các Code của các "nút" của em khi bấm thì hiện 1 hộp cảnh báo "Bạn không thể Undo lại dữ liệu đâu. Bạn có muốn tiếp tục không?"
Ví dụ như code trong bài #2 của bác đó
Và có thể thêm vào các Code khác đoạn code bác mới thêm không?
Cám ơn bác

 

[Quang_Hải]

Không biết bạn đã đọc bài này chưa?

Mình vừa xem qua bài biết về cách Undo, cũng là 1 điều đáng để học hỏi. Nhưng nếu áp dụng code đó vào cái vụ xoá dòng thì có lẻ khó à nha. >>> Mình quyết định dùng phương án cũ, copy nguyên sheet đem cất trước. Muôn Undo thì copy hết Usedrange đem về. Hic. Mình thấy sáng kiến của mình cũng hơi "tối thui" đấy chứ.

 

[ndu96081631]

Mình vừa xem qua bài biết về cách Undo, cũng là 1 điều đáng để học hỏi. Nhưng nếu áp dụng code đó vào cái vụ xoá dòng thì có lẻ khó à nha. >>> Mình quyết định dùng phương án cũ, copy nguyên sheet đem cất trước. Muôn Undo thì copy hết Usedrange đem về. Hic. Mình thấy sáng kiến của mình cũng hơi "tối thui" đấy chứ.

Thì code undo nó cũng làm y chang vậy thôi, chẳng qua là gán vào OnUndo nên bạn có thể bấm Ctrl + Z để kích hoạt Sub được
---------------

Em muốn các Code của các "nút" của em khi bấm thì hiện 1 hộp cảnh báo "Bạn không thể Undo lại dữ liệu đâu. Bạn có muốn tiếp tục không?"
Ví dụ như code trong bài #2 của bác đó
Và có thể thêm vào các Code khác đoạn code bác mới thêm không?
Cám ơn bác

Thì bạn thêm MsgBox vào --> Nội dung của MsgBox là gì tùy bạn ---> Thí nghiệm đi

 

[Quang_Hải]

Em muốn phát triển thêm Code tý bác nhé?
Em muốn các Code của các "nút" của em khi bấm thì hiện 1 hộp cảnh báo "Bạn không thể Undo lại dữ liệu đâu. Bạn có muốn tiếp tục không?"
Ví dụ như code trong bài #2 của bác đó
Và có thể thêm vào các Code khác đoạn code bác mới thêm không?
Cám ơn bác

Đại loại thế này nè

Sub test()
Dim xacnhan
xacnhan = MsgBox("Chac khong do?", vbYesNo)
If xacnhan = vbNo Then End
MsgBox "Tiep tuc"
End Sub

 

[vanle33]

Đại loại thế này nè

Sub test()
Dim xacnhan
xacnhan = MsgBox("Chac khong do?", vbYesNo)
If xacnhan = vbNo Then End
MsgBox "Tiep tuc"
End Sub

Em đã phát triển thêm code ở bài #2 của bác ndu bằng cách thêm 1 đoạn code báo " Bạn có chắc chắn xóa dòng này không? Bạn có muốn tiếp tục. Xác nhận thông tin"
từ Code trong bài xóa dữ liệu do dongducnhiem giới thiệu đó! hiii

 

[concogia]

Ý tưởng của anh Cò quá hay nhưng em pó tay với vụ undo rồi.
Chỉ còn 1 cách duy nhất ( theo ý của em thôi nhé ) là viết 1 Sub để copy nguyên sheet ra 1 sheet mới trước khi thực hiện code xóa hay làm gì đó. Muốn undo thì dễ rồi hén.

Híc, một cách "Ân- đù", bi giờ tưng quá, làm đại khái thôi, muốn Ok thì chăm chút code một tý tẹo
Mượn file của Thầy Ndu
Hihi, ngộ

 

[vanle33]

Híc, một cách "Ân- đù", bi giờ tưng quá, làm đại khái thôi, muốn Ok thì chăm chút code một tý tẹo
Mượn file của Thầy Ndu
Hihi, ngộ

Bác Cò già a
Em muốn sau khi em thêm được tất cả 5 "nút" thỏa mãn yêu cầu bài #1 thì có sử dụng được cái nút "totite" của bác để Undo không?
Hay phải làm ra 5 loại nút Undo cho 5 code của 5 "nút" đó vậy bác?

 

[concogia]

Bác Cò già a
Em muốn sau khi em thêm được tất cả 5 "nút" thỏa mãn yêu cầu bài #1 thì có sử dụng được cái nút "totite" của bác để Undo không?
Hay phải làm ra 5 loại nút Undo cho 5 code của 5 "nút" đó vậy bác?

Mình nghĩ ( cũng lại là nghĩ) một nút chắc là được, nhưng phải sửa cái code trong 5 nút của bạn một tý tẹo, nếu rảnh rỗi thì gởi cái file có 5 cái nút í lên đây xem nó ra mần sao mới tính tiếp
Thân

 

[vanle33]

Mình nghĩ ( cũng lại là nghĩ) một nút chắc là được, nhưng phải sửa cái code trong 5 nút của bạn một tý tẹo, nếu rảnh rỗi thì gởi cái file có 5 cái nút í lên đây xem nó ra mần sao mới tính tiếp
Thân

Em có file đó liền đây a

 

[concogia]

Em có file đó liền đây a

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

 

[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

Em có 1 việc cần phải ứng dụng các nút đó nên em mới lập topic này để tạo 5 cái nút đó. hiii
Có thể sau này em phát triển thêm vài nút nữa
Để em có thể copy dữ liệu sang 1 sheet khác của file khác đó mà

 

[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