ต้องการเขียน Macro Code เกี่ยวกับการ Add Sheet ใน Excel File

[kraikrai]

สวัสดีครับ ผมต้องการเขียน Macro Code เกี่ยวกับการ Add Sheet ใน Excel File
เช่น ต้องการ Add Sheet "Data" แต่ต้องตรวจสอบ Worksheet ในแต่ละ Sheet ก่อนว่ามี Sheet "Data" หรือยัง
ถ้ามีแล้วก็ไม่ต้อง Add Sheet แต่ถ้ายังไม่มี Sheet "Data" ให้ Add Sheet "Data" ขึ้นมาครับ
ขอบคุณครับ

[snasui]

ให้ทำการ Loop ดูก่อนว่ามี Sheet ที่ว่าแล้วยัง หากไม่มีค่อย Add เข้าไปครับ สำหรับการเขียน VBA จำเป็นต้องเขียนมาก่อนเสมอ ติดตรงไหนค่อยมาถามกันได้เรื่อย ๆ ครับ

[kraikrai]

ผมลองเขียน Code ที่ติดปัญหามาตามนี้ แต่ไม่สามารถแก้ไขให้สมบูรณ์ได้

Sub CreateSheet()
Dim wks As Worksheet
Dim RoundPic As String
RoundPic = "Data"

For Each wks In Sheets
If wks.Name = RoundPic Then
Exit For
End If
Sheets.Add
ActiveSheet.Name = RoundPic
Next wks
End Sub

ขอบคุณครับ

[snasui]

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

Code: Select all

Sub CreateSheet()
    Dim wks As Worksheet
    Dim RoundPic As String
    RoundPic = "Data"
    For Each wks In Sheets
        If wks.Name = RoundPic Then
            Exit Sub
        End If
    Next wks
    Sheets.Add
    ActiveSheet.Name = RoundPic
End Sub

[kraikrai]

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

Code: Select all

Sub CreateSheet()
    Dim wks As Worksheet
    Dim RoundPic As String
    RoundPic = "Data"
    For Each wks In Sheets
        If wks.Name = RoundPic Then
            Exit Sub
        End If
    Next wks
    Sheets.Add
    ActiveSheet.Name = RoundPic
End Sub

ขอบคุณมากครับ สามารถทำได้แล้วครับ