ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ³z¹L¨ç¼ÆHYPERLINK¶W³sµ²¡A¥X²{"µLªk¶}±Ò....¡AµLªk¤U¸ü±z­n¨Dªº¸ê°T¡C"

[µo°Ý] ³z¹L¨ç¼ÆHYPERLINK¶W³sµ²¡A¥X²{"µLªk¶}±Ò....¡AµLªk¤U¸ü±z­n¨Dªº¸ê°T¡C"

¥»©«³Ì«á¥Ñ av8d ©ó 2021-8-23 01:28 ½s¿è

¹w³]ÂsÄý¾¹¬°Chrome

¨Ò¤@¡BÀx¦s®æ=HYPERLINK("https://www.google.com.tw/webhp?tab=Tw","·j´M")
¥i¥¿±`¶}±Ò

¨Ò¤G¡BÀx¦s®æ=HYPERLINK("https://www.google.com.tw/search?q="&F2&"&ei","¨¦ºq·j´M")
·|¥X²{"µLªk¶}±Ò https://www.google.com.tw/search?q=&ei¡AµLªk¤U¸ü±z­n¨Dªº¸ê°T¡C"(¦p¤U¹Ï)


ª¦¤å¦h¤é¡A¬Ò¥¼¯à¸Ñµª¡A§Æ±æ¯àÀò±o¦U¦ì«e½ú­Ì¬Û§U¡A·P¿E¤£ºÉ¡C

Hello,

HTML ¬O¤£¬O­n¥ý±N¤å¦rÂনUTF8®æ¦¡¶Ü?
¥i¸Õ¸Õ.
Thanks ~

Function URLEncodeUTF8(ByRef szString As String) As String

        Dim szChar   As String
        Dim szTemp   As String
        Dim szCode   As String
        Dim szHex    As String
        Dim szBin    As String
        Dim iCount1  As Integer
        Dim iCount2  As Integer
        Dim iStrLen1 As Integer
        Dim iStrLen2 As Integer
        Dim lResult  As Long
        Dim lAscVal  As Long
        szString = Trim$(szString)
        iStrLen1 = Len(szString)
        For iCount1 = 1 To iStrLen1
            szChar = Mid$(szString, iCount1, 1)
            lAscVal = AscW(szChar)
            If lAscVal >= &H0 And lAscVal <= &HFF Then
               If (lAscVal >= &H30 And lAscVal <= &H39) Or _
                  (lAscVal >= &H41 And lAscVal <= &H5A) Or _
                  (lAscVal >= &H61 And lAscVal <= &H7A) Then
                  szCode = szCode & szChar
               Else
                  szCode = szCode & "%" & Hex(AscW(szChar))
               End If
            Else
               szHex = Hex(AscW(szChar))
               iStrLen2 = Len(szHex)
               For iCount2 = 1 To iStrLen2
                   szChar = Mid$(szHex, iCount2, 1)
                   Select Case szChar
                          Case Is = "0"
                               szBin = szBin & "0000"
                          Case Is = "1"
                               szBin = szBin & "0001"
                          Case Is = "2"
                               szBin = szBin & "0010"
                          Case Is = "3"
                               szBin = szBin & "0011"
                          Case Is = "4"
                               szBin = szBin & "0100"
                          Case Is = "5"
                               szBin = szBin & "0101"
                          Case Is = "6"
                               szBin = szBin & "0110"
                          Case Is = "7"
                               szBin = szBin & "0111"
                          Case Is = "8"
                               szBin = szBin & "1000"
                          Case Is = "9"
                               szBin = szBin & "1001"
                          Case Is = "A"
                               szBin = szBin & "1010"
                          Case Is = "B"
                               szBin = szBin & "1011"
                          Case Is = "C"
                               szBin = szBin & "1100"
                          Case Is = "D"
                               szBin = szBin & "1101"
                          Case Is = "E"
                               szBin = szBin & "1110"
                          Case Is = "F"
                               szBin = szBin & "1111"
                          Case Else
                   End Select
               Next iCount2
               szTemp = "1110" & Left$(szBin, 4) & "10" & Mid$(szBin, 5, 6) & "10" & Right$(szBin, 6)
               For iCount2 = 1 To 24
                   If Mid$(szTemp, iCount2, 1) = "1" Then
                      lResult = lResult + 1 * 2 ^ (24 - iCount2)
                   Else: lResult = lResult + 0 * 2 ^ (24 - iCount2)
                   End If
               Next iCount2
               szTemp = Hex(lResult)
                     szCode = szCode & "%" & Left$(szTemp, 2) & "%" & Mid$(szTemp, 3, 2) & "%" & Right$(szTemp, 2)
            End If
szBin = vbNullString
            lResult = 0
        Next iCount1
        URLEncodeUTF8 = szCode

End Function
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

Hello,

§Ú­è¨Ï¥Î¬O¥i¥Hªº, ¤£·|¦³¿ù»~°T®§,
§ÚªºÀô¹Ò¦p¤U. ¨Ñ§A°Ñ¦Ò.

¹w³]·ÈÄý¾¹: Firefox
excel : 2016 64bit

F2=¨¦¬å
F4=HYPERLINK("https://www.google.com.tw/search?q="&F2&"&ei","¨¦ºq·j´M")
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2021-8-26 15:30 ½s¿è

¦^´_ 3# ¼B¤j­G

­º¥ý¸U¤À·PÁ«e½úªº¥Î¤ß»P«ü¾É¡A

§Ú¥Ø«e¨Ï¥Îªº¬OWindows 10
Office³nÅé¬OExce l2019
¹w³]ÂsÄý¾¹¬° Chrome

µ{¦¡½Xªº³¡¤À§Ú¤ñ¸û­¯¥Í¡A¦ý¦³©ñ¶iVBA¶]¹L¡A¨ÌµM¬OµLªk¶}±Ò¡A

§Ú§ó´«¹q¸£¥H«e¬OWindows 7
Office³nÅé¬OExcel 2010
¹w³]ÂsÄý¾¹¬° Chrome
¬O¥i¥H¥¿±`¨Ï¥Îªº

§Ú²q´ú¬O¤£¤ä´©search?q=
§Ú·|Ä~Äò¤Wºô´M§ä¸Ñµª¡A«D±`·PÁ±zªº¥Î¤ß¡C

TOP

¦^´_ 4# av8d

§Ú¸Õ¤]¨S°ÝÃD

¹w³]·ÈÄý¾¹: Chrome
excel : 2016 64bit

F2=¥x¿n¹q
F4=HYPERLINK("https://www.google.com.tw/search?q="&F2&"&ei","¨¦ºq·j´M")

TOP

¦^´_ 5# quickfixer

¸U¤À·PÁ±zªº´ú¸Õ¡A
§Úªº¬O Excel ±M·~¼W±jª© 2019
·Ó¹D²z»¡ª©¥»À³¸Ó¤£·|¦]¦¹¦³°ÝÃD

§Ú­èÁÙ´ú¸Õ¤F HYPERLINK("https://www.youtube.com/results?search_query="&F2,"YT·j´M")
¤]¬O¥¿±`ªº¡A­ì¦]¤£¦n§ä¡A§ÚÄ~Äò§V¤O¡C

TOP

Hello, Av8d ¤j

¨þ~¬Ý°_¨Ó, ¹³¬OOfficeª©¥»ªº°ÝÃD¤F!!
¦p¦³¸Ñ¨M, ¦A½Ð¤j¤j¤£§[¤À¨É.
©Î³\¥¼¨Ó¤p§Ì¤]·|¦³¬Û¦Pªº°ÝÃD.
Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 7# ¼B¤j­G

¬ðµM¶¡¨S¦³¨Ï¥Î¥ô¦ó³]©w¡A«o¤S¥i¥H¥Î¤F¡A¤Ó¯«©_¤F¡A¸U¤À·PÁ¦U¦ì«e½úªº¼ö¤ßÀ°§U¡I

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD