Board logo

標題: Range( ).Select的用法 [打印本頁]
作者: openpc    時間: 2012-2-20 17:52     標題: Range( ).Select的用法

請教:
A.Range("A1" ).Select
B.Range(Selection, Selection.End(xlToRight)).Select
1.只要向右移一欄, 如何表達
2.向右移二欄或三欄..., 又要怎麼寫
3.A與B寫在同一行的語法如何寫
作者: register313    時間: 2012-2-20 18:07

回復 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
作者: kimbal    時間: 2012-2-20 22:24

本帖最後由 kimbal 於 2012-2-20 22:30 編輯
請教:
A.Range("A1" ).Select
B.Range(Selection, Selection.End(xlToRight)).Select
1.只要向右移一欄, ...
openpc 發表於 2012-2-20 17:52




1.即是選上A1和B1?
B.Range(Selection, Selection.Offset(0,1)).Select
Selection.Offset(0,1) 就是SELECTION的下一欄,即B1

2. 即是選上A1,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
作者: smooth131    時間: 2012-2-20 22:54

3. 假設要選的是selection = [b20]
    ∴Range([a1], [b20].End(xlToRight)).Select
作者: Hsieh    時間: 2012-2-20 23:22

回復 4# smooth131


    Range([a1], [b20].End(xlToRight)).Select
這樣選取的是由A1到B20向右的資料尾儲存格所聯集的區域
假設B20:G20都為非空格那就是A1:G20被選取
[attach]9678[/attach]
作者: freeffly    時間: 2012-2-22 16:22

原來還有這種方式選取儲存格
受教了
作者: 198188    時間: 2013-4-17 12:15

  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

  5. .Borders.LineStyle = 1

  7. .Borders.ColorIndex = 0

  9. .BorderAround , 2, 0
  10. End With
複製代碼
回復 5# Hsieh


請問哪裡出現問題了？
我想將A11 到L欄的最後一列加框線，但是沒有反應。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)