- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Range("J3:J1443")) Is Nothing And Target(1) <> "" And [A1] <> "取消" Then
ActiveCell.Offset(0, -3).Copy [Y3]
Range(Target(1).Offset(1, -9), Target(1).Offset(1, -9).End(xlDown)).EntireRow.Hidden = True
Target.Offset(, -3) = Target.Value
Range("G:J").EntireColumn.AutoFit
Range("AA1") = 1
ElseIf Target.Address = "$J$1" Then
還原
End If
End Sub
這樣嗎？ |
|
發表於 2011-5-12 10:22
| 