Tag: excel vba

如何在VBA的下一行继续代码: 我想在VBA代码中inputmath论坛，其中有许多行。我想分成许多行。我该怎么做？例如： U_matrix(i, j, n + 1) = k * b_xyt(xi, yi, tn) / (4 * hx * hy) * U_matrix(i + 1, j + 1, n) + (k * (a_xyt(xi, yi, tn) / hx ^ 2 + d_xyt(xi, yi, tn) / (2 * hx))) 很长。想分裂它。试过这个： U_matrix(i, j, n + 1) […]

使用MergeArea在VBA Excel中检测合并的单元格: 我有这个问题 – 我必须从excel表中检测水平和垂直合并单元格。我必须存储第一个单元格坐标和合并区域的长度。我用两个for-cycles逐行遍历表。如何使用MergeArea属性来检测合并和非合并区域？如果单元格没有合并，它应该可能返回空的范围，但是，这： “如果当前范围不是那么” 根本不工作。有任何想法吗？非常感谢。

使用VBA编程Excel时，如何将select设置为Nothing？: 在使用range.copy和range.paste之后创buildgraphics时，它会保留选定的粘贴范围，然后在稍后几行创buildgraphics时，会将该select作为图的第一个系列。我可以删除该系列，但有没有更好的方法来做到这一点？我试过了 Set selection = nothing 但它不会让我select。我也尝试过selection.clear，但是这只是清除了最后选中的单元格，并且还为剧情添加了一个额外的系列。

添加“你确定吗？”我的excelbutton，我怎么能？: 我的表单上有一个button，可清除整个8工作表工作簿。我想偶尔清除一下，但是我不愿意这样做。我尝试过使用Googlesearch，但是我发现每一个结果都假设我对VBA的掌握比我更强。我怎么能这样做，当button被点击一个对话框popup“这将消除一切！你确定吗？[继续] [取消]”？谢谢。

如何插入双引号或单引号: 我有很长的名单，我需要引用（可以是双引号或单引号），我有大约8000个。我有他们在Excel中没有任何引号，我可以复制所有的名称和粘贴他们没有问题，但仍然没有引号。我已经看了，并寻找一个Excel公式来添加引号到每一行的名字，但我没有运气。我也尝试了一些聪明的发现和replace技术，但没有工作。我正在寻找的格式是这样的： “艾伦”或“艾伦” 任何这些将工作。我需要这个，所以我可以将信息存储到数据库中。任何帮助是极大的赞赏。谢谢 PS：我发现在线的其他人需要做同样的事情，我需要做的，这个解决scheme已经为他们工作，但我不知道它是怎么做的：你可以通过使用范围variables（例如myCell）来修复它，然后使用它来迭代范围对象的“select”集合，就像这样 Sub AddQuote() Dim myCell As Range For Each myCell In Selection If myCell.Value <> "" Then myCell.Value = Chr(34) & myCell.Value End If Next myCell End Sub 另一个解决scheme也为别人工作是： Sub OneUglyExport() Dim FileToSave, c As Range, OneBigOleString As String FileToSave = Application.GetSaveAsFilename Open […]

Excel VBA代码模块的源代码控制: 我希望能够控制我的Excel电子表格的VBA模块（目前使用Excel 2003 SP3），以便我可以共享和pipe理一堆不同的电子表格所使用的代码 – 因此，我想重新加载它们从电子表格打开时的文件。我有一个名为Loader.bas的模块，用于完成大部分驴工作（加载和卸载任何其他需要的模块） – 我希望能够尽快从文件加载它随着电子表格打开。我已将以下代码附加到Workbook_Open事件（在ThisWorkbook类中）。 Private Sub Workbook_Open() Call RemoveLoader Call LoadLoader End Sub RemoveLoader（也在ThisWorkbook类中）包含以下代码： Private Sub RemoveLoader() Dim y As Integer Dim OldModules, NumModules As Integer Dim CompName As String With ThisWorkbook.VBProject NumModules = ThisWorkbook.VBProject.VBComponents.Count y = 1 While y <= NumModules If .VBComponents.Item(y).Type = 1 Then CompName = .VBComponents.Item(y).Name […]

用卸载closures用户窗体不起作用: 当用户点击提交button并执行操作时，需要使用VBAclosuresExcel用户窗体。如何closures自身的用户窗体？我已经尝试过，但它返回一个361错误。 Unload Me

在Excel VBA中插入CopyOrigin: 任何人都可以告诉我什么插入的CopyOrigin参数用于？它会接受什么样的价值？我已经包括vba的帮助（这不是很有帮助）：将单元格或一系列单元格插入到工作表或macros表中，并将其他单元格移开以腾出空间。 expression.Insert（Shift，CopyOrigin）expression式必需。一个返回一个Range对象的expression式。 Shift可选变体。指定移动单元格的方式。可以是以下XlInsertShiftDirection常量之一：xlShiftToRight或xlShiftDown。如果省略此参数，Microsoft Excel根据范围的形状决定。 CopyOrigin可选变体。复制原点。

从VB代码解除VBProject的保护: 我怎样才能从vbmacros解除我的VB项目？我发现这个代码： Sub UnprotectVBProject(ByRef WB As Workbook, ByVal Password As String) Dim VBProj As Object Set VBProj = WB.VBProject Application.ScreenUpdating = False 'Ne peut procéder si le projet est non-protégé. If VBProj.Protection <> 1 Then Exit Sub Set Application.VBE.ActiveVBProject = VBProj 'Utilisation de "SendKeys" Pour envoyer le mot de passe. SendKeys Password & "~" SendKeys […]