[發問] (已解決)計算最近一次漲跌價幅度

freeffly

如附檔
我想用最新的月份(用月份那一列判斷，還沒到的月份不會顯示)
與前一次交易的月份的價格作計算
請問這各要怎麼寫?

最近一次價格交易漲跌幅度.rar (2.12 KB)

下載次數: 13

2011-6-21 17:42

freeffly

回復 10# GBKEE


    謝謝回覆
      對於這部分我還要在理解才行

GBKEE

回復 9# freeffly
If Application.CountA(Cells(i, "B").Resize(, 12)) >= 2 Then 'B欄Resize(擴充)12欄: 到M欄
上式 是檢查 到有2個數字以上
        ReDim C(1) As Integer        '重新宣告陣列   ->歸零    C(0), C(1) 設定最右邊最接近的2個數字

freeffly

回復 4# GBKEE

謝謝大大註解

ReDim C(1) As Integer                    '重新宣告陣列

請問這裡為什麼要重新宣告?
重新宣告時C()裡面放1或0有沒有差?

freeffly

回復 4# GBKEE


    兩位的方式都可以執行
       不過大大的方式比較簡單一點
      有一些方式沒用過
      不知道大大可以大略講解一下嗎

freeffly

回復 4# GBKEE


    謝謝大大回覆
      一樣先收下來試試看

freeffly

回復 5# luhpro


    看起來相當複雜喔
        謝謝大大回覆
        先收下來研究

luhpro

回復 3# freeffly
那就變成從最末一列到第二列都要執行.
然後先判斷 12 月那欄是否有資料,
若有則執行原先程式中的那個片段,
若無則往左尋找最末兩筆資料,
若此兩筆資料其中一筆在 A 欄則不做任何計算, (因 A 攔不是我們要計算的資料)
否則就將此兩欄資料做相應的計算, 程式如下:

1. Sub nn()
   
2.   Dim iCol1%, iCol2%
   
3.   Dim lRows As Long, lRow As Long
   
4.   
   
5.   lRows = Cells(Rows.Count, 1).End(xlUp).Row
   
6.   For lRow = lRows To 2 Step -1
   
7.     If Cells(lRow, 13) <> 0 And Cells(lRow, 13) <> "" Then
   
8.       If Cells(lRow, 12) <> 0 And Cells(lRow, 12) <> "" Then
   
9.         Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, 12)) / Cells(lRow, 12)
   
10.       Else
    
11.         Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, Cells(lRow, 13).End(xlToLeft).Column)) / Cells(lRow, Cells(lRow, 12).End(xlToLeft).Column)
    
12.       End If
    
13.     Else
    
14.       iCol1 = Cells(lRow, 13).End(xlToLeft).Column
    
15.       iCol2 = Cells(lRow, iCol1).End(xlToLeft).Column
    
16.       If iCol1 <> 1 And iCol2 <> 1 Then
    
17.         Cells(lRow, 14) = (Cells(lRow, iCol1) - Cells(lRow, iCol2)) / Cells(lRow, iCol2)
    
18.       End If
    
19.     End If
    
20.   Next lRow
    
21. End Sub

複製代碼

GBKEE

回復 3# freeffly

1. Sub Ex()
   
2. Dim C() As Integer, i As Integer, ii As Integer
   
3. For i = 2 To Cells(Rows.Count, "M").End(xlUp).Row
   
4. '迴圈 從第2列開始  到(To)  M欄最底端(Rows.Count) 往上到有資料(End(xlUp))的列號
   
5.     If Application.CountA(Cells(i, "B").Resize(, 12)) >= 2 Then 'B欄Resize(擴充)12欄: 到M欄
   
6.         ReDim C(1) As Integer                    '重新宣告陣列
   
7.         For ii = 13 To 2 Step -1                  '迴圈 間隔(Step) -1 :由大往小 (下)
   
8.             If Cells(i, ii) <> "" Then
   
9.                 If (C(0)) = 0 Then
   
10.                     C(0) = Cells(i, ii)
    
11.                 ElseIf C(1) = 0 Then
    
12.                     C(1) = Cells(i, ii)
    
13.                 End If
    
14.                 If C(0) <> 0 And C(1) <> 0 Then   '找到最接近的兩數
    
15.                     Cells(i, "N") = (C(0) - C(1)) / C(1)
    
16.                     Exit For
    
17.                 End If
    
18.             End If
    
19.         Next
    
20.     End If
    
21. Next
    
22. End Sub

複製代碼

freeffly

回復 2# luhpro


    這各方式可以
      不過我想問一下如果最近一次不是在最後一欄
      這種方式要如何改?