如何配置excel表格亮度

1.excel填充底色的问题:怎么配置为25%亮度

可以通过插入艺术字的方法来实现：

插入艺术字，先不管巨细和位置，右击——配置形状和名目，填充——纯色填充，选择你喜欢的颜色；透明度：25%（发起75%阁下，如图，不然颜色太浓）；线条，选择无线条。然后删除默认的文字，当鼠标在图片上呈现四个箭头时，按住它把图片移动到符合的位置，再拖动边或角上的拉伸柄调解巨细，也可通过拉伸柄调解位置。直到满足的结果。

因为有HSL颜色，而Excel配置后读取的颜色只是RGB颜色，所以要写VBA用来做两种颜色暗示的换算。

下面代码放在 VBA模块中，利用方式及要求： 1. 亮度放在第三行（就像你的图上暗示的） 2. 最开始的颜色统一放在D列，上图一会是D一会是E列，这样欠好，要放一列上 3. 先选中G4~AM4，视图——查察宏——选中SetColor——执行 4. 再向下选中下一行G5~AM5，……同上执行，每次只选中1行的单位格。 假如行数太多，也可以改一下代码，全部选中可以一次都执行完。

'================================ ' 颜色转换算法 ' RGB2HSL ' HSL2RGB ' '================================ Private Type HSL H As Double ' 0-360 S As Double ' 0-1 L As Double ' 0-1 End Type Private Type Colour R As Double ' 0-1 G As Double ' 0-1 B As Double ' 0-1 End Type ' Calculate HSL from RGB ' Hue is in degrees ' Lightness is between 0 and 1 ' Saturation is between 0 and 1 Private Function RGB2HSL(C1 As Colour) As HSL Dim themin As Double, themax As Double, delta As Double Dim c2 As HSL themin = MinD(C1.R, MinD(C1.G, C1.B)) themax = MaxD(C1.R, MaxD(C1.G, C1.B)) delta = themax - themin c2.L = (themin + themax) / 2 c2.S = 0 If ((c2.L > 0) And (c2.L < 1)) Then If (c2.L < 0.5) Then c2.S = delta / (2 * c2.L) Else c2.S = delta / (2 - 2 * c2.L) End If End If c2.H = 0 If (delta > 0) Then If ((themax = C1.R) And (themax C1.G)) Then _ c2.H = c2.H + (C1.G - C1.B) / delta If ((themax = C1.G) And (themax C1.B)) Then _ c2.H = c2.H + (2 + (C1.B - C1.R) / delta) If ((themax = C1.B) And (themax C1.R)) Then _ c2.H = c2.H + (4 + (C1.R - C1.G) / delta) c2.H = c2.H * 60 End If RGB2HSL = c2 End Function ' Calculate RGB from HSL, reverse of RGB2HSL() ' Hue is in degrees ' Lightness is between 0 and 1 ' Saturation is between 0 and 1 Private Function HSL2RGB(C1 As HSL) As Colour Dim c2 As Colour, sat As Colour, ctmp As Colour Do While (C1.H < 0) C1.H = C1.H + 360 Loop Do While (C1.H > 360) C1.H = C1.H - 360 Loop If (C1.H < 120) Then sat.R = (120 - C1.H) / 60 sat.G = C1.H / 60 sat.B = 0 ElseIf (C1.H < 240) Then sat.R = 0 sat.G = (240 - C1.H) / 60 sat.B = (C1.H - 120) / 60 Else sat.R = (C1.H - 240) / 60 sat.G = 0 sat.B = (360 - C1.H) / 60 End If sat.R = MinD(sat.R, 1) sat.G = MinD(sat.G, 1) sat.B = MinD(sat.B, 1) ctmp.R = 2 * C1.S * sat.R + (1 - C1.S) ctmp.G = 2 * C1.S * sat.G + (1 - C1.S) ctmp.B = 2 * C1.S * sat.B + (1 - C1.S) If (C1.L < 0.5) Then c2.R = C1.L * ctmp.R c2.G = C1.L * ctmp.G c2.B = C1.L * ctmp.B Else c2.R = (1 - C1.L) * ctmp.R + 2 * C1.L - 1 c2.G = (1 - C1.L) * ctmp.G + 2 * C1.L - 1 c2.B = (1 - C1.L) * ctmp.B + 2 * C1.L - 1 End If HSL2RGB = c2 End Function Private Function MinD(ByVal inA As Double, ByVal inB As Double) As Double If (inA < inB) Then MinD = inA Else MinD = inB End Function Private Function MaxD(ByVal inA As Double, ByVal inB As Double) As Double If (inA > inB) Then MaxD = inA Else MaxD = inB End Function Function NewColour(aR As Double, aG As Double, aB As Double) As Colour With NewColour .R = aR .G = aG .B = aB End With End Function Sub SetColor（) '从单位格orgRange获取颜色值，转换为Excel中的HSL颜色 '取个中的H和S数值，L数值来自Excel中第三行的指定 ' Dim iRng As Range Set orgRange = ActiveSheet.Range("D" & Selection.Row) Dim rgbColor As Colour, hslColor As HSL Dim H As Integer, S As Integer, L As Double Dim orgColor As Long, newColor As Long orgColor = orgRange.Interior.Color rgbColor = NewColour((orgColor Mod 256) / 255, ((orgColor \ 256) Mod 256) / 255, (orgColor \ 256 \ 256) / 255) hslColor = RGB2HSL(rgbColor) For Each iRng In Selection hslColor.L = ActiveSheet.Cells(3, iRng.Column).Value / 255 '变动HSL颜色中的亮度变量 '出产新的颜色值 rgbColor = HSL2RGB(hslColor) newColor = RGB(CLng(rgbColor.R * &HFF), CLng(rgbColor.G * &HFF), CLng(rgbColor.B * &HFF)) iRng.Interior.Color = newColor Next End Sub。

配置计较机配景致影响EXCEL

# 判别率 1024*768 ;

# 颜色32位；

# 液晶屏幕刷新75赫兹；纯平显示器，刷新85赫兹；

# 液晶比拟度70；纯平显示器80;

# 亮度70;

# 把白色的窗口酿成淡淡的苹果绿，对眼睛较好：在桌面点右键，依次选择：属性-外观-高级，在[项目]中选[窗口]，然后在其[颜色]中选择[其它]，配置其色调为85，抖客教程网，饱和度为90，亮度为205