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

[µo°Ý] ·s¤âµo°Ý¦³Ãö¬¡­¶¤¤ªº¹Ï¤ù¾Þ§@

¦^´_ 10# GBKEE
ªGµM¥i¥H¥Î§óºë²ªº¤èªk¨Ó¼¶¼g «Ý§ÚºCºC®ø¤Æ¤F¸Ñ  ·PÁ¡K
·Q½Ð±ÐSet picNumRng = .Range("A" & (25 * (k - 1) + 5 - Application.WorksheetFunction.RoundUp((k - 1) / 2, 0)))³o¦æµ{¦¡½X
¬°¦óRange«e¤è¤S¦h¤F¤@­Ó¡u.¡v¥Î·N¬°¦ó¡H

¥t¥~½Ð±ÐGBKEE¤j¡G
¦]¬°§Úªºªí®æ¬O¹w³]ªí®æ¡]¦C°ª¥²¶·¬O©T©wªº¡^©Ò¥H¤~·|¨Ï¥Î¤U¦Cµ{¦¡½X
        For i = 1 To ((countPhoto + 1) \ 2 - 1)
            Rows("1:49").Copy                                                  '½Æ»sªí®æ
            ActiveSheet.Paste Cells(j, 1)
            j = j + 49
        Next i
·|¨Ï¥Î³o¤è¦¡¬O¦]¬°¥þ¦C½Æ»s¤~¯à«O«ù¦C°ª ¦pªG¥Hrange½d³ò¨Ó½Æ»sªí®æ½d³ò ¦C°ª·|¤£¤@­P
¦ý¦¹ºØ¤èªkªº¯ÊÂI´N¬O ¦b§Úªí®æ¥k¤âÃä³]­pªº«ö¶s¤]·|¤@¨Ö½Æ»s ¤]´N¬O½Æ»s´X¦¸ªí®æ ´N¥X²{´X­Ó«ö¶s
¯à§_¸Ñ¨M½Æ»sªí®æ¦P®É¤S¥i«O«ù¦C°ª ¦Ó¥B¥¨¶°«ö¶s¤S¤£·|¼vÅT¨ì¡H
HELLO !!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-8 20:04 ½s¿è

¦^´_ 11# baconbacons
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i, countPhoto, Rng As Range
  4.     countPhoto = 50
  5.     Set Rng = Rows("1:49")
  6.     For i = Rng.Rows.Count To (countPhoto + 1) * Rng.Rows.Count + 1 Step Rng.Rows.Count '¶¡¹j Rngªº¦C¼Æ=49
  7.         Rng.Copy                        '½Æ»sªí®æ
  8.         With ActiveSheet.Cells(i + 1, 1)
  9.         'With ³¯­z¦¡ ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡¡C
  10.         '¥[¤W . ¬°³o³æ¤@ª«¥óªºÄݩʩΤèªk
  11.             .PasteSpecial Paste:=xlPasteFormats                     '³o³æ¤@ª«¥ó:  ¶È¶K¤W®æ¦¡
  12.             .Resize(Rng.Rows.Count, Rng.Columns.Count) = Rng.Value   '³o³æ¤@ª«¥ó:  ¶K¤W¼Æ­È
  13.         End With
  14.     Next
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE
GBKEE ¤j¡G
¹Á¸Õ¹L«á¨S°ÝÃD ·PÁÂ
¥¿¦b¸ÕµÛ¤F¸Ñ§Aªº¼gªk¤¤
HELLO !!

TOP

[µo°Ý] ·s¤âµo°Ý¦³Ãö¬¡­¶¤¤ªº¹Ï¤ù¾Þ§@

½Ð±Ð¦U¦ì«e½ú ¦b³]­p¦Û¤v»Ý¨Dªºµ{¦¡ ¹J¨ì°ÝÃD®É·|«ç»ò¸Ñ¨M¡H
1.¥i¥H¥¨¶°¿ý»s®É¡A¥ý¿ý»s¨Ó¬Ý¨Ï¥Î¦ó¤èªk©Îª«¥ó
2.µLªk¿ý»s®É¡A¨ìF1»¡©ú¥HÃöÁä¦r·j´M¬Ý¦³µLÃþ¦ü»¡©ú
3.GOOGLE¤j¯«·j´Mªk

°²³]²{¦b§Úªº°ÝÃD¬O­n¡u¹ï½Õ¡v¬¡­¶¤¤²{¦sªº¹Ï¤ù
§Ú¥ý¥Î¿ý»s¥¨¶°¤èªk ±oª¾EXCEL¬O¥Î¤U¦Cµ{¦¡½X¨Ó¿ï¨ú¹Ï¤ù
¡uActiveSheet.Shapes.Range(Array("Picture 4")).Select¡v
©Ò¥H§Ú¤]¤ñ·Ó¦¹ªk ³]©wÅÜ¼Æ«á ¦A¶i¦æ¨â­Ó¹Ï¤ùªº¹ï½Õ
¦ý¬O«o¥¢±Ñ¤F
¥Ñ©ó¥ý«e©Ò¾Çª¾¹D´¡¤J¹Ï¤ù¬OActiveSheet.Pictures.Insert
¦A¨Ó¨ì»¡©ú¥HPictures¬°ÃöÁä¦r¥h·j´M ¥i¬O¤]§ä¤£¨ì
³Ì«áªºGOOGLE¤j¯« ¤]¦]¬°¤£ª¾¹D¸Ó«ç»ò¤UÃöÁä¦r §ä¤£¨ì²Å¦X»Ý¨Dªº
¦³¨S¦³«e½úÄ@·N¤À¨É¸gÅç
HELLO !!

