帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-8-16 00:55 | 只看該作者

[發問] 簡化程式

剛剛開始學習VBA程式想請問各位專家可以簡化的方法
假設我的資料有(C2:C500)

Sub abc()

'判斷歷史最大值是否大於目前值，並以最大值更新歷史最大值
If Worksheets("Sheet1").Range("C2") < Worksheets("Sheet1").Range("B2").Value Then
Worksheets("Sheet1").Range("C2").Value = Worksheets("Sheet1").Range("B2").Value

End If

If Worksheets("Sheet1").Range("C3") < Worksheets("Sheet1").Range("B3").Value Then
Worksheets("Sheet1").Range("C3").Value = Worksheets("Sheet1").Range("B3").Value

End If

If Worksheets("Sheet1").Range("C4") < Worksheets("Sheet1").Range("B4").Value Then
Worksheets("Sheet1").Range("C4").Value = Worksheets("Sheet1").Range("B4").Value

End If

End Sub
感謝教導

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-8-16 07:52 | 只看該作者

回復 1# gelai01000001

這樣應該有符合你的需求吧

Sub abc()
For i = 2 To 4
'判斷歷史最大值是否大於目前值，並以最大值更新歷史最大值
If Sheet1.Cells(i, 3) < Sheet1.Cells(i, 2).Value Then
Sheet1.Cells(i, 3) = Sheet1.Cells(i, 2).Value
End If
Next
End Sub

TOP

gelai01000001

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

3^#

發表於 2013-8-17 00:34 | 只看該作者

感謝Owen06前輩專家的指導
簡化過後的語法確實我想要得
For i = 2 To 4
修改
For i = 2 to 500即可運行又多了解Cells語法的應用

TOP

gelai01000001

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

4^#

發表於 2013-8-17 01:46 | 只看該作者

Owen06前輩不好意思!執行程式過程又出現一些問題想再請教一下

如果"B欄位"當中任何1列出現(#N/A、--、或非數值)的值，則會停止運算該如何處理

B欄 C欄
數值最大值
38.95 38.95
37.95 37.95
13.85 13.85
19.6 19.6
10.45 10.45
14.95 14.95
55.8 55.8
23.6 23.6
#N/A (跳出"型態不符合"的警告文字視窗)
21.5
14.8

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2013-8-17 08:46 | 只看該作者

回復 4# gelai01000001

Sub test()
For i = 1 To 5
' 判斷歷史最大值是否大於目前值，並以最大值更新歷史最大值
If Not IsError(Sheet1.Cells(i, 2)) Then
If Sheet1.Cells(i, 3) < Sheet1.Cells(i, 2).Value Then _
Sheet1.Cells(i, 3) = Sheet1.Cells(i, 2).Value
End If
Next
End Sub

複製代碼

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2013-8-17 14:13 | 只看該作者

回復 4# gelai01000001

Sub try2()
For Each mr In Range([b2], [b65536].End(xlUp))
If Not IsError(mr) Then
If mr.Value > mr.Offset(0, 1).Value Then _
mr.Offset(0, 1).Value = mr.Value
End If
Next
End Sub

TOP

owen06