- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 3# 藍天麗池
ThisWorkbook:- Private Sub Workbook_Open()
- Dim rng As Variant
-
- With Sheets(1)
- For Each rng In Range(.[D2], .[D2].End(xlDown))
- rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
- rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
- Next
- End With
- End Sub
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Left(Target.Address, 2) = "$D" And IsNumeric(Target) Then
- If Target.Offset(, 26).Value <> Target.Value Then
- Target.Offset(, 26) = Target
- Target.Offset(, 2) = Target.Offset(, 1)
- Target.Offset(, 1) = IIf(IsNumeric(Target.Offset(, -1)), Target.Offset(, -1), 0)
- End If
- End If
- End Sub
 資料暫存.rar (61.05 KB)
|
|
發表於 2016-7-18 11:47
| 
