Board logo

標題: 求教於各方高手... [打印本頁]

作者: verify9k    時間: 2019-12-20 00:49     標題: 求教於各方高手...

請問各方高手:
       底下的程式碼應該是正確的,但是我卻看不出來為何 VBA不肯執行,是否有人可以看出問題.....

  For m = 228 To 258 Step 1
     If Cells(m, 38) > Cells(m + 1, 38) Then _
       Max_Price = Cells(m, 38)
     Else
       Max_Price = Cells(m + 1, 38)
     End If
  Next

我要 228 到 258 的 for 迴圈, 判斷 "AL228 的值" 是否大於 "AL229 的值",
若是,Max_Price 存入 "AL228之值",
若否,Max_Price 存入 "AL229之值"
以此方式找出30個數值之中的最大值..
但是 VBA 說我有錯,請問,我哪裡寫錯????
我知道我的邏輯可能有錯,單純想知道上述語法錯在哪裡......
作者: c_c_lai    時間: 2019-12-20 05:59

本帖最後由 c_c_lai 於 2019-12-20 06:05 編輯

此語法會造成
有 ELSE 卻無 IF
的語法錯誤。
"_" 是連接詞
作者: c_c_lai    時間: 2019-12-20 06:00

回復 1# verify9k
If Cells(m, 38) > Cells(m + 1, 38) Then _
修正為:
If Cells(m, 38) > Cells(m + 1, 38) Then
即可。
作者: verify9k    時間: 2019-12-20 11:38

回復 3# c_c_lai


    回答我問題的高手您好:
                                            太感謝您了,這麼一段小小的程式我已經找了3天還不知道我錯在哪了,
                                            多謝幫忙,謝謝您.........




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)