麻辣家族討論版版 » Excel程式區 » 儲存格格式寫法

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

[發問] 儲存格格式寫法

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-7-2 15:46 | 只看該作者

[發問] 儲存格格式寫法

我在設定儲存格格式時想要標註當數值接近整數時將儲存格填滿色彩以方便辨識
而目標儲存格為:Cells(Cdt + 2, 2)、Cells(Cdt + 2, 3)、Cells(Cdt + 2, 4)
我的寫法如下:
For Cdt=1 to 10
If Abs(Cells(Cdt + 2, 2) - Round(Cells(Cdt + 2, 2), 0)) <= 0.2 Then
Cells(Cdt + 2, 2).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 3) - Round(Cells(Cdt + 2, 3), 0)) <= 0.2 Then
Cells(Cdt + 2, 3).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 4) - Round(Cells(Cdt + 2, 4), 0)) <= 0.2 Then
Cells(Cdt + 2, 4).Interior.Color = vbYellow
End If
Next Cdt

請板上大大協助更好的寫法
謝謝

樓主熱帖

收藏

超級版主 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-7-2 16:43 | 只看該作者

回復 1# acdx

Option Explicit
Sub Ex()
Dim Cdt As Integer, E As Range
Cdt = 10
For Each E In Cells(3, 2).Resize(Cdt, 3)
If Abs(E - Round(E, 0)) <= 0.2 Then
E.Interior.Color = vbYellow
Else
E.Interior.ColorIndex = xlNone
End If
Next
End Sub

複製代碼

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

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

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