- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
35#
發表於 2016-7-21 12:46
| 只看該作者
回復 31# 藍天麗池 - ThisWorkbook:
- Private Sub Workbook_Open()
- Dim rng As Variant, rnt As Range
-
- With Sheets(1)
- Set rnt = [AD2]
- For Each rng In Range(.[D2], .[D2].End(xlDown))
- rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
- rnt.FormulaR1C1 = "=RC[-26]"
- Set rnt = rnt.Offset(1)
- Next
- End With
- End Sub
複製代碼- 工作表1:
- Private Sub Worksheet_Change(ByVal Target As Range)
- With Sheets(1)
- If Left(Target.Address, 3) = "$AD" And IsNumeric(Target) Then
- .Cells(Target.Row, 6) = .Cells(Target.Row, 5)
- ' Debug.Print "Target.Address = " & Target.Address
- ElseIf Left(Target.Address, 2) = "$F" Then
- .Cells(Target.Row, 5) = IIf(IsNumeric(.Cells(Target.Row, 3)), .Cells(Target.Row, 3), 0)
- Else
-
- End If
- End With
- End Sub
- Private Sub Worksheet_Calculate()
- ' [K1] = [K1] + 1
- End Sub
複製代碼 |
|