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

¶}±ÒÀɮקäÃöÁä¦r

¶}±ÒÀɮקäÃöÁä¦r

¦p¦ó¨Ï¥Î CreateObject("Scripting.Dictionary") °µ¨ì
¶}±ÒD¼Ñ©³¤Uaa.xlsx ÀÉ®×-->§ä´M¨C­Ó¤u§@ªíªº·Ó¤ùÀɸ̪ºÃöÁä¦r-->¦p¦³§ä¨ì¥t¶}·sÀɧâ¸ê®Æ¦s©ñ©ó¦¹

Set dict = CreateObject("Scripting.Dictionary")
Workbooks.Open Filename:=D:\aa.xlsx
sFind = InputBox("½Ð¿é¤J­n§ä´MÃöÁä¦r")
For i = 1 To Worksheets.Count
For Each shp In ActiveSheet.Shapes
Workbooks.Add
.
.
.

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD