GBKEE

¦^´_ 6# owen9399

1. Dim Ar()
   
2. Private Sub UserForm_Initialize()
   
3.     ComboBox1.RowSource = Range("L2:L5").Address
   
4.     ComboBox2.RowSource = Range("N2:N6").Address
   
5.     ComboBox3.RowSource = Range("M2:M4").Address
   
6.     Ar = Array(TextBox1, ComboBox1, ComboBox2, TextBox2, TextBox3, ComboBox3, TextBox4, TextBox5, TextBox6)
   
7. End Sub
   
8. Private Sub CommandButton1_Click()
   
9.     Dim nrow As Integer
   
10.     With Worksheets("sheet1")
    
11.         nrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    
12.         '¥Ñ¤u§@ªíøó©³³¡³Ì«á¤@­Ó¦C,©¹¤W¨ì²Ä¤@­Ó¦³¸ê®Æªº¦C¸¹+1
    
13.        .Range("a" & nrow).Resize(, UBound(Ar) + 1) = Ar
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

owen9399

­×§ï ¤U©Ô¦¡¿ï³æ §¹¦¨
¦ý ¦p¦ó ¿é¤J¾ãµ§¸ê®Æ (·s¼W) ?

owen9399

ÁÂÁ¤j¤j  GBKEE
¦ý¬O,¦p¦ó±N ¤U©Ô¦¡ªº­È  ¿é¤J¨ì SHEET1 ¤¤ªº¦ì¸m

GBKEE

¦^´_ 3# owen9399
Private Sub UserForm1_Initialize() ¤£¬Oªí³æªº¤º«Ø¨Æ¥óµ{§Ç

µ{¦¡°»¿ù¤èªk: ·Æ¹«²¾°Ê¨ì ­n°»¿ùªºµ{¦¡½X¤¤,«ö F8³v¦æ°õ¦æ À˵ø §Y®É¹Bºâµøµ¡ , °Ï°ìÅܼƵøµ¡  ¥i°»¿ù

¤U¸ü (43.85 KB)

2013-9-5 10:49

owen9399

§Ú¦³­×§ï ¤@¨Çµ{¦¡

¤U©Ô¦¡ ¿é¤J ¤£·|
¬d¸ß ¤£·|

GBKEE

¦^´_ 1# owen9399
¦p¦¹ªº°ÝÃDµ¥¦P½Ð¤H´À§A³]­p¤@µ{¦¡,³o¤£¬O¥»°Q½×ª©ªº¥D¦®
(ù°¨¤£¬O¤@¤Ñ³y¦¨ªº,¦hÂsø°½m²ßVBA·|¶i¨Bªº)

owen9399

½Ð°Ý¦U¦ì¤j¤j ¦p¦ó³]­p

®w¦s¿é¤J­pºâ

1.¨q¥X¿é¤Jªí³æ
2.±Nªí³æªº¸ê®ÆÀx¦s¦b ¤u§@ªí1 ¤¤
3.¿ï¾Ü ¤U©Ô¦¡®É ±N¸ê®ÆÀx¦s


ÁÂÁÂ