Làm sao để gán được Code cho Commandbutton

[Tancoi_GPE]

Xin hỏi các Bác: Em mới bắt đầu học Excel, tuy nhiên em muốn mày mò tí chút về Macro. Em tạo 1 command button làm nút thoát khỏi chương trình chẳng hạn, em viết code như này sai ở chỗ nào mà ấn vào cái commandButton đó nó cứ trơ trơ ra:

Private Sub CommandButton2_Click()
ActiveWindow.Close
End Sub

Rất mong các Bác chỉ giúp.

 

[anhphuong]

Sửa lại như sau :

Private Sub CommandButton2_Click()
          ThisWorkbook.Close
End Sub

 

[ndu96081631]

Xin hỏi các Bác: Em mới bắt đầu học Excel, tuy nhiên em muốn mày mò tí chút về Macro. Em tạo 1 command button làm nút thoát khỏi chương trình chẳng hạn, em viết code như này sai ở chỗ nào mà ấn vào cái commandButton đó nó cứ trơ trơ ra:

Rất mong các Bác chỉ giúp.

Tôi thí nghiệm thấy code trên chạy được mà! Có lẽ sơ xuất chổ nào đó, chẳng hạn tên của Command Button không giống với tên trong code
Bạn đưa file đang làm lên xem thử

 

[Tancoi_GPE]

Sửa lại như sau :

Private Sub CommandButton2_Click()
          ThisWorkbook.Close
End Sub

Không được A ạ, em ấn vào nó cứ hiện ra như hình vẽ, ấn 2 lần thì nó ra view code

 

[Po_Pikachu]

Bạn nên gửi file lên đi. Mình nghĩ bạn đã tạo Button bằng thanh công cụ Form rồi nên nhấn mãi mà không được chứ gì?
Với code trên là bạn phải tạo Button bằng công cụ Control Toolbox mới được. Rồi sau khi tạo xong. Bạn nhấp đúp chuột vào Button rồi mới điền code vào. Cuối cùng là nhấn vào biểu tượng hình cây thước êke trên thanh công cụ Control Toolbox thì mới chạy được Button đó.
Thân.

 

[Po_Pikachu]

Không được A ạ, em ấn vào nó cứ hiện ra như hình vẽ, ấn 2 lần thì nó ra view code

Vậy thì bạn sữa lại thành số 1 là được. Vì Button này có tên là CommandButton1

[COLOR=#000000][FONT=Courier New][COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub CommandButton[COLOR=red]1[/COLOR]_Click[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[FONT=Courier New][COLOR=#0000bb]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Close[/FONT][/COLOR]
[FONT=Courier New][COLOR=#0000bb]End Sub  [/COLOR][/FONT][/COLOR]

Thân.

 

[ndu96081631]

Không được A ạ, em ấn vào nó cứ hiện ra như hình vẽ, ấn 2 lần thì nó ra view code

Có nghĩa là Security trên máy bạn đang đặt ở mức High ---> Giờ làm thế này:
- Lưu file của bạn trước
- Khởi động Excel, vào menu Tools\Macro\Security rồi chọn vào mục "Medium.... "
- Đóng Excel lại, mở file của bạn lên thử ---> Sẽ có 1 hộp cảnh báo, hảy bấm vào nút Enable Macro
Giờ thì thử với nút nhấn của bạn nhé ---> Hy vọng không còn trục trặc xảy ra
Bạn không làm các bước tôi vừa hướng dẩn thì "đố" code chạy được ---> Dù là viết bằng cách gì

 

[Tancoi_GPE]

Bạn nên gửi file lên đi. Mình nghĩ bạn đã tạo Button bằng thanh công cụ Form rồi nên nhấn mãi mà không được chứ gì?
Với code trên là bạn phải tạo Button bằng công cụ Control Toolbox mới được. Rồi sau khi tạo xong. Bạn nhấp đúp chuột vào Button rồi mới điền code vào. Cuối cùng là nhấn vào biểu tượng hình cây thước êke trên thanh công cụ Control Toolbox thì mới chạy được Button đó.
Thân.

Chính xác 100% Nhấn vào cái biểu tượng eke là chạy luôn. Cảm ơn các Anh đã hướng dẫn.
Vậy em hỏi thêm, nếu em tạo 1 Macro thoát chương trình thì làm thế nào để ấn vào cái commadbutton đó cũng sẽ chạy cái Macro này. Em hiểu đơn giản là làm sao gán cho macro thoát chương trình 1 biểu tượng để khi nhấn vào đó nó cũng thoát.

 

[ndu96081631]

Chính xác 100% Nhấn vào cái biểu tượng eke là chạy luôn. Cảm ơn các Anh đã hướng dẫn.
Vậy em hỏi thêm, nếu em tạo 1 Macro thoát chương trình thì làm thế nào để ấn vào cái commadbutton đó cũng sẽ chạy cái Macro này. Em hiểu đơn giản là làm sao tạo cho macro thoát chương trình 1 biểu tượng để khi nhấn vào đó nó cũng thoát.

Là sao ta? Hỏng hiểu?
Bạn nhấn vào Button mà bạn vừa tạo là được rồi còn gì

 

[Tancoi_GPE]

Là sao ta? Hỏng hiểu?
Bạn nhấn vào Button mà bạn vừa tạo là được rồi còn gì

Ý em muốn hỏi là muốn gán cho Macro 1 cái biểu tượng để khi nhấn vào nó chạy cái Macro đó thì làm như thế nào anh ạ.
Vì em không biết về lập trình lên em cứ tạo Macro chương trình xong lại muốn tạo 1 biểu tượng để chạy nó. Có thể không phải là cái nút thoát như trên mà nhiều cái khác.

 

[Po_Pikachu]

Vậy bạn làm giống như code bên dưới.

[COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub CommandButton[COLOR=red]1[/COLOR]_Click[/COLOR][FONT=Courier New][COLOR=#007700]()[/COLOR][/FONT]
[COLOR=blue]Call Ten_Macro[/COLOR]
[FONT=Courier New][COLOR=#0000bb]End Sub [/COLOR][/FONT]

Hoặc đơn giản hơn là bạn tạo button từ công cụ Form đi.
Bạn vào Toolbars -> Forms -> nhấn vào nút Button -> Vẽ 1 cái trên Excel.
Sau khi vẽ xong thì nó sẽ tự hỏi bạn có chọn 1 cái Macro nào không -> Bạn click chuột lên tên Macro rồi nhấn OK. Vậy là xong rồi.
Thân.

 

[mymichau]

Bạn tạo Mảco Thoat như sau:
Sub Thoat()
ThisWorkbook.Close
End Sub

Tiếp bạn vẽ một biểu tượng gì đó bằng công cụ Dwawing, sau đó right click vào biển tượng, chon Assign Macro và chọn tiếp Macro Thoat, Ok. Thế là xong.

 

[vucuong51]

Đưa hình các cửa sổ lên bài viết

Tôi thấy trong các bài viết trên GPE có bài đưa hình các cửa sổ (box) để giải thích cho rõ hơn, chẳng hạn như cửa sổ "Format cell". Nhờ các bạn bớt chút thời gian hướng dẫn cách làm. Xin cảm ơn.

 

[hoangdanh282vn]

Tôi thấy trong các bài viết trên GPE có bài đưa hình các cửa sổ (box) để giải thích cho rõ hơn, chẳng hạn như cửa sổ "Format cell". Nhờ các bạn bớt chút thời gian hướng dẫn cách làm. Xin cảm ơn.

Gửi bạn file excel có hình minh họa cách gán và sử dụng Macro