請各位前輩幫忙檢查此程式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請各位前輩幫忙檢查此程式

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

[發問] 請各位前輩幫忙檢查此程式

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-7-13 14:29 | 顯示全部帖子

回復 2# graysurf

應該是寫入Cells(100, 2)時，速度變慢的關係
可以改成下列代碼執行速度也會加快很多，試試看！

Sub 巨集1()
For j = 1 To 91
For i = 1 To 58
If Cells(j + 0, i + 0).Interior.ColorIndex = Cells(1, 1).Interior.ColorIndex Then
A = A & "."
ElseIf Cells(j, i).Interior.ColorIndex = Cells(1, 2).Interior.ColorIndex Then
A = A & "A"
Else
A = A & "X"
End If
Next
A = A & Chr(10)
Next
Cells(100, 2) = A
MsgBox "OK"
End Sub

複製代碼

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

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