การ Copy Sheet และ Auto Rename

[mr.zatan]

แก้ Code ให้หน่อยครับ.

** คลิกครั้งแรก Copy ได้ปรกติ แต่คลิกครั้งที่ 2 แล้ว error ครับ

- ผมอยากให้ คลิกครั้งที่ 2 แล้วไม่ error หรือจะให้ขึ้น Popup แจ้งเตือนก็ได้

Code: Select all

Sub copysheet()

ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = Format(Date, "mmm_yyyy")

End Sub

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub copysheet()
    On Error Resume Next
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Name = Format(Date, "mmm_yyyy")
    If Err <> 0 Then
        MsgBox "Sheet name already exist."
    End If
End Sub

[mr.zatan]

ขอบคุณครับ..



*** ผมสงสัยมานานแล้วว่า MsgBox สามารถเปลี่ยนขนาด Font ได้มัย หรือว่าทำให้เป็นตัวหนาก็ได้

[snasui]

Message box ที่ Default มาจากระบบ ไม่สามารถเปลี่ยน Font และกำหนด Format ได้ครับ