¦^´_ 1# baconbacons

½ÐªþÀɬݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¬Û¤ù¥U»s§@ v1.0.rar (61.14 KB) ¦^´_ 2# GBKEE
¹w³]±¡§Î»¡©ú¡G
¥Ñ©óªí®æ¬O½Æ»s½s¸¹1¤Î½s¸¹2ªºªí®æ¦Ó¨Ó ©Ò¥H¨C¦¸·s¼W¬Û¤ù·|¦h¥X¨â­ÓªÅ¥Õ¬Û¤ùÀx¦s®æ
¦pªG§Ú¥u¬O­n·s¼W1±i¬Û¤ùªº¸Ü ´N¥²¶·±N¤U¤èªº¬Û¤ù©¹¤W»¼¸É¦Ü·sªºªí®æ
´N®Ä²v¤W¨Ó»¡ ¦ü¥G¬O¤U¦C¤èªk2¤ñ¸û¦³®Ä²v
1.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A§R°£­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ¡A­«·s½Æ»s©Ò»Ýªí®æ¡A·s¼W½s¸¹11¬Û¤ù¦AŪ¤J¸ê®Æ§¨ªº¬Û¤ù¦Û½s¸¹12¶}©l¶K
2.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A½Æ»s·sªí®æ¡]2ªÅ¥Õ¬Û¤ùÀx¦s®æ¡^´¡¤J¡A·s¼W½s¸¹11¬Û¤ù¦A±N¬¡­¶¤¤ªº¬Û¤ù¨Ì§Ç©¹¤W»¼¸É1±i

¥H¤W»¡©ú­Y¦³»¡©ú¤£²M·¡ªº ·Ð½Ð¦A«ü±Ð
HELLO !!

TOP

