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

EXCEL VB ªí³æ ComboBox2.List ¦êÁp ¨âÄæÀx¦s®æ¼Æ­È??

EXCEL VB ªí³æ ComboBox2.List ¦êÁp ¨âÄæÀx¦s®æ¼Æ­È??

¦U¦ì¤j¤j ½Ð°Ý¤@¤U
  1. If ListBox1.Value = "FPR-002" Then ComboBox2.List = Workbooks("¦a´à®w¦s.xlsm").Sheets("FPR-002").Range("j4:j100").Value & Value.Workbooks("¦a´à®w¦s.xlsm").Sheets("FPR-002").Range("k4:k100").Value
½Æ»s¥N½X
¦p«á¤è ·Q¦A±µ KÄæ(k4:k100)ªº ¼Æ­È ½Ð°Ý­n¨Ï¥Î¤°»ò¦êÁp??¥Î & ·|¥X²{¿ù»~@@~~

¦^´_ 1# prince120101
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, AR(1 To 2)
  4.     If ListBox1.Value = "FPR-002" Then
  5.        Set Sh = Workbooks("¦a´à®w¦s.xlsm").Sheets(ListBox1.Value)
  6.         With ComboBox2
  7.             .Clear
  8.             .ColumnCount = 2
  9.             AR(1) = Application.Transpose(Sh.Range("j4:j100"))
  10.             AR(2) = Application.Transpose(Sh.Range("K4:K100"))
  11.             .List = Application.Transpose(AR)
  12.         End With
  13.     End If
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


ÁÂÁ G¤jÀ°¦£~
¸Õ¹L¥i¥H¥Î¤F~·P®¦

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD