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

¤@­Ó¤U©Ôµ{¦¡

¦^´_ 5# aa7551


¥i§_Á٭ק諸µ{¦¡½X±i¶K, ¦nÅý¾Ç²ß..

TOP

¥H¤Wµ{¦¡,¬O¸Õ¥X¨Óªº,¨Ã¤£¤F¸Ñ·N«ä,½Ð±ÐGBKEE¤j¤j,Worksheet_SelectionChange¥¦¬O¦b¦óºØª¬ªp¤U¤~·|IJµo

TOP

ª©¥D:§Ú¸ÕµÛ¥h¤¤Â_Worksheet_SelectionChangeµoı¥¦³£¨S¦³°Ê§@,§Ú§â³o¤@¬qµ{¦¡½Æ»s¦ÜComboBox1_Change§ï¦¨:
Dim Sh As Worksheet

        Set Sh = Sheets("¤ë¥÷")

        ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value

        ComboBox1.ColumnCount = 2
        [C3] = ComboBox1.Value
µo²{¥¦¥i¥H°õ¦æ

TOP

¦^´_ 2# GBKEE


¤j¤j¦n:
¤p§Ì§âµ{¦¡¶K©ó¤u§@ªí2, ¦ý¨Sªk¦¨¥\, ¤p§Ì¦bµ{§Ç¤W¿ù¤F­þ¸Ì, ½Ð¤j¤j±Ð¾É, ÁÂÁÂ!!

aaa.rar (10.33 KB)

TOP

¦^´_ 1# ©P¤j°¶
SHEET2 ªº µ{¦¡¶Ü
  1. Private Sub ComboBox1_Change()
  2.     [C3] = ComboBox1.Value
  3. End Sub
  4. Private Sub Worksheet_Change(ByVal Target As Range)
  5.     If Target.Address(0, 0) = "C3" Then
  6.         Dim Sh As Worksheet
  7.         Set Sh = Sheets("¤ë¥÷")
  8.         ComboBox1.List = Sh.Range("d2", Sh.Range("E2").End(xlDown)).Value
  9.         ComboBox1.ColumnCount = 2
  10.     End If
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD