:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser
🪷 คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ

เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่

Post a reply


This question is a means of preventing automated form submissions by spambots.
Smilies
:D :thup: :cp: :flw: :rz: :sg: :tt: :) ;) :( :o :shock: :? 8-) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :!: :?: :idea: :arrow: :ard: :arl: :aru: :| :mrgreen: :geek: :ugeek:
BBCode is ON
[img] is ON
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#32

by alundc45 » Sun Nov 04, 2018 3:57 pm

snasui wrote: Sun Nov 04, 2018 1:31 pm :D ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
If IsNumeric(VBA.Right(WS.Name, 2)) Then
    WS.Name = WS.Range("AP3").Value
End If
'Other code
ตรง Other code คือ Code เดิมครับ

ส่วนที่ถามมาตามภาพว่าคืออะไร คำตอบคืออักขระ 2 ตัวหลังของชี่อชีตเดิม

การสอบถามปัญหาควรระบุปัญหาที่เป็นและสิ่งที่ต้องการให้ชัดเจนว่าต้องการจะทำอะไร ด้วยเงื่อนไขใด เพื่อจะได้ตอบได้กระชับตรงประเด็นครับ :lol:
ขอขอบพระคุณมากครับสำหรับคำตอบที่ได้มามีประโยชน์และทำให้งานมีความรวดเร็วมากขึ้นครับผม :D :thup:
Attachments
2018-11-04_15-49-55.jpg
2018-11-04_15-49-55.jpg (92.05 KiB) Viewed 29 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#31

by snasui » Sun Nov 04, 2018 1:31 pm

:D ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
If IsNumeric(VBA.Right(WS.Name, 2)) Then
    WS.Name = WS.Range("AP3").Value
End If
'Other code
ตรง Other code คือ Code เดิมครับ

ส่วนที่ถามมาตามภาพว่าคืออะไร คำตอบคืออักขระ 2 ตัวหลังของชี่อชีตเดิม

การสอบถามปัญหาควรระบุปัญหาที่เป็นและสิ่งที่ต้องการให้ชัดเจนว่าต้องการจะทำอะไร ด้วยเงื่อนไขใด เพื่อจะได้ตอบได้กระชับตรงประเด็นครับ :lol:

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#30

by alundc45 » Sun Nov 04, 2018 1:20 pm

snasui wrote: Sun Nov 04, 2018 1:07 pm :D ตามภาพที่แนบมาติดปัญหาอะไรกรุณาอธิบายมาในช่องความเห็นนี้ด้วยครับ

นอกจากนี้กรุณาปรับ Code มาเองก่อนเสมอ ติดตรงไหนค่อยถามกันต่อครับ
:flw:
1. ปัญหาคือพอเปลี่ยนข้อความในช่อง AP3 แล้วลองรัน CODE ดู ปรากฏว่า ชื่อ Sheet ไม่ยอมเปลี่ยน (ปี) ตามข้อความในช่อง AP3 ที่ผมกรอกเปลี่ยนปีเข้าไปใหม่ ของทุก Sheet ครับผม
2. ผมได้ทดสอบโดยการเปลี่ยนเป็นข้อความอื่นในช่อง AP3 รัน CODE แล้วชื่อ Sheet ไม่ยอมเปลี่ยนตามครับ
3. ทุกชีต ๆ ผมได้เปลี่ยนช่อง AP3 เป็นเดือนปีทั้งหมดครับ ซึ่งต้องการให้ ชื่อ Sheet เป็นชื่อ เดือน ม.ค62 จน ถึง เดือน ธ.ค62
Attachments
2018-11-04_13-24-59.jpg
2018-11-04_13-24-59.jpg (22.47 KiB) Viewed 31 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#29

by snasui » Sun Nov 04, 2018 1:07 pm

:D ตามภาพที่แนบมาติดปัญหาอะไรกรุณาอธิบายมาในช่องความเห็นนี้ด้วยครับ

