暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
2#
發表於 2015-5-20 11:22
| 只看該作者
回復 1# janezi1209
- Sub ex1()
- x = 0
- For i = 1 To 10
- If Cells(i, 1).Interior.ColorIndex = 6 Then
- x = x + Cells(i, 1)
- End If
- Next
- MsgBox x
- End Sub
|
|
