如何由某欄跳到別欄,再回到原欄?

假設原定位置是A5,然後跳到同列的D欄,即D5,
當做完一些動作後,位置變成D18,想跳回該列的A欄,即A18,


Range:範圍,單一儲存格以上相鄰的儲存格寫成Range("A1:A10")或簡稱[A1:A10]其語法意思為,從A1到A10
Cells:儲存格或單元格,就是單一個儲存格或代表工作表所有儲存格,單一儲存格寫法 以B1儲存格來說明 ,寫法為Cells(1,2)意思就Cells(列1,欄2)的意思,所有儲存格則只寫成 Worksheet.Cells 
Row:列號,哪一列的意思
Column:欄號,哪一欄
以上說明,只是簡單描述,並不能夠代表所有意思,詳細說明,應以VBE說明為主


Public Sub ex()
    Dim Ran As Range
    Set Ran = Range("A5") '假設原定位置是A5,A5設成變數 Ran
    Cells(Ran.Row, "D").Select '然後跳到同列的D欄,即D5,這裡不知道你要做什麼事,所以只有用Select選擇 D5,若是要寫值可以寫成 Cells(Ran.Row, "D")="ABC"
    Cells(18, "D").Select '當做完一些動作後 , 位置變成D18 ,同上列說明
    Cells(18, Ran.Column).Select '跳回該列的A欄,即A18
End Sub

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 minyeh187 的頭像
    minyeh187

    Excel VBA應用 的部落格

    minyeh187 發表在 痞客邦 留言(0) 人氣()