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

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

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

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

°ÝÃD1.rar (522.17 KB)

¸Õ¸Õ
  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


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

°ÝÃD2.rar (9.91 KB)

TOP

  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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD