返回列表 上一主題 發帖

[發問] 想製作一個股票價格的最高價紀錄

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2014-4-10 09:56 | 顯示全部帖子
回復 4# 89691007

Dim i, lastRow As Integer   
==> 定義『i』、『lastrow』為整數

lastRow = [A1].End(xlDown).Row       '取得A欄最下一行
==> lastrow=取得A欄的最後一個有數值的列號
      你在工作表裡，按ctrl+上、下、左、右鍵去動看看，就很清楚明暸了
      end(xldown)=ctrl+下
      end(xlup))=ctrl+上
      end(xltoright))=ctrl+右
      end(xltoleft))=ctrl+左
但是如果你的a欄的數值有不連續的空白格的話，建議你改用
[a65536].end(xlup).row，比較不會發生判斷錯誤。

For i = 2 To lastRow
==> for 要搭配next， for i= 2 to lastrow(剛才上面有計算出lastrow的數值)，
       i就會從2一直執行到lastrow的數值為止，假設lastrow是50好了，
       那麼他就會幫你去測 If Cells(2, 3) > Cells(2, 4)
                                   Cells(3, 3) > Cells(3, 4)
                                   Cells(4, 3) > Cells(4, 4)
                                                 ：
                                                 ：
                                                 ：
                                   Cells(50, 3) > Cells(50, 4)

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-4-10 13:35 | 顯示全部帖子
回復 6# 89691007

for i= 2 to lastrow 是只有變動行數範圍嗎
那如果是變動列數呢?


上面的lastrow，不就是計算列數的變動嗎？
去判斷出資料範圍在a欄的第幾列。

cells(row,column)
row =列(橫)
column=欄(直)   

cells(i,1)、cells(1,i)
看你要讓哪一個動，就把他設定為變數就好了

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題