นอกจากนี้กรุณาปรับ Code มาเองก่อนเสมอ ติดตรงไหนค่อยถามกันต่อครับ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#28

by alundc45 » Sun Nov 04, 2018 12:59 pm

snasui wrote: Sun Nov 04, 2018 12:01 pm :D ตัวอย่าง Code ครับ

Code: Select all

Sub Test()
    Dim WS As Worksheet
    On Error Resume Next
    For Each WS In Sheets
        If VBA.Right(WS.Name, 2) = "62" Then
            WS.Name = WS.Range("AP3").Value
        End If
    Next WS
End Sub
การเปลี่ยนชื่อชีต จะเปลี่ยนให้ชื่อซ้ำกันไม่ได้ครับ
ขอบคุณสำหรับคำตอบครับ แต่ผมติดปัญหาตามไฟล์นี้ครับ
Attachments
rename_test2.xlsm
(307.49 KiB) Downloaded 1 time
2018-11-04_12-51-26.jpg
2018-11-04_12-51-26.jpg (93.32 KiB) Viewed 34 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#27

by snasui » Sun Nov 04, 2018 12:01 pm

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

Code: Select all

Sub Test()
    Dim WS As Worksheet
    On Error Resume Next
    For Each WS In Sheets
        If VBA.Right(WS.Name, 2) = "62" Then
            WS.Name = WS.Range("AP3").Value
        End If
    Next WS
End Sub
การเปลี่ยนชื่อชีต จะเปลี่ยนให้ชื่อซ้ำกันไม่ได้ครับ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#26

by alundc45 » Sun Nov 04, 2018 11:24 am

snasui wrote: Sun Nov 04, 2018 10:44 am :D กรุณาแนบไฟล์มาที่ฟอรัมนี้ (กฎข้อ 4 ด้านบน :roll:) ครับ
ขอโทษอีกรอบครับผมสำหรับไฟล์แนบตามนี้เลยครับผม
Attachments
rename_test.xlsm
(87.34 KiB) Downloaded 3 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#25

by snasui » Sun Nov 04, 2018 10:44 am

:D กรุณาแนบไฟล์มาที่ฟอรัมนี้ (กฎข้อ 4 ด้านบน :roll:) ครับ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#24

by alundc45 » Sun Nov 04, 2018 9:10 am

alundc45 wrote: Sun Nov 04, 2018 8:03 am สอบถามครับ ถ้าเรามี 10 sheet แต่เราต้องการเปลี่ยนแค่ 5 เราระบุชื่อชื่อไปเลยได้ไหมครับ เช่น sheet1,sheet6,sheet3
ขอโทษด้วยครับที่ให้ข้อมูลไม่ละเอียด ผมทำไฟล์แนบมาตามนี้ครับผม

Code ที่ใช้ --->> https://www.uppic.org/image-D973_5BDE58E9.jpg
Attachments
2018-11-04_8-26-01.jpg
2018-11-04_8-26-01.jpg (108.34 KiB) Viewed 43 times
2018-11-04_8-32-48.jpg
2018-11-04_8-32-48.jpg (94.69 KiB) Viewed 43 times
2018-11-04_8-33-37.jpg
2018-11-04_8-33-37.jpg (103.1 KiB) Viewed 43 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#23

by snasui » Sun Nov 04, 2018 8:12 am

:D การเขียนโปรแกรมด้วย VBA สามารถทำได้แทบทุกอย่างครับ

กรุณาแนบไฟล์ตัวอย่างพร้อมชี้ให้เห็นว่าต้องการจะทำอะไร ที่ไหน อย่างไร ต้องการคำตอบเป็นอย่างไร จะได้ช่วยดูต่อไปจากนั้น

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

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#22

by alundc45 » Sun Nov 04, 2018 8:03 am

สอบถามครับ ถ้าเรามี 10 sheet แต่เราต้องการเปลี่ยนแค่ 5 เราระบุชื่อชื่อไปเลยได้ไหมครับ เช่น sheet1,sheet6,sheet3

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#21

