Tag: excel vba

作为string的Excel单元格值不会以stringforms存储: 我不能在这里获取这个代码来抓取单元格内容并以stringforms存储。我得到一个双： 54.6666666667而不是N03:DM:示例单元格内容）。如果我使用Cstr(Sheet1.Cells(i, 5).Value)我仍然得到相同的结果。任何帮助，将不胜感激。 Option Explicit Private Sub GetAddress() Dim varAdd As String Dim i As Integer For i = 2 To 327 If varTag = Sheet1.Cells(i, 2).Value Then varAdd = Sheet1.Cells(i, 5).Value varAdd = Left(varAdd, 7) Sheet3.Cells(incR, 2).Value = varAdd Exit For End If Next i End Sub 工作表截图

如何在VBA代码中执行“另存为”，使用datestamp保存当前的Excel工作簿？: 我有一个Excel工作簿，在窗体button单击我想保存工作簿的副本与文件名是当前date。我继续尝试下面的ActiveWorkbook.SaveAs ("\\filePath\FormFlow To MSExcel\" & Left(Now(), 10))但接收Run-time error '1004': Method 'SaveAs' of object'_Workbook' failed. 任何人都可以帮助我吗？对于Excel开发，我还是很新的。

使用hex更改Excel单元格的背景颜色会导致Excel在电子表格中显示完全不同的颜色: 所以我将Excel单元格的内部颜色设置为某个值，如下所示： worksheet.Cells[1, 1].Interior.Color = 0xF1DCDB; 但是，当我在Excel中打开电子表格时，发现出现的颜色完全不同（在上述情况下，生成的电子表格中的颜色为0xDCDCEF）。我尝试了几种不同的颜色，它总是改变它，我没有看到一种模式。这有什么理由吗？我甚至尝试着写Color.FromArgb（241,220,219）.ToArgb（）来设置颜色，并且发生了同样的事情。

将范围从A1返回到最后一个使用的单元格: 我想select电子表格中的所有行和列。 macros需要是dynamic的，因为每次调用macros时列和行的数量都会变化。它还需要能够考虑空白的行和列。这个子程序完成了部分过程： Sub FindLastCell() Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select End Sub 它find并select电子表格中最后一个单元格。现在我已经find了电子表格中最后一个单元格，如何select单元格A1作为范围的LastCell？

调用具有多个参数的Sub时，VBA返回错误: 我想弄清楚为什么VBA返回一个错误(Compile error: Expected: =)当我打电话给一个Sub并提供多个参数。任何帮助将不胜感激。 Sub customerController(cleanStructure As Boolean, firstCol As Integer, latCol As Integer, _ lngCol As Integer, Optional startRow As Long, Optional endRow As Long) Dim i As Long, j As Long, n As Long If (cleanStructure = False) Then 'customer data type If (startRow = "") Then i = 1 If (endRow […]

Excel的工作表密码保护如何工作: 这段代码已经在networking上浮动了好几年 – 显然它能够提供一个密码来解密你不知道密码的excel电子表格。 http://www.theofficeexperts.com/VBASamples/Excel02.htm 我对这是如何工作感兴趣，但我似乎无法解决这个问题。我假设它是以一定的数值encryption的（网上的一些地方说会给你原来的密码或者另一个可以工作的），就像公钥一样 – 你可以有100个公共密钥，所有的私人密钥都可以工作。对我来说，它似乎是创build整型variables，并填充一个特定的数字，然后将该数字转换成相关的字符。这些总是不一样吗？如果有的话，Excel保护是否有“主密码”？谢谢大家！编辑：我已经注意到在我发布的示例代码中n = 32到126 。交叉引用一个ASCII表，似乎是从空间到代字符的所有字符。这是一种字典攻击，我不明白，因为语法？

根据列中的值对着色完成行: 我需要根据列中单元格的值为完整的Excel行着色。我有三列（ Item ， Price和Status ），如果Status值是：交付（绿色）拒绝（红色） WIP（橙色）。

是否有可能填充行号符合一定的标准没有循环的数组？: 我想在VBA中填充一个只有满足一定条件的行的行号。我想最快的方法可能（例如，像RowArray = index(valRange=valMatch).row ）以下是（慢）范围循环的代码。 Current Code Sub get_row_numbers() Dim RowArray() As Long Dim valRange As Range Dim valMatch As String Set valRange = ActiveSheet.Range("A1:A11") valMatch = "aa" ReDim RowArray(WorksheetFunction.CountIf(valRange, valMatch) – 1) For Each c In valRange If c.Value = valMatch Then RowArray(x) = c.Row: x = x + 1 Next c End […]

VBA运行时错误1004“应用程序定义或对象定义的错误”select范围时: select范围时遇到错误1004“应用程序定义或对象定义的错误”的问题。我仍然可以select行（即Rows("21:21").select ），并在同一工作簿的其他工作表中select范围。我不相信错误是在代码中。也许它的一些设置我不知道？我之前使用过相同的代码，但是由于某种原因，我不能在这个子函数中使用它（我已经评论了错误发生的地方）… Sub CopySheet1_to_PasteSheet2() Dim CLastFundRow As Integer Dim CFirstBlankRow As Integer 'Finds last row of content Windows("Excel.xlsm").Activate Sheets("Sheet1").Activate Range("C21").Select '>>>Error 1004 "Application-defined or Object-defined error" Occurs Selection.End(xlDown).Select CLastFundRow = ActiveCell.Row 'Finds first row without content CFirstBlankRow = CLastFundRow + 1 'Copy Data Range("A21:C" & CLastFundRow).Select Selection.Copy 'Paste Data Values Sheets("PalTrakExport […]

Excel VBA创build一个范围的每个可能的组合: 我有一个问题，我无法在网上find任何地方（它可能在那里，但我找不到它，嘿）。我有一个包含13列数据的电子表格。每一列都包含需要进入整个testing用例的参数变化。他们都不一样，像 E： 101％ 105％ 110％ 120％记者：上部S 上行L 下行B 优质V 我已经看到了使用嵌套循环的组合问题的几个解决scheme。我想避开13个嵌套循环（但这是我现在最好的select）。对于如何在每一列中生成每一个独特的组合，我感到茫然。我不确定这对你们是否有意义。我希望有人能用recursionalgorithm至less指向正确的方向。我想使它足够dynamic，以采取不同数量的列和行。谢谢你们可以给我的任何帮助。