Snasui Excel Forum

:D 'Other code คือ Code เดิมครับ

Code ที่ผมเขียนมานี้เฉพาะที่ปรับใหม่ จะมีบรรทัดเดิมบางบรรทัดไว้ให้ด้วยเพื่อจะได้ใช้เปรียบเทียบกับของเดิมได้ครับ

[quote=snasui post_id=83068 time=1527765373 user_id=2]
:D ตัวอย่าง Code ครับ

[code]
'Other code
Dim sh As Worksheet
'Other code
For Each r In rall.Areas
If r.Cells(2, 1) <> "" Then
For Each sh In Worksheets
If r.Cells(2, 1).Value = sh.Name Then Exit Sub
Next sh
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = r.Cells(2, 1).Value
'Other code
[/code]
[/quote]
ตรง other code คืออะไรครับ และ
code ไม่สามารถใช้งานได้ครับ error with out next ครับผม

'Other code
    Dim sh As Worksheet
'Other code
    For Each r In rall.Areas
        If r.Cells(2, 1) <> "" Then
            For Each sh In Worksheets
                If r.Cells(2, 1).Value = sh.Name Then Exit Sub
            Next sh
            Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
                .Name = r.Cells(2, 1).Value
'Other code

:D ตัวอย่าง Code ครับ

[code]
'Other code
Dim sh As Worksheet
'Other code
For Each r In rall.Areas
If r.Cells(2, 1) <> "" Then
For Each sh In Worksheets
If r.Cells(2, 1).Value = sh.Name Then Exit Sub
Next sh
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = r.Cells(2, 1).Value
'Other code
[/code]

ขอโทษทีครับผมลืม [attachment=0]NameTest.xlsx.xlsm[/attachment] รบกวนด้วยครับ

:D แนบไฟล์ตัวอย่างที่เขียน Code เอาไว้เองแล้วมาด้วยจะได้ตอบต่อไปจากนั้นครับ

สวัสดีครับ อยากให้ช่วยตรวจสอบและปรับ code หน่อยครับ
[attachment=0]vd.PNG[/attachment] การทำงานคือ เมื่อกดปุ่มสีฟ้าที่ชีท Interface จะสร้างชีทใหม่และมีข้อมูลตามมาในชีทใหม่ ปัญหาคือเวลาเกิด error อยากให้มันไม่ต้องสร้างชีทมาอีกอันครับ

และอยากให้ช่วยปรับ code ให้กระชับมากกว่านี้ครับ เอาไว้ศึกษาต่อครับผม ขอบคุณครับ