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

[¤À¨É] »{ÃѤu§@ªí

[¤À¨É] »{ÃѤu§@ªí

¥»©«³Ì«á¥Ñ ¦Ñ®L ©ó 2010-11-29 21:32 ½s¿è

x

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-6-29 20:28 ½s¿è

¦^´_ 3# PD961A
­þ¨Ç¹Ï¬O¹w¥ý¦b16¬q¬Û¦Pªº¤å¦r°Ï¬q§@¦nªº 16­Ó¹Ï¤ù
©Ò¥H¤£¥ÎVBA  ¥Î¨Ï¥Î¸ê®Æ®w°ò¥»¥\¯à ¦Û°Ê¿z¿ï¥X¬Û¦Pªº¤å¦r°Ï¬q ´NÅã¥Ü¥X¤£¦P¹Ï¤ù
  1. Sub Ex()
  2. For Each e In Sheet1.Shapes
  3.     If e.Type = 1 Then
  4.         MsgBox e.Name
  5.     End If
  6. Next
  7. End Sub
½Æ»s¥N½X

TOP

¦n¦n¦A­«·s»{ÃѸò¾Ç²ß°ª®Ä¤Oªº°µªk,¦hÁ¦ѮLª©¥D´£¨ÑÄ_¶Qªº¸gÅç¤À¨É
¯u¬O¾ÇµL¤î¹Ò§r
300 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 10# PD961A
1.B1 ªº¿z¿ï ¿ï¾Ü¥þ³¡
2.¿ï¨ú¾ã­Ó¤u§@ªí ±N·Æ¹«²¾¨ì ¥ô¤@¦Cªº¼ÐÃD¦ì¸m «ö¥kÁä ->¨ú®øÁôÂÃ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD