中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

VBA中一些顏色相關(guān)的對象，十分豐富，如果是設(shè)計(jì)一下美觀的工作表，那么對于這些對象就不得不進(jìn)行一翻認(rèn)真了解了。

本文講一下，關(guān)于如何根據(jù)單元格數(shù)據(jù)，設(shè)置區(qū)分不同顏色的方法，很有用。

實(shí)際上這個(gè)示例應(yīng)用于某些工作表當(dāng)中的一些相關(guān)數(shù)據(jù)，因?yàn)橐鶕?jù)不同數(shù)據(jù)顯示不同的背景顏色，這樣就有利于對工作表數(shù)據(jù)的一個(gè)判斷。

一般數(shù)據(jù)背后表達(dá)的含義是一個(gè)十分抽象的內(nèi)容，通過顏色來區(qū)分，這些抽象的數(shù)據(jù)就有一個(gè)更加明顯的意義。

下圖為本文示例將會用到的一些對象，以及其實(shí)際指代的含義。

我們用到的一個(gè)重要對象為ColorScale。

其代表色階條件格式規(guī)則。

也就是說根據(jù)一些規(guī)則來定義單元格顏色。

如何得到這個(gè)對象？

可以通過FormatConditions.AddColorScale方法來新建并返回一個(gè)ColorScale對象。

ColorScale對象的方法和屬性

通過代碼來具體學(xué)習(xí)一下：

Sub CreateColorScalObject()

Dim R As Range, i As Integer

Dim xColorScale As ColorScale

Set R = ActiveSheet.Range("C3:F15")

R.Clear

'定義 設(shè)置顏色區(qū)域 并添加數(shù)據(jù)

With R

For i = 1 To R.Columns.Count

.Cells(1, i).Value = 50

.Cells(2, i).Value = 51

Next i

' .Item(2).Value = 61

.Item(1).Resize(2, 4).AutoFill Destination:=R

End With

R.Select

'新建一個(gè) ColorScale 對象 三色條件

Set xColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=3)

'設(shè)置顏色條件格式

xColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0) '紅色

xColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(255, 20, 255) '粉色

xColorScale.ColorScaleCriteria(3).FormatColor.Color = RGB(255, 255, 0) '黃色

End Sub

上述代碼實(shí)現(xiàn)了根據(jù)單元格值三色過渡效果，修改ColorScaleType:=3值為2，就可以實(shí)現(xiàn)雙色格式，應(yīng)用中可以進(jìn)行一個(gè)調(diào)試。

顏色運(yùn)用得當(dāng)對于工作表整體的可讀性將是一個(gè)重大的提高，所以，最好把相關(guān)技巧進(jìn)行熟練應(yīng)用，那么會得到一個(gè)不錯(cuò)的體驗(yàn)。