mark15jill

¦^´_ 1# dakiu


AÄæ¦ì ¬° ÀɮצWºÙ
BÄæ¦ì¦Û°Ê³]©w Àɮץؿý(µ{¦¡¤º©w)
±N bmp §ï¦¨ pdf §Y¥i

1. Sub ¥¨¶°2()
   
2. For kka = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
3.     Cells(kka, 2).Select
   
4.     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\user\Desktop\·s¼W¸ê®Æ§¨ (2)\" & Cells(kka, 1) & ".bmp", TextToDisplay:="C:\Users\user\Desktop\·s¼W¸ê®Æ§¨ (2)\" & Cells(kka, 1) & ".bmp"
   
5. Next
   
6. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 3# dakiu


    =HYPERLINK("C:\Users\user\Desktop\·s¼W¸ê®Æ§¨ (2)\"&A1&".bmp")


§A¸ÕµÛ§â§A­ì¥»ªºµ{¦¡½X
=HYPERLINK("\\ABserver\¦@¥Î\«ü¥Ü\U",A1&".PDF")
§ï¦¨
=HYPERLINK("\\ABserver\¦@¥Î\«ü¥Ü\U"& A1&".PDF") ¸Õ¬Ý¬Ý

mark15jill

¦^´_ 4# dakiu


    §PÂ_? ­n§PÂ_¤°»ò.. ?

mark15jill

¦^´_ 8# dakiu


    ½Ð¥ý¦Û¤v½m²ß¬Ý¬Ý...
©ÎªÌ ±z¸ÕÅ秹«á ¦A§â°ÝÃDÂI´£¥X¨Ó..

mark15jill

¦^´_ 10# dakiu

­Y­n²³æÂIªº¸Ü

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     For jj = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
3.         u1 = Cells(jj, 1)  '001 002 003  ¤§Ãþ
   
4.         u2 = Cells(jj, 2) & "\" ' "¥Ø¿ý + \"
   
5.         u3 = Cells(jj, 3)  '°ÆÀɦW
   
6.         If Dir(u2 & u1 & u3) <> "" Then Cells(jj, 17) = "¦³ÀÉ®×" Else Cells(jj, 17) = "µLÀÉ®×"
   
7.         
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 19# whirlwind963


        ActiveCell.FormulaR1C1 = "Sheet2"
    Range("B1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sheet2!A1", TextToDisplay:="Sheet2"


    Range("C1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "XXXXXXXXXXXXXXXXXXXX", TextToDisplay:="test.txt"

XXXXXXXXXXXXXXXXXXXX=Àɮץؿý+ÀɮצWºÙ+ÀÉ®×°ÆÀɦW