Membuat Link Web di Excel - VBA EXCEL

Rumus excel

'=HYPERLINK("https://api.whatsapp.com/send?phone="&C2&MID(D2;2;11)&"  Ke  "& B2&"")

 Kode Visual Basic

Sub CreatingLink_onCell()

ActiveSheet.Hyperlinks.Add Range("G1"), "https://api.whatsapp.com/send?phone=" & 6282396256527# & ""

End Sub

Sub CreatingLink_FaceBook()

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Picture 5"), Address:=" https://web.facebook.com"

End Sub

Sub CreatingLink_Blogger ()

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Picture 6"), Address:="https://excelsuport.blogspot.com"

End Sub

Sub CreatingLink_Whatsapp()

ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Picture 7"), Address:=" https://api.whatsapp.com/send?phone=6282292589157"

End Sub

 UNDUH FILE SAMPEL XLSM  >>>

   FILE XLSM

DEMIKIAN SEMOGA BERMANFAAT