Snasui Excel Forum

puriwutpokin wrote: Sun Nov 04, 2018 6:47 pm ที่ C4=IF(ROWS($A$4:C4)<=$A$3,HYPERLINK("#["&$C$2&".xlsm]"&INDEX(ListSheet,ROWS($A$4:C4))&"!a1",INDEX(ListSheet,ROWS($A$4:C4))),"")

puriwutpokin wrote: Sun Nov 04, 2018 6:28 pm แนบไฟล์ตัวอย่างมาด้วยครับ จะได้สะดวกต่อการตอบ

ไฟล์ตัวอย่างครับผม

สวัสดีครับ
ผมเข้าไปดูการสร้าง list รายชื่อ จากลิงค์นี้ครับ ---> http://snasui.com/wordpress/list-all-sheets/
ผมมีเรื่องจะสอบถามการดึงข้อมูลจากเซลล์เข้ามาในสูตร hyper link เลยจะต้องเขียนสูตรอย่างไร ตามรูปแนบครับ

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


'Other code
If IsNumeric(VBA.Right(WS.Name, 2)) Then
WS.Name = WS.Range("AP3").Value
End If
'Other code


ตรง Other code คือ Code เดิมครับ

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

การสอบถามปัญหาควรระบุปัญหาที่เป็นและสิ่งที่ต้องการให้ช ...

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

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


:flw:
1. ปัญหาคือพอเปลี่ยนข้อความในช่อง AP3 แล้วลองรัน CODE ดู ปรากฏว่า ชื่อ Sheet ไม่ยอมเปลี่ยน (ปี) ตามข้อความในช่อง AP3 ที่ผมกรอกเปลี่ยนปีเข้าไปใหม่ ของทุก ...

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

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

การเปลี่ยนชื่อชีต จะเปลี่ยนให้ชื่อซ้ำกันไม่ได้ครับ


ขอบคุณสำหรับคำตอบครับ แต่ผมติดปัญหาตามไฟล์น ...

snasui wrote: Sun Nov 04, 2018 10:44 am กรุณาแนบไฟล์มาที่ฟอรัมนี้ (กฎข้อ 4 ด้านบน ) ครับ

ขอโทษอีกรอบครับผมสำหรับไฟล์แนบตามนี้เลยครับผม

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

ขอโทษด้วยครับที่ให้ข้อมูลไม่ละเอียด ผมทำไฟล์แนบมาตามนี้ครับผม

Code ที่ใช้ --->> https://www.uppic.org/image-D973_5BDE58E9.jpg

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