¦^´_ 3# baconbacons
¤ï¶Õ ½Ð°w¹ï¤u§@ªí3¡]¬Û¤ù¥U¡^ªºµ{¦¡½X¬°¥D  ¨ä¥LÁÙ¥u¬O´ú¸Õ¶¥¬q¥Î
HELLO !!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-10 16:09 ½s¿è

¦^´_ 16# baconbacons

¥Ñ©óªí®æ¬O½Æ»s½s¸¹1¤Î½s¸¹2ªºªí®æ¦Ó¨Ó ©Ò¥H¨C¦¸·s¼W¬Û¤ù·|¦h¥X¨â­ÓªÅ¥Õ¬Û¤ùÀx¦s®æ
Q:¬°¦ó¤@¦¸­n,½Æ»s½s¸¹1¤Î½s¸¹2ªºªí®æ

1.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A§R°£­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ¡A­«·s½Æ»s©Ò»Ýªí®æ¡A·s¼W½s¸¹11¬Û¤ù¦AŪ¤J¸ê®Æ§¨ªº¬Û¤ù¦Û½s¸¹12¶}©l¶K
Q: ·s¼W´¡¤J½s¸¹11ªº¬Û¤ù,¬°¦ó¬O:§R°£­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ,¦Ó¤£¥]§t­ì¥ý½s¸¹11¬Û¤ù¤Îªí®æ,
    ¬°¦ó¬O:¦Û½s¸¹12¶}©l¶K,¤£¬O¦Û½s¸¹11¶}©l¶K

2.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A½Æ»s·sªí®æ¡]2ªÅ¥Õ¬Û¤ùÀx¦s®æ¡^´¡¤J¡A·s¼W½s¸¹11¬Û¤ù¦A±N¬¡­¶¤¤ªº¬Û¤ù¨Ì§Ç©¹¤W»¼¸É1±i
Q:¬°¦ó­n: ½Æ»s·sªí®æ¡]2ªÅ¥Õ¬Û¤ùÀx¦s®æ¡^´¡¤J,¦h¤@ªÅ¥Õ¦ì¸mº¸«á±N¬Û¤ù¨Ì§Ç©¹¤W»¼¸É1±i(¦h¦¹¤@Á|)

¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim myFSO As New FileSystemObject
  3.     Dim Rng As Range, i As Integer
  4.     Dim myPath As String
  5.     Dim E As Variant
  6.     myPath = ThisWorkbook.Path & "\­ì©l¬Û¤ù"            '¬Û¤ùªº¸ê®Æ§¨
  7.     If myFSO.GetFolder(myPath).Files.Count > 0 Then     '¦³ÀÉ®×
  8.         With ActiveSheet                                '«ü©w¤u§@ªí
  9.             .Pictures.Delete                            '§R°£©Ò¦³¬Û¤ù
  10.             Set Rng = .[A3:O25]                         '¬Û¤ùªí®æ
  11.             .Rows("26:" & .UsedRange.Rows.Count).Clear   '²M°£ ²Ä¤@±i¬Û¤ù¥H«áªºªí®æ
  12.             For Each E In myFSO.GetFolder(myPath).Files 'Àɮת«¥ó¶°¦X
  13.                 If UCase(E) Like "*.JPG" Then           'E (Àɮת«¥ó)¶Ç¦^§¹¾ã¸ô®|¦WºÙ , Like ¤ñ¹ï¬O§_¦³".JPG"ªº¦r¤¸
  14.                     With Rng.Offset((i) * Rng.Rows.Count + (i * 1)) '¬Û¤ùªºªí®æ¦ì¸m
  15.                         If i > 0 Then                    '²Ä2±i«á
  16.                             Rng.Copy
  17.                             .PasteSpecial xlPasteFormats
  18.                             .Value = Rng.Value
  19.                             .Range("A3") = i + 1         '¬Û¤ùªºªí®æ¦ì¸mªºRange("A3")
  20.                         End If
  21.                         .Range("C22") = E
  22.                         .Range("B3").Select              '¬Û¤ùªºªí®æ¦ì¸mªºRange("B3")
  23.                     End With
  24.                     With .Pictures.Insert(E)                                      '´¡¤JPÀɮת«¥ó(¬Û¤ù)
  25.                         .ShapeRange.LockAspectRatio = msoFalse
  26.                         .Top = Selection(1, 1).Top
  27.                         .Left = Selection(1, 1).Left
  28.                         .Width = Selection.Width
  29.                         .Height = Selection.Height
  30.                     End With
  31.                     i = i + 1
  32.                 End If
  33.             Next
  34.         End With
  35.     End If
  36.     MsgBox myPath & " ¸ê®Æ§¨¤¤" & IIf(i > 0, "¦@" & i & "±i", "¨S¦³") & "¬Û¤ù"
  37. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE
