Xin Code hộp Save As

Blue Softs Liên hệ QC

Yumi_Nagata

Thành viên mới
Tham gia ngày
10 Tháng sáu 2021
Bài viết
14
Được thích
19
Chào các bác/anh chị trong diễn đàn, chúc mọi người buổi tối vui vẻ, đầm ấm bên gia đình
Em muốn xin code hộp thoại save as. Mong nhận được sự giúp đỡ của mọi người. Em xin chân thành cảm ơn
 

Maika8008

Tích cực để lên đời
Tham gia ngày
12 Tháng sáu 2020
Bài viết
1,947
Được thích
2,110
Donate (Momo)
Donate
Giới tính
Nam
Search Google bằng từ khóa dialog save as vba excel nhanh hơn hỏi nhiều.
 

Yumi_Nagata

Thành viên mới
Tham gia ngày
10 Tháng sáu 2021
Bài viết
14
Được thích
19
Search Google bằng từ khóa dialog save as vba excel nhanh hơn hỏi nhiều.
MsgBox(Prompt:="PLEASE SAVE THE FILE TO A NEW NAME.", _
Buttons:=vbOKCancel + vbExclamation, Title:="REMINDER")
'Bring up the Save As screen.
If Response = vbOK Then
Application.Dialogs(xlDialogSaveAs).Show ("*.xls")
End If
Sub filesave()
Dim bFileSaveAs As Boolean
bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical
End Sub
Em đã tìm được 2 code này ạ. Hì hì
 
Top Bottom