- 帖子
- 2808
- 主題
- 10
- 精華
- 0
- 積分
- 2864
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-10
|
利用 index 值填充//
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j%, k%
With Target
If .Address <> "$E$4" And .Address <> "$F$4" Then Exit Sub
j = Abs(([e4] = [b4]) + ([e4] = [b5]) * 4)
k = Abs(([f4] = [c4]) + ([f4] = [c5]) * 2 + ([f4] = [c6]) * 3)
If j * k Then [f9].Cells(j + k - 1) = [f5]
End With
End Sub |
|
發表於 2023-4-21 13:55
| 
