matran25251325
Thành viên tiêu biểu
- Tham gia
- 13/1/11
- Bài viết
- 424
- Được thích
- 39
em dùng combobox tạo 1 file mới với code:
Private Sub CommandButton3_Click()
On Error Resume Next
Dim Ask
Ask = MsgBox("Click 'Yes' de tao Du Toan moi" & ChrW(13) & "Click 'No' de huy", vbYesNo)
If Ask = vbYes Then
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.AllowMultiSelect = False
Application.ThisWorkbook.SaveAs .SelectedItems(1)
End With
Sheets("TLuong DT").Select
End If
End Sub
Vậy giờ em muốn chuyển sang tạo file mới và lưu trên menu thì phải làm thế nào? Menu có tên là DuToan, và menu con có biểu tượng tờ giấy trắng và có tên là tạo Dự toán mới.
Em cảm ơn nhiều.
Private Sub CommandButton3_Click()
On Error Resume Next
Dim Ask
Ask = MsgBox("Click 'Yes' de tao Du Toan moi" & ChrW(13) & "Click 'No' de huy", vbYesNo)
If Ask = vbYes Then
With Application.FileDialog(msoFileDialogSaveAs)
.Show
.AllowMultiSelect = False
Application.ThisWorkbook.SaveAs .SelectedItems(1)
End With
Sheets("TLuong DT").Select
End If
End Sub
Vậy giờ em muốn chuyển sang tạo file mới và lưu trên menu thì phải làm thế nào? Menu có tên là DuToan, và menu con có biểu tượng tờ giấy trắng và có tên là tạo Dự toán mới.
Em cảm ơn nhiều.
