Tag: excel 2007
重新命名一个新的工作表会产生“内存不足”错误 – 为什么？
我试图做一个新的工作表，并给它一个名字使用下面的代码： Sub CREATEWORKSHEETS() For Each PC In ActiveWorkbook.PivotCaches On Error Resume Next PC.Refresh Next PC PvtCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Pivot Data!$AF:$AO") Sheets("P&L Pivot").Select Application.DisplayAlerts = False On Error Resume Next Sheets("MAIN").Delete Application.DisplayAlerts = True On Error GoTo 0 Sheets.Add.Name = "MAIN" End Sub 但是，每当它尝试创build新的“MAIN”工作表时，我总是会收到“内存不足”错误。 将其分解为以下内容： Sheets.Add ActiveSheet.Name = "MAIN" build议重命名操作是罪魁祸首，但我不明白为什么。 有没有人知道为什么这可能会发生？
在Excel中分隔“m / d / yyyy h：mm”格式的单元格中的组件
我在excel中包含格式为m:d:yyyy h:mm （单元格）的时间戳。 Excel引用的格式为自定义 。 我怎样才能提取组件？ 谢谢。 例如 Timestamp 12/4/2012 0:32 … 会成为 Timestamp month day year hour minute 12/4/2012 0:32 12 4 2012 0 32 …
VBA EXCEL-比较列表框项目到单元格值（string）
我的列表框在窗体上。 当用户select列表项时，它们被存储在列中。 后来当单击m编辑button时，我想读取这些值并将它们添加到表单上的选定列表（Listbox_selectedCategories）上，并将它们从另一个列表框（Listbox_categories）中移除。VBA编辑器正在抛出的错误是错误381无法获得列表属性。 无效的属性数组索引。 我已经检查了正在迭代的即时窗口中的x和索引的值。我也尝试过没有Cstr函数，同样的错误。 编译器突出显示if语句作为错误点。 林肯定这是一些根本的误解，我会感谢任何帮助或方向。 谢谢。 Public Sub dataLoad() Dim x As Integer x = 0 NewQueryForm.targetingDescription.value = ActiveCell.Offset(1, 0).value NewQueryForm.booleanDescription.value = ActiveCell.Offset(1, 1).value NewQueryForm.startDate.value = ActiveCell.Offset(1, 3).value NewQueryForm.endDate.value = ActiveCell.Offset(1, 4).value NewQueryForm.dfpCount.value = ActiveCell.Offset(1, 5).value NewQueryForm.Text_300Rates = ActiveCell.Offset(1, 8).value NewQueryForm.Text_160Rates = ActiveCell.Offset(2, 8).value NewQueryForm.Text_728Rates = ActiveCell.Offset(3, 8).value NewQueryForm.Text_PollRates = ActiveCell.Offset(4, 8).value NewQueryForm.Text_CMRates […]
在excel单元格中只能在几分钟内格式化
我正在使用excel 2007.我需要帮助格式化单元格显示只有几分钟。 假设实际持续时间是30秒，则应该显示.5
使用macros剪切并粘贴一个string的一部分
如果string在第9个字符中有一个 – 符号，我需要一个macros将string的一部分从A列剪切并粘贴到B列。 我发现一些代码在stackoverflow将复制/粘贴文本部分，但不剪切/粘贴。 我的数据看起来像这样 SUBIAIUP-456253 SUBIAIUP-254 这是我迄今为止的代码： Public Sub LeftSub() Dim cell As Range Dim sourceRange As Range Set sourceRange = Sheet1.Range("A1:A180") For Each cell In sourceRange If Mid(cell.Value, 9, 1) = "-" Then 'this code should cut/paste the value from col A to col B, not copy/paste Sheets("Sheet1").Range("B" & cell.Row).Value = Mid(cell.Value, 9, […]
OLEObject的方法不在Excel VBA中工作
任何想法，为什么这个工程（VBA，Excel 2007）： ThisWorkbook.Worksheets("Sheet1").OLEObjects(controlId).ListFillRange = "" 但是这不是： ThisWorkbook.Worksheets("Sheet1").OLEObjects(controlId).AddItem ("xyz") 我不记得以前我是如何解决这个问题的。 现在它说对象不支持这个属性或方法（这是一个combobox）。 PS：这很奇怪， 我testing了一个运行良好的旧程序，据我记忆，现在它失败了，莫名其妙。 它也包含这样的参考： MsgBox ThisWorkbook.Worksheets("Sheet1").toggleBtn.Caption
Excel函数 – 如果没有结果，则使单元格为“0”
如何编辑这个数组函数，使结果显示0而不是＃N / A如果没有结果？ 我试着用它的IF语句，但不能得到它的工作… =INDEX(INDIRECT("'"&I18&"'!$h$1:$h$999"),MATCH(1,(INDIRECT("'"&I18&"'!$a$1:$a$999")="Last 20 Games by Venue")*(INDIRECT("'"&I18&"'!$b$1:$b$999")=O18),0))
Countif与下一个单元格不空
我需要计算一个string在一个范围内出现的次数，但只有当下一个单元格不为空时。 A 1 B 5 D 4 A G 1 B 4 B 8 D 所以我想要A-> 1，B-> 3，D-> 1，G-> 1 我怎样才能做到这一点？
excel粘贴vba中的特殊function，不粘贴单元格宽度
我正在运行一个macros从一张纸复制到另一张纸，但是，它不粘贴单元格的宽度。 如果我手动这样做，它的工作原理即复制列和粘贴特殊>所有。 macros的vba代码位于： http ： //pastebin.com/K2sW1C8x 正如你所看到的我正在使用： Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
如何修改我的VLOOKUP（）只search1个字符？
我有一个Excel工作簿下拉列表中的几个单元格。 其他单元格使用VLOOKUP（）search参考工作表以获取下拉值代码的说明。 我不得不修改我的下拉列表，不仅包含价值代码，而且还包含描述。 因此，其他单元格的VLOOKUP（）不再正常工作，查找整个值，如“ 1 – Bag ”，而不是“ 1 ”。 下拉列表示例 – 单元格（F5）之前：1,2,3,4,5之后：1-袋，2-液体，3-固体，4-jar等 参考单元示例 – 单元（A21）之前：= IFERROR（VLOOKUP（F5，SampleFrom！1：10,2，FALSE），“”）之后： 有人可以协助我修改我的公式，只search单元格值的第一个字符，在这个例子上面的F5的值的第一个字符？ 谈到Microsoft Excel，我仍然非常可爱。
