Page 1 of 1
ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 10:51 am
by smilekoong
ผมต้องการให้ Sheet ทั้ง 77 sheet เป็นชื่อของจังหวัดทั้ง 77 จังหวัด โดยมีรายชื่อจังหวัดอยู่ที่ sheet1 สามารถทำได้ด้วยวิธีไหนบ้างครับ
ขอบคุณล่วงหน้าครับ
Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 11:53 am
by 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
Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 11:57 am
by chatt
ใช้ VBA ครับ
For i=1 to 77
Controls("Sheet" & (i+1)).Caption=Range("C"&(2+i)).Value
Next i
Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 12:03 pm
by godman
ลองดูตามไฟล์แนบครับ ใส่ชื่อจังหวัดในคอลัมพ์ C แล้วกดปุ่มสีเหลือง ชี้ตจะถูกสร้างใหม่
Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 1:06 pm
by smilekoong
ขอคุณท่านที่ให้ความรู้นะครับ ลดเวลาการทำงานได้มากเลยครับ
Re: ต้องการให้ Sheet ในแต่ละ Sheet เปลี่ยนเป็นชื่อที่ต้อง
Posted: Fri Dec 12, 2014 1:11 pm
by Totem
ลองตามดูตามลิ้งค์นี้ดูครับ