麻辣家族討論版版 » Excel程式區 » 請問版上大大，這個要怎麼寫VBA

返回列表下一主題上一主題發帖

請問版上大大，這個要怎麼寫VBA

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-10-24 15:50 | 只看該作者

請問版上大大，這個要怎麼寫VBA

A B C D E F G
08:45:00 7701 7703 7703 5 1 5
08:45:00 7701 7703 7701 -1 0 -1
08:45:00 7701 7703 7703 2 1 2
08:45:00 7701 7703 7701 -4 0
08:45:00 7701 7703 7701 -1 0 -5(-4+ -1)
08:45:00 7701 7703 7703 5 1 5
08:45:00 7701 7703 7701 -1 0 -1
08:45:01 7701 7702 7702 1 1
08:45:01 7701 7703 7703 2 1 3(1+2)
08:45:01 7701 7702 7701 -1 0
08:45:01 7701 7702 7701 -3 0
08:45:01 7701 7702 7701 -1 0
08:45:01 7701 7702 7701 -1 0 -6(-1+(-3)+(-1)+(-1))
08:45:01 7701 7702 7702 3 1
08:45:01 7701 7703 7703 7 1
08:45:01 7701 7703 7703 1 1
08:45:01 7701 7703 7703 10 1
08:45:01 7701 7704 7704 5 1
08:45:01 7701 7705 7705 15 1
08:45:01 7701 7704 7704 1 1
08:45:01 7701 7704 7704 2 1
08:45:01 7703 7705 7705 2 1
08:45:02 7703 7705 7705 1 1 47(3+7+1+10+5+15+1+2+2+1)
08:45:02 7703 7705 7703 -3 0
08:45:02 7703 7705 7703 -3 0
08:45:02 7703 7705 7703 -6 0
08:45:02 7703 7705 7703 -5 0
08:45:02 7703 7705 7703 -1 0
08:45:02 7703 7705 7703 -3 0
08:45:02 7702 7705 7702 -6 0
08:45:02 7701 7705 7701 -1 0 -28(-3+(-3)+(-6)+(-5)+(-1)+(-3)+(-6)+(-1))

以上是資料格式，F欄是判別E欄是正值還是負值，正值為1負值為0，請問版上大大如果我要G欄顯示E欄的值VBA要怎麼寫，
簡單的說就是判別正負，連續一樣的就相加，遇到相反的就獨立顯示

樓主熱帖

收藏

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

13^#

發表於 2024-1-12 14:22 | 只看該作者

本帖最後由 Andy2483 於 2024-1-12 14:25 編輯

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教
執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, V%, V1%, V2%, i&, N&
Brr = Range([E1], Cells(Rows.Count, "E").End(3)(2))
N = UBound(Brr) - 1
For i = 2 To N
V1 = Val(Brr(i, 1))
V2 = Val(Brr(i + 1, 1))
Brr(i - 1, 1) = ""
V = V + V1
If V1 * V2 > 0 Then GoTo i01
Brr(i - 1, 1) = V: V = 0
i01: Next
[H2].Resize(N - 1, 1) = Brr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

12^#

發表於 2013-10-29 19:50 | 只看該作者

感謝前輩提供~看過受益良多!!!

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

11^#

發表於 2013-10-28 20:06 | 只看該作者

回復 9# GBKEE

G大感謝

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

10^#

發表於 2013-10-28 20:06 | 只看該作者

回復 8# c_c_lai

感謝大大為小弟解惑

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-10-28 16:49 | 只看該作者

回復 8# c_c_lai
沒想到有這錯誤點,感謝修正

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2013-10-28 07:26 | 只看該作者

本帖最後由 c_c_lai 於 2013-10-28 07:32 編輯

回復 7# 藍天麗池
不執行的原因出自在 [F1] 為空白，而且 i 之初使設定值為 1，所以 Do While 一開始便未能執行：(修改成 i = 2)

Dim i As Integer, t As Integer
i = 1
With ActiveSheet '指定工作表: ActiveSheet->作用中的工作表
Do While .Cells(i, "F") <> ""

複製代碼

同時，你的資料錄共計有 58559 列，i 型態宣告為整數，所以會產生值的溢位訊息。
所以原本的 i As Integer 改成 i As Long (長整數)，另外 Loop Until Cells(i - 1, "F") <> Cells(i, "F")

Do
t = t + Cells(i, "e")
i = i + 1
Loop Until Cells(i - 1, "F") <> Cells(i, "F")

複製代碼

在執行到最後時會產生 1004 的錯誤訊息，所以稍稍修改成如下：

Sub Ex()
Dim i As Long, t As Integer
i = 2
With Sheets(1) ' 指定工作表: ActiveSheet->作用中的工作表
Do
t = 0
Do
t = t + .Cells(i, "e")
i = i + 1
Loop Until .Cells(i - 1, "F") <> .Cells(i, "F") Or .Cells(i, "F") = ""
.Cells(i - 1, "g") = t
Loop Until i > 2 And .Cells(i, "F") = ""
End With
End Sub

複製代碼

這也是 GBKEE 版大要你附上檔案的緣故，因為無檔案提供實作測試，
一般只能天馬行空，(想像中) 做概略的分析解說了！

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2013-10-27 21:14 | 只看該作者

回復 6# GBKEE

Book1.rar (126.92 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-10-27 15:29 | 只看該作者

回復 5# 藍天麗池
請上傳檔案看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2013-10-27 15:25 | 只看該作者

回復 4# GBKEE

還是沒反應ㄟ，G大你指的反應它會自己跳出數字嗎??

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題