Snasui Excel Forum

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

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

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

ขอโทษทีครับผมลืม รบกวนด้วยครับ

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

snasui wrote: Thu May 31, 2018 6:16 pm ตัวอย่าง Code ครับ

Code: Select all

'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

ตรง other code คืออะไรครับ และ
code ไม่สามารถใช้งานได้ครับ error with out next ครับผม

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

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