[µo°Ý] Range()¤º¦r¦ê

prince120101

½Ð°Ý¦U¦ì¤j¤j

¤U¦C³o¥|¦æRange()¸Ì­±ªº ¦r¦ê ¥i¥H¥u¥Î¤@¦æªí¥Ü¶Ü??

1. Range("A4").Select
   
2.     Range(Selection, Selection.End(xlDown)).Select
   
3.     Range(Selection, Selection.End(xlDown)).Select
   
4.     Range(Selection, Selection.End(xlUp)).Select

½Æ»s¥N½X

prince120101

¦^´_ 3# GBKEE
¦^´_ 2# owen06


·PÁ owen06 GBKEE ªº¦^ÂÐ


·|¦³³o·Qªk¬O
§ÚªºEXCEL VBA ªí³æ ¤W

°Ê§@µ{§Ç
¦³¨â­ÓListBox
ListBox1 ¤º®e¬O sheet1~sheet9
·í¿ï¾Üsheet1®É
ListBox2¤º®e·|Åã¥Ü sheet1"A4"¤§«á Àx¦s®æ¦³¸ê®Æªº¤º®e
·í¿ï¾Üsheet2®É
ListBox2¤º®e·|Åã¥Ü sheet2"A4"¤§«á Àx¦s®æ¦³¸ê®Æªº¤º®e..µ¥µ¥

µM¦Ó ³o sheet1~9 "A4" ¤@¶}©l¬OµL¸ê®Æªº «áÄò·|¼W¥[

1. Range("A4").Select
   
2. If ListBox1.Value = "sheet1" Then ListBox2.List = Workbooks("¬¡­¶Ã¯1.xlsm").Sheets("sheet1").Range(Selection, Selection.End(xlDown)).Value
   
3. If ListBox1.Value = "sheet2" Then ListBox2.List = Workbooks("¬¡­¶Ã¯1.xlsm").Sheets("sheet2").Range(Selection, Selection.End(xlDown)).Value

½Æ»s¥N½X

¨º®É­Ô´ú¸Õ«á ¦pªG´«¿ï¾Üsheet2®É ³oµ{§Ç´N¥X²{¿ù»~¤F~
«á¨Ó¤]´N·Q»¡¬Ý¥i¤£¥i¥H§âRange("A4")©ñ¤J Range(Selection, Selection.End(xlDown))¸Ì­±

1. Range("A4").Select
   
2. Range(Selection, Selection.End(xlDown)).Select
   
3. Range(Selection, Selection.End(xlDown)).Select
   
4. Range(Selection, Selection.End(xlUp)).Select

½Æ»s¥N½X

³o¬O¨º®É­Ô¥Î¥¨¶°¿ý»sªº
¦ý¦pªG¹J¨ì¤@¶}©l"A4"¨S¸ê®Æªº®É­Ô
³o°Ê§@¤]´N¤£¦¨¥ß¤F

prince120101

¦^´_ 5# GBKEE

ÁÂÁÂ GBKEE
­è´ú¸Õ«á¥i¥H°Ê§@¤F

Sheets(ListBox1.Value)¤£¹L³oÃä¦n¹³­n¥[.value ¤~¯à°õ¦æ

1. If ListBox1.Value <> "" Then
   
2. ListBox2.Clear
   
3. With Workbooks("¬¡­¶Ã¯.xlsm").Sheets(ListBox1.Value)
   
4. If .Range("A4").End(xlDown).Row <> .Rows.Count Then  '¦³¸ê®Æ
   
5. ListBox2.List = .Range(.Range("A4"), .Range("A4").End(xlDown)).Value
   
6. End If
   
7. End With
   
8. End If

½Æ»s¥N½X

prince120101

¦^´_ 7# owen06


    ·PÁ owen06 ªº¤À¨É~~~