[µo°Ý] ½Ð°Ý¥´¶}¬Y­Ó¸ô®|¤Uªº¹ÏÀÉ¡A¶W³sµ²¸Ó¦p¦ó¼g?

pesi2884

°ÝÃD¤w¦³¼g¦bªþ¥ó¤º¡A½Ð¨£ªþ¥ó!
½Ð¦U¦ì¤j¤jÀ°¦£¤p§Ì¸Ñµª¤@¤U¡A«D±`·P®¦¡C

Hsieh

¸Õ¸Õ

1. Sub yy()
   
2. Dim A As Range
   
3. For Each A In Range([A2], Cells(Rows.Count, 1).End(xlUp))
   
4.    fd = "G:\¥x±b¸ê®Æ\" & A.Offset(, 4) & "\" & A.Offset(, 1) & "\" & A.Offset(, 2) & "\" & A.Offset(, 2) & A.Offset(, 3) & "\"
   
5.    fs = Dir(fd & "*.jpg")
   
6.    fds = fd & fs
   
7.    With ActiveSheet.Pictures.Insert(fds)
   
8.    .Top = A.Top
   
9.    .Left = A.Left
   
10.    .Width = A.Width
    
11.    .Height = A.Height
    
12.   ActiveSheet.Hyperlinks.Add .ShapeRange.Item(1), fds
    
13.    End With
    
14. Next
    
15. End Sub

½Æ»s¥N½X

pesi2884

¦^´_ 2# Hsieh


    Hsieh ÁÂÁ§Aªº¦^µª
  ¦ý¬O¥i¥H¦b½Ð§AÀ°§Ú§ï¤@¤Uµ{¦¡¶Ü
  ¦]¬°¸ò§Ú·Q­nªº¦³¤@ÂI¸¨®t
  ·Q­nµ²ªG¸Ôªþ¥ó!
   ¥ý¸ò§A¹DÁ¤@¤U
  ¤@ª½³£¨ü¨ì§AªºÀ°§U

Hsieh

1. Sub yy()
   
2. Dim A As Range
   
3. For Each A In Range([A2], Cells(Rows.Count, 2).End(xlUp).Offset(, -1))
   
4.    fd = "G:\¥x±b¸ê®Æ\" & A.Offset(, 4) & "\" & A.Offset(, 1) & "\" & A.Offset(, 2) & "\" & A.Offset(, 2) & A.Offset(, 3) & "\"
   
5.    fs = Dir(fd & "*.jpg")
   
6.    fds = fd & fs
   
7.    ActiveSheet.Hyperlinks.Add anchor:=A, Address:=fds, TextToDisplay:="·Ó¤ù"
   
8. Next
   
9. End Sub

½Æ»s¥N½X

pesi2884

ÁÂÁ§Aªº¸Ñµª~~
§Ú¸Õ¹L¤F~~¥Ø«e¨S¤°»ò°ÝÃD
«D±`·PÁ§A!