GBKEE¤j¡G¤ï¶ÕÅý±z¤[µ¥¤F¡A¦^À³¦p¤U

¥Ñ©óªí®æ¬O½Æ»s½s¸¹1¤Î½s¸¹2ªºªí®æ¦Ó¨Ó ©Ò¥H¨C¦¸·s¼W¬Û¤ù·|¦h¥X¨â­ÓªÅ¥Õ¬Û¤ùÀx¦s®æ
Q:¬°¦ó¤@¦¸­n,½Æ»s½s¸¹1¤Î½s¸¹2ªºªí®æ
A¡G¦]¬°¨â­ÓªÅ¥Õªí®æ¥i¥H­è¦n§¹¾ã¤@­¶¡A¥B¨C­¶³Ì¤W¤èªí®æ¬°¼ÐÃD¦C¡A¦pªG¥u´¡¤J³æ¤@ªÅ¥Õªí®æ¡A±µ¤U¨Óªºªí®æ³£·|¶]±¼
1.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A§R°£­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ¡A­«·s½Æ»s©Ò»Ýªí®æ¡A·s¼W½s¸¹11¬Û¤ù¦AŪ¤J¸ê®Æ§¨ªº¬Û¤ù¦Û½s¸¹12¶}©l¶K
Q: ·s¼W´¡¤J½s¸¹11ªº¬Û¤ù,¬°¦ó¬O:§R°£­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ,¦Ó¤£¥]§t­ì¥ý½s¸¹11¬Û¤ù¤Îªí®æ,¬°¦ó¬O:¦Û½s¸¹12¶}©l¶K,¤£¬O¦Û½s¸¹11¶}©l¶K
A¡G·s¼W´¡¤J½s¸¹11·N§Y«O¯d½s¸¹1~10ªº¬Û¤ù¡A±N­ì¥ý½s¸¹11¤§«áªº¬Û¤ù¤Îªí®æ¶¶²¾¤@®æ¡A¦ý¥Ñ©ó¤W­z¨âªÅ¥Õ¶ñº¡¤@­¶ªº­­¨î¡A©Ò¥H¥²¶··s¼W·s­¶¡]¨âªÅ¥Õªí®æ¡^¡A±ý·s¼Wªº½s¸¹11¬Û俧¸m©ó½s¸¹11¡A­ì¥ýªº½s¸¹11´N¤U²¾¦Ü½s¸¹12¡A±µ¤U¨Óªº¬Û¤ù´N¨Ì§Ç±µ¤W¡A³o¼Ë¤£ª¾¹D¯à§_²z¸Ñ¡K
2.°²³]·s¼W´¡¤J½s¸¹11ªº¬Û¤ù¡A½Æ»s·sªí®æ¡]2ªÅ¥Õ¬Û¤ùÀx¦s®æ¡^´¡¤J¡A·s¼W½s¸¹11¬Û¤ù¦A±N¬¡­¶¤¤ªº¬Û¤ù¨Ì§Ç©¹¤W»¼¸É1±i
Q:¬°¦ó­n: ½Æ»s·sªí®æ¡]2ªÅ¥Õ¬Û¤ùÀx¦s®æ¡^´¡¤J,¦h¤@ªÅ¥Õ¦ì¸mº¸«á±N¬Û¤ù¨Ì§Ç©¹¤W»¼¸É1±i(¦h¦¹¤@Á|)
A¡G¦p¤W­zµª®×

©Ò«Øijµ{¦¡½X«Ý§Ú¬ã¨s¤@¤U¦A½Ð±Ð
HELLO !!

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD