Tạo nút bấm để excel tự thoát

[huy2011]

Dear Các anh/Chị trên Diễn Đàn GPE,

Do chưa biết về VBA, em tự học theo hướng dẫn của các anh chị trên diễn đàn.
Em tạo một nút bấm trên file excel một nút bấm có chữ close, sau đó em copy code của anh chi trên diễn đàn patse vào, em nhấn nút run nó chạy xong những excel để lại màn hình màu xanh xám nhưng không thoát excel ra . Anh/Chị trên diễn đàn hướng dẫn giúp em.
nếu có thể thì hướng dẫn em làm từng bước 1 nhé.Em mới biết excel thôi. Anh/Chị xem file kèm theo giúp em.
Em cảm ơn anh/chị,
Chí Huy

 

[huy2011]

Dear Anh,

Do em dùng hyperlink trên file power point vào file đó, nếu em nhấn vào dấu x thì phải thoát ra rồi vô trở lại nên em muốn tạo nút bấm để nó tự không ảnh hưởng đến bài thuyết trình của mình ah,

Sếp hay complain vì hay không để file ở dạng trình chiếu mà phải thoát ra và vào lại hoài,

mong các anh chỉ giúp em,

 

[huy2011]

Nhưng dùng thế nào Anh, em chưa biết cách dùng nó.
Cái này em không rành,

Anh chỉ dùm em nhé.

 

[huy2011]

EM làm được rồi anh ơi,

Thanks anh nhé,

 

[Kiều Mạnh]

Nhưng dùng thế nào Anh, em chưa biết cách dùng nó.
Cái này em không rành,

Anh chỉ dùm em nhé.

vậy là bạn chưa rành kiểu code két chứ gì
vậy ta chơi kiểu chưa rành nha
khi nào thích thoát thì chạy file sau nha.......
nó cũng đã lắm ý

 

[Kiều Mạnh]

Bó tay bác mạnh...Rảnh quá hỉ? Đọc #3 chưa mà làm nguyên cái .EXE chỉ mỗi làm cái việc là Close Excel thôi vậy??? Phí tài nguyên quá...

tại người ta chưa biết code két mà........

 

[Kiều Mạnh]

Chưa biết thì cho người ta biết code két chứ...ai lại đi đóng gói thành .EXE (có nghĩa là dùng VBA thôi ...đừng viết trên VB6)

Lúc nảy cũng tính chỉ rồi... nghỉ lại Người ta sẽ hỏi

1/ cách Inset một cái cambox
2/ Chèn code vào cambox
3/ Enable Macros....
4/ chạy code

..........thấy dài dòng quá ...thôi chơi vậy đi cho khỏe thân...

 

[huuthang_bd]

Nếu muốn thoát Luôn Excel thì dùng lệnh này: Application.Quit

---------Còn hơn nữa thì tôi không biết!

Muốn hơn nữa thì làm vầy.

Private Sub CommandButton1_Click()
On Error Resume Next
AppActivate "PowerPoint Slide Show"
If Err = 0 Then ThisWorkbook.Close False
End Sub