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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-7-13 11:28 | 顯示全部帖子

請各位高手協助確認此程式, 小弟我很菜

需求做一個map圖會在cell(100.2)執行出來用顏色區別

分成沒東西綠色黃色三種

但有時執行不會產生問題,有時執行會擋掉機率大約1/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
Cells(100, 2).Value = Cells(100, 2).Value & "." '沒東西顯示.
Else
If Cells(j, i).Interior.ColorIndex = Cells(1, 2).Interior.ColorIndex Then
Cells(100, 2).Value = Cells(100, 2).Value & "A" '綠色填上A
Else
Cells(100, 2).Value = Cells(100, 2).Value & "X" '黃色填上X
End If
End If
Next
Cells(100, 2).Value = Cells(100, 2).Value & Chr(10) '換行
Next
MsgBox "OK"
End Sub

複製代碼

test.zip (20.95 KB)

2^#

發表於 2015-7-13 11:30 | 顯示全部帖子

修正一下,最後一句話打錯,不知是否哪邊語法有錯誤

靜思自在 : 看別人不順眼，是自己修養不夠。