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

[µo°Ý] ¦h±i¹Ï¤ù´¡¤J«ü©w¦hÄæ¦ì

[µo°Ý] ¦h±i¹Ï¤ù´¡¤J«ü©w¦hÄæ¦ì

¤j®a¦n ·s¦~§Ö¼Ö
½Ð±Ð¦U¦ì¹F¤H¤p§Ì¦]¤u§@Ãö«Y
¨C¤Ñ³£»Ý¦^¶Ç¹Ï¤ù¨Ã±N¹Ï¤ù©ñ¤Jexcel
¥Ñ©ó1­ÓÀɮ׻ݭn¥i¯à³Ì¦h¦Ü150±i¤§¦h
¥ú¬O´¡¤J´N­n¤À¦n´X¦¸´¡¤J(£¸¦¸¬ù10±i)
µM«á¦A½Õ¾ã¤j¤pµM«á¦b§â¹Ï¤ù©Ô¨ì©T©wªºÄæ¦ì¤W
£¸¤Ñ¤U¨Ó¤j·§­n³B²z800±i¥H¤W²´·ú¯uªº¬O«Ü¨ü¶Ë
¬O§_¦³µ{¦¡½X¥i¥H²³æ¤Æ ÁÂÁÂ!
1.ª½±µ´¡¤J¨Ã¨Ì·Ó¹Ï¤ù½s¸¹´¡¤J«ü©w§Ç¸¹Äæ¦ì
2.½Õ¾ã¹Ï¤ù¤j¤p»PÄæ¦ì¬Û²Å

¹Ï¤ù¦s©ñ
D:\_Picture\20141231-LOWER-AC

¹Ï¤ùÀɦW(¨C¦¸¤£¦P¨Ì¬Û¾÷©çÄá«á½s¸¹)
DSC04801~DSC04908

EXCELª©¥» 2003
¹q¸£¨Ï¥ÎEXCELª©¥»2007

Return.rar (177.77 KB)

¦^´_ 1# cutekiss917
°Ñ¦Ò³o¦ê¬Ý¬O§_¯à¹F¨ì§Aªº»Ý¨D :
[µo°Ý] ½Ð°Ý¥i§_ ´¡¤J¹ÏÀɮɥi¥H§k¦XÀx¦sÄæ¦ì¤j¤p

TOP

¦^´_  cutekiss917
°Ñ¦Ò³o¦ê¬Ý¬O§_¯à¹F¨ì§Aªº»Ý¨D :
luhpro µoªí©ó 2015-1-1 09:20


³o½g§Ú¦³¬Ý¨ì ¦ý§Ú¸Õ¤£¨Ó
·d£¸¾ã¤U¤ÈÁÙ¬O¤£¦æ=.=

TOP

³o¬O§Ú§ä¨ì¤ñ¸û²Å¦Xªºµ{¦¡½X
§Ú§ï¦n¤[³£§ï¤£¥X¨Ó§Ú­nªº«ü©wÄæ¦ì»P§âÀɦW¥h±¼
¯à½Ð¤j¤j¥æ§Ú¶Ü
ÁÂÁÂ
  1. Sub Ex()
  2.     Dim AR(), i As Integer, ii As Integer, fs As String, Rng As Range
  3.     With ActiveSheet
  4.         .Cells = ""
  5.         .Pictures.Delete
  6.         fs = Dir("D:\_Picture\1\*.jpg")
  7.         Do Until fs = ""
  8.             ReDim Preserve AR(0 To i)
  9.             AR(i) = fs  '¹Ï¤ù¦WºÙ¸m¤J°}¦C
  10.             fs = Dir
  11.             i = i + 1
  12.         Loop
  13.         For i = 0 To UBound(AR) Step 2
  14.             For ii = 0 To 1
  15.                 If ii + i <= UBound(AR) Then
  16.                     .Cells(Int(i / 2) + 1, 1 + (ii * 2)) = AR(ii + i)
  17.     Set Rng = .Cells(Int(i / 2) + 1, 2 + (ii * 2))
  18.                     With .Pictures.Insert("D:\_Picture\1\" & AR(ii + i))
  19.                         .Top = Rng.Top
  20.                         .Left = Rng.Left
  21.                         .Width = Rng.Width
  22.                         .Height = Rng.Height
  23.                 End With
  24.                 End If
  25.             Next
  26.         Next
  27.     End With
  28. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD