Code để macro tự động cilck và code lấy tên tự động.

[TN_Nguyen]

Chào mọi người!

Nhờ mọi người chỉ giúp mình 2 đoạn code cho 2 vấn đề như sau:

Vấn đề 1: Code để macro tự động click Delete/Yes trong bảng thông báo thay vì người dùng phải tự click vào như hình.



Vấn đề 2: Dùng code để khi tới bước đặt tên cho file (chỗ “ABC.xlsx” như code bên dưới), file sẽ tự động bắt tên từ 1 ô địa chỉ trên sheet được chỉ định sẵn ví dụ: như ô L3 sheet A trong fiel mẫu.

Xin cảm ơn mọi người!



Sub Macro1()

'

' Macro1 Macro

'

Sheets("B").Select

ActiveWindow.SelectedSheets.Delete

Sheets("C").Select

ActiveWindow.SelectedSheets.Delete

ActiveSheet.Shapes.Range(Array("Button 1")).Select

Selection.Delete

ChDir "C:\Users\DELL\Desktop"

ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\ABC.xlsx", FileFormat _

:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

 

[giaiphap]

Chào mọi người!

Nhờ mọi người chỉ giúp mình 2 đoạn code cho 2 vấn đề như sau:

Vấn đề 1: Code để macro tự động click Delete/Yes trong bảng thông báo thay vì người dùng phải tự click vào như hình.

View attachment 277320View attachment 277321View attachment 277322

Vấn đề 2: Dùng code để khi tới bước đặt tên cho file (chỗ “ABC.xlsx” như code bên dưới), file sẽ tự động bắt tên từ 1 ô địa chỉ trên sheet được chỉ định sẵn ví dụ: như ô L3 sheet A trong fiel mẫu.

Xin cảm ơn mọi người!



Sub Macro1()

'

' Macro1 Macro

'

Sheets("B").Select

ActiveWindow.SelectedSheets.Delete

Sheets("C").Select

ActiveWindow.SelectedSheets.Delete

ActiveSheet.Shapes.Range(Array("Button 1")).Select

Selection.Delete

ChDir "C:\Users\DELL\Desktop"

ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\ABC.xlsx", FileFormat _

:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Thử code này xem sao.

Sub GPE()
    Application.DisplayAlerts = False
    ThisWorkbook.Sheets("B").Delete
    ThisWorkbook.Sheets("C").Delete
    ActiveSheet.Shapes("Button 1").Delete
    ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\" & Range("L3").Value2 & ".xlsx", FileFormat _
        :=xlOpenXMLWorkbook, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

 

[TN_Nguyen]

Rất cảm ơn giaiphap, code chạy rất tốt nhe.
Xin cảm ơn!