Tag: excel 2003

Workbook_Deactivate事件中的UserForm.Hide错误: 正如标题所说，我的用户表单遇到了一个特殊的问题。当我closures它（使用命令button）时，Workform_Deactivate事件中的Userform.Hide上将popup一个错误消息。这是Userform_initialize事件中的代码：这里的所有variables都是全局的 VBA： Private Sub Userform_Initialize() subRemoveCloseButton Me Set pagina = ThisWorkbook.Worksheets("Ruta") Set libro = Workbooks.Open(pagina.Range("B4").Value, False, True) Set pagina2 = libro.Worksheets("GLOBAL") pasadas = 0 If pagina2.AutoFilterMode Then If pagina2.FilterMode Then pagina2.ShowAllData End If ElseIf pagina2.FilterMode Then pagina2.ShowAllData End If pagina2.Columns("A:IV").EntireColumn.Hidden = False lastRow = pagina2.Cells(pagina2.Rows.Count, "B").End(xlUp).Row Call RemoveDuplicates With Me.ImagenDatos .ScrollBars = […]

在Excel 2003 VBA中使用combobox和文本框的多个高级filter: 在我发布我的问题之前，我仔细search了这些话题，实际上找不到匹配我的案例。我已经使用Excel 2003为当前作业的需求创build了一个大型数据库。我已经build立了一个包含八个可能的标准选项的高级filter。现在我必须通过设置UserForm来扩展界面和function。不幸的是，我觉得如果我不完成这个，可能会让我的工作耗费我的工作。我的UserForm的目的是通过允许用户从三个保pipe箱（cboSelectCategory，cboSelectStructure，cboSelectSX）中指定一个标准来简化数据库中的search。 comboboxcboSelectCategory是适应我的标准范围的头是CriteriaCategory（见图1）。另外两个，cboSelectStructure和cboSelectSX由两个单独的下拉列表填充，数据库中的每一条信息都有两个列表（在我的数据库中，每一行代表一个文档，而且我有三个文档 – 活动文档，取消文档和待处理文档）。所有三个cbo应该使用同一个文本框（txtSearch）来inputsearch关键字/ s。另外，如果没有从cbo中select任何内容，则文本框input文本应作为整个数据库匹配数据的searchstring，即使部分（如果数据以searchstring符号开始或结束）也是如此。这是我的代码到目前为止。我已经添加了评论和图片链接来说明我的情况。范围CriteriaCategory包括BN到BU（DOC编号，英文名称，包括STRUCTURE）的标题。下面的单元格（第8行）用于根据我要search的数据typesinputsearchstring。例如，如果我正在查找文档编号，我将在DOC NUMBER下面的单元格中inputsearchstring，以此类推。这些标题列在下面的图片UserForm中的我的cboSelectCategorycombobox中。我正在试图让Excel把我在工作表中正确的单元格中的关键字文本框中input的内容取决于我在cboSelectCategory中select的内容，然后运行高级filter。此外，我需要让Excelsearch整个数据库，如果这三个cbo被用户留空，并返回每一个匹配，不pipe工作表（我有三个）在哪里find它，无论它是在开始单元格文本或最后。我没有丝毫的线索来解决这个问题。任何想法，赞赏，代码片断也。我看起来像这样： Private Sub cmdSearch_Click() If Me.cboSelectCategory.Value = "" Or Me.cboSelectStructure.Value = "" Or Me.cboSelectSX.Value = "" Then Me.txtSearch.Value = Sheet6.Cells("BS8").Value AdvancedFilterCategory Else Me.cboSelectCategory.Value = Range("CriteriaCategoryFirstRow").Find(what:=Me.cboSelectCategory.Value, _ LookIn:=xlValues) Me.txtSearch.Value = Range("CriteriaCategoryFirstRow").Offset(1, 0).Value […]

保存时closures质量损失的Excel提示: 我正在为军中的专业人士开展macros观工作 – 我制作空军安全图。我想让自己的工作变得简单，所以我希望macros将会改变一些事情 – 它现在正在做的事情，它会保存文件并退出。当我保存文件，它提示质量损失，我想绕过它。将 Application.DisplayAlerts = false 工作？我不能在我的电脑上testing它，因为这里没有发生在我身上，我只是从军队回来 – 我将在3天内回到那里，只是想确保我有正确的答案… 如果它不会解决我的问题会有什么？谢谢！

如何筛选string文本单元格？: 如果表格的行数未知，我想使用SUMPROCUT函数。所以公式是由= SUMPRODUCT（ – F：F， – G：G）写的，Enter键被按下后#VALUE！出现。我意识到列名称是stringtypes，但它们包含在计算中，这可能是问题。如何避免SUMPRODUCT函数中的string文本？或者你有一个更聪明的方式，请帮助。先谢谢了！ [更新 – screentshot和原始要求] 客户问我一个计算总和的公式（列F *栏G），比如10 * 470 + 5 * 350 + 5 * 5.5 + 25 * 180 + 4 * 48 + 6 * 15 + 80 * 4.5 + 70 * 5.44，我不知道他们的表中有多less行，导致他们想要一个通用的公式来处理所有的Excel文件

