Excel Marco สำหรับเอา Hypterlink ออกมาเป็น Text

April 10, 2020 at 9:22 am

ต้องไปเอา Report จาก Fanpage Kama ที่สามารถ Download มาเป็น Excel Files แต่ติดปัญหา ของ Files ที่ดาวน์โหลดมาและต้องเอาไปใช้งานต่อนั้น ไม่มี Hyperlink แต่ทางเราต้องการ ชื่อ Link ใน Files ที่ Download จะมีวิธีในการทำอย่างไร ?

ลองไปเอา Data ของ Page การตลาดวันละตอน แล้วลอง Export Files ออกมา

มีโครงการนึงที่อยากทำ คือ จะลองออกแบบ Design Social Network แล้วเอา Data มาทำใน Power BI หรือ TableAu แล้วดูย้อนหลังแบบ วันที่ได้ ก็เลยเริ่มเก็บข้อมูลก่อน แต่ดันไปติดตรงนี้

Files excel ที่ ดาวน์โหลดมาแล้ว แต่ดันมีคำว่า Link ไม่โชว์ชื่อ hyper link

ซึ่งเราต้องการ ชื่อเต็ม ๆ ของ Hyperlink แต่มันดันซ่อน Link ไว้ ก็เลยลองถามในกลุ่มคนรัก Excel ดู ต้องขอบคุณ คนเก่ง ๆ ใน กลุ่ม

ลองเปิด Alt+F11 แล้วเขียน Marco ตาม

เย่ ๆ เอา Hyper link ออกมาได้แล้ว

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

ก็ถือเป็นความรู้ใหม่ กลัวลืม ทำได้ แล้วก็จดไว้ใน Blog ซะหน่อย คิดว่าต่อไปคงได้ใช้ Marco VBA มากขึ้น

Webmaster
Anantachai ittiworapong