[發問] 請問如何計算連續出現次數?

eric866

A1             B1             C1            D1            E1            F1            G1            H1           I1             J1              K1          L1

-1           -685      -855       -2970     -2224      -1800      1258     -1710     -426          +?            +?             -?

如上~最右欄是最新資料   等於有連2欄是負值  統計結果是-2 ; 如果以後再加入連2欄正值  會自動統計變成2  ; 如果再加入1欄負值  又會自動統計變為-1
請問公式要如何寫?  謝謝!

棋語鳥鳴

回復 1# eric866


    看不太懂您的意思!不知有沒有範例可看!

eric866

回復 2# 棋語鳥鳴


  您好~ 已上傳了  我是要算連續幾日  不知D行的函數要如何寫? 新增Microsoft Excel 工作表.rar (48.68 KB)

下載次數: 65

2011-8-4 22:25

oobird

回復 3# eric866


    這個滿傷腦筋的，用自訂函數吧。

1. Function Calculat(rng As Range) As Double
   
2. 
   
3. a = rng.Cells.Count
   
4. 
   
5. If rng(a) > 0 Then
   
6. 
   
7. Calculat = 1
   
8. 
   
9. Do
   
10. 
    
11. a = a - 1
    
12. 
    
13. If rng(a) > 0 Then Calculat = Calculat + 1
    
14. 
    
15. Loop Until rng(a) < 0 Or a = 1
    
16. 
    
17. Else
    
18. 
    
19. Calculat = -1
    
20. 
    
21. Do
    
22. 
    
23. a = a - 1
    
24. 
    
25. If rng(a) < 0 Then Calculat = Calculat - 1
    
26. 
    
27. Loop Until rng(a) > 0 or a=1
    
28. 
    
29. End If
    
30. 
    
31. End Function

複製代碼

下載 (91.72 KB)

2011-8-4 23:14

Hsieh

回復 3# eric866

D2陣列公式
=(12-MAX(IF(SIGN($E2:$L2)<>SIGN($L2),COLUMN($E2:$L2))))*SIGN($L2)
向下複製

eric866

回復  eric866


    這個滿傷腦筋的，用自訂函數吧。
oobird 發表於 2011-8-4 23:14

謝謝oobird的解答  我看你已經用好了  可是我不太會用
請問這個VBA是貼在VB編輯器裡的外資 來源 還是THISWORKBOOK呢?  我3個都貼  然後D2填上=CALCULAT(E2:L2)  會顯示出#NAME?ㄋㄟ

eric866

回復 5# Hsieh


    您好~ 謝謝Hsieh 大的解答!  我把你的陣列公式貼到D2  結果會顯示#VALUEㄋㄟ  不知道是那裡出了問題?  我EXCEL剛學沒多久而已

Hsieh

回復 7# eric866
OOBIRD版大的程式碼要放在一般模組內才能使用

公式必須使用CTRL+SHIFT+ENTER輸入
新手請先將置頂精華文章閱讀
新手必讀

oobird

回復 6# eric866


   

下載 (43.07 KB)

2011-8-4 23:47

eric866

耶 兩種方法都可以耶   真的很感謝Hsieh及oobird 的抽空教導  謝謝 !