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

¤U©Ô¦¡¿ï³æ³]©w

¤U©Ô¦¡¿ï³æ³]©w

½Ð°Ý¦U¦ì°ª¤â
¦p¦ó±N¤U©Ô¦¡¿ï³æ¤¤ªº­È
¥¿½Tªº±a¥X

¨Ò¦p¡G
¤U©Ô¦¡¿ï³æ¤¤¦³(¤p©ú¡B¤j¦P¡B§õ¥|)
ÂI¿ï¤j¦P
·|±N"¤j¦P"±a¨ìA1Äæ¦ì¤¤

¦^´_ 1# baby520every

³o¼Ë??
  1. Range("a1") = ComboBox1.Text
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-11 07:07 ½s¿è

¦^´_ 1# baby520every



¤U©Ô²M³æ «ü©w¥¨¶°ªº¤º®e
  1. Option Explicit
  2. Sub ¤U©Ô²M³æ1_Change()
  3.     '¥i­×§ï Sheet1 : ¤u§@ªíª«¥ó¼Ò²Õªº¦WºÙ
  4.     With Sheet1.Shapes("¤U©Ô²M³æ 1").OLEFormat.Object
  5.         Sheet1.[A1] = .List(.Value)
  6.     End With
  7. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


    TO GBKEE
    ¤p§ÌÁÙ¬O¥Î¤£¥X¨Ó¡H
    ¤@ª½¥X²{Åܼƥ¼©w¸q
    ¥i§_¦b¸Ô²Ó»¡©ú
     ÁÂÁÂ

TOP

¦^´_ 4# baby520every

¦pªþÀÉ
ÁÂÁÂ
abc.rar (12.5 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD