Office
有人可以用以下代码帮助我: Dim NewOutputFile As Workbook 设置NewOutputFile =工作簿。添加(FileName&“.xls”) 其中 FileName =“C :\Documents and Settings\me\My Documents\file.xls“ 我想动态创建一个新的工作簿,然后添加新的选项卡:
..
下面的代码返回一个数组。我想在一个电子表格中使用它作为excel公式返回数组。但是,当我这样做,它只返回第一个值到单元格。有没有可以返回与数组相同大小的数组? 函数LoadNumbers(低至高,高Long)As Long() ''''''''''''''''''''''''''''''' '返回一个Longs数组,包含 '从低到高的数字。返回的 '数组中的 '元素数量将根据 '低和高的值而
..
使用VBA我从Yahoo Finance导入一个csv文件到excel,每行包含7个逗号分隔值。我想只导入每行的第一个和第五个逗号分隔的值。目前我导入整个csv,将其解压到列,然后删除不需要的列。然而,这不足以供将来使用此导入。如何选择要导入的列? 当前代码: qURL =“http://ichart.finance.yahoo.com/table.csv?s=”&符号与“& a =
..
Sub CoverageBssEntry()$ b我有以下VBA代码,应该显示另一个隐藏的表格中的数据。 $ b Application.ScreenUpdating = False 表格(“myhiddensheet”)。选择 范围(“myTable [#All]”)。选择 ActiveSheet.ShowDataForm End Sub 当我运行它时,数据表
..
我有一个用户表单,看起来像下面的图像,具有命名约定,以标识水平&位置(如上图中的示例)。我还有下面的当前代码,但是我还没有为每个“端口”复选框添加代码,最后我将根据它们是否将每个复选框特定的值插入到数组中检查/取消检查。 我想知道以下内容: 是否通过阅读是否检查/取消选中复选框(如下所示),或在“更改”中勾选或取消勾选复选框的条件? 我可以缩短将表单上任何复选框的操作编号为仅一(
..
我有一本包含所有分支机构的所有发票清单的工作簿,我们称之为“一切”,基本上我需要搜索包含每个分行发票的另一个文件中的发票。它实际上是每个分支的文件,每个文件按月份分割,我需要检查每个工作表,然后在一个单元格中插入一个值。让我们为每个分支打电话给这个“0001”等等。 “一切”文件基本上包含一个分支号码列,一个带发票号码,一个有发票号码与发行人代码和一个说,如果它在分支机构文件中找到。分支文件
..
这张照片是我的excel数据格式,我想将其导出为固定列宽的文本文件,例如: 用户ID总额 001 22:00 17:00 002 4:00 4:00 如何设置PERSONAL.XLSB始终打开新创建的特定名称工作簿时自动运行我的脚本? 我尝试添加这个脚本进入XLSB> ThisWorkBook Private WithEvents App A
..
我已经在excel中弹出了一个漂亮的日历,并通过以下方式测试了UserForm的位置: .Top = Application.Top + 125 .Left = Application.Left + 125 这是非常好的,但我真正想要的是在活动单元格旁边弹出窗体。 我以下尝试的不工作,我不知道为什么。我想要窗体的左上角触摸活动单元格的右上角,但是表单最后覆盖了活动单元格
..
我不知道这是否可以完成,但是如果用户在后端运行宏时,用户可以使用excel电子表格,那将是非常好的。有什么办法可以做到吗?谢谢。 编辑:用户重复(> 10 ^ 5次)通过宏生成n个项目(n〜100)的随机排列。这可能需要10-15分钟(或更多)才能完成。所以,如果用户可以打开excel工作簿来执行其他任务,而在宏运行的时候,这将是很好的。 (它通常是与宏运行的工作簿不同的工作簿)。请让我知道
..
我正在尝试将Excel范围的数据从Excel工作簿复制到另一个工作簿,而不需要在此过程中选择任何工作簿,并使用工作表对象名称。 我想这样做是因为选择过程: Windows Source“)。激活 - ”Sheet“(”SourceSheet“)选择 - 范围(”SourceRange“)复制 - Windows(”DestinationWorksheet“)激活 - 范围(“Des
..
= {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
..
对我来说容易,因为我是新的。我已经创建了一些宏,从以下提取搜索结果:Sec全文搜索: http:/ /searchwww.sec.gov/EDGARFSClient/jsp/EDGAR_MainAccess.jsp 现在我的数据都被清理并设置在不同的列中,我需要根据结果创建查询。在列BI中有一个公司名称列表,我想引用列“B”中的每个单元格,并在 http://www.marketwatc
..
我有两行,即: ID 和时间。我想提取与唯一列ID相对应的两个最小的时间值。 ID时间 27604 13:00 :12 27604 13:00:32 27604 13:00:34 27604 13:00:38 27604 13:00:41 27604 13:00 :47 27604 13:00:50 27605 13:00:20 27605 13:00:2
..
我主要尝试在更简单的设置中模仿此 。没有运气。 我写了一个简单的fortran代码: 子例程POWERTWO(n,nsquared) !DEC $ ATTRIBUTES DLLEXPORT :: POWERTWO integer,intent(in):: n integer,intent(out):: nsquared nsquared = n * n 返回 结束子例程P
..
我需要从两个数组的差异创建第三个数组,我根本无法获得这个 的逻辑正确的第三个数组 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
..
所以我正在做这些功课,完全没有把Excel公式放在我的代码中。这是提示: 在代码中使用Excel函数Application.WorksheetFunction)来计算 的统计信息,并将相应的值分配给类型为double的变量。引用 范围名称ScoresData时,引用作为参数 作为函数提供的范围。记住 - 在代码中使用Excel函数时,需要使用VB语法完成范围 规范。 打开一个消
..
通过代码动态地将复选框添加到UserForms 我试图在用户表单的多个复选框中收集特定文件夹中的所有文件名,以便我可以选择一个移动到另一个文件夹....添加一个复选框后,我无法在运行时添加另一个请帮助。 Private Sub Download_file_Click() Dim wrkbk As Workbook Dim ass As New FileSystemObject
..
我有以下代码: 范围(“A1:M28”)。CopyPicture外观:= xlScreen,格式: = xlPicture Sheets.Add.Name =“无格式” 工作表(“无格式”)粘贴_ 目标:=工作表(“无格式”)范围(“A1:M28”) 复制一些单元格,然后将其作为图片粘贴到另一个工作表中,有没有一种将图片(最好是jpeg)保存到特定位置的方法,以便我
..
我在工作簿中有50个工作表。列a,b,c,d与列e,f,g,h相同,但两个集合可能具有不同数量的行/观察值。我需要在一个单独的页面中只整合3列。我需要附加列名,从第3行开始复制和粘贴(值)(直到数据结尾)。我尝试录制一个宏,但在这种情况下,我必须手动完成所有的工作表。有人可以引导我走向正确的方向吗?我对VBA很新,有一点帮助将不胜感激。复制2张表的记录宏如下所示: 表格(“第9页”)选择 范
..
我有一个工作簿设置在Sheet1可以编辑的到期日期在多列(列C到T)中列A和B中的某些列出的名称;第1行和第2行是一个标题,因此数据输入从第3行开始。 Sheet2是相同的,使用INDIRECT公式作为受条件格式的受保护页面,突出显示某些单元格为红色或黄金,如果到期日期到来。 我没有经验的VBA,并一直在寻找符合以下条件的宏: 仅在Sheet2上,如果该行不包含任何红色或黄色的单
..