เปลี่ยนชื่อที่ cell แล้วทำให้ชื่อsheet เปลี่ยนชื่อตาม

[myhomer99]

เรียนอาจารย์ทุกท่าน
ถ้าผมเปลี่ยนชื่อที่ cell a1 a2 a3 ที่กำหนดแล้วทำให้ชื่อ sheet1 2 3 เปลี่ยนชื่อตามต้องทำอย่างไรครับ
(ขออนุญาติอ้างอิงตาม post ของคุณ@pisit "เปลี่ยนชื่อ Sheet แล้วให้เปลี่ยนชื่อตาม") แต่ที่ต้องการจะกลับด้านกันครับ
ขอบคุณครับ

[snasui]

การทำเช่นนั้นต้องทำผ่านการเขียนโปรแกรมด้วย VBA ครับ

สำหรับการเขียนโปรแกรมด้วย VBA ให้ลองเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบน ติดแล้วค่อยถามกันต่อครับ

[myhomer99]

เรียนอาจารย์สุนัย
ผมทราบว่ามันเป็นการผิดกฎครับ
แต่ต้องขอโทษด้วยเพราะผมเขียน VBA ไม่เป็นจริงๆ
ถ้าเป็นไปได้ คงจะต้องขอรบกวนด้วยนะครับ
ขอบคุณครับ

[snasui]

ชื่อผมคือ "สันติพงศ์" ครับ

ต้องขออภัยครับ กฎนั้นผมเขียนขึ้นมาเองกับมือ จึงเป็นไปไม่ได้ที่ผมจะยกเว้นให้กับสมาชิกท่านใดท่านหนึ่งครับ

[myhomer99]

ไม่เป็นไรครับอาจารย์ เพราะมีประโยชน์อีกมากมายจากที่นี่ ที่ผมได้รับ และมีแต่ความรู้สึกดีๆครับ
***ต้องขอโทษด้วยที่ทักชื่อผิดครับ***

[myhomer99]

ผมลองหัดทำแล้วครับ แต่เท่าที่ได้มาเป็นแบบด้านล่าง

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value <> "" Then
ActiveSheet.Name = Range("A1").Value
End If
End Sub

แต่ปัญหาก็คือมันเปลี่ยนชื่อชีตเฉพาะชีตน้ันเท่าน้ัน
แต่ความต้องการหลักอยากจะให้พอมีการเปลี่ยนที่ sheet master แล้วชื่อ sheet ของตัวอื่นทีเตรียมไว้เปลี่ยนตามครับ
รบกวนแนะนำด้วยครับ
ขอบคุณครับ

[puriwutpokin]

ลองปรับตามนี้ครับ และคอลัมน์ A ต้องแก้วันที่่ ให้เป็น Text ก่อนครับ
เพราะจากไฟล์ ที่แสดง เป็น ม.ค.-17 มันเป็นค่า Date ซึ่งจะมีเครื่องหมาย "/"
ซึ่งใช้ตั้งชื่อชีทไม่ได้ครับ แล้ว สร้างโมดูลใส่คำสั่งนี้แทนใส่ที่ Sheet

Code: Select all

Sub Test()
    Dim i As Long
    Dim r As Range
    With Worksheets("Master")
        Set r = .Range("A1", .Range("A100").End(xlUp))
    End With
    For i = 2 To Sheets.Count
            Sheets(i).Name = r.Cells(i - 1, 1).Value
    Next i
End Sub

[kio2002]

ต้องเอาชีท master เรียงอยู่ซ้ายสุดนะครับ จากที่ลองใช้ code ดู

[eyepop99]

จากที่ผมทดลอง code ทำงานได้ดีครับ
**แต่ว่า ชื่อชีตต้นทางต้องเปลี่ยนtype เป็นtext นะคับ
ชื่อชีตห้ามมี : / \ ครับจากเบื่องต้นมี error เนื่องจากชื่อชีตที่คุณใช้เป็น type อื่นพอจะหยิบชื่อมาตั้งสูตรจึง error นะครับ
ปล.สูตรสามารถเรียงได้ถูกต้องตามต้องการเลยคับ

[myhomer99]

ทำได้แล้วครับ ขอบคุณอาจารย์ทุกท่านครับ