我有个excel工作薄里有10个工作表我想把其中的部分单元格字体变成红色或单元格填充颜色
我有个excel工作薄里有10个工作表，我想把其中的部分单元格字体变成红色。
浏览次数：28次悬赏分：5 |离问题结束还有11 天19 小时|提问者：
我有个工作薄里有10个工作表，我想把每个表中几个的数据变成红色字体。
这10个表的格式都是一样的，而且只有N8、N9、H8是我要变成红色的字体，用复制粘贴的方法太烦了，而且往后还有很多这类的数据，所以请高手指点一下，看用VBA能不能实现呢？如果有不清楚的地方请指出，我会马上解释的。
急急急，在线等！~
Sub macro()
Dim i
i = 1
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Range("n8").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("n9").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("h8").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
追问
.TintAndShade = 0
End With
Range("n9").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
出现运行时438错误，对象不支持该属性或方法。
非常感谢你帮助。
回答
无语……我在自己电脑上运行过的，07是可以的。
不过我得承认这
句.TintAndShade = 0是电脑生成的。
如果在这句出错的话，可以删除它，因为变红色的语句是：.Color = -16776961 我整理一下，你再试试：
Sub macro()
Dim i
i = 1
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Range("n8,n9,h8").Select
With Selection.Font
.Color = -16776961
End With
Next i
Worksheets(1).Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
单元格填充颜色
Sub macro()
Dim i
i = 1
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Range("c7,d7,c9,d9,c11,d11,c15,d15,c17,d17,c19,d19,n10,n11,g16,g17,h13, h14,h15,h16,h17,f20,f21,f22,n30").Select
With Selection.Interior
.ColorIndex = 9
End With
Next i
Worksheets(1).Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub。
Excel中怎么设置字体颜色和背景颜色
Excel中怎么设置字体颜色和背景颜色
很多网友不知道怎么在Excel中设置字体颜色和背景颜色，下面是店铺给大家整理的一些有关Excel中设置字体颜色和背景颜色的方法，希望对大家有帮助!
Excel中设置字体颜色和背景颜色的方法
制作或打开你需要编辑的文档，文字及格式不限。
用鼠标选择你需要改变颜色的文字，可以是一段文字也可以是一段文字中的其中某个字，再点击工具栏上的“开始”→“字体颜色”
在字体颜色的下拉框中，我们可以看到里面有许多种颜色可供选择，点击你最喜欢的颜色。
就可以看到如下图的效果(是不是好看多了)：选择你想要增加背景颜色的单元格：A1--F3,可以是连在一起的单元格也可以是分散的单元格，再点击工具栏上的“开始”→“填充颜色”
在填充颜色的下拉框中，我们可以看到里面有许多种颜色可供选择，点击你最喜欢的颜色。
就可以看到如下图的效果(是不是锦上添花了)：
END。
Excel下拉选项选择字体变色
Excel下拉选项选择变色
设置下拉选项
1.选择设置下拉选项单元格，点击菜单—数据—有效性
2.在【有效性】窗体—设置（选项卡）—有效性条件下拉框内选择序列
3.在【来源】控件内录入下拉选项：pass,failed（说明：选项必须要用英文逗号隔开）
4.选项录入完，点击【确定】下拉选项添加完成
下拉选项根据选择选项不同，对应选项字体颜色变化
1.选中下拉框单元格，点击菜单—开始—条件格式—突出显示单元格规则—文本包含
打开文本包含窗体
2.在设置为下拉选项内选择：自定义格式选项会打开设置单元格式窗体
3.在设置单元格式—字体—颜色设置颜色、字形等
4.设置好，单击确定
5.在文本包含窗体录入要设置字体颜色的选项，确定
6.回到sheet表，选择下拉选项，根据设置选项字体色不同，选择显示的颜色就不同
下拉选项选择后单元格变色
1.选中下拉框单元格，点击菜单—开始—条件格式—突出显示单元格规则—文本包含
2.打开文本包含窗体
在设置为下拉选项内选择设置单元格背色
录入选项内容，点击确定就能达到效果。
excel字体变红的函数
excel字体变红的函数摘要：1.函数背景2.函数介绍3.函数使用方法4.函数应用案例5.总结正文：【1.函数背景】在日常的Excel 数据处理过程中，我们可能需要对某些特定单元格的字体颜色进行设置。
为了方便地实现这一需求，Excel 提供了一个名为“字体颜色”的函数，可以根据设定的条件自动将单元格的字体颜色设置为红色。
【2.函数介绍】要实现字体变红的函数，我们可以使用IF 函数结合字体颜色函数，即：`=IF(条件，字体颜色，默认颜色)`其中，条件是用来判断的逻辑表达式，如果条件成立，则单元格的字体颜色将设置为红色；否则，将保持默认颜色。
【3.函数使用方法】使用该函数的具体步骤如下：1) 确定需要设置字体颜色的单元格范围；2) 在Excel 的函数库中，找到IF 函数；3) 将需要判断的条件和红色字体颜色值分别作为IF 函数的第一个参数和第三个参数；4) 将默认颜色设置为需要的结果，作为IF 函数的第二个参数。
例如，如果A1 单元格的值大于100，则将A1 单元格的字体颜色设置为红色，否则保持默认颜色。
可以使用以下公式：`=IF(A1>100, RGB(255, 0, 0), "")`【4.函数应用案例】假设有一个班级成绩表，我们想要将成绩低于60 分的学生的姓名显示为红色。
可以按照以下步骤操作：1) 选中需要设置字体颜色的单元格范围，例如B2:B10；2) 在Excel 的函数库中，找到IF 函数；3) 将成绩低于60 分的学生作为需要判断的条件，即`B2:B10<60`；4) 将红色字体颜色值RGB(255, 0, 0) 作为IF 函数的第三个参数；5) 将默认颜色设置为空字符串，作为IF 函数的第二个参数。
【5.总结】通过使用Excel 的IF 函数结合字体颜色函数，我们可以轻松地实现对特定单元格字体颜色的设置。
excel单元格满足条件时对应的一行变色
excel单元格满足条件时对应的一行变色Excel是一种广泛应用的电子表格软件，它能够进行数据分析和处理，并且具有强大的计算功能。
在Excel中，我们经常需要根据某个条件对单元格或一组单元格进行特殊的格式设置，以便更好地显示和分析数据。
其中一种常见的需求是根据某个条件使满足条件的单元格所在的一整行变色。
下面我将介绍如何在Excel中实现这个需求。
在Excel中，我们可以通过使用条件格式化功能来对单元格进行特殊格式的设置。
条件格式化可以根据你事先设定的一些条件来自动对单元格进行格式设置。
在我们的需求中，我们可以将满足条件的单元格所在的一行视为一个区域，然后对这个区域进行条件格式化，使其呈现出我们想要的颜色。
首先，打开Excel并导入需要进行条件格式化的数据。
假设我们的数据是一个学生成绩表，包含学生的姓名、科目和考试成绩。
我们的需求是根据某个条件（例如考试成绩大于90分）来使满足条件的学生所在的一整行变色。
接下来，选中需要进行条件格式化的区域。
在我们的例子中，我们可以选中整个成绩表格。
然后点击Excel的菜单中的“开始”选项卡，找到“条件格式化”选项，点击下拉菜单中的“新建规则”。
在弹出的“新建格式规则”对话框中，选择“使用公式确定要设置格式的单元格”。
在“格式值”框中输入我们的条件，例如“=C2>90”（假设成绩所在的列是C列，第二行开始是数据区域）。
这个条件表示如果C列的值大于90，则满足条件。
接下来，点击“设置格式”按钮，打开“设置格式”对话框。
在这个对话框中，我们可以对满足条件的单元格进行格式设置，例如改变字体颜色、填充颜色等。
在我们的例子中，我们可以选择填充颜色为黄色。
然后点击“确定”按钮，完成格式设置。
回到“新建格式规则”对话框，我们可以预览到满足条件的单元格的效果。
如果满意，就点击“确定”按钮，完成条件格式化的设置。
此时，我们可以看到满足条件的学生所在的一整行已经变色了。
此外，如果我们编辑了数据并使某个学生不再满足条件，那么相应的行会自动取消颜色设置。
ExcelVBA自动创建sheet，设置字体，单元格颜色和边框
ExcelVBA⾃动创建sheet，设置字体，单元格颜⾊和边框1Sub link()2Dim num, sheetname34 Worksheets(1).Select56 num = WorksheetFunction.CountA(Columns("c:c"))7'MsgBox num89For i = 2To num10'把第⼀个sheet中第3列第i⾏单元格的值赋值给sheetname，作为后⾯创建sheet时的名称11 sheetname = VBA.UCase(Trim(Sheets(1).Cells(i, 3)))1213'⽤单元格的值作为sheet名创建sheet14On Error Resume Next15 Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = sheetname1617'在新建的sheet中，给A1单元格输⼊“返回”字符串18 Sheets(sheetname).Cells(1, 1) = "返回"1920'将新建的sheet中，返回字符串所在单元格创建链接，链接地址是第⼀个sheet中第3列，第i⾏单元格21 Sheets(sheetname).Hyperlinks.Add Anchor:=Sheets(sheetname).Cells(1, 1), Address:="", SubAddress:="汇总!C" & i 2223'在新建的sheet中添加固定格式24 Sheets(sheetname).Cells(2, 1) = Trim(Sheets(1).Cells(i, 1)) + ".1 表" + sheetname25 Sheets(sheetname).Cells(2, 1).Font.FontStyle = "加粗"2627 Sheets(sheetname).Cells(3, 1) = Trim(Sheets(1).Cells(i, 1)) + ".1.1 表" + sheetname + "的卡⽚"28 Sheets(sheetname).Cells(3, 1).Font.FontStyle = "加粗"2930 Sheets(sheetname).Cells(4, 1) = "名称"31 Sheets(sheetname).Cells(4, 1).Interior.Color = RGB(153, 204, 255)32 Sheets(sheetname).Cells(4, 1).Font.FontStyle = "加粗"33 Sheets(sheetname).Cells(4, 1).Borders.LineStyle = xlContinuous3435 Sheets(sheetname).Cells(4, 2) = VBA.UCase(Trim(Sheets(1).Cells(i, 2)))36 Sheets(sheetname).Cells(4, 2).Interior.Color = RGB(255, 255, 204)37 Sheets(sheetname).Cells(4, 2).Borders.LineStyle = xlContinuous383940 Sheets(sheetname).Cells(5, 1) = "代码"41 Sheets(sheetname).Cells(5, 1).Interior.Color = RGB(153, 204, 255)42 Sheets(sheetname).Cells(5, 1).Font.FontStyle = "加粗"43 Sheets(sheetname).Cells(5, 1).Borders.LineStyle = xlContinuous444546 Sheets(sheetname).Cells(5, 2) = sheetname47 Sheets(sheetname).Cells(5, 2).Interior.Color = RGB(255, 255, 204)48 Sheets(sheetname).Cells(5, 2).Borders.LineStyle = xlContinuous495051 Sheets(sheetname).Cells(6, 1) = "注释"52 Sheets(sheetname).Cells(6, 1).Interior.Color = RGB(153, 204, 255)53 Sheets(sheetname).Cells(6, 1).Font.FontStyle = "加粗"54 Sheets(sheetname).Cells(6, 1).Borders.LineStyle = xlContinuous555657 Sheets(sheetname).Cells(6, 2) = Trim(Sheets(1).Cells(i, 4))58 Sheets(sheetname).Cells(6, 2).Interior.Color = RGB(255, 255, 204)59 Sheets(sheetname).Cells(6, 2).Borders.LineStyle = xlContinuous606162 Sheets(sheetname).Cells(8, 1) = Trim(Sheets(1).Cells(i, 1)) + ".1.2 表" + sheetname + "的字段清单"63 Sheets(sheetname).Cells(8, 1).Font.FontStyle = "加粗"6465 Sheets(sheetname).Cells(9, 1) = "名称"66 Sheets(sheetname).Cells(9, 1).Interior.Color = RGB(153, 204, 255)67 Sheets(sheetname).Cells(9, 1).Font.FontStyle = "加粗"68 Sheets(sheetname).Cells(9, 1).Borders.LineStyle = xlContinuous6970 Sheets(sheetname).Cells(9, 2) = "代码"71 Sheets(sheetname).Cells(9, 2).Interior.Color = RGB(153, 204, 255)72 Sheets(sheetname).Cells(9, 2).Font.FontStyle = "加粗"73 Sheets(sheetname).Cells(9, 2).Borders.LineStyle = xlContinuous7475 Sheets(sheetname).Cells(9, 3) = "注释"76 Sheets(sheetname).Cells(9, 3).Interior.Color = RGB(153, 204, 255)77 Sheets(sheetname).Cells(9, 3).Font.FontStyle = "加粗"78 Sheets(sheetname).Cells(9, 3).Borders.LineStyle = xlContinuous7980 Sheets(sheetname).Cells(9, 4) = "类型"81 Sheets(sheetname).Cells(9, 4).Interior.Color = RGB(153, 204, 255)82 Sheets(sheetname).Cells(9, 4).Font.FontStyle = "加粗"83 Sheets(sheetname).Cells(9, 4).Borders.LineStyle = xlContinuous8485 Sheets(sheetname).Cells(9, 5) = "能否为空"86 Sheets(sheetname).Cells(9, 5).Interior.Color = RGB(153, 204, 255)87 Sheets(sheetname).Cells(9, 5).Font.FontStyle = "加粗"88 Sheets(sheetname).Cells(9, 5).Borders.LineStyle = xlContinuous8990 Sheets(sheetname).Cells(9, 6) = "默认值"91 Sheets(sheetname).Cells(9, 6).Interior.Color = RGB(153, 204, 255)92 Sheets(sheetname).Cells(9, 6).Font.FontStyle = "加粗"93 Sheets(sheetname).Cells(9, 6).Borders.LineStyle = xlContinuous949596'MsgBox """" & sheetname & "!A2"""97'MsgBox Sheets(1).Cells(i, 3)9899'在第⼀个sheet中第3列，第i⾏添加链接，链接地址是第i个sheet的A1单元格100 Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Cells(i, 3), Address:="", SubAddress:=sheetname & "!A1" 101102Next103104End Sub。
excel表格名称字体修改
竭诚为您提供优质文档/双击可除excel表格名称字体修改篇一：excel中某个单元格内文字行间距调整方法十一、excel中某个单元格内文字行间距调整方法。
当某个单元格内有大量文字时，很多人都觉得很难将其行间距按自己的要求进行调整。
现介绍一种方法可以让你任意调整单元格内文字的行间距：右击单元格,点"设置单元格格式"->"对齐",将"水平对齐"选择"靠左",将"垂直对齐"选择"分散对齐",选中"自动换行"，点“确定”。
你再用鼠标将行高根据你要求的行距调整到适当高度即可。
注：绿色内容为关键点，很多人就是这一点设置不对而无法调整行间距。
十二、如何在excel中引用当前工作表名如果你的工作薄已经保存,下面公式可以得到单元格所在工作表名:=Right(cell("filename"),len(cell("filename"))-Fi nd("]",cell("filename")))十三、相同格式多工作表汇总求和方法假定同一工作薄有sheet1至sheet100共100个相同格式的工作表需要汇总求和，结果放在sheet101工作表中，请在sheet101的a1单元格输入：=sum(单击sheet1标签，按住shift键并单击sheet100标签，单击a1单元格，再输入：）此时公式看上去内容如下：=sum(sheet1:sheet100!a1)按回车后公式变为=sum(sheet1:sheet100!a1)所以，最简单快捷的方法就是在sheet101的a1单元格直接输入公式：=sum(sheet1:sheet100!a1)然后按回车。
十四、如何判断单元格里是否包含指定文本？假定对a1单元格进行判断有无"指定文本",以下任一公式均可:=iF(countiF(a1,"*"",Row(e$2:e$10000)))),indiRect("e $2:e$"&max(iF(e$2:e$10000"",Row(e$2:e$10000)))))))+1公式以ctrl+shift+enter三键结束。
Excel中怎么修改工作簿颜色
Excel中怎么修改工作簿颜色
工作中需要在Excel表格中打开多个工作簿，有时候工作簿多了，比较难以记住工作簿的内容，如果给工作簿添加颜色，那些重要的工作簿就可以一眼区分。以下是店铺为您带来的关于Excel修改工作簿颜色，，单击鼠标右键，选择工作标签颜色-其他颜色。
2、在“颜色”对话框中，点击“自定义”，选中深蓝色，单击“确定”按钮。
现在可以看到Sheet1工作簿颜色变为深蓝色了。
excel表格内颜色怎么设置
excel表格内颜色怎么设置
对于初学办公软件的人来说，设置字体的种类、大小、粗体、斜体等就是最基础的了。
下面让店铺为你带来excel表格内颜色设置的方法。
excel表格内颜色设置步骤：
1、打开一个Excel电子表格，制作表格，输入相关内容。
2、选中需要设置的单元格，点击工具栏中的颜色选择按钮，在颜色模块里选择自己喜欢或适合的颜色，点击即可设置成功。
3、点击工具栏中“B”“I" "U"按钮进行加粗、斜线和加下划线的处理。
4、设置字号的大小，点击工具栏中的”字号“设置按钮，点击相应数字即可设置。
5、还可以进行字体增大和减小处理。
6、如果是跳动单元格处理相同的设置，还可以利用”格式刷“进行设置。
利用格式刷后前后两个单元格设置一模一样。
方法：点击你想设置的单元格。
如A3。
点击”格式刷“。
选择你需要设置的单元格。
如A10
7、另外设置可以在”设置单元格格式“中的”字体“中进行设置。
excel表格怎么设置单元格条件变色
excel表格怎么设置单元格条件变色
在使用excel的时候，有时候我们需要对一些特殊的的数据进行特殊处理，例如让其变红，在EXCEL中让一个单元格变成红色需要用到条件格式，那怎么用Excel的公式条件进行条件格式设定呢，下面给大家分享excel设置单元格变色的方法吧。
excel设置单元格变色的方法
1.将语文成绩小于60分的单元格自动报红
1)选中B2：B6区域，点击【格式】，选择【条件格式】
2)进入条件格式对话框，选择【单元格数值】，条件选择【小于】，数值输入60
3)点击【条件格式】中的【格式】，在弹出的【单元格格式】对话框中选择【图案】为粉红色
4)点击确定，条件格式完成，得到效果如下
2.将语文和数学成绩都小于70的学生姓名单元格报红
1)选中A2：A6区域，点击【格式】，选择【条件格式】
2)进入条件格式对话框，选择【公式】，输入公式=AND(B2<70，C2<70)
3)点击【条件格式】中的【格式】，在弹出的【单元格格式】对话框中选择【图案】为粉红色
4)点击确定，条件格式完成，得到效果如下
当然公式的设定还有其他许多，在实际中你可以根据自己的需要设置公式条件进行条件设置。
if函数条件改变字体颜色
if函数条件改变字体颜色
如果你想在Excel中使用if函数，并且希望条件成立时自动改变单元格字体颜色，可以按照以下步骤：
1. 选中要使用if函数的单元格。
2. 在公式栏中输入if函数，如：=if(A1>10,'大于10','小于等于10')。
3. 在条件成立时需要改变字体颜色的单元格中，右键选择“条件格式”，或者在“开始”选项卡中点击“条件格式”按钮。
4. 在弹出的条件格式窗口中，选择“新建规则”。
5. 在新建规则窗口中，选择“使用公式确定要格式化的单元格”。
6. 在“格式值是”下方的文本框中输入if函数的条件，如：
=A1>10。
7. 点击“格式”按钮，选择要改变的字体颜色，并点击“确定”。
8. 点击“确定”按钮，完成条件格式的设置。
这样，当if函数的条件成立时，所在单元格的字体颜色就会自动改变。
- 1 -。