Office

创建一个新的excel工作簿

有人可以用以下代码帮助我: Dim NewOutputFile As Workbook 设置NewOutputFile =工作簿。添加(FileName&“.xls”) 其中 FileName =“C :\Documents and Settings\me\My Documents\file.xls“ 我想动态创建一个新的工作簿,然后添加新的选项卡: ..
发布时间:2017-09-26 22:55:11 Office

在电子表格功能中返回数组

下面的代码返回一个数组。我想在一个电子表格中使用它作为excel公式返回数组。但是,当我这样做,它只返回第一个值到单元格。有没有可以返回与数组相同大小的数组? 函数LoadNumbers(低至高,高Long)As Long() ''''''''''''''''''''''''''''''' '返回一个Longs数组,包含 '从低到高的数字。返回的 '数组中的 '元素数量将根据 '低和高的值而 ..
发布时间:2017-09-26 22:54:33 Office

VBA:仅导入csv文件的所选列

使用VBA我从Yahoo Finance导入一个csv文件到excel,每行包含7个逗号分隔值。我想只导入每行的第一个和第五个逗号分隔的值。目前我导入整个csv,将其解压到列,然后删除不需要的列。然而,这不足以供将来使用此导入。如何选择要导入的列? 当前代码: qURL =“http://ichart.finance.yahoo.com/table.csv?s=”&符号与“& a = ..
发布时间:2017-09-26 22:53:24 Office

VBA Excel数据表不显示正确的输入和字段

