VBA 运行时错误438：对象不支持该属性或方法怎么更改才能调试成功？

If (Range("E17").Value + Range("E19").Value + Range("E21").Value + Range("E23").Value) < 800 Then Range("F2").Interior.ColorInEex = 3 Else Range("F2").Interior.ColorInEex = 4

提示Range("F2").Interior.ColorInEex = 3 对象不支持该属性

举报该问题

第1个回答 2019-11-12

改为Range("F2").Interior.ColorIndex = 3

相似回答

VBA 运行时错误438:对象不支持该属性或方法 怎么更改才能调试成功?答：改为Range("F2").Interior.ColorIndex = 3

vba 438-对象不支持属性或方法,怎么改正?答：rng.Select '选择该区域 Selection.Copy Range("p5").PasteSpecial xlPasteAll 如果你不要自制格式，只要数据，直接用数组更好些 Dim rng As Range Dim arr c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格 Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(...

VBA中出现“438”错误,对象不支持该属性或方法。请帮忙看看,谢谢_百度...答：rng.Select '选择该区域 Selection.Copy Range("p5").PasteSpecial xlPasteAll 如果你不要自制格式,只要数据,直接用数组更好些Dim rng As RangeDim arr c = ActiveSheet.Range("IV1").End(xlToLeft).Column '取最后一个非空单元格 Set rng = Range(Cells(2, 1), Cells(2, c)).Offset(1, 0) '提取...

...的时候老是提示“438”对象不支持该属性或者方法。答：你的i是工作表中循环，你最后一个工作表的行数刚好是工作表的个数？按你的原代码，修改如下 Sub 批量输入()Dim z As Integer z = Worksheets.Count For i = 1 To z - 1 sheets(i).cell(1, 1).value = Worksheets(z).cell(i + 1, 2).value Next End Sub ...

大家正在搜

运行时错误438对象不支持该属性网页错误对象不支持此属性或方法脚本错误对象不支持此属性或方法 ie8对象不支持此属性或方法显示对象不支持此属性或方法对象不支持on属性或方法脚本运行错误对象不支持对象不支持属性与方法对象不支持load属性和方法

运行这段VBA代码出现“运行时错误438，对象不支持该属性或...

EXCEL 宏指令运行时错误438，对象不支持该属性或方法

VBA高手看过来啊错误代码438 “对象不支持该属性或方法...

vba新手运行这段代码时会出现，运行时错误‘438’：对象...

打开excel时，弹出“运行时错误‘438’，对象不支持该属...

VB：实时错误438：对象不支持该属性或方法” 具体怎么修...

运行时错误438 对象不支持该属性或方法

VBA程序在solidworks中运行正常,但是在excel...