Range( ).Selectªº¥Îªk

openpc

½Ð±Ð:
A.Range("A1" ).Select
B.Range(Selection, Selection.End(xlToRight)).Select
1.¥u­n¦V¥k²¾¤@Äæ, ¦p¦óªí¹F
2.¦V¥k²¾¤GÄæ©Î¤TÄæ..., ¤S­n«ç»ò¼g
3.A»PB¼g¦b¦P¤@¦æªº»yªk¦p¦ó¼g

198188

1. e = Worksheets("customer").Range("A" & Worksheets("customer").Rows.Count).End(xlUp).Row
   
2. With Worksheets("customer").Range(Cells(1, 11), Cells(12, e))
   
3. .Borders.LineStyle = 1
   
4. 
   
5. .Borders.LineStyle = 1
   
6. 
   
7. .Borders.ColorIndex = 0
   
8. 
   
9. .BorderAround , 2, 0
   
10. End With

½Æ»s¥N½X

¦^´_ 5# Hsieh


½Ð°Ý­þ¸Ì¥X²{°ÝÃD¤F¡H
§Ú·Q±NA11 ¨ìLÄ檺³Ì«á¤@¦C¥[®Ø½u¡A¦ý¬O¨S¦³¤ÏÀ³¡C

freeffly

­ì¨ÓÁÙ¦³³oºØ¤è¦¡¿ï¨úÀx¦s®æ
¨ü±Ð¤F

Hsieh

¦^´_ 4# smooth131


    Range([a1], [b20].End(xlToRight)).Select
³o¼Ë¿ï¨úªº¬O¥ÑA1¨ìB20¦V¥kªº¸ê®Æ§ÀÀx¦s®æ©ÒÁp¶°ªº°Ï°ì
°²³]B20:G20³£¬°«DªÅ®æ¨º´N¬OA1:G20³Q¿ï¨ú

¤U¸ü (171.21 KB)

2012-2-20 23:22

smooth131

3. °²³]­n¿ïªº¬Oselection = [b20]
    ¡ïRange([a1], [b20].End(xlToRight)).Select

kimbal

½Ð±Ð:
A.Range("A1" ).Select
B.Range(Selection, Selection.End(xlToRight)).Select
1.¥u­n¦V¥k²¾¤@Äæ, ...
openpc µoªí©ó 2012-2-20 17:52

1.§Y¬O¿ï¤WA1©MB1?
B.Range(Selection, Selection.Offset(0,1)).Select
Selection.Offset(0,1) ´N¬OSELECTIONªº¤U¤@Äæ,§YB1

2. §Y¬O¿ï¤WA1,B1,C1? (2Äæ¡^
B.Range(Selection, Selection.Offset(0,2)).Select
3Äæ:
B.Range(Selection, Selection.Offset(0,3)).Select

3. Range(Range("A1"), Range("A1").End(xlToRight)).Select

register313

¦^´_ 1# openpc

Range("A1").Select
Range(Selection, Selection.Offset(0, 1)).Select
©Î
Range("A1").Resize(1, 2).Select

Range("A1").Select
Range(Selection, Selection.Offset(0, 2)).Select
©Î
Range("A1").Resize(1, 3).Select