- 帖子
- 560
- 主題
- 159
- 精華
- 0
- 積分
- 723
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2023-10-31
  
|
DEAR SIR
1 如下於 SHEET1 加入即可.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheet2.[A65536].End(xlUp).Offset(1, 0) = [A1]
[A1].Select
Application.EnableEvents = True
End If
End Sub |
|
發表於 2015-4-23 16:21
| 