vba 程序更改单元格底纹,单元格内边框与底纹颜色都可更改A对B错

单元 格底人所在的地方全部变红？当你点击任何一个单元盒子时，同行业的单元 格底的颜色发生变化！我不能发送代码。我给你剪张图，颜色参数可以根据我自己的需要更改，EXCEL使用vba如何编写代码单元格(1。

2、EXCEL如何用VBA设置符合条件的 单元格填充颜色为红色?

Materials/Tools:excel 20101。打开Excel表格，按【Alt F11】打开VBA编辑器。也可以点击菜单栏上的【开发工具】和【VisualBasic】打开VBA编辑器。2.单击VBA编辑器菜单栏上的[插入]和[模块]，或者可以使用[Alt I M]组合快捷键在编辑器上插入“模块”。3.在VBA编辑器代码框中输入以下代码:4。Excel表格上的起始色、填充色等颜色可以在颜色对话框的自定义中找到，通过改变数值可以看到新的颜色。

cells (1，1)。字体。“Colorindex3”的颜色数为3个红色单元格(1，1)。内饰。“Colorindex3”的背景色为3个红色单元格(2，1)。字体。ColorRGB (0，255，0)具有绿色单元格(.

WPS可能不支持VBA。如果不行，你最好安装Excel。按照你的要求，你只是做了一个简单的循环语句，几万个数据的对比就可以一键完成。不难。代码如下:subbijiao () dimifori 10到31 if cells (i，2) > cells (i，3) then cells (i，2)。

我发不出代码。我给你一张切好的图，根据自己的需要改变颜色参数。我曾经这样做过一次，我似乎忘记了表属性中的最后一个。OptionExplicitDimaAsStringPrivateSubWorksheet _ selection change(ByValTargetAsRange)on errorresumenextcells(a，1). interior . colorindexcells(a 1，

简单代码如下:PrivateSubWorksheet _ Selection Change(ByValtargetasRange)。细胞。interior . colorxlnonesetartargetiftarget . count 1 tentarget . interior . colovbyelloiftarget . valuethenforeachrnginsheet 1 . usedrageifrg . valuetarget . valuethensetarunion(Arr，

privatesubjaceworksheet _ selection change(byvaltargetasrange)带目标。边框(xledgebotom)，linestylelcontinuous。colorendwithsub代码放在那里，请参照Excel选择当前表单元单元格的数据跳转到另一个表单元单元格。