Tag: excel vba

如何从VBA项目中删除密码？

如何以编程方式从Excel VBA项目中删除（已知）密码？ 要清楚：我想从VBA项目中删除密码，而不是工作簿或任何工作表。

如何在Excel中生成GUID？

我有一个在每行一个订单的Excel文件，我希望每个订单都有一个唯一的标识符，所以会有一个唯一的ID列。 每次填充行时，我都希望Excel为我自动填充唯一标识列。 我做了一些研究，并指出了GUID的方向。 我发现了下面的代码： Function GenGuid() As String Dim TypeLib As Object Dim Guid As String Set TypeLib = CreateObject("Scriptlet.TypeLib") Guid = TypeLib.Guid ' format is {24DD18D4-C902-497F-A64B-28B2FA741661} Guid = Replace(Guid, "{", "") Guid = Replace(Guid, "}", "") Guid = Replace(Guid, "-", "") GenGuid = Guid End Function 但我不知道如何实现它。 任何帮助将不胜感激。 先谢谢你。

vba将string转换为int如果string是一个数字

我需要将从VBA中获得的string转换为整数。 为此，我使用了CInt（），这很好。 但是有一个机会，string可能是一个数字以外的东西，在这种情况下，我需要将整数设置为0.目前我有： If oXLSheet2.Cells(4, 6).Value <> "example string" Then currentLoad = CInt(oXLSheet2.Cells(4, 6).Value) Else currentLoad = 0 End If 问题是，我不能预测可能在这个单元格中的所有可能的非数字string。 有一种方法，我可以告诉它转换，如果它是一个整数，并设置为0，如果不是？ 干杯

Excel中如何查找1列中的值存在于另一个值的范围内

我有两列 – 扩展到11027（值）的列A和扩展到42000（值）的列1.列都包含一些代码的细节。 像这样的东西 AB q123 as124 as124 gh456 ff45 q123 dd1 dd2 xx2 xx3 xx4 等等… 我想查找列A中的名字是否存在于列B中，使用excel

如何清除整个arrays？

我有一个这样的数组： Dim aFirstArray() As Variant 如何清除整个arrays？ 怎么样收集？

Excel：如何检查一个单元格是否为空的VBA？

可能重复： 使用VBA来检查下面的单元格是否为空 作为VBA通过检查一个单元格是否为空的另一个具体的信息？ 例如：如果A：A =“产品专用”而B：B则为空然后C1 =“产品专用”这只是一个想法。 以及如何使用范围内的每个人。 并返回其他单元格中的值？

Excel：令人难以置信的收缩和扩大控制

偶尔，我会遇到一个电子表格，这些电子表格会随着时间的推移而变得越来越大或者越来越小。 代码中没有任何指示。 有没有人体验过这种喜悦？

如何保护Excel中的单元格，但允许通过VBA脚本修改这些单元格

我正在使用Excel中某些字段被允许用户input，其他单元格将被保护。 我已经使用了工具保护工作表，但是在这样做之后，我无法更改VBA脚本中的值。 我需要限制工作表停止用户input，同时允许VBA代码根据某些计算更改单元格值。

Chart.SetSourceData的重复调用会出现错误1004

我在我公司的Excel 2003中创build的应用程序出现问题。 应用程序从源检索数据并使用VBA例程中的SetSourceData更新Chart，从而传递包含写入相关数据的单元格的Range。 应用程序在Office 2003中运行良好，但在Office 2010中执行应用程序时，会出现此错误： 运行时错误“1004”：object'_Chart的方法'SetSourceData'失败。 我在Office 2010中的一个简单的Excel文件中创build了一个For循环，并且取决于在范围内传递给图表的列数，迟早会出现错误。 越来越多的列通过范围越早出现。 我想这必须与图表中的系列数量相关（更多系列更多）。 这是在Office 2010中实现的图表对象或系列中的某种机制/缓冲区吗？ 当它在Office 2003中运行时， For循环从不显示问题，我不知道如何解决此问题。 到目前为止，我只能使用Goto指令删除控制错误的所有系列，使用For Each循环删除SeriesCollection中的所有系列，以select图表的SeriesCollection中的所有对象。 如果我这样做，并在再次通过范围时继续执行应用程序，则所有数据都将正确绘制在“图表对象”中。 重现错误的示例。 以下代码将放入新的Excel 2010工作簿中的VBA模块中。 运行Sub setDataChart ，应用程序将运行，直到显示错误消息。 Sub setDataChart() Call createAColValues ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Range("A1:FA6"), PlotBy:=xlColumns ActiveSheet.ChartObjects(1).Activate With ActiveChart.Parent .Height = 325 .Width = 900 .Top = 120 .Left = 10 End With Call updateValues […]

如何在Excel VBA中使用实现

我试图为一个工程项目实现一些形状，并将其抽象为一些常见的function，以便我可以有一个通用的程序。 我想要做的是有一个名为cShape的接口，并有cRectangle和cCircle实现cShape 我的代码如下： cShape界面 Option Explicit Public Function getArea() End Function Public Function getInertiaX() End Function Public Function getInertiaY() End Function Public Function toString() End Function cRectangle类 Option Explicit Implements cShape Public myLength As Double ''going to treat length as d Public myWidth As Double ''going to treat width as b Public Function getArea() getArea […]