- 帖子
- 703
- 主題
- 276
- 精華
- 0
- 積分
- 1005
- 點名
- 1
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2024-5-29
|
24#
發表於 2021-10-1 19:08
| 只看該作者
回復 22# samwang
samwang前輩您好，想請教您
If Intersect(xA, Target) Is Nothing Then Exit Sub
這段的意思是？
我最近寫到兩個區塊，- If Target.Column = 3 Then
- Call 顏色
- Set xC = [C1]
- xC.Interior.Pattern = 0
- If Intersect(xC, Target) Is Nothing Then Exit Sub
- For Each xR In xC.Rows
- If Not Intersect(xR, Target) Is Nothing Then
- If Cells(xR.Row, 3) <> "" Then
- Cells(xR.Row, 3).Interior.Color = Col
- Else
- Cells(xR.Row, 3).Interior.Color = Col
- End If
- End If
- Next
- Set xAH = [A4:H1000]
- xAH.Interior.Pattern = 0
- If Intersect(xAH, Target) Is Nothing Then Exit Sub
- For Each xR In xAH.Rows
- If Not Intersect(xR, Target) Is Nothing Then
- If Cells(xR.Row, 3) <> "" Then
- [F2] = ActiveCell
- [G2] = ActiveCell
- xR.Interior.Color = Col
- Else
- [F2] = ActiveCell
- [G2] = ActiveCell
- Cells(xR.Row, 3).Interior.Color = Col
- End If
- End If
- Next
但是想知道為什麼？萬分感謝。 |
|