Sub CoverageBssEntry()$ b我有以下VBA代码,应该显示另一个隐藏的表格中的数据。 $ b Application.ScreenUpdating = False 表格(“myhiddensheet”)。选择 范围(“myTable [#All]”)。选择 ActiveSheet.ShowDataForm End Sub 当我运行它时,数据表 ..
发布时间:2017-09-26 22:51:13 Office

Excel宏用户窗体 - 单个代码处理多个复选框

我有一个用户表单,看起来像下面的图像,具有命名约定,以标识水平&位置(如上图中的示例)。我还有下面的当前代码,但是我还没有为每个“端口”复选框添加代码,最后我将根据它们是否将每个复选框特定的值插入到数组中检查/取消检查。 我想知道以下内容: 是否通过阅读是否检查/取消选中复选框(如下所示),或在“更改”中勾选或取消勾选复选框的条件? 我可以缩短将表单上任何复选框的操作编号为仅一( ..
发布时间:2017-09-26 22:50:43 Office

VBA找不到工作

我有一本包含所有分支机构的所有发票清单的工作簿,我们称之为“一切”,基本上我需要搜索包含每个分行发票的另一个文件中的发票。它实际上是每个分支的文件,每个文件按月份分割,我需要检查每个工作表,然后在一个单元格中插入一个值。让我们为每个分支打电话给这个“0001”等等。 “一切”文件基本上包含一个分支号码列,一个带发票号码,一个有发票号码与发行人代码和一个说,如果它在分支机构文件中找到。分支文件 ..
发布时间:2017-09-26 22:49:53 Office

UserForm StartUpPosition

我已经在excel中弹出了一个漂亮的日历,并通过以下方式测试了UserForm的位置: .Top = Application.Top + 125 .Left = Application.Left + 125 这是非常好的,但我真正想要的是在活动单元格旁边弹出窗体。 我以下尝试的不工作,我不知道为什么。我想要窗体的左上角触摸活动单元格的右上角,但是表单最后覆盖了活动单元格 ..
发布时间:2017-09-26 22:48:57 Office

运行宏时使用Excel

我不知道这是否可以完成,但是如果用户在后端运行宏时,用户可以使用excel电子表格,那将是非常好的。有什么办法可以做到吗?谢谢。 编辑:用户重复(> 10 ^ 5次)通过宏生成n个项目(n〜100)的随机排列。这可能需要10-15分钟(或更多)才能完成。所以,如果用户可以打开excel工作簿来执行其他任务,而在宏运行的时候,这将是很好的。 (它通常是与宏运行的工作簿不同的工作簿)。请让我知道 ..
发布时间:2017-09-26 22:48:41 Office

“运行时错误”438':对象不支持此属性或方法。 Range.values = Range.values

我正在尝试将Excel范围的数据从Excel工作簿复制到另一个工作簿,而不需要在此过程中选择任何工作簿,并使用工作表对象名称。 我想这样做是因为选择过程: Windows Source“)。激活 - ”Sheet“(”SourceSheet“)选择 - 范围(”SourceRange“)复制 - Windows(”DestinationWorksheet“)激活 - 范围(“Des ..
发布时间:2017-09-26 22:48:10 Office

运行时错误1004在vba中复制长数组公式

= {IF(COUNT(IF(ISNUMBER (A30:A1000); IF(C30:C1000> A30:A1000-1; A30:A1000)))> = COUNT(IF(ISNUMBER(A30:A1000); IF(B30:B1000> A30:A1000-1; A30:A1000))); COUNT(IF(ISNUMBER(A30:A1000); IF(C30:C1 ..
发布时间:2017-09-26 22:47:54 Office

动态网页查询

对我来说容易,因为我是新的。我已经创建了一些宏,从以下提取搜索结果:Sec全文搜索: http:/ /searchwww.sec.gov/EDGARFSClient/jsp/EDGAR_MainAccess.jsp 现在我的数据都被清理并设置在不同的列中,我需要根据结果​​创建查询。在列BI中有一个公司名称列表,我想引用列“B”中的每个单元格,并在 http://www.marketwatc ..
发布时间:2017-09-26 22:47:03 Office

从两个数组的差异创建第三个数组

我需要从两个数组的差异创建第三个数组,我根本无法获得这个 的逻辑正确的第三个数组 v3 将(从下面的代码) v3 =(Carol,Ted,Thor,Freya) 谢谢 Sub MatchArrays() Dim v1,v2,v3 Dim i As Long,j As Long v1 = Array(“Bob”,“Carol”,“Ted”,“Alice”,“Thor ..
发布时间:2017-09-26 22:45:57 Office

需要帮助使用Excel函数在VBA子

所以我正在做这些功课,完全没有把Excel公式放在我的代码中。这是提示: 在代码中使用Excel函数Application.WorksheetFunction)来计算 的统计信息,并将相应的值分配给类型为double的变量。引用 范围名称ScoresData时,引用作为参数 作为函数提供的范围。记住 - 在代码中使用Excel函数时,需要使用VB语法完成范围 规范。 打开一个消 ..
发布时间:2017-09-26 22:45:39 Office

如何通过VBA中的循环动态添加用户表单复选框?

通过代码动态地将复选框添加到UserForms 我试图在用户表单的多个复选框中收集特定文件夹中的所有文件名,以便我可以选择一个移动到另一个文件夹....添加一个复选框后,我无法在运行时添加另一个请帮助。 Private Sub Download_file_Click() Dim wrkbk As Workbook Dim ass As New FileSystemObject ..
发布时间:2017-09-26 22:45:23 Office

VBA:复制单元格,粘贴为图片,然后另存为图片?

我有以下代码: 范围(“A1:M28”)。CopyPicture外观:= xlScreen,格式: = xlPicture Sheets.Add.Name =“无格式” 工作表(“无格式”)粘贴_ 目标:=工作表(“无格式”)范围(“A1:M28”) 复制一些单元格,然后将其作为图片粘贴到另一个工作表中,有没有一种将图片(最好是jpeg)保存到特定位置的方法,以便我 ..
发布时间:2017-09-26 22:44:29 Office

如何将从不同工作表横向放置的同一列复制到单个工作表中?

我在工作簿中有50个工作表。列a,b,c,d与列e,f,g,h相同,但两个集合可能具有不同数量的行/观察值。我需要在一个单独的页面中只整合3列。我需要附加列名,从第3行开始复制和粘贴(值)(直到数据结尾)。我尝试录制一个宏,但在这种情况下,我必须手动完成所有的工作表。有人可以引导我走向正确的方向吗?我对VBA很新,有一点帮助将不胜感激。复制2张表的记录宏如下所示: 表格(“第9页”)选择 范 ..
发布时间:2017-09-26 22:43:36 Office

Excel:如果该行中没有单元格被着色,则隐藏一行

我有一个工作簿设置在Sheet1可以编辑的到期日期在多列(列C到T)中列A和B中的某些列出的名称;第1行和第2行是一个标题,因此数据输入从第3行开始。 Sheet2是相同的,使用INDIRECT公式作为受条件格式的受保护页面,突出显示某些单元格为红色或黄金,如果到期日期到来。 我没有经验的VBA,并一直在寻找符合以下条件的宏: 仅在Sheet2上,如果该行不包含任何红色或黄色的单 ..
发布时间:2017-09-26 22:43:17 Office