Excel vba的时候一直抱运行时错误‘1004’，如何修改，ActiveSheet.Shapes(picture_name).Select这句之后出错的

2019-07-29 08:09:34 961 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VBA入门：让Excel自动处理重复工作的真实路径 Excel VBA 是一种嵌入式自动化技术，通过操作Excel对象模型（Application、Workbook、Worksheet、Range等）实现任务批量化。其核心原理在于将人工操作转化为可复用、可调试、可维护的代码逻辑，而非简单录制点击动作。相比Power Query等声明式工具，VBA在处理非结构化、字段不固定、需上下文判断的‘脏数据’时具备更强的过程控制力与错误捕获能力。它不追求全自动替代，而是构建‘人机协同’的工作流，典型价值体现在财务报表生成、跨表数据合并、发票信息提取等高频重复场景。本文聚阅读详情

Sub tianse()
For i = 2 To 22
picture_name = Sheets("sheet3").Range("o" & i).Value
picture_value = Sheets("sheet3").Range("p" & i)

If picture_value = 0 Then
color_rgb = Sheets("sheet3").Range("t2").Interior.Color
ElseIf picture_value > 0 And picture_value <= 0.015 Then
color_rgb = Sheets("sheet3").Range("t3").Interior.Color
ElseIf picture_value > 0.015 And picture_value <= 0.03 Then
color_rgb = Sheets("sheet3").Range("t4").Interior.Color
ElseIf picture_value > 0.03 And picture_value <= 0.045 Then
color_rgb = Sheets("sheet3").Range("t5").Interior.Color
ElseIf picture_value > 0.045 And picture_value <= 0.06 Then
color_rgb = Sheets("sheet3").Range("t6").Interior.Color
ElseIf picture_value > 0.06 And picture_value <= 0.075 Then
color_rgb = Sheets("sheet3").Range("t7").Interior.Color
ElseIf picture_value > 0.075 And picture_value <= 0.09 Then
color_rgb = Sheets("sheet3").Range("t8").Interior.Color
ElseIf picture_value > 0.09 Then
color_rgb = Sheets("sheet3").Range("t9").Interior.Color
End If

ActiveSheet.Shapes.Range(Array("group10")).Select
ActiveSheet.Shapes(picture_name).Select
Selection.ShapeRange.Fill.ForeColor.RGB = color_rgb
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = FormatPercent(picture_value)

Next i
End Sub

...全文

VBA高效编程：理解Select与Selection，掌握多工作表批量操作在Excel VBA编程中，对象模型是自动化操作的核心基础。其原理是通过程序直接控制Excel对象，而非模拟人工操作，这能显著提升代码执行效率与稳定性。从技术价值看，深入理解对象引用机制可避免常见的屏幕刷新与焦点切换问题，使宏运行更快速、健壮。应用场景广泛覆盖数据处理、报表生成等自动化任务。本文聚焦于VBA中的Select方法与Selection对象，通过解析多工作表选中这一典型需求，揭示如何避免低效操作，并融入直接对象引用、With语句等热词，帮助开发者编写更专业的代码。阅读详情

hhr58

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

Excel vba的时候一直抱运行时错误‘1004’，如何修改，ActiveSheet.Shapes(picture_name).Select这句之后出错的

相关推荐