ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง

[smilekoong]

ผมต้องการให้ Sheet ทั้ง 77 sheet เป็นชื่อของจังหวัดทั้ง 77 จังหวัด โดยมีรายชื่อจังหวัดอยู่ที่ sheet1 สามารถทำได้ด้วยวิธีไหนบ้างครับ

ขอบคุณล่วงหน้าครับ

[songsug]

ลองเอา Code นี้ไป Run ที่ sheet1 ดูครับ

Code: Select all

Sub RenameSheets()
    Row = 3 'เราเริ่มบรรทัดที่ 3
For Each o In Worksheets
        If Range("C" & Row).Value = "" Then Exit For
        If o.Name <> "Sheet1" Then o.Name = Range("C" & Row).Value
        Row = Row + 1
        Next
End Sub

[chatt]

ใช้ VBA ครับ

For i=1 to 77
Controls("Sheet" & (i+1)).Caption=Range("C"&(2+i)).Value
Next i

[godman]

ลองดูตามไฟล์แนบครับ ใส่ชื่อจังหวัดในคอลัมพ์ C แล้วกดปุ่มสีเหลือง ชี้ตจะถูกสร้างใหม่

[smilekoong]

ขอคุณท่านที่ให้ความรู้นะครับ ลดเวลาการทำงานได้มากเลยครับ

[Totem]

ลองตามดูตามลิ้งค์นี้ดูครับ wordpress/add-sheet-with-vba/