Giúp tạo 1 nút khi nhấn vào sẽ thoát Excel (1 người xem)

[donghoangedu]

Giúp tạo File thống kê

Có 3 file để lưu trữ độc giả: sgk, stk, sbd
Tạo thêm 1 file tên thống kê là đếm số độc giả của 3 file trên
nhưng khi mở 3 file trên trước thì file thống kê ra kết quả, còn
khi không mở 3 file trên mà chỉ mở 1 file thống kê thì kết quả ra #Value

 

[tedaynui]

Bạn tạo 1 nút lệnh và gán vào Macro sau

Sub Quit()
 ActiveWorkbook.Save
 Application.Quit
End Sub

TDN

 

[ongtrungducmx25]

Bạn tạo 1 nút lệnh và gán vào Macro sau

Sub Quit()
 ActiveWorkbook.Save
 Application.Quit
End Sub

TDN

có cái nào để vừa thoát vừa lưu lại không hã "Phước"!

 

[tedaynui]

có cái nào để vừa thoát vừa lưu lại không hã "Phước"!

Em chỉ biết vừa Close vừa Save :
ActiveWorkbook.Close (True)
Chứ vừa Quit vừa Save thì em hỏng biết. Hi hi

Thân!

 

[anhtuan1066]

Món này nếu nghĩ ra cách Record macro thì e rằng ko thể dc... Vậy nếu muốn tạo ra nó chắc phải... thuộc lòng... đúng ko Phước?
ANH TUẤN

 

[ongtrungducmx25]

có cách nào vừa in ra vừa vừa save và đóng luôn không! tiện ích 1 trong 3 hình như trong word làm được mà thì excel cũng được chứ đúng không

 

[tedaynui]

có cách nào vừa in ra vừa vừa save và đóng luôn không! tiện ích 1 trong 3 hình như trong word làm được mà thì excel cũng được chứ đúng không

Vậy anh thầy thêm dòng này vào
ActiveWindow.SelectedSheets.PrintOut

Thân!

 

[ontopoftheworld]

có cái nào để vừa thoát vừa lưu lại không hã "Phước"!

Vậy Bác thử đọan này xem sao ạ

ActiveWorkbook.Close Savechanges:=true

 

[Thien]

có cách nào vừa in ra vừa vừa save và đóng luôn không! tiện ích 1 trong 3 hình như trong word làm được mà thì excel cũng được chứ đúng không

Cái này ứng dụng trong việc gì nhỉ????.


T.

 

[TranNguyenDanNhi]

Cái này ứng dụng trong việc gì nhỉ????.


T.

Trong việc : Vừa đóng, vừa lưu, vừa in.
Còn để làm gì??? Có cần phải như vậy không thì tùy từng người.

Cheer!!!!

 

[vungoc]

Thêm một đọan code hỏi muốn lưu hay không trước khi thóat:

Private Sub Thoat_Click()
    Cancel = True
    Anser = MsgBox("Ban co that su muon thoat chuong trinh ?", _
            vbDefaultButton2 + vbQuestion + vbYesNo, "Chuong Trinh Quan Ly Kho NVL")
    If Anser = vbYes Then
        ThisWorkbook.Save
        ThisWorkbook.Close
    End If
End Sub

 

[donghoangedu]

Bạn tạo 1 nút lệnh và gán vào Macro sau

Sub Quit()
 ActiveWorkbook.Save
 Application.Quit
End Sub

TDN

Đoạn chtrình trên, sau khi chạy macro thì lập tức thoát khỏi excel.
Nhưng còn cách tạo ra nút trên bảng tính excel, để khi nhấn vào nút đó thì mới thoát excel. tôi không biết tạo nút đó. xin hãy giúp tôi 1 lần nữa nhé. cám ơn nhiều

 

[Mr Okebab]

Thêm một đọan code hỏi muốn lưu hay không trước khi thóat:

Private Sub Thoat_Click()
Cancel = True
Anser = MsgBox("Ban co that su muon thoat chuong trinh ?", vbDefaultButton2 + vbQuestion + vbYesNo, "Chuong Trinh Quan Ly Kho NVL")
If Anser = vbYes Then
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

Sao cái này không để tự Excel làm ?? Hay là muốn có chữ "Tên Chương trình" hiện ra ???
Cancel = True để làm gì vậy Bác vungoc (không biết thực sự đấy chứ không phải là hỏi vớ vẩn đâu . . hì hì)

Thân!

 

[tedaynui]

Đoạn chtrình trên, sau khi chạy macro thì lập tức thoát khỏi excel.
Nhưng còn cách tạo ra nút trên bảng tính excel, để khi nhấn vào nút đó thì mới thoát excel. tôi không biết tạo nút đó. xin hãy giúp tôi 1 lần nữa nhé. cám ơn nhiều

Bạn tạo 1 nút lệnh vào chép đoạn code trên vào. Khi Click lên nút lệnh đó thì mới thoát Excel ; nếu muốn chỉ đóng File, không thoát excel thì bạn chép đoạn code của anh Ngọc.

TDN

 

[tedaynui]

Chắc là ý Anh Ngọc nếu Click No thì file đóng lại nhưng không lưu

Private Sub Thoat_Click()
   Cancel = True
   Anser = MsgBox("Ban co that su muon thoat chuong trinh ?", vbDefaultButton2 + vbQuestion + vbYesNo, "Chuong Trinh Quan Ly Kho NVL")
   If Anser = vbYes Then
        ThisWorkbook.Save
   End If
        ThisWorkbook.Close
End Sub

Thân!

 

[Mr Okebab]

Chắc là ý Anh Ngọc nếu Click No thì file đóng lại nhưng không lưu

Private Sub Thoat_Click()
   Cancel = True
   Anser = MsgBox("Ban co that su muon thoat chuong trinh ?", vbDefaultButton2 + vbQuestion + vbYesNo, "Chuong Trinh Quan Ly Kho NVL")
   If Anser = vbYes Then
        ThisWorkbook.Save
   End If
        ThisWorkbook.Close
End Sub

Thân!

Thì trước khi đóng, bao giờ Excel cũng so sánh Data hiện tại với lần lưu gần nhất trước đó, nếu sai thì nó sẽ hỏi là có lưu hay không.
Còn nếu như code trên, không thay đổi data, mà ta YES thì nó vẫn lưu -->>hơi lãng phí thời gian

Đằng nào excel cũng có, vậy thì ta để nó tự làm đi, vừa nhanh lại vừa tiện. (Nhưng mà cái hộp thoại của nó thì . . . . xấu)

 

[tedaynui]

Thì trước khi đóng, bao giờ Excel cũng so sánh Data hiện tại với lần lưu gần nhất trước đó, nếu sai thì nó sẽ hỏi là có lưu hay không.
Còn nếu như code trên, không thay đổi data, mà ta YES thì nó vẫn lưu -->>hơi lãng phí thời gian

Đằng nào excel cũng có, vậy thì ta để nó tự làm đi, vừa nhanh lại vừa tiện. (Nhưng mà cái hộp thoại của nó thì . . . . xấu)

Xin lỗi, mình hơi ẩu. Chắc ý có lẽ là thế này

Sub Thoat_Click()
    anser = MsgBox("Ban co that su muon thoat chuong trinh ?", vbDefaultButton2 + vbQuestion + vbYesNo, "Chuong Trinh Quan Ly Kho NVL")
    If anser = vbYes Then ThisWorkbook.Close (True) Else ThisWorkbook.Close (False)
End Sub

Đúng là chức năng này Excel có sẵn. Hi hi

Thân!