- 帖子
- 91
- 主題
- 5
- 精華
- 0
- 積分
- 130
- 點名
- 2
- 作業系統
- Win10
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-5-14
- 最後登錄
- 2026-6-21
|
回復 1# ziv976688 - If Sheets("Sheet1").Range("A4") = "A" Then
- Sheets("Sheet1").Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Resize(1, 3).Interior.ColorIndex = 6
- End If
複製代碼 |
|