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

Ãö©ócombobox¨ú­È¼g¤Jsheet1ªº°ÝÃD

Ãö©ócombobox¨ú­È¼g¤Jsheet1ªº°ÝÃD

¦U¦ì¤j¤j±z¦n¡G
                         ¤p§Ì§Q¥Îaccess ³sµ²ComboBox1.AddItem myRcdSet(0)¤U©Ô²M³æ¨Ï¨ä­È©ñ¤J
                         ½Ð°Ý¦U¦ì¤j¤j­n¦p¦ó§â¿ï¨ú¤U©Ô²M³æªº¤º®e©ñ¤Jsheet1ªºBÄ椤?
                         ¥B©ñ¤JBÄ檺­È­è¦n¼g¨ì¹ïÀ³AÄæ¸ê®Æ³Ì«á¤@­Ó?
                          ½Ð¦U¦ì¤j¤j½ç±Ð¤F!!!:)

¦^´_ 1# bubaby0608
¬O³o¼Ë¶Ü?
  1. Private Sub ComboBox1_Change()
  2.     Range("A" & Rows.Count).End(xlUp).Offset(, 1) = ComboBox1
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

¤j¤j·N«ä®t¤£¦h±µªñ¤F¦ý¬OÂI¿ï®É¡A¥u¦³³Ì«á¤@µ§¸ê®Æ¦³­È
°²¦pAÄæ¸ê®Æ¨ì10¦C¡A¬O§_­È¤]¯à±qBÄæ1¦C¼g¨ì10¦C©O?
¥H¦¹Ãþ±À¡AAÄæ­È¨ì­þ¡ABÄæ´N¼g¨ì­þ¡A·PÁ¤j¤j½ç±Ð¡I

TOP

¦^´_ 3# bubaby0608
¬O¦p¦¹¶Ü?
  1. Private Sub ComboBox1_Change()
  2.     Range("A:A").SpecialCells(xlCellTypeConstants).Offset(, 1) = ComboBox1
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE

·PÁ¤j¤j~´N¬O³o­Ó!¨ü±Ð¤F!

TOP

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