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

¤@­Ó¤U©Ô°ÝÃD,

¤@­Ó¤U©Ô°ÝÃD,

¤j¤j­Ì,¦n
¤p©f¦³¤@¤U©Ô°ÝÃD½Ð¨ó§U, ªþ¥ó¦³©ú²Ó»¡©ú, ¥ý¦æÁÂÁÂ!!
Book1.rar (10.47 KB)

¦^´_ 1# 317
  1. Private Sub Worksheet_Activate()
  2. ComboBox1.ColumnCount = 2
  3. ComboBox1.Clear
  4. With ¤u§@ªí1
  5.    For Each a In .Range(.[A3], .[A3].End(xlDown))
  6.    With ComboBox1
  7.    .AddItem a & "," & a.Offset(, 1)
  8.    .List(r, 0) = a: .List(r, 1) = a.Offset(, 1)
  9.    r = r + 1
  10.    End With
  11.    Next
  12. End With
  13. ComboBox1.TextColumn = 1
  14. ComboBox1.LinkedCell = "C3"
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# 317
¤u§@ªí3 ªºµ{¦¡½X
  1. Private Sub Worksheet_Activate()                   '±q¨ä¥L¤u§@ªí ²¾°Ê¨ì ³o¤u§@ªí®É ¦Û°Ê°õ¦æªº¹w³]¨Æ¥ó
  2.     Ar = Sheet1.Range("A3:B" & Sheet1.[B3].End(xlDown).Row).Value ' A3:BÄæ¦ì¸ê®Æ ¸m¤J°}¦C
  3.     With ComboBox1
  4.         .ColumnCount = 2                             '«ü©w¤U©Ô¦¡²M³æ¤è¶ô©Î²M³æ¤è¶ôªºÅã¥Ü¦æ¼Æ
  5.         .TextColumn = 1                              '¦b¨Ï¥ÎªÌ¿ï¨ú¤@¦C®É¡AÃѧO­nÀx¦s Text Äݩʤ¤ªº ComboBox ©Î ListBox ªº¸ê®Æ¦æ¡C
  6.         .LinkedCell = "C3"                           '¶Ç¦^©ÎªÌ³]©w³s½u«ü©w±±¨î­Èªº¤u§@ªí½d³ò
  7.         .Font.Size = 14                              '³]©w ¦rÅé¤j¤p
  8.         .BackColor = &HFFFF&                          '­I´º¦â±m¡C
  9.         .TextAlign = fmTextAlignCenter                '¤å¦r¦b±±¨î¶µ¤¤ªº¹ï»ô¤è¦¡
  10.         .Clear                                       '²M°£±±¨î¶µªº¤º®e
  11.         .List = Sheet1.Range("A3:B" & Sheet1.[B3].End(xlDown).Row).Value ' A3:BÄæ¦ì¸ê®Æ ¸m¤J°}¦C
  12.         'List ÄÝ©Ê  ¶Ç¦^©Î³]©w ListBox ©Î ComboBox ªº²M³æ¿é¤J¶µ
  13.     End With
  14. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂ两¦ìª©¥D¤j¤j, ¤p©f¨ü±Ð¤F, ÁÂÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD