Tag: excel 2010

CountA返回0，WorksheetFunction.CountA返回1

在debugging窗口中，以下expression式全部返回一个。 Application.WorksheetFunction.CountA(Cells(4 + (i – 1) * rows_per_record, 28) & ":" & Cells(5 + (i – 1) * rows_per_record, 58)) Application.WorksheetFunction.CountA(ThisWorkbook.Sheets(n).Cells(4 + (i – 1) * rows_per_record, 28) & ":" & ThisWorkbook.Sheets(n).Cells(5 + (i – 1) * rows_per_record, 58)) 在这种情况下，范围是AB60：BF61，在debugging窗口中确认。 在工作表中，当脚本暂停时，我input一个单元格=CountA(AB60:BF61) ，结果为0，这应该是。 任何解释将不胜感激。 Windows 7，Excel 2010

保存没有macros的Excel工作簿的副本

我有一个包含以下代码的macros的Excel 2010模板文件： ActiveWorkbook.SaveAs Filename:= _ newname, FileFormat:= _ 51, CreateBackup:=False 这将当前工作簿保存为一个非macros启用的工作簿，但我显然不能运行我需要的其余macros。 我试图使用 ActiveWorkbook.SaveCopyAs Filename:= _ newname, FileFormat:= _ 51, CreateBackup:=False 这会产生语法错误。 我的目标是用新名称保存副本，所以模板文件保持不变，并且可以每天运行。

在列中查找两个值并计算相邻单元格的差异

我有两列如下。 ABC 1 1/9/2016 12:57:48 PM Text A 2 1/9/2016 1:04:48 PM Text A 3 1/9/2016 1:05:04 PM Text A 4 1/9/2016 1:05:14 PM Text A 5 1/9/2016 1:05:15 PM Text B A5 – A1 6 1/9/2016 1:05:38 PM Text A 7 1/11/2016 9:57:12 AM Text A 8 1/15/2016 10:42:55 AM Text A 9 1/15/2016 […]

Excel 2010中的错误，Range类中的PasteSpecial方法在macros内失败

以下是我的代码是抛出这个错误： Range类的PasteSpecial方法失败 错误只在我试图debugging的时候才抛出。 Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select Selection.PasteSpecial Paste:=xlValues ' my complete code strSheetName = "sheet1" Sheets(strSheetName).Select B6 = Range("B6").Value B7 = Range("B7").Value Range(Cells(11, 1), Cells((Rowrange + 11), 2)).Select Selection.Copy strSheetName = "sheet2" Sheets(strSheetName).Select ' Range(Cells(7, 1), Cells((Rowrange + 7), 2)).Select '.Range(Cells(7,1), .Cells(RowRange + 7, 2). PasteSpecial Paste := xlValues 'Selection.PasteSpecial Paste:=xlValues With […]

禁用删除工作表

我也想阻止用户删除一些表单。 如何在Excel 2010中做到这一点？ Application.CommandBars("Ply")不再工作。

VB保存到当前path和文件名，再加上当前date到文件名

我是非常，非常新的VB和感谢find这个网站！ 我search和审查每个自动build议类似的问答环节，但我没有find我正在寻找什么（也许是因为我不明白我在看什么… ;-)。 我从另一个用户的问题中使用了这个Excelmacros，由Siddharth Rout回答： macros保存当前date Sub Save() Dim FilePath As String Dim NewName As String FilePath = "X:\": NewName = FilePath & "file" & Format(Date, "MM-DD-YYYY") & ".xlsm" ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub 如果我想将文件命名为“文件”（或插入引号中的任何内容），这完美的工作。 但是，如何编辑这个macros，以便它可以在任何打开的文件上工作，以便将当前date添加到文件的现有path和文件名中？ 在此先感谢您的帮助！ 安迪

IF语句使用TIME

我正在尝试编写一个IF语句来查看时间范围，并返回Shift A或Shift B. 这是我的公式，不工作： =IF(F2>TIME(6,0,0),IF(F2<TIME(16,0,0)),"A","B")

在Excel中创build基于范围的排名公式

我有一个我制作的电子表格，我已经从1-9级开始排名9。 例如： 24-#5 -1-#8 18-#6 40-#4 81-#1 65-#3 16-#7 73-#2 我想要的是一个仍然排名靠前的公式，但我想要一个特定的范围排在超过25的任何人之前，但是负面的依然是最差的。 对于上面的数字看起来像这样： 24-#1 -1-#8 18-#2 40-#4 81-#7 65-#5 16-#3 73-#6 你知道我怎么能做到这一点？

函数调用另一个函数，但得到“卡住”

我是偶尔的VBA程序员，为了好玩（不是我的工作）。 我在MS Excel 2010中有一系列的VBA模块。不知道我做错了什么。 这个例程工作，然后我改变了一些东西，它停止工作。 我做的一件事就是将代码从单个函数分成两个模块。 我认为在我把它分成两部分之后，它工作了一段时间，但是现在我不记得这是否是真的，因为我已经尝试了很多东西来使它重新工作。 幸运的是，我将所有代码的旧版本保存在一个函数中，并且仍然有效。 它将大数组返回到电子表格。 基本上，我有一个工作表，调用一个函数。 该函数调用另一个函数。 使用debugging – 切换断点结合一些MsgBox调用，我发现第一个函数运行到它调用第二个函数的点。 然后第二个函数运行到“End Function”命令。 在那个时候，工作表顶部的名字闪烁了几次……而什么也没有。 在debugging时，程序似乎没有返回到第一个函数。 应该在第一个函数中填充的数组用#Value填充。 我读了几个VBA可能被破坏的地方，closures所有东西并重新启动可以修复它。 它没有。 然后我读到，如果您将所有内容复制/粘贴到一个新的工作表，新的模块（是的，很多的复制/粘贴），可以清理它。 它没有。 我还读到了一个问题，即当维度是函数的inputvariables时，维度数组有问题。 所以我初始化了用于设置数组维度的variables，即使它们是函数的inputvariables。 也许这是一个问题？ 代码很长，所以我只包含了对第二个函数的调用，第二个函数中的variables声明以及其他一些事情。 当我传递variables的时候，可能我搞砸了一些语法？ 第一个function： Option Explicit 'forces all variables to be explicitly declared Function InputOutputDVL(InData As Variant) '——————————————————————————————— Dim g, p, ng, np, ns, ID, count As Integer Dim ngmax, […]

使用VBA填充来自Excel表列的值的一维数组

下面的代码是为了将Excel表中的列读入数组，然后可以用来确定每个“项目”是否属于环境“组”，如果是，将项目编号和美元值添加到另一个数组。 我有我的代码的一些问题，并一直在search互联网和StackOverflow，但已经能够find处理Excel表使用VBA很less的信息。 我正在使用Excel 2010。 Sub UpdateProjectsAndCharges() 'Define arrays to be used Dim projectArray() As Variant Dim uniqueProjectArray(100) As Variant Dim dollarValue() As Variant Dim envProjectArray(100) As Variant Dim envDollarValue(100) As Double Dim cumulativeCosts(100) As Double 'Define all tables in this sheet as list objects Dim UnitsValues As ListObject Dim ChargingTracking As ListObject 'Define counters to […]