[问答]

如何改变单元格字体的COLOR和单元格底色？

864 Color

问答对人有帮助，内容完整，我也想知道答案 0 如何改变单元格字体的COLOR和单元格底色？ 0
2021-10-13 07:25:15　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × bertvwang 该类别下有 10 个回答。邀请回答纯纯纯牛奶该类别下有 10 个回答。邀请回答王伟01 该类别下有 9 个回答。邀请回答幽默该类别下有 9 个回答。邀请回答 Ehunt 该类别下有 8 个回答。邀请回答 tutu304725938 该类别下有 8 个回答。邀请回答 dahairenlyy 该类别下有 8 个回答。邀请回答凌晨3点睡该类别下有 8 个回答。邀请回答 fhbding 该类别下有 8 个回答。邀请回答 hzp_bbs1 该类别下有 8 个回答。邀请回答笔画张该类别下有 8 个回答。邀请回答偶是糕富帅该类别下有 8 个回答。邀请回答 kmno4 该类别下有 7 个回答。邀请回答 djelje 该类别下有 7 个回答。邀请回答 pingnai 该类别下有 7 个回答。邀请回答雅博电子科技该类别下有 7 个回答。邀请回答 liutiefu 该类别下有 7 个回答。邀请回答低调de炫耀爱该类别下有 7 个回答。邀请回答 jenny042 该类别下有 7 个回答。邀请回答 wenminglang 该类别下有 7 个回答。邀请回答举报 cherry1989 相关推荐 • 改变表格控件，表格一整行背景颜色字体颜色，一个单元格背景颜色字体颜色？ 13093 • 请问复制excel表格单元格后怎样让字符串输入框读取复制的单元格并写入单元格的内容 1863 • multi-listbox多列表框中如何每次只写入一个单元格的文本值 2509 • 多列列表框是否有单击选中，再次单击取消的事件，运行状态是否可以编辑单元格，改变单元格内容。 5484 • 求助，labview写入数据到Excel特定的单元格 11771 • 请问labview中怎么实现鼠标点击单元格后从该单元格写入数据后换行，再写入下一组数据 3443 • 怎样复制excel单元格以获取表格内容 3545 • Labview表格控件活动单元格输入，求大神帮忙！！！ 15381 • labview中使用表格输入数据，不知如何控制输入单元格的切换？ 4269 • 求教如何读取表格中单元格的值，多谢多谢！！！ 4938 1个回答

答案对人有帮助，有参考价值 0 这几天在做一个数据处理，文件是EXCEL格式的，本来想用PATHON或C++来做，但时间关系，本来就没有想到要做成多复杂，只是简单的做必要的数据处理。因此，使用了VBA这个工具，在网上找了一些基本的资料，边学边做。以下是一些总结的问题，希望在网友后面用到作为一些参考。改变单元格字体的COLOR和单元格底色 Workbooks(1).Sheets(“Sheet3”).Range(“1:65536”).Font.Color = RGB(0, 0, 0) Workbooks(1).Sheets(“Sheet3”).Cells(TotalRowSize + j, 7).Font.Color = RGB(255, 0, 0) rng.Offset(i, 0).Interior.Color = RGB(200, 200, 200) 可以是单元格CELL，也可以是RANG 清空表格内容 Workbooks(1).Sheets(“Sheet3”).Range(“1:65536”).ClearContents Workbooks(1).Sheets(“Sheet3”).Range(“1:65536”).Font.Color = RGB(0, 0, 0) 得到最大的行数和列数 WordMaxRows = ActiveSheet.UsedRange.Rows.Count WordMaxCols = ActiveSheet.UsedRange.Columns.Count 得到某列中最大的非空行号 CurRowSize = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row - 1 产生一个一定范围内的随机数 Application.WorksheetFunction.RandBetween(2, CurRowSize) 字符串比较 If StrComp(arrFormatSub(j), Workbooks(3).Sheets(1).Cells(1, i).Value, vbTextCompare) = 0 Then 分割字符串，按特定的符号，我这里是以+号来的。、 arrFormatSub = Split(FormatStr, “+”) 关于全局变量在表格顶部使用如下方式来定义 Option Explicit Dim PlanName As String Dim CurRowSize As Long 产生一个数据化字符串，并补零输出，类似于0X00002这种 TempStr = CStr(1000 + curRow - 9 + i) rng.Offset(i, 2).Value = MaterialCode & Application.WorksheetFunction.Text(TempStr, “000000”) 工作表的选择 Workbooks(2).Sheets(1).Select 这个选择非常费时间，原来是操作是在二个不同的表格之间切换来回，后面只选中一个，另一个使用绝对定位的方式来实现，速度快多了。一个意外的问题 If UnitName <> "" Then For j = 1 To CurRowSize Workbooks(1).Sheets("Sheet3").Cells(TotalRowSize + j, 1) = PlanName '计划名 TotalRowSize = TotalRowSize + 1 Workbooks(1).Sheets("Sheet3").Cells(TotalRowSize + j, 1) = PlanName '计划名 TotalRowSize = TotalRowSize + 1 Workbooks(1).Sheets("Sheet3").Cells(TotalRowSize + j, 1) = PlanName '计划名 'TotalRowSize = TotalRowSize + 1 Next j TotalRowSize = TotalRowSize + CurRowSize 上面注释了一行，按照道理最后一行不加也可以，把它打开，但出来的结果是不对的，不连续，可能跟选择有关。没有深入这个问题

2021-10-13 10:25:43 评论举报赵军