- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
 
|
回復 4# GBKEE
這兩天拿出來研究時發現有些程式碼用法不太懂
Sub Ex()
Dim Rng As Range, X As Range, R As Range, Tolta%, A%, i%, ii%
Cells.ClearFormats
Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
For Each R In Rng.Rows
Set Rng = R.Cells(1) R.Cells(1)→這個是指? A = 0
For ii = 2 To 8
If R.Cells(1, ii) <> "" And Rng > R.Cells(1, ii) Then R.Cells(1, ii)這個跟上面問的差異在哪?
Set Rng = R.Cells(1, ii)
R.Cells(1, ii).Font.ColorIndex = 7
Tolta = Tolta + 1
A = A + 1
With R.Cells(1, 10)
.Value = A
.Interior.ColorIndex = 4
End With
ElseIf R.Cells(1, ii) <> "" And Rng < R.Cells(1, ii) Then
Set Rng = R.Cells(1, ii) 這一整句的意思是?
End If
Next
Next
[L1] = Tolta
End Sub
如果我要將降價改為漲價是不是寫法不太依樣還是修改什麼地方可以達到效果? |
|
發表於 2011-5-18 22:10
| 
