vba更改数据时excel图表不更新
VBA（Visual Basic for Applications）是一种用于自动化任务和定制化应用程序的编程语言，它可以与Microsoft Office套件中的各种应用程序（包括Excel）进行交互。在Excel中，当使用VBA更改数据时，图表默认情况下不会自动更新。这是因为Excel的图表是基于数据范围的，而不是直接与单元格数据绑定的。
要使Excel图表在VBA更改数据后更新，可以使用以下方法之一：
- 使用Chart对象的Refresh方法：在VBA代码中，可以使用Chart对象的Refresh方法来强制图表刷新并更新数据。例如：
ActiveSheet.ChartObjects("Chart 1").Chart.Refresh- 使用Worksheet对象的Calculate事件：在VBA代码中，可以使用Worksheet对象的Calculate事件来捕捉数据更改并更新图表。当工作表的计算过程完成时，Calculate事件将触发。例如：
Private Sub Worksheet_Calculate()
ActiveSheet.ChartObjects("Chart 1").Chart.Refresh
End Sub- 使用Application对象的EnableEvents属性：在VBA代码中，可以使用Application对象的EnableEvents属性来控制事件的触发。将EnableEvents属性设置为False可以禁用事件的触发，然后在更改数据后手动刷新图表。例如：
Application.EnableEvents = False
' 更改数据的VBA代码
ActiveSheet.ChartObjects("Chart 1").Chart.Refresh
Application.EnableEvents = True以上是一些常见的方法，可以根据具体情况选择适合的方法来更新Excel图表。在实际应用中，可以根据需求进行定制化开发，以实现更复杂的图表更新逻辑。
腾讯云提供了一系列与云计算相关的产品和服务，包括云服务器、云数据库、云存储等。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于腾讯云的产品和服务信息。
相关·内容
4回答
每次更改其他单元格中的值时，Excel/VBA都会更新单元格
excel、vba
我是VBA的新手。我在工作表中有一个实时更新值的单元格。该值大约每月更改一次。有没有办法在相邻的单元格中记录值发生变化的那一天？例如，如果今天A1中的值从5变为6，我只想用A2记录今天的日期。
我真的不需要记录以前的更改。
非常感谢!
浏览 9提问于2016-08-03得票数 0
1回答
基于单元格值更改调用宏，但公式保持不变
excel、vba
我需要在单元格B3改变时调用一个宏，但是B3是一个RTD链接，所以当值改变时，公式仍然是相同的，excel不会识别这种改变。当值改变但公式没有改变时，我如何让我的宏运行？ 我试着使用一个简单的Range("B3").Value，但得到了一个运行时错误"424“。然后，我尝试创建一个range对象来解决这个问题，但仍然收到另一条错误消息。 Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
Ca
浏览 18提问于2019-02-04得票数 0
回答已采纳
1回答
Excel 2003 -当图表点被拖动时，如何触发事件？
excel、vba、events、worksheet-function、excel-2003
我有一个图表，它是一个三次样条函数生成器输出的XY图。样条的输入是一系列的点(X, Y)，这些点也显示在图上。样条输出的计算由VBA Worksheet_Change事件触发。其思想是，曲线生成是交互式的-用户输入一个X对，样条输出图也相应地发生变化。
问题是，当我用鼠标单击并拖动一个点来更改点坐标时，单元格中的相应值会发生变化，但事件不会被触发。如果手动更改该值，则会按预期触发该事件。
当一个点被拖放到图表上时，有没有一种产生事件的方法？
**更新**
我添加了一些错误处理，以确保在重新计算引发异常时再次设置EnableEvents标志：
private Sub Worksheet_Calc
浏览 3提问于2017-10-30得票数 1
回答已采纳
1回答
因此，我的问题是:我在一个工作表(Sheet1)上使用了特定的代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("B24")
Case "Standard"
Sheets("Sheet2").Visible = False
Rows("29:47").EntireRow.Hidden = False
Case "Medium"
Sheets(
浏览 2提问于2017-11-30得票数 0
回答已采纳
1回答
VBA用不同的文本替换多个范围
excel、vba
我对VBA代码不太熟悉，我希望有人能帮我做这段代码。
我试图用3个不同的值替换3个不同的范围。
我得到的当前代码似乎只执行第一行，最后2行被忽略。
Private Sub CommandButton3_Click()
Range("B2, F1, F3:f5, F20, F22:F24") = "Enter Text Here..."
Range("C2, F2, F21") = "Select 1"
Range("C3:C10, B13:B19, B22:B25, A29:D33,F7:F16, F26:F35"
浏览 6提问于2021-10-28得票数 0
回答已采纳
1回答
Excel VBA案例不识别单元格值
vba、excel、if-statement
我试图使用VBA在同一个工作簿(名为Invoice )中隐藏/显示单独工作表上的一组行
为此，在InputForm表上有一个单元格(N14)，它使用=ISBLANK(D53)检查D53是否包含任何内容，并明显地返回TRUE/FALSE。
从此im试图在VBA中运行If语句，根据单元格N14是否包含TRUE/FALSE来隐藏/显示行。
如果手动输入TRUE/FALSE，则我尝试过的代码工作正常，但如果公式自动输入，则不工作。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) =
浏览 4提问于2014-04-18得票数 1
回答已采纳
2回答
VBA复制/粘贴替代品-图表闪存/闪烁
arrays、excel、vba、events、copy-paste
要尝试另一种方法将数据从一个工作表复制/粘贴到另一个工作表。我读过.copy和.paste脚本，效率低，速度慢。我相信这就是为什么我在另一个工作表中的图表一直在闪烁/闪烁，以至于无法读懂它们。
下面的脚本由于Worksheet Calculate事件而每隔几毫秒被触发一次，然后从我的仪表板复制到日志，并在每次为另一个复制/粘贴迭代触发事件时递增到下一行。当脚本完成运行时，它可能有多达6万行数据从仪表板复制过来。脚本很好，只是图表的闪烁使得它很难解释。
Private Sub Worksheet_Calculate()
If Worksheets("Dashboard").To
浏览 11提问于2022-07-16得票数 0
回答已采纳
1回答
VBA -退出MsgBox()
excel、vba、msgbox
我已经有一段时间没有和VBA合作了，所以我的技能有点生疏。我已经成功地将一个小脚本组合在一起，它将更新我在excel表中的Date Contacted和Date Modified列，如果我要更改A列中的相应单元格，那么对于A列中的所有单元格，我使用数据验证工具设置一个列表。List = A, B, C, D
当选择列表项之一时，脚本应该在Date Contacted (列H)中输入当前日期。如果单元格更改为新项，则消息框将询问用户是否要提交更改。如果是，Date Modified (第一列)将被更新。如果不是，A列应该恢复到原来的self，并且日期列中的任何一列都不应该被更新。
代码中没有bu
浏览 1提问于2021-06-09得票数 0
回答已采纳
1回答
我有一个Excel工作簿和6个工作表。一个工作表保存数据，其余5个工作表具有使用数据工作表创建的图形。我希望在每个工作表上获取图表的图像，并将其保存在我的use服务器位置，这样我就可以在我的网站上使用该图像了。但是，我只能在活动的工作表上成功地完成这个任务，但是当我试图指定工作表的名称和范围时就没有成功了。
在过去，我确实从Excel抓取图像，但只从活动的工作表中获取图像，如下所示。
Sub MakePicture()
Dim rgExp As Range: Set rgExp = Range("A1:G6")
''' Copy ran
浏览 1提问于2019-05-30得票数 0
回答已采纳
2回答
我正在使用Excel 2016模板，其中包含枢轴表、枢轴图表和仪表板，根据不同的选择和过滤器动态更新数据。每当我打开报表的新版本(Excel文件)时，我都会收到关于每个图表的以下消息：
SheetName中已经有数据了。要替换它吗？
我已经浏览了互联网，我发现了两个不同的解决方案，但没有发挥作用。
我试图创建一个宏，该宏禁用消息，然后刷新所有数据。我使用了下面的VBA代码来禁用消息，但是它没有像预期的那样工作：
Applictaion.DisplayAlerts = false
我进入了Excel的高级选项，我试图禁用“覆盖单元格之前的警报”设置。这并没有解决我的问题，我也让一
浏览 6提问于2017-01-13得票数 5
1回答
excel vba代码从单元格公式运行宏
vba、excel、charts
我有一个工作簿，其中一个工作表充满了数据，另一个工作表充满了图表。我编写了一些代码，根据用户在图表工作表上的两个单元格中输入所需的值，自动更改每个图表的图表比例尺和单位。它们需要输入的值在数据表上，它们本身是相当长的公式。我希望更改图表工作表上的单元格，以引用数据表上的值，以便在添加新数据和更改这些单元格时，图表会自动更新，即用户不必手动进行更改。我在这里读过几篇关于使用公式的类似文章，并尝试修改代码，但它们都与我的情况有些不同，而且我也没能得到任何东西。
下面是我目前使用的代码，当手动输入值时，它工作得很好。这些值在图表页上的D6和D7中，我希望它们在数据表上引用G4和G5中的公式。请有人告
浏览 7提问于2015-12-14得票数 1
2回答
基于单元格值的隐藏图
excel、vba
我是Excel的新手，我试图用VBA代码来解决这个问题。
基本上，我的工作表有12张图表和12张表格。在任何给定的时间，只有一个表会得到数据，并且只应该看到那个图表。其余11幅图应该隐藏起来。
我试过这个
Sub getchart()
If Range("C1") = Vub Then
ActiveSheet.ChartObjects("Chart_33").Visible = True
Else
ActiveSheet.ChartObjects("Chart_33").Visible = False
浏览 1提问于2018-12-20得票数 4
回答已采纳
1回答
简单Worksheet_Calculate触发的“走出堆栈空间”错误
excel、vba
基本上，我要做的是在工作表打开时记录特定单元格的值(在本例中是B26)，然后如果B26的值发生变化，将B26的值复制到单元格B25。
在Module1中，我有以下代码：
Public PrevVal As Variant
在ThisWorkbook中，我有以下代码：
Private Sub Workbook_Open()
PrevVal = Sheet13.Range("B26").Value
End Sub
在Sheet13中，我有以下代码：
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = Fals
浏览 3提问于2014-12-22得票数 2
回答已采纳
我有一个连接到odbc，它将数据带到excel，其余的数据在宏中手动计算，我创建了一个宏，但是每当我单击刷新按钮时，我就需要运行这个宏，我在workbook_open()中放置了1个宏，这样每当文件第一次打开时，我的宏就会被执行，但是当我单击refresh按钮时，只更新来自odbc连接的数据，我就试图通过将它放入worksheet_changed()事件中来调用宏，但是在这里我尝试在worksheet_change事件中执行它。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = &
浏览 1提问于2014-11-25得票数 1
回答已采纳
1回答
更新Excel VBA中目标单元格的值
vba、excel
当目标单元格存在于特定范围内时，我正尝试使用VBA宏来更新它的值。我想通过将字符串连接到它的值来更新它的值。例如，如果有人在目标单元格中写入250，我希望将"XYZ-250“写回目标单元格中。代码如下：
Dim oldCellAddress As String
Dim oldCellValue As String
Private Sub Worksheet_Change(ByVal Target As Range)
oldCellValue = 0
If Not Intersect(Target, Range("E10:E500")) Is Nothing Then
o
浏览 2提问于2017-07-10得票数 0
回答已采纳
1回答
自动更新工作表命名宏
excel、autocomplete、vba
我发现了一个VBA代码，它允许我根据单元格值更改工作表名称。单元格值不断变化，但我拥有的48张工作表不会更新，除非我单击该工作表。如何让marcos在每次单元格值更改时运行？
下面是我使用的代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("DK5")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
浏览 0提问于2017-06-15得票数 0
2回答
基于单元格更改隐藏Excel列
excel、vba
了解到有很多有关这方面的帖子，但我仍然找不到解决办法。
有一种特殊情况，即关闭Excel自动计算(为了其他Excel附加组件的性能目的)。但是，我确实有一个按钮来重新计算工作簿。
我有两个删除框，用于更改F38中的单元格值-- F38中的单元格值将依次在特定行中设置值"X“或"”。需要的是，当单元格值在F38中发生变化时，需要隐藏列中具有"X“的单元格。
在单击按钮重新计算工作簿后，"X“将被填充，但是，宏无法工作。
这是代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Applic
浏览 3提问于2021-12-14得票数 0
1回答
Excel VBA:根据以前的单元格更改更新单元格
vba、excel、validation、drop-down-menu
我正在编写Excel工作表，并使用VBA来完成和更新有关单元格的信息。
Excel表中有七列。其中三个是带有数据验证的下拉列表，我使用了下面的VBA代码来填充它们。
Private Sub TempCombo_KeyDown(ByVal _KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer)
'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab
Select Case KeyCode
Case 9
浏览 3提问于2017-03-08得票数 0
2回答
无法在Excel VBA中刷新图表(Excel 2016)
excel、vba、charts
我的儿子(15岁)在学校学习钟摆，物理课。我试图帮助他在Excel中模拟一个钟摆，使用两点图，一个定位(摆线连接在一起，一个在时间上移动(钟摆)。
计算是可以的，但我不明白为什么图表不刷新：“钟摆”不动……我读了很多关于堆栈溢出刷新Excel图表的帖子，但没有一个能帮助我解决这个问题……有什么想法吗？
下面是代码(好吧，我不是IT专家……)
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const g = 9.80665 'gravity co
浏览 60提问于2017-02-08得票数 1
回答已采纳
1回答
时间戳，以显示文件最后一次按F9更新的时间(只是编辑不够)
vba、excel、timestamp、refresh
我想在我的Excel工作表中添加一个时间戳，它显示文件上次更新的时间。我使用了这个代码：
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
Range("D13") = Now()
Application.EnableEvents = True
End Sub
此代码的问题是，它显示了最后一次值是添加的，但这个值可能不是真正的值，因为公式没有计算(未按下F9，禁用自动计算)。我不想显示最后一次添加值，而是显示最后一次更新公式。
是否可以添加一个时间
浏览 3提问于2015-11-03得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
