- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2011-7-19 16:32
| 只看該作者
回復 3# yueh0720
試試看- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim Rng As Range, R1%, R2%
- Set Rng = Range("B2").CurrentRegion
- 'CurrentRegion以任意空白列及空白欄的組合為邊界的連續範圍
- If Not Application.Intersect(Target(1), Rng) Is Nothing Then 'Rng的範圍包含Target(1)的位址
- 'Target(1) ->工作表所選擇範圍的第一個儲存格
- If Target(1).Row = Rng.Row Then Exit Sub ' 在第一列
- R1 = Rng.Column '第一欄的 欄數
- R2 = Rng(1, Rng.Columns.Count).Column '最後一欄的 欄數
- If Application.CountA(Range(Cells(Target(1).Row, R1), Cells(Target(1).Row, R2))) = Rng.Columns.Count Then
- '有資料數的儲存格=Rng的總欄數
- Cells(Target(1).Row + 1, R1).Select '選擇下一列的第1欄
- Else '有資料數的儲存格<>Rng的總欄數
- If Target(1) <> "" Then
- R2 = IIf(Target(1).Column = R2, R1, Target(1).Column + 1)
- '如為最後一欄的 返回第1欄 否往右一欄
- Cells(Target(1).Row, R2).Select '往右一欄
- End If
- End If
- End If
- End Sub
|
|
發表於 2011-7-19 12:58
| 
