Tag: 自动更新

Java POI api更新excel数据在后台而不closuresexcel？: 在工作表处于打开状态时，是否有任何方法可以更新后台的Excel内容。我正在使用Apache POI Spreadsheet API（基于Java的API）读取和写入Excel表格中的内容。通过使用user API ，我将数据保存到Excel工作表，但我没有find任何API来更新后台的Excel数据（没有closuresExcel文件，内容应该更新）。如果我们试图在打开时更新excel，它会显示error like file is accessed by other resource 。请帮助我find一个使用Apache POI或任何其他API来实现这个API。（我通过使用VB script观察，我们可以实现这一点，但首先是Java，如果没有其他的API可用，然后VB Script ）。

自动更新（计算）单元格更改时的Excel工作表: 我正在使用Excel 2010，我希望当单元格的值（ Range("B7") ）被更改（ Range("B7")是一个下拉列表）时，Excel工作表会自动更新（计算）。我正在尝试使用交叉目标方法，如： Private Sub Worksheet_Change(ByVal target As Range) If Not Intersect(target, Range("B7")) Is Nothing Then ActiveSheet.Calculate End If End Sub 我有两个问题：如果我把这个私人小组放在任何模块下，这有什么关系吗？或者我应该把它写在VBA中Microsoft Excel -object菜单下的精确表单中？第二个问题是我怎么能做这个工作？当我更改Range("B7")时，工作表不会自动更新（计算Range("B7") 。它只会保存Excel文件时更新。

validation更新时更改单元格值: 我在更改单元格时无法更改单元格值。基本上，当validationRange("F112")发生变化且值为<> "Lease" Range"("F108")需要变为0 。到目前为止，我已经想出了：模 Sub SetLeaseToZero() Dim Settlement As Integer Settlement = Sheets("HV.Select Pricing").Range("F108") If Sheets("HV.Select Pricing").Range("F112") <> "Lease" Then Settlement = 0 Else End If End Sub 换单 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("F112")) Is Nothing Then SetLeaseToZero End If End Sub 提前致谢

散点图参考行号而不是选定的数据: 编辑：问题是散点图是绘制我的数据对行号，而不是选定的X轴。当我改变到一个线图，它做到了正确的，但我的VBA只适用于散点图，所以我需要这个graphics引用正确的数据或改变我的代码，使其工作的折线图。我检查了数据被格式化为数字，而不是文本，但仍然没有改进。我为工作创build了一个电子表格，其中我的同事将数据拖放到工作表中。在包含原始数据的图表的另一张纸上生成报告。我对每一列数据都使用了“定义名称”，这样无论数据集有多大都可以select正确的范围。这工作得很好，每次数据改变时graphics都会自动更新。然后我运行VBA来缩放轴，这一切都搞砸了当我运行下面的代码时，坐标轴就像我想要的那样缩放，但是现在，不是在数据中有很好的循环，而是为每组数据显示一条水平直线。我检查了“select数据”，一切仍然正确select，数据是一样的，我打“跑”之前，只有graphics看起来不正确。这里是代码： Private Sub Worksheet_Calculate() ScaleAxes End Sub Sub ScaleAxes() 'With Application.ActiveChart.Axes(xlCategory, xlPrimary) With ChartObjects(1).Chart.Axes(xlCategory, xlPrimary) .MinimumScale = ActiveSheet.Range("B26").Value .MaximumScale = ActiveSheet.Range("B25").Value .MajorUnit = 5 End With 'With Application.ActiveChart.Axes(xlValue, xlPrimary) With ChartObjects(1).Chart.Axes(xlValue, xlPrimary) .MinimumScale = ActiveSheet.Range("C26").Value .MaximumScale = ActiveSheet.Range("C25").Value .MajorUnit = 10 End With End Sub […]

Excel的当前汇率: 有没有办法在MS-Excel中导入当前汇率并保持更新？ Excel提供了一种调用URL并将响应导入单元格的方法。有几个教授。在互联网上的服务，但我想确保没有数据logging和提供的信息是最新的。它应该是免费的…

如何从网站导入当前价格到excel？: 目前我在excel中使用这个来导入股票价格：这是来自雅虎财经，使用简单，我可以按CTRL-ALT-F9自动更新所有单元格，并以最新的价格填充单元格。我将如何从其他网站导入一个不断变化的号码？我曾尝试使用诸如“数据>获取和转换数据>从Web”方法没有成功。我正在尝试的是有一个Excel单元格显示当前价格http://preev.com/和更新到最新的价格，当我按CTRL-ALT-F9

Alpha Vantage API Excel: 我有一个Alpha Vantage API密钥，并且在分析数据时遇到问题。我不确定如何parsing数据，因为有JSON和CSV选项。 CSV似乎是一个下载，我不想每次我想更新股票价格时手动下载一个新的文件。这是我用Excel来获取股票价格的方法：我会一直使用CTRL-ALT-F9来刷新一切。不幸的是，雅虎已经停止了这项服务，所以我必须解决它。

在总览页面中显示最近更新的行 – Excel: 我有一个excel共享工作簿，几张纸和一个叫做概览的主表。例如：概览 – 工作表1 – 工作表2 – 工作表3 在表1/2/3中，我或其他人用一些数据更新行。很难跟踪工作簿中的最后一个条目（因为我需要在所有工作表中进行search），所以我想在我的概览页面中创build一个“前10名”dynamic列表，该列表将自动更新为最后一个工作簿中有10个更新的行。有人可以帮我吗？这是一个例子：谢谢！

自动更新数字增量: 我使用Excel 2013，但是我不知道如何在每次删除或添加一行时自动更新增量数字的列。我怎样才能做到这一点？例 01 02 03 04 如果我删除第02行，我希望程序自动将下列行设置为02而不是03等，如果我在03和04之间添加一行，那么添加的行应该自动显示04并且04变成05 ，依此类推。

我制作了一个自动计算closures的Excel工作表的副本，然后复制/粘贴值，但自动计算打开粘贴值之前: 我有一个电子表格，一旦通过电子邮件将其自动计算转换为手动。我不使用保护表，因为如果数据源在邮件后更新，公式仍然会更新。在罕见的情况下，可能需要重新邮寄表格，并用其他表格进行更改。那时候我有一些代码可以制作一张表格的副本，然后把这些表格复制粘贴起来，然后把原来的表格粘贴起来成为版本II。我正在尝试避免在邮件时间复制/粘贴值，因为我想避免在工作簿中有两个副本，如果没有必要的话。问题是，即使自动更新closures时，表复制，它似乎被closures，然后才能够复制和过去的价值观。有没有人有一个想法，我可以停止数据馈送到表格上的公式之前，我可以将它们粘贴为值？更新添加代码。代码来closures自动计算 Sub Turn_AutoUpdate_OFF() ' ***** STOPS alutomatic formular updating ' x – Defined Cell Names Lock_LABEL ' x – Image Lock_ON Lock_OFF Application.ScreenUpdating = False ' do not see screen updating If ActiveSheet.Name = "4_Transport" Then ' Make ON lock Small ActiveSheet.Shapes.Range(Array("Lock_ONN")).Select ' x Selection.ShapeRange.Height = 28.3464566929 […]