¦p¦ó¤j¶q³sµ²sheet¸ÌªºÀx¦s®æ

syuan

ª©¥»¡GEXCEL 2003

¦U¦ì¥ý¶i

¤p§Ì¦bEXCELªºSHEET¸Ì¡A¤w¸g¦³¥ý¦C¥X¤FÀɮתº¥DÀɦW¡A ·Q­n¥Î¶W³sµ²ªº¤è¦¡¨Ó³sµ²ÀÉ®×»PÀx¦s®æ¡A¦p¤U¹Ï

¤U¸ü (157.9 KB)

2011-11-9 00:00

(¥H¤W¬°¥Ü·Nªº¼Ë¤l¡^


¦ýSHEET¸Ìªº¥DÀɦW¤Ó¦h¡]ªñ¤@¸U¦hµ§¡A¦Ó¥B¦³¦n´X­Ósheet¡^¡A¤@­Ó¤@­Ó¥h³sµ²¹ê¦b¤Óªá®É¶¡¡A

¬G¦Ó·Q½Ð°Ý¦U¦ì¥ý¶i¡A­n¦p¦ó¤@¦¸·j´Msheet¸ÌÀx¦s®æªº¥DÀɦW¨Ó»PÀɮ׶i¦æ¶W³sµ²©O¡H

¥H¤W¡A·PÁ¦U¦ì¥ý¶i¡ã¯¬¥ß¥V´r§Ö¡ã¡ã

downling

°²³]§AªºÀɦW¥s"N00-0000-2004Á³µ·.pdf"

¥i¥H¸Õ¤@¤U

1. f2=HYPERLINK("ÀɮשҦb¸ê®Æ§¨¦WºÙ\"&B2&C2&".pdf","B2"&"c2")

½Æ»s¥N½X

syuan

°²³]§AªºÀɦW¥s"N00-0000-2004Á³µ·.pdf"

¥i¥H¸Õ¤@¤U
downling µoªí©ó 2011-11-9 10:57

    ·PÁÂdownling¤jªº¦^ÂÐ

¤p§Ì¸Õ¤F¤@¤U¡Aµ²ªG¥X²{＂Åܼƥ¼©w¸q＂ªº°T®§¡I

¦Ó¥BHyperlinkªº¦r¦ê³Q¨t²Îµ¹°é¿ï¤F°_¨Ó¡A¤£ª¾¹D¬O­þ¥X¤F°ÝÃD¡I{:2_28:}

Hsieh

¦^´_ 3# syuan
¼Ó¤W¬O±Ð§A¨Ï¥Î¨ç¼Æ°µ¶W³sµ²¡A¥²¶·¦bÀx¦s®æ¤º¿é¤J¤½¦¡

­n¨Ï¥ÎVBA¥i¨Ì¤U¦C¤è¦¡¥[¤J¶W³sµ²
Sub nn()
Dim A As Range
For Each A In ÀɮצWºÙªºÀx¦s®æ½d³ò(ÀɮצWºÙ¥²¶·¥]§t°ÆÀɦW)
   A.Hyperlinks.Add A, "E:\Àɮץؿý\" & A
Next
End Sub

syuan

¦^´_  syuan
¼Ó¤W¬O±Ð§A¨Ï¥Î¨ç¼Æ°µ¶W³sµ²¡A¥²¶·¦bÀx¦s®æ¤º¿é¤J¤½¦¡

­n¨Ï¥ÎVBA¥i¨Ì¤U¦C¤è¦¡¥[¤J¶W³sµ²
...
Hsieh µoªí©ó 2011-11-9 22:26

    ·PÁÂhsieh¤jªº¦^ÂСã
¤p§Ì¨Sª`·N¨ì¨º¬O¨ç¼Æªº¥Îªk¡Aµ²ªG¤@ª½¦b¨ºÆp¤û¨¤¦y¡A¯u¬O¤£¦n·N«ä¤F¡ã¡ã

mark15jill

¦^´_ 1# syuan
TRY IT


TEST.rar (104.8 KB)

¤U¸ü¦¸¼Æ: 23

2011-11-16 11:13

­ì©l½X

Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+Shift+Y
'

For XX = 1 To 65535
    If Range("A" & XX).Value <> "" Then
   
        RQ = Range("A" & XX).Value & Range("B" & XX).Value
        Range("C" & XX).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=RQ & ".xlsx", _
            TextToDisplay:=RQ
    End If
Next XX
End Sub

syuan

¦^´_  syuan
TRY IT






­ì©l½X

Sub Macro1()
'
' Macro1 Macro
'
' §Ö³tÁä: Ctrl+Shift ...
mark15jill µoªí©ó 2011-11-16 11:13

·PÁÂmark¤j¡ã¡ã

¹ê¦b«Ü©êºp¡A¨ì²{¦b¤~¦^ÂСI

¥Ø«e¤p§Ì¥¿¦b¸ÕµÛ®©³o¬qµ{¦¡¡A«Ý¦³°ÝÃD¦A¨Ó½Ð°Ý±z¡I

¯uªºÁÂÁ±z¡ã¡ã

PJChen

¦^´_ 6# mark15jill
¯u¬O¦n¥Îªº³sµ²,¤S¤W¤FÄ_¶Qªº¤@½Ò!

syuan

¦^´_ 4# Hsieh
    Hsieh±z¦n

¤p§Ì¨Ì±z©Òpoªº»yªk´ú¸Õ«á¡Aªº½T¯à³sµ²¨Ã¶}±Ò©ÒÂI¿ïªºÀɮסC

¤£¹L¤p§Ì±N³o­ÓexcelÀɲ¾¨ì§O³B¨Ã¥[¤J­×§ï«áªº¸ô®|®É¡A¥¦´NµLªk¶}±Ò©Ò³sµ²ªºÀɮפF¡C

¤]´N¬O»¡³o¬q»yªk¦ü¥G¥u¯à±NexcelÀÉ»P³sµ²ªºÀÉ©ñ¦b¦P¥Ø¿ý¤U¡C

¤p§Ì¼gªº»yªk¦p¤U¡A½Ð°Ñ¦Ò¡C


Dim A as range
Dim B
Dim C

Worksheets("sheet1").Activate
For Each A In Worksheets("sheet1").UsedRange
If InStr(A, "JIS ") And A.Value = "" Then
   B = "C:\11"
   C = Dir(B, ".PDF")
   A.Hyperlinks.Add A, C & A
   End If

¤£¹L¤p§Ìµo²{¦pªG±N...... and A.value="" Then§ï¬°......and A.value <>""Then ®É

¨º»òÀx¦s®æªº¦r¦ê·|Åܦ¨¤@¤j¦êªº¸ô®|¡A¨Ò¦p¡GC:\11\aa.pdf

¦ý³o®ÉÂI¥¦®É¡A«o¬O¥i¥H¶}±Ò¶W³sµ²ªºÀÉ®×.........=="

¤p§Ì¤@ª½¦Ê«ä¤£¸Ñ¡A¤£ª¾¨ì©³¬O­þ¸Ì¥X°ÝÃD¡C

ÁÙ±æ¦U¦ì¥ý¶i¤£§[«ü±Ð¡A¥H¤W¡ãÁÂÁ¡C

mark15jill

¦^´_ 9# syuan


    B = "C:\11\"