Excel 2003 XYZ曲线图，如XY折线图: 我有一个在Excel 2003中形成一个表面的值的网格。简单的例子 Day 1 2 3 5 ================== 1 0 0 2 1 2 0 2 3 0 3 0 0 1 0 在列标题4丢失，因为没有4的条目（即所有数据为零）。当我试图在Excel 2003中将其绘制为曲面图时，它将1,2,3,5绘制成系列名称和相同的距离，使表面变形（即将它们视为类别轴不是一个值轴）反正有没有办法产生一个相当于xyz值的轴面图？ PS在实际数据中填写缺less的列号是不可行的。

在Excel中dynamic设置总和公式: 我想总结两个单元格的值。就像我想在C1中的A1和A2的总和那么这个formulla将会是=sum(A1,A2) 。但在这个formulla行号固定（即1和2）。但我希望行号应该在Excel中dynamic决定。假设我有单元格区域A1到A100的整数值。现在我想要A1到A100之间的任意两个值的总和。我把行号放在B1和B2中，并在C1中写这个公式 =SUM(A&B1,A&B2) 所以在上面的formulla列A是固定的，我想从其他单元格中select行号。例如，如果我inputB1中的5和B2中的10，那么formulla应该总和A5和A10的值。同样，我可以在列B1和B2中input1- 100之间的任何值。我想直接在Excel中而不是在macros中。

macros – 复制和粘贴: 我的公司只使用MS Office 2003产品，所以我必须坚持下去。由于我的工作性质，我需要使用大量的“复制和粘贴”function。源数据主要来自网站，我将数据粘贴到Excel中的单元格中。问题是剪贴板保持源格式，它反映在单元格上时，我粘贴它。每次用户复制和粘贴时，通过select“粘贴为文本”选项来删除源格式是非常麻烦的。所以我决定使用macros。当我试图从网站复制和粘贴到Excel，macros完美的作品，但是当我从Excel复制并粘贴到相同的工作表，它会引发错误。这是我使用的代码复制和粘贴从网站到excel没有源格式。 Sub Paste_without_any_formatting() ActiveSheet.PasteSpecial Format:="Text" End Sub 我想添加另一个代码从Excel复制和粘贴到这样的工作表。 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 我怎样才能把这两个代码放在一起？当我按下Ctrl + V时，我想让这些事情发生。谁能帮我？

dynamic更改表格标题: 我有几个.xls文件，他们的表名与他们的文件名相同。由于工作表名称是用每个.xls文件更新的，所以我当前的代码不会dynamic更新。有没有办法dynamic更新工作表名称，以便可以在所有的.xls文件中使用代码？ Range("A3:E4500").Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("named").Range("A3:E4500"), _ PlotBy:=xlColumns “名字”将会dynamic变化。我试图添加这个代码，但如果给出了错误消息。 WBname为每个工作表提供正确的名称，但“源”不喜欢string。 Dim WBname As String WBname = Replace(ActiveWorkbook.Name, ".xls", "") Application.ScreenUpdating = False Range("A3:E4500").Select Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("WBname").Range("A3:E4500"), _ PlotBy:=xlColumns

Excel加载项不会得到提示: 我有一个excel插件，在我开始使用excel时不断回来，即使我已经从excel的最后一个打开的实例中删除它（是的，我检查了任务pipe理器中的进程）。当我在安全模式下开始出色的时候，这个小动物甚至出现了。其他人有这个？

在Excel 2007中，Excel Shape.TextFrame.Characters.Insert是否被破坏？: 我已经得到了这段代码，我一直在使用Excel 2003，它模仿微软网站上提供的解决scheme。如何添加超过255个字符到形状的文本框架： For i = 0 To Int(Len(myTxt) / 255) .Characters(.Characters.Count + 1).Insert Mid(myTxt, (i * 255) + 1, 255) Next i 这只是在Excel 2007下不起作用。有两个问题。插入不能插入在字段的末尾，它插入在现有的字符。所以.Characters(.Character.Count).Insert将工作，即使它不是我想要做的。它的操作是覆盖，而不是插入。无论我申请插入它覆盖现有的字符。所以(.Character.Count)处的Insert将删除最后一个字符。现在我已经build立了逻辑，根据您使用的Excel版本的不同进行操作。但是我找不到与这个问题有关的任何事情。这是一个已知的错误？有没有办法解决这个问题？（在相关说明中，我无法设置.Characters(x,y).Font.Underline = True。）编辑在我特别的例子中，上面的代码包含了类似于With myWorksheet.Shapes(1)形状是一个文本框。它里面已经有文本了，我需要附加myTxt （一个长度超过255个字符的string ）。这个代码在Excel 2003上没有任何问题。我已经看到这个问题在其他地方引用，但从堆栈溢出寻找它的正式声明…