Tag: excel 2007

VBA – 对于每个选项button和组

我想取消激活我的选项button,但由于我已经把它们分组在一起,我的代码将不再工作。 到目前为止,我有这样的: Sub Clean_sheet() Dim Ws as Worksheet Dim optBtn As OptionButton Dim m As Byte Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Set Ws = ThisWorkbook.Sheets("Externe") For Each optBtn In Ws.OptionButtons optBtn.Value = -4146 Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 它只是跳过“对于每个optBtn in …”的部分。 我不使用activexControls。 我的小组看起来像这样: 我已经得到了帮助,但由于我分组我的forms,它不工作了:(先谢谢您的帮助

Excel 2007 VBA在对象variables中使用stringvariables值

下午好! 我环顾四周,但是我没有find解决特定问题的任何事情,所以我会尽力解释。 眼镜: Excel 2007,VBA,Outlook 2007 好的,我一直在修改我创build的一些脚本,以便在Excel / Avaya CMS中自动生成报告。 在过去的几年中,我一直是做报告的唯一的人,所以没有必要把事情放在别人的电脑上。 但是,事情正在改变,我正在更新脚本/培训其他人使用它们。 目前,当我把脚本放在他们的计算机上时,我必须进入VBA代码并手动设置每个引用到他们自己的相对文件夹path/ outlook文件夹path。 除非我对脚本进行任何types的更改,并且必须在每台计算机上重新执行整个过程,否则无痛苦的是不够的。 所以这是我的解决scheme:在自动报告工作簿上创buildconfiguration工作表,在该configuration工作表上存储文件path,并在代码中简单地使用variables来引用configuration工作表。 这应该使得在新计算机上从configuration中设置variables一次而不必触摸任何代码行就变得容易了。 问题:午夜有数据从另一个办公室通过电子邮件发送给我们。 我们在这个办公室使用Outlook,所以我只是一直到脚本中指定的文件夹,下载附件,然后使用下载的数据作为报告。 由于每个人都设置了自己的Outlook文件夹,因此每个用户的Outlook内部path都不相同。 由于VBA正在访问工作表以从单元获取configuration信息,因此它将Outlook文件夹的path作为string值返回。 但是,outlook文件夹variables是Objecttypes的,所以它不允许我使用stringvariables作为值,即使string本身是对象所需的实际值(而不是string)。 那么是否可以将string值转换为可以在Objectvariables中使用的值? 工作表configuration单元格值(B5) – string值 outNamespace.Folders("Mailbox – Some Guy").Folders("Reports").Folders("ImportantData") 码: 'Config tab Dim serverConfig As Worksheet Set serverConfig = Sheets("CONFIG") Dim dirOutlookData As String dirOutlookData = serverConfig.Range("B5").Value Dim outFolder As Object Set outFolder = […]

跟踪Excel中的任务依赖关系

我在我的Excel表中有两个选项卡。 选项卡1 :包含跨多个function区域的所有依赖项的列表。 这些列是function区,依赖项描述,依赖项ID,计划结束date,目标结束date。 选项卡2 :包含具有以下列的任务列表: function区域,交付名称,交付物描述,目标date,预计date,依存关系ID 例如 Functional Area Dependencies Plan end date Target End date F1 D1 8/22 8/22 F1 D2 8/23 8/23 F2 D3 8/24 8/24 F2 D4 8/25 8/25 Functional Area Deliverable Dependencies Target Date Projected Date F1 de1 D1, D2 8/20 F1 de2 D1 8/20 F2 de3 D3, D4 8/20 […]

使用excelmacros汇总特定列的数据并将数据传输到sheet2

我正在使用Excel 2007macros,我必须从范围0到300,300到600,600到900等增加300第一列中选​​择数据。 如果列H相对于0到300的值应该被总和并转移到sheet2,并且H列的值300到600的总和被转移到sheet2,对于所有这些情况。 我希望在Excelmacros中创build一个button,通过按下它将所有数据汇总到sheet2。 下面的图片更好地描述了我的情况。

我想改变graphics的Y轴(excel)

我想在“image1”中修改为y轴,使得值范围从0到7而不是从0到18。 我附上我的例子(image1)和一个原始的例子(image3) 感谢您的帮助 图片1 图片3

如何在Excel中向另一个单元格报告单元格值

我正在input表格的A列中的数据。 根据数据,我从黄色的单元格中取出了一些(实际上这个黄色单元格是A列的高值)。 所以所有的10个单元格,都有一个直到数据结束的总和。 我正在寻找自动报告七个第一个灰色单元格(和)到另一个表。 问题是,根据数据,高价值不在同一个地方,所以总数也不在同一个地方。 我能怎么做 ? 感谢您的帮助 我的错误: 而当我按ctrl maj同时input消息:

避免arrays中不符合条件的元素

好的…下面的行将数组myArr的内容放在单元格A1中 sh.Range("A1").Resize(cnt, 7).Value = myArr 以下是上述线路输出的一些示例logging 18 5 1 23 15 7 6 23 5 3 10 18 20 15 19 10 25 12 21 15 23 10 14 11 9 7 25 20 24 15 23 20 11 17 2 7 15 3 16 24 22 13 14 4 15 13 6 23 2 […]

Excel GoalSeekmacros不起作用

任何人有任何build议如何解决这个macros。 一个编译错误不断出现,突出显示偏移量函数,并说未定义的子或函数。 Worksheets("Testing").Range(Offset(K51, 0, C41)).GoalSeek _ Goal:=0, _ ChangingCell:=Worksheets("Testing").Range(L58)

将表名重命名为表名

我从SQL导入了一堆数据到我的Excel中。 所以我有一堆这样的表: 每张纸都有一个表格名称,可以在表格视图区域中查看: 我想知道是否有任何方法来重新命名表的名称是什么。 任何帮助,将不胜感激。

如何使用Excel公式从格式化文本中的Excel单元格中提取大文本?

我在Excel单元格中有以下文本: $abcd.$efghijk.$lmn.$op.$qrst. 我只想在Excel单元格中使用Excel公式的以下格式的以上文本: abcd$abcd.efghijk$efghijk.lmn$lmn.op$op.qrst$qrst.