by March201711 » Thu Dec 28, 2017 10:00 pm

ทำได้แล้ว ขอบคุณอาจารย์มากๆเลยคะ ได้ความรู้เพิ่มขึ้นจากไม่ค่อยรู้เรื่อง code vba มาก่อนเลยค่ะ :D

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#20

by snasui » Thu Dec 28, 2017 9:53 pm

:D อ่านโพสต์ด้านบน ผมเพิ่มให้แล้วครับ :roll:

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#19

by March201711 » Thu Dec 28, 2017 9:52 pm

อาจารย์คะ อยากให้เปลี่ยนเฉพาะ sheet1 sheet เดียวค่ะ พอกด enterแล้ว excel เปลี่ยนให้ทุก sheet เลยค่ะ
Attachments
ChangeName_vba3.xlsm
(172.66 KiB) Downloaded 14 times

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#18

by snasui » Thu Dec 28, 2017 9:37 pm

:D ลองเข้าหน้าต่าง VBE (หน้าต่างที่ใช้เขียน Code) จากนั้นกดแป้น Ctrl+G เพื่อเปิดหน้าต่าง Immediate Windows จากนั้นคีย์ Statement ด้านล่างนี้ลงไปในหน้าต่าง Immediate Windows แล้ว Enter

application.EnableEvents = true

จากนั้นทดสอบการคีย์ค่าในเซลล์ A1 ของ Sheet1 อีกรอบครับ

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

ที่เปลี่ยนทุกชีตเพราะเขียน Code ให้ Loop เปลี่ยนทุกชิต หากต้องการจะเปลี่ยนเฉพาะ Sheet1 ก็ต้องปรับไม่ให้มีการ Loop เช่นเปลี่ยนเป็นด้านล่างครับ

Code: Select all

Sub test()
    Dim WS As Worksheet
    Set WS = ActiveSheet
    WS.Name = WS.Range("a1").Value
End Sub

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#17

by March201711 » Thu Dec 28, 2017 9:29 pm

ไม่เห็นได้เลยคะ แก้แล้ว save ปิดแล้วเปิดใหม่ แล้วไปที่ cell a1 double click ใน cell a1 แล้ว enter ก็ไม่ได้ค่ะ งงจัง

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#16

by snasui » Thu Dec 28, 2017 9:11 pm

:D ขั้นตอนแค่เปลี่ยนชื่อในเซลล์ A1 ของ Sheet1 แล้ว Enter ยกเว้นไม่มีชีตที่ชื่อ Sheet1 หรือไม่ได้เปลี่ยนค่าในเซลล์ A1 ของชีตที่ชื่อว่า Sheet1 ครับ

เมื่อแก้ไขแล้วลองปิดไฟล์แล้วเปิดขึ้นมาใหม่แล้วค่อยทดสอบครับ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#15

by March201711 » Thu Dec 28, 2017 9:09 pm

อาจารย์ช่วยบอกขั้นตอนได้ไหมคะ สงสัยข้าพเจ้าทำปิดขั้นตอนบางอย่างค่ะ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#14

by snasui » Thu Dec 28, 2017 9:07 pm

:D ผมดาวน์โหลดไฟล์มาทดสอบแล้วเปลี่ยนได้ปกติครับ

Re: เปลี่ยนชื่อ Sheet ตาม cell ที่กำหนด [VBA]

#13

by March201711 » Thu Dec 28, 2017 9:05 pm

ก็ยังไม่ได้น่ะค่ะ ก็เปลี่ยนชื่อเฉพาะชื่อ sheet1 เป็นชื่อตาม cell a1อาจารย์บอกว่าแค่พิมพ์ชื่อ ตรง cell a1แล้ว enter sheet จะเปลี่ยนชื่อ auto แต่ก็ไม่ได้น่ะค่ะ
Attachments
ChangeName_vba2.xlsm
(29.53 KiB) Downloaded 16 times

Top