- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¶}±ÒÀɮקäÃöÁä¦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("½Ð¿é¤Jn§ä´MÃöÁä¦r")
For i = 1 To Worksheets.Count
For Each shp In ActiveSheet.Shapes
Workbooks.Add
.
.
. |
|