กรอกข้อมูล สร้างชีทใหม่ พร้อมทำ hyperlink

[thammakris]

ขอคำแนะนำ ทำuserformกรอกข้อมูล แล้วสร้างชีทใหม่พร้อมhyperlinkไปยังชีทที่สร้างทีครับ
ลองทำตามyoutube ตอนนี้เหลือแค่ทำhyperlinkไปยังชีทครับ

Code: Select all

Private Sub CommandButton2_Click()

Do
Dim b As String
r = r + 1
b = TextBox1.Text
Loop Until Cells(r, 1) = ""
Cells(r, 1) = b
Sheets("template").Copy After:=Worksheets("sheet1")
ActiveSheet.Name = b

 'Sheets("sheet1").Cells(r, 1).Select
  ' ActiveSheet.Hyperlinks.add _
   'Anchor:=Selection, Address:="", SubAddress:= _
  ' b.Name & "!A1", TextToDisplay:=b.Name
Unload Me
End Sub

โพสต์กระทู้ผิด เนื้อหาผิดยังไงขออภัยมา ณ ที่นี้ด้วยนะครับ

[snasui]

กรุณาแนบไฟล์ Excel มาด้วยจะได้ช่วยทดสอบได้ครับ

[thammakris]

กรุณาแนบไฟล์ Excel มาด้วยจะได้ช่วยทดสอบได้ครับ

ผมได้แนบไฟล์ให้แล้วครับ ขอบคุณอาจารย์สันติพงศ์ล่วงหน้าครับ

[snasui]

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

Code: Select all

Private Sub CommandButton2_Click()
    Dim b As String
    Do
        r = r + 1
        b = TextBox1.Text
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = b
    Sheets("template").Copy After:=Worksheets("sheet1")
    ActiveSheet.Name = b
    
    With Sheets("sheet1")
        .Hyperlinks.add Anchor:=.Cells(r, 2), Address:="", SubAddress:= _
        "#'" & b & "'!A1", TextToDisplay:=b
    End With
    Unload Me
End Sub

[thammakris]

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

Code: Select all

Private Sub CommandButton2_Click()
    Dim b As String
    Do
        r = r + 1
        b = TextBox1.Text
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = b
    Sheets("template").Copy After:=Worksheets("sheet1")
    ActiveSheet.Name = b
    
    With Sheets("sheet1")
        .Hyperlinks.add Anchor:=.Cells(r, 2), Address:="", SubAddress:= _
        "#'" & b & "'!A1", TextToDisplay:=b
    End With
    Unload Me
End Sub

ขอบคุณมากๆครับอาจารย์จะนำไปปรับใช้ครับ ดูแลสุขภาพด้วยนะครับอาจารย์

[thammakris]

สวัสดีครับอาจารย์ จากปัญหาครั้งก่อนในการสร้างhyperlinkโดยใช้vbaสามารถแก้ได้แล้ว
ในรอบนี้ผมพยายามทำsearch box โดยการใช้=HYPERLINK(VLOOKUP(N1,B:D,3,0)) โดยสามารถค้นหาcellที่ต้องการได้ แต่ไม่สามารถเปิดไปยังlinkปลายทางได้ครับ
ไม่ทราบว่าปัญหาเกิดจากโค้ดหรือตรงไหน หรือถ้ามีวิธีที่ดีกว่าช่วยแนะนำทีครับ ขอบคุณครับ

[snasui]

ตัวอย่างการปรับสูตรครับ

=HYPERLINK("#'"&N1&"'!A1",VLOOKUP(N1,B:D,3,0))

[thammakris]

ตัวอย่างการปรับสูตรครับ

=HYPERLINK("#'"&N1&"'!A1",VLOOKUP(N1,B:D,3,0))

ขอบคุณมากๆครับอาจารย์