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

¨D ¶}±Òªí³æ¦Û°Ê·s¼W¤å¦r¤è¶ô »P¤U©Ô¦¡²M³æ

¨D ¶}±Òªí³æ¦Û°Ê·s¼W¤å¦r¤è¶ô »P¤U©Ô¦¡²M³æ

¶}±Òªí³æ«á¥i¥H¦Û°Ê±N¤u§@ªí¤¤ªº¨C¤@¦Cªº²Ä¤@Äæ¸ê®Æ§ì¥X¨Ó¨Ã·s¼W¤@­Ó¤å¦r¤è¶ô(§â¸ê®Æ¶ñ¤J) ©M¤@­Ó¤U©Ô¦¡²M³æ¦bªí³æ¤¤
¦³10¦C¸ê®Æªº¸Ü  ´N¦³10­Ó¤å¦r¤è¶ô»P10­Ó¤U©Ô¦¡²M³æ    ¨D¤j¤jÀ°¸Ñ




        1          2
1  aaa
2  bbb
3  cccc
4  ddd
YOYO

¦^´_ 1# joe80502
¨SªþÀɮסA¨S»¡©úÀÉ...
«çª¾¹D§A­nÔ£= ="

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 1# joe80502
  1. Private Sub UserForm_Initialize()
  2. With ActiveSheet
  3. For Each a In .Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    With Me.Controls.Add("Forms.TextBox.1")
  5.    .Top = i * 22
  6.    .Height = 20
  7.    .Width = 60
  8.    .Left = 10
  9.    .Value = a
  10.    End With
  11.    With Me.Controls.Add("Forms.ComboBox.1")
  12.    .Top = i * 22
  13.    .Height = 20
  14.    .Width = 60
  15.    .Left = 50
  16.    End With
  17.    i = i + 1
  18. Next
  19. End With
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


¦hÁÂHS¤j¤jÀ°§Ú¸Ñµª  µ{¦¡°õ¦æ¬O§Ú­nªºµ²ªG
·Q¦b°Ý¤@¤U §Ú·Q­n§â¤U©Ô¦¡¿ï³æªº¸ê®Æ ¿ï¤@­Ó¸ê®Æ¦^¶ñ¡A¨ìÀx¦s®æ¤¤¥i¥H°µ¨ì¶Ü?
§Ú¦Û¤v¸Õ¤F¤@¤U ¡A¤£ª¾¹D«ç»ò§ì·s¼W¥X¨Óªº¤U©Ô¦¡¿ï³æªº¦WºÙ
YOYO

TOP

¦^´_ 4# joe80502
¦^¶ñ¸ê®Æ¨ì¤u§@ªí¤¤¡A¥i§Q¥ÎControlSourceÄÝ©Ê
  1. Private Sub UserForm_Initialize()
  2. With ActiveSheet
  3. For Each a In .Range("A:A").SpecialCells(xlCellTypeConstants)
  4.    With Me.Controls.Add("Forms.TextBox.1")
  5.    .Top = i * 22
  6.    .Height = 20
  7.    .Width = 60
  8.    .Left = 10
  9.    .Value = a
  10.    End With
  11.    With Me.Controls.Add("Forms.ComboBox.1")
  12.    .Top = i * 22
  13.    .Height = 20
  14.    .Width = 60
  15.    .Left = 50
  16.    .ControlSource = a.Offset(, 5).Address '³sµ²Àx¦s®æ
  17.    .RowSource = ¤u§@ªí1.[A1:A7].Address '²M³æ¨Ó·½
  18.    End With
  19.    i = i + 1
  20. Next
  21. End With
  22. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh


    ¦hÁÂHS¤j¤jÀ°¸Ñµª~°ÝÃD¤w¸Ñ¨M
YOYO

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD