Excel Forum

ลองทำการใส่โค้ดตามที่อาจารย์แนะนำมาแต่ยังไม่เกิดการเปลี่ยนแปลงค่ะ

ลำดับการทำงานคือเปลี่ยนตัวเลขที่ cell R5 และกด enter เพียงครั้งเดียวให้เปลี่ยนชื่อชีท (ที่เป็นตัวเลข) ทุกชีทที่มีในไฟล์
ยกตัวอย่างเช่น ต้องการเปลี่ยนชื่อ sheet2 ถึง sheet5 โดยเปลี่ยนแค่ตัวเลขจาก 2502001-2502004 เป็น 2503001-2503004 ...

ความต้องการคืออยากให้ชื่อชีททั้งหมดเปลี่ยนตาม cell R5 โดยมีการรรันเลขตามลำดับด้วยการกด enter ยกตัวอย่างเช่นชื่อเดิมคือ 2501001 - aa เปลี่ยนเป็น 2502001 - aa ค่ะ

ขออภัยค่ะอาจารย์แนบไฟล์ให้ใหม่แล้วค่ะ

ขออนุญาตสอบถามค่ะ ถ้าต้องการจะเพิ่มลูปเปลี่ยนชื่อชีททั้งหมดตั้งแต่ sheet2 เป็นต้นไป (เปลี่ยนแค่ตัวเลข) และอยากให้ชื่อชีทยังอยู่เหมือนเดิม สามารถทำได้มั้ยคะ จากโค้ดที่ลองเขียน Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim WS As Worksheet
Dim i As Integer
Set WS ...

ขอบคุณอาจารย์ Santipong และคุณ puriwutpokin มากๆค่ะ สูตรที่ให้มาใช้ได้ตามความต้องการค่ะ

puriwutpokin wrote: Mon Nov 13, 2023 12:28 pm ลองปรับส่วนนี้ดูครับ

Code: Select all

WS.Name = WS.Range("I6").Value & " " & Application.Trim(Left(Application.Substitute(WS.Range("C6").Value, " ", Application.Rept(" ", 99)), 150))

ขอบคุณมากค่ะคุณ puriwutpokin
ช่วยอธิบายโค้ดนี้หน่อยได้มั้ยคะ

ขอบคุณมากค่ะอาจารย์

สอบถามเพิ่มเติมค่ะถ้าจะต้องการหาค่าเว้นวรรคสองค่า
เพื่อให้ได้ค่าที่ต้องการ ตัวอย่างเช่น PV2312003 Social Security
ตรงโค้ดเราจะเพิ่มเงื่อนไข
WS.Name = WS.Range("I6").Value & " " & VBA.Left(WS.Range("C6").Value, InStr(WS.Range("C6").Value, " "&" ")) ได้มั้ยคะ หรือจะต ...

snasui wrote: Fri Nov 10, 2023 3:27 pm WS.Name = WS.Range("I6").Value & " " & VBA.Left(WS.Range("C6").Value, InStr(WS.Range("C6").Value, " "))

รบกวนอาจารย์ช่วยอธิบายโค้ดนี้หน่อยได้มั้ยคะ

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

เพิ่มเติมอีกนิดค่ะ ถ้าอยากจะให้ข้อความสั้นลงแก้ไขตรงเลข 31 จากโค้ด .Value, 31 ถูกมั้ยคะ
แล้วถ้าเราต้องการเพิ่มสูตรตัดข้อความจาก spacebar ในโค้ด ต้องใช้สูตรไหนคะ
เพราะลองใช้สูตร =trim กับ =left แล้วจะต้องกำหนดจำนวนตัวอักษร
ตัวอย่างเช่น ค่าที่ต้องการคือ PV2312001 ...

อาจารย์คะ แล้วถ้าในกรณีที่ชื่อชีทไม่ใช่ Sheet1 ตัวอย่างเช่นเดิมป็นชื่อ PV2312001 Social Security Office
โค้ด If Sh.Name = Sheets(1).Name Then จะต้องเปลี่ยนเป็น If Sh.Name = " ".Name Then ถูกมั้ยคะ
แล้วแล้วในกรณีที่มีหลายชีทถ้าอยากจะกำหนดให้ในการแก้ไขเซลล์ I6 กับ C6 สามารถเปลี่ยนทุกชีท ไม่ใช่เฉพาะ ...

I6 ของ Sheet1 ค่ะ ชื่อชีตจะเปลี่ยนเป็น PV2312001 Social Security Office


ลองทดสอบโค้ดแล้วมีป้อปอัพขึ้นค่ะ

ิสิ่งที่ต้องการคือเมื่อมีการแก้ไขในเซลล์ I6 หลังจากกด enter ชื่อ Sheet1 เปลี่ยนตามค่ะ

ขออภัยค่ะ

Book4.xlsx รบกวนสอบถามค่ะ
1.ต้องการ run macro หลังจากกด Enter โดยไม่สร้างปุ่มสามารถทำได้มั้ยคะ
2.ถ้าต้องการเพิ่มชื่อจาก column C6 เขียนแบบนี้ถูกมั้ยคะ


Sub test()
Dim WS As Worksheet
Set WS = ActiveSheet
WS.Name = WS.Range("I6").Value & " " & ActiveSheet.Rang("C6").Value

End Sub