帖子: 59
主題: 10
精華: 0
積分: 70
點名: 0
作業系統: XP
軟體版本: 0FFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2019-1-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-4 19:11 | 只看該作者

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

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
請問公式要如何寫?  謝謝!

樓主熱帖

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

2^#

發表於 2011-8-4 20:56 | 只看該作者

回復 1# eric866

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

TOP

eric866

中學生 Rank: 2

帖子: 59
主題: 10
精華: 0
積分: 70
點名: 0
作業系統: XP
軟體版本: 0FFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2019-1-10

3^#

發表於 2011-8-4 22:28 | 只看該作者

回復 2# 棋語鳥鳴

您好~ 已上傳了我是要算連續幾日不知D行的函數要如何寫?

新增Microsoft Excel 工作表.rar (48.68 KB)

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-8-4 23:14 | 只看該作者

本帖最後由 oobird 於 2011-8-4 23:23 編輯

回復 3# eric866

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

Function Calculat(rng As Range) As Double
a = rng.Cells.Count
If rng(a) > 0 Then
Calculat = 1
Do
a = a - 1
If rng(a) > 0 Then Calculat = Calculat + 1
Loop Until rng(a) < 0 Or a = 1
Else
Calculat = -1
Do
a = a - 1
If rng(a) < 0 Then Calculat = Calculat - 1
Loop Until rng(a) > 0 or a=1
End If
End Function

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-8-4 23:20 | 只看該作者

回復 3# eric866

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

學海無涯_不恥下問

TOP

eric866

中學生 Rank: 2

帖子: 59
主題: 10
精華: 0
積分: 70
點名: 0
作業系統: XP
軟體版本: 0FFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2019-1-10

6^#

發表於 2011-8-4 23:35 | 只看該作者

回復 eric866

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

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

TOP

eric866

中學生 Rank: 2

帖子: 59
主題: 10
精華: 0
積分: 70
點名: 0
作業系統: XP
軟體版本: 0FFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2019-1-10

7^#

發表於 2011-8-4 23:43 | 只看該作者

回復 5# Hsieh

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 248
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-16

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-8-4 23:46 | 只看該作者