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

Hsieh

¦^´_ 16# syuan
­YBªº¦r¦ê¥Ø¿ý¦s¦b«h¡AC = Dir(B & A)±N·|¶Ç¦^»PA¬Û¦P¦r¦ê§_«h¶Ç¦^ªÅ¦r¦ê

1. Sub test()
   
2. 
   
3. Dim A As Range
   
4. Dim B
   
5. Dim C
   
6. 
   
7. Worksheets("sheet1").Activate
   
8. For Each A In Worksheets("sheet1").UsedRange
   
9. If InStr(A.Value, "JIS") > 0 And A.Value <> "" Then
   
10.     B = "C:\11\"
    
11.     A.Hyperlinks.Add anchor:=A, Address:=B & A
    
12.     End If
    
13.     Next A
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 18# syuan


    A.Hyperlinks.Add anchor:=A, Address:=B & A, TextToDisplay:= A