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

[µo°Ý] ½Ð°Ý:ªÅ¥Õ¦C¤£Åã¥Ü©óªí³æ¤¤...

[µo°Ý] ½Ð°Ý:ªÅ¥Õ¦C¤£Åã¥Ü©óªí³æ¤¤...

½Ð±Ð¦U¦ì¤j¤j,§Ú¦³¤@­Ó°µ¬°¸ê®Æ®wªº¤u§@ªí,¦b¤£¦Pªº¤u§@ªí¤¤,·|¥H¤U¤è vba ¥X²{¿ï¾Ü¸ê®Æ¦Cªí³æ¥h¿ï¾Ü»Ý­nªº¸ê®Æ¦C,
µM«á¦Û°Ê®M¥Î¦b¦U­Ó¤£¦P®æ¦¡ªºªí®æ¤¤,¦ý·í¸ê®Æ¦C¬°ªÅ¥Õ®É¤]·|¥X²{¤@¦æªÅ¥Õ¦C¦b¦¹ªí³æ¤¤,¬O§_¯à­×§ï¬°·í¸ê®Æ¦CªÅ¥Õ®É
¤£·|¥X²{¦b¦¹ªí³æ¤¤©O?

Sub ListOfCompany()
    Dim myTbl As Range
Set myTbl = Sheet4.Range("NameOfCompany")
    UserForm1.Caption = "ªí³æ1"
    UserForm1.Label1.Caption = "¬ö¿ýªí1"
    With UserForm1.ListBox1
        .ColumnCount = myTbl.Columns.Count
        .ColumnWidths = "1.5cm; 1.5cm ; 3cm;2cm"
        .Font.Size = 11
        .List = myTbl.Value
    End With
    UserForm1.Show 0
End Sub

¦^´_ 1# a_nanami
  1. Sub ListOfCompany()
  2.     Dim myTbl As Range, E As Variant, i As Integer
  3.     Set myTbl = Sheet4.Range("NameOfCompany")
  4.     UserForm1.Caption = "ªí³æ1"
  5.     UserForm1.Label1.Caption = "¬ö¿ýªí1"
  6.     With UserForm1.ListBox1
  7.         .ColumnCount = myTbl.Columns.Count
  8.         .ColumnWidths = "1.5cm; 1.5cm ; 3cm;2cm"
  9.         .Font.Size = 11
  10.         '.List = myTbl.Value
  11.         For Each E In myTbl.Rows
  12.             If E.Cells(1) <> "" Then  '²Ä1­ÓÀx¦s®æ
  13.                 .AddItem
  14.                 For i = 1 To myTbl.Columns.Count
  15.                     .List(.ListCount - 1, i - 1) = E.Cells(i)
  16.                 Next
  17.             End If
  18.         Next
  19.         
  20.     End With
  21.     UserForm1.Show 0
  22. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


ÁÂÁÂGBKEE¤jªº«ü¾É¡A¦ý·|¥X²{

°õ¦æ¶¥¬q¿ù»~380
µLªk³]©w List ÄÝ©Ê¡DµL®ÄªºÄÝ©Ê­È...

¤£ª¾¹D°ÝÃD¥X¦b@@

TOP

¦^´_ 3# a_nanami
Excel ¤£¤]¬O2003ª©,ªþÀɬݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# a_nanami

2#²Ä10¦æ
'.List = myTbl.Value
ª`·N³æ¤Þ¸¹¡A±N¦¹¦æ¤w¼Ðµù¦¨µù¸Ñ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# GBKEE


ªGµM¬Oª©¥»°ÝÃD,¦]¬°¤G¥x¹q¸£ª©¥»¤£¦P,ÁÂÁ¤G¦ìª©¥Dªº«ü¾É^^

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD