麻辣家族討論版版 » Excel程式區 » 迴圈速度問題

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

[發問] 迴圈速度問題

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-14 17:41 | 只看該作者

[發問] 迴圈速度問題

大家好:
   我想請問一下:我的迴圈必須跑很久，有沒有辦法提升迴圈速度
   我的程式是利用"代號比對"取上市損益、上櫃損益、上市合併損益、上櫃合併損益的基本每股盈餘併入首頁1的第三欄
   並且區別損益與合併損益顏色

本來想用類似Range("BL" & i).Formula = "=IF(ISNA(VLOOKUP($A" & i & ",'X年'!$A$2:$E$" & x1 & ",4,FALSE)),0,VLOOKUP($A" & i & ",'X年'!$A$2:$E$" & x1 & ",4,FALSE))"
來寫程式速度應該比較快

可是我除了併入數值，還要區別顏色
所以不知道怎麼寫，所以想請一下大家如何提升速度，謝謝。

test.rar (444.46 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兔年全勤獎章

2^#

發表於 2013-4-15 18:17 | 只看該作者

回復 1# spermbank
試試看

Sub Ex()
Dim Rng(1 To 2) As Range, Sh As Worksheet
Sheets("首頁1").Range("C:C").Interior.ColorIndex = xlNone
Set Rng(1) = Sheets("首頁1").[a2]
Do While Rng(1) <> "" '執行迴圈的條件: Sheets("首頁1").的A不是空格
For Each Sh In Sheets(Array("上市損益", "上櫃損益", "上市合併損益", "上櫃合併損益"))
Set Rng(2) = Sh.Range("A:A").Find(Rng(1).Value, LOOKAT:=xlWhole) '工作表群組中A欄尋找
If Not Rng(2) Is Nothing Then
With Rng(1).Offset(, 2)
.Cells = Rng(2).Cells(1, "S")
If Sh.Name = "上市損益" Or Sh.Name = "上市合併損益" Then
.Interior.Color = vbMagenta
Else
.Interior.Color = vbCyan
End If
End With
End If
Next
Set Rng(1) = Rng(1).Offset(1) 'Sheets("首頁1").[a2]....下移
Loop
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2021-10-18

3^#

發表於 2013-4-16 19:59 | 只看該作者

回復 2# GBKEE

謝謝大大

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。

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