12
返回列表 上一主題 發帖

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

藍天麗池

帖子
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大感謝

TOP

ui123

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

論壇榮譽勳章論壇贊助勳章
12#
發表於 2013-10-29 19:50 | 只看該作者
感謝   前輩提供~看過受益良多!!!

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
12
返回列表 上一主題