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

¦p¦ó¬d¸ß¨â­Ó¤£¦P­¶­±ªº¸ê®Æ

¦p¦ó¨Ì³f¸¹¦Û°ÊÅã¥Ü¹Ï¤ù¡H

½Ð°Ý¦p¦ó¨Ì·Ó½d¥»­¶­±1¤Wªº³f¸¹¦Û°ÊÅã¥Ü¹Ï¤ù
(¹Ï¤ùÀx¦s¦bD:\catalogue¸Ì)

½d¥».rar (14.78 KB)

TOP

¦^´_ 1# h99949
¸Õ¸Õ¬Ý
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Calculate()
  2. For Each a In Range([B3], [B3].End(xlDown))
  3.   fs = Dir("D:\catalogue\" & a & ".jpg")
  4.   If fs <> "" Then
  5.      With ActiveSheet.Pictures.Insert("D:\catalogue\" & fs)
  6.      Set c = a.Offset(, 9)
  7.      .Left = c.Left
  8.      .Top = c.Top
  9.      .Height = c.Height
  10.      .Width = c.Width
  11.      End With
  12.   End If
  13. Next
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦p¦ó¬d¸ß¨â­Ó¤£¦P­¶­±ªº¸ê®Æ

½Ð°Ý½d¨Ò1.­¶­±1ªº·s³æ»ù,¤J¼Æ,§÷¿n
¦p¦ó¦b½d¨Ò1.­¶­±1¿é¤J³f¸¹«á¥h¬d¸ß½d¨Ò2­¶­±1¸ò2«á
¶]¥X¬ÛÃö¸ê®Æ©O?

½d¨Ò.rar (27.19 KB)

¦^´_ 2# Hsieh


   ·PÁÂHsiehªº«ü¾É:)

TOP

½Ð°Ý­n¦p¦ó¥u¶}½d¨Ò1¥¦·|¦Û°Ê§ì¨ì½d¨Ò2ªº¸ê®Æ
¦Ó¤£¬O¨â­Ó³£¶}©O?

½d¥»-§ï.rar (28.89 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD