- 帖子
- 45
- 主題
- 1
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-4-16
- 最後登錄
- 2013-12-30
|
回復 4# HCG10G8bear
如果格是黃色,格的數值是1- Sub Macro1()
- With ActiveSheet
- If Selection.Interior.ColorIndex = 6 Then
- Selection.Value = 1
- End If
- End With
- End Sub
複製代碼 |
|