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

[µo°Ý] ¦p¦ó±Nfile§¨¹ÏÀɤ@¦¸¥þ³¡±a¤Jexcelªí®æ¸Ì

¦p¦ó±N¹Ï¤ùÀɶפJEXCEL¨î©w®æ¦¡¤º

°²³]§Ú¦³¤@­ÓFile¸Ì¦³20±i¹ÏÀɩΪ̧ó¦h~
µM«á§Ú¦bexcel¸Ì³]©w20­Ó©Î§ó¦hªº¨î¦¡ªí®æ~
§Ú­n¦p¦ó¼g¤p¥¨¶°©Î¨ä¥L¤è¦¡¡A´N¥i¥H¦Û°Ê±Nfileªº¹Ï¤ùÀɶפJ³o­Ó¨î¦¡ªí®æ¸Ì
¦³­þ¦ì°ª°ª¤â¥i¥HÀ°§Ú¸Ñµª¤@¤U?«D±`ªº·PÁÂ!
123.jpg

TOP

½Ð¦U¦ì°ª°ª¤âÀ°¦£¤p§Ì¤@¤Uªü~!!!
·PÁÂ~

TOP

¤p§Ì¦³§ä¨ì¤@½g¤峹¡A¦ý³o½g¤å³¹ªºµ{¦¡½X¥D­n¬O±N·Ó¤ù©ñ¦b¦P¤@Äæ¡A¦WºÙ¦b¥t¥~¤@Äæ
¤p§Ì±N©Ò»Ýªº¹Ï¤ùÀɮ׳£©ñ¸m D:/TEST ¸Ì­±
«ö¥¨¶°=>¹Ï¤ù¨Ì§Ç¶K¤WBÄ檺Àx¦s®æ µM«á  CÄæ¨Ì§ÇÅã¥Ü¥XÀɦW
¦ý¤p§Ì·Q½Ð±Ð¤j®a­n§ï¬°=>¹Ï¤ù¨Ì§Ç¦bA1Äæ¦WºÙ ->B1Äæ¹Ï¤ù->C1Äd¦WºÙ->D1Äæ¹Ï¤ù   µM«á¦b±Æ¦^A2Äæ¦WºÙ ->B2Äæ¹Ï¤ù->C2Äd¦WºÙ->D2Äæ¹Ï¤ù ...........
½Ð°Ý¦U¦ì°ª¤â¨Ì·Ó¤U­±µ{¦¡½X¥i¥H§ï¬°§Ú¤W­±ªº»Ý¨D?
·PÁ¤j®a~
  1. Sub PHOTO()
  2. ActiveSheet.Columns("C") = ""
  3. Set Sh = ActiveSheet
  4. With Sh
  5.     .Pictures.Delete
  6. End With
  7. fs = Dir("D:\TEST\*.jpg")
  8. Do Until fs = ""
  9.    R = R + 1
  10.    Cells(R, 3) = fs
  11.    Cells(R, 2).Select
  12.    ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
  13.    With Selection
  14.        .Top = ActiveSheet.Cells(R, 2).Top + 1
  15.        .Left = ActiveSheet.Cells(R, 2).Left + 1
  16.        .Width = ActiveSheet.Cells(R, 2).Width - 1
  17.        .Height = ActiveSheet.Cells(R, 2).Height - 1
  18.    End With
  19.    fs = Dir
  20. Loop
  21. End Sub
½Æ»s¥N½X

TOP

[µo°Ý] ¦p¦ó±Nfile§¨¹ÏÀɤ@¦¸¥þ³¡±a¤Jexcelªí®æ¸Ì

¤p§Ì¦³§ä¨ì¤@½g¤峹¡A¦ý³o½g¤å³¹ªºµ{¦¡½X¥D­n¬O±N·Ó¤ù©ñ¦b¦P¤@Äæ¡A¦WºÙ¦b¥t¥~¤@Äæ
¤p§Ì±N©Ò»Ýªº¹Ï¤ùÀɮ׳£©ñ¸m D:/TEST ¸Ì­±
«ö¥¨¶°=>¹Ï¤ù¨Ì§Ç¶K¤WBÄ檺Àx¦s®æ µM«á  CÄæ¨Ì§ÇÅã¥Ü¥XÀɦW
¦ý¤p§Ì·Q½Ð±Ð¤j®a­n§ï¬°=>¹Ï¤ù¨Ì§Ç¦bA1Äæ¦WºÙ ->B1Äæ¹Ï¤ù->C1Äd¦WºÙ->D1Äæ¹Ï¤ù   µM«á¦b±Æ¦^A2Äæ¦WºÙ ->B2Äæ¹Ï¤ù->C2Äd¦WºÙ->D2Äæ¹Ï¤ù ...........
½Ð°Ý¦U¦ì°ª¤â¨Ì·Ó¤U­±µ{¦¡½X¥i¥H§ï¬°§Ú¤W­±ªº»Ý¨D?
·PÁ¤j®a~
  1. Sub PHOTO()
  2. ActiveSheet.Columns("C") = ""
  3. Set Sh = ActiveSheet
  4. With Sh
  5.     .Pictures.Delete
  6. End With
  7. fs = Dir("D:\TEST\*.jpg")
  8. Do Until fs = ""
  9.    R = R + 1
  10.    Cells(R, 3) = fs
  11.    Cells(R, 2).Select
  12.    ActiveSheet.Pictures.Insert("D:\TEST\" & Cells(R, 3)).Select
  13.    With Selection
  14.        .Top = ActiveSheet.Cells(R, 2).Top + 1
  15.        .Left = ActiveSheet.Cells(R, 2).Left + 1
  16.        .Width = ActiveSheet.Cells(R, 2).Width - 1
  17.        .Height = ActiveSheet.Cells(R, 2).Height - 1
  18.    End With
  19.    fs = Dir
  20. Loop
  21. End Sub
½Æ»s¥N½X

·PÁÂGBKEE¤j¤jªºÀ°¦£! ³o¸Ì°ª¤â¯uªº«Ü¼F®`¡A¯¬ºÝ¤È¨Î¸`´r§Ö~

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD