- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
9#
發表於 2015-5-11 11:41
| 只看該作者
回復 8# lpk187
改成下列的話,只要A欄和B欄其中一個無值的話回復空白- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column < 3 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
- Set col = Sheets("公司清單").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
- AA = col.Offset(0, 1).Interior.Color
- Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = _
- col.Offset(0, 1).Interior.Color
- Else
- Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = 16777215
- End If
- End Sub
複製代碼 |
|