Snasui Excel Forum

Posted: **Tue Dec 17, 2013 2:54 pm**

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

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

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

Code: Select all

Sub copysheet()

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

End Sub

Posted: **Tue Dec 17, 2013 3:13 pm**

ลองปรับ 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

Posted: **Tue Dec 17, 2013 3:21 pm**

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

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

Posted: **Tue Dec 17, 2013 3:54 pm**

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

Snasui Excel Forum

การ Copy Sheet และ Auto Rename

การ Copy Sheet และ Auto Rename

Re: การ Copy Sheet และ Auto Rename

Re: การ Copy Sheet และ Auto Rename

Re: การ Copy Sheet และ Auto Rename