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

¦p¦óÅýComboBoxŪ¨úªº¸ê®ÆªºÃC¦â©MÀx¦s®æÃC¦â¤@¼Ë

¦p¦óÅýComboBoxŪ¨úªº¸ê®ÆªºÃC¦â©MÀx¦s®æÃC¦â¤@¼Ë

  1. Private Sub ComboBox1_Enter()
  2.     Set X = Sheets("Name")
  3.     ComboBox1.List = X.Range("C2", X.[C2].End(xlDown)).Value
  4. End Sub
½Æ»s¥N½X
C2°²¦p¬O¬õ¦â¡AComboBox´N·|¦³¬õ¦âªº¦r¡C

¦^´_ 1# av8d


    ComboBox1.ForeColor = X.Range("C2").Font.Color
¤å¦rÃC¦â¥u¯à¤@ºØ®@¡A¤£¯à¨C¤@­Ó³£¤£¦P

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD