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

¤@­Ó¬d¸ßªºªí³æ,

¦^´_ 29# ©P¤j°¶
CurDir: ¶Ç¦^«e¥Ø¿ý¦ì¸m
·í¨Ï¥Î¶}±ÒÂÂÀÉ«ü¥O: ©Ò¬Ý¨ìªº¥Ø¿ý¦ì¸m

TOP

¦b¦¹Á¹Lhsieh¤Îgbkee两¦ì¶Wª©¤j, °J¤ß·PÁÂ, §Æ±æ¯à±q¤¤¾Ç²ß, ³Ì«á¯¬Ä@¤¤¬î¸`§Ö¼Ö, ÁÂÁÂ!!

TOP

¤p§Ì¤]¦b¦¹°J¤ß·PÁ³o½g¤å³¹±o¨ì2¦ìª©¥D¦^À³¤Î¦U¼Ó¥Dªºª`·N, ¥ý¦æ»¡ÁnÁÂÁÂÁÂ!!
°ò©ó¤u§@¤Wªº»Ý¨D, ¤p§Ì¦b·Q, ¤£ª¾¥i§_§âµ{¦¡§ï³y¬°两­ÓÀÉ®×, 1¸ê®Æ®wÀÉ®×, ³oÀɮ׬O¦s©ñ¸ê®Æ,
2¬d¸ßÀÉ®×, ¥Î®a¦b³oÀɮפº«ö¤U¬d¸ß«ö¶s, ¸ê®Æ«K±qÀɮ׫Ç1¸ê®Æ®w¤¤¶Ç¦^, ¥\¯à¤@¼Ë, ¦ý¤£¦Pªº, ¦b¦P
¤@ÀÉÀɮ׫Ǭd¸Ú§ï¬°¦b¥t¤@Àɮ׬d¸ß, ³o¼Ëªº®ÄªG¬O§_¥i°µ¨ì,
¤µ¤Ñ¬O¤¤¬î¸`, ¤p§Ì©ó¦¹, ¯¬¤j¤j­Ì¤Î¦U¼Ó¥D¸`¤é¤H¤ë两¥þ, ÁÂÁÂ!!
¬d¸ß.rar (514.62 KB) ¸ê®Æ®w.rar (514.55 KB)
hong912

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-9-30 15:51 ½s¿è

¦^´_ 33# hong912
­×§ï ¬d¸ßÀÉ®× ªí³æµ{¦¡½X¦p¤U
  1. Dim PicAr() As Picture '¹Ï¤ù°}¦C
  2. Dim fs As String, Sh As Worksheet    ' ªí³æ¬d¸ßªí = "E:\temp.jpg" '¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m
  3. Private Const r = 4 '¸ê®Æ°_©l¦C¸¹
  4. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ
  5.     Dim Pic As Picture
  6.     ¬d¬Ý¸ê®Æ®w
  7.     fs = CurDir & "\temp.jpg"  'ªí³æ¬d¸ßªí ³o¸Ì­×§ï¬°·í¤Uªº¥Ø¿ý ( CurDir )¬°¼È¦s¹Ï¤ù¥Ø¿ý¦ì¸m ªí³æ¬d¸ßªí
  8.     With Sh
  9.         ReDim PicAr(.Pictures.Count)
  10.         For Each Pic In .Pictures '±N¨C­Ó¹Ï¤ù¸m¤J°}¦C
  11.             Set PicAr(Pic.TopLeftCell.Row - r) = Pic
  12.         Next
  13.         ComboBox1.List = .Range("A4", .[A4].End(xlDown).Offset(, 12)).Value '¤U©Ô²M³æ¤º®e
  14.     End With
  15.     Image1.PictureSizeMode = fmPictureSizeModeStretch '¹Ï¤ù¸ü¤Jªº«¬ºA
  16. End Sub
  17. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Ãö³¬ªí³æ
  18.     If Dir(fs) <> "" Then Kill fs '§R°£¼È¦s¹Ï¤ùÀÉ®×
  19.     Sh.Parent.Close 0             'Ãö³¬¸ê®Æ®wÀÉ®×
  20. End Sub
  21. Private Sub ¬d¬Ý¸ê®Æ®w()
  22.     Dim ¸ê®Æ®w As String, Wo As Workbook, Msg As Boolean        'Boolean«¬ºAªº¹w³]­È¬° False
  23.     ¸ê®Æ®w = "D:\¸ê®Æ®w.XLS"                                    '¸ê®Æ®wÀɮתº¸ô®|¥Ø¿ý
  24.     For Each Wo In Workbooks                                    '¬¡­¶Ã¯ª«¥ó¶°¦X
  25.         If Wo.FullName = ¸ê®Æ®w Then                            '¸ê®Æ®wÀɮ׶}±Ò¤¤
  26.             Msg = True
  27.             Set Sh = Wo.Sheets(1)                                   '±NÅܼƫü©w¬°²Ä¤@­Ó¤u§@ªí
  28.             Exit For
  29.         End If
  30.     Next
  31.     Application.ScreenUpdating = False
  32.     'ScreenUpdating ÄÝ©Ê ¦pªG¿Ã¹õ§ó·s¥\¯à¬O¶}±Òªº«h¬° True¡CŪ/¼g Boolean¡C
  33.      If Msg = False Then Set Sh = CreateObject(¸ê®Æ®w).Sheets(1)
  34.     '¸ê®Æ®wÀɮצp¥¼¶}±Ò, ¶}±Ò¥¦:±NÅܼƫü©w¬°²Ä¤@­Ó¤u§@ªí
  35.     Application.ScreenUpdating = True
  36. End Sub
½Æ»s¥N½X

TOP

¦^´_ 34# GBKEE

ÁÂÁ¤j¤j¦^À³, ·|©ó©ñ¤u«á¬ã¨s¤Î¾Ç²ß, ÁÂÁÂ!!, ¯¬¸`¤é°·±d§Ö¼Ö..
hong912

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD