Questions tagged «vba»

Visual Basic应用程序;所有Microsoft Office应用程序中使用的Visual Basic的子集。考虑将该标签与该特定应用程序的标签一起使用。关于VBA的好问题通常包含一些代码,并要求解决特定问题。要求完整解决方案的问题(请给我代码/如何使用VBA做到这一点)不在主题之内,将因为过于广泛而封闭。

1
VBA;填充数组的最后一行以匹配相邻列的长度
因此,对于VBA的早期尝试,我正在写一个宏: 我正在粘贴一组每月增加行数的数据;数据组织良好,没有空白值/列 我在A-L列中有公式,我的数据被放入L-向前的列中 我想更新A-L中的公式/列以填充以匹配M列中的最后一个值 苦苦挣扎,如果你能够提供一个非常值得赞赏的解释。我知道它涉及选择A中的最后一行:L - 我已经得到了但我无法弄清楚如何干净地填充以每次匹配不同长度的列M. Sub Macro6() ' ' Macro6 Macro ' ' Range("M1").Select Range(Selection, Selection.End(xlDown)).Select ActiveCell.Offset(0, -1).Select Range(Selection, Selection.End(xlToLeft)).Select Range(Selection, Selection.End(xlUp)).Select Selection.FillDown End Sub

1
将取消的会议保留在您的日历上以供参考
我喜欢在取消会议后跟踪会议。它可以帮助我回顾各种主题的活动,有时还可以解释为什么我没有去参加你的会议。(EG,“同时召开了一次定期会议,但主席已经取消了会议并删除了整个系列,而不仅仅是未来的系列。”) 我尝试使用slipstick.com上发布的脚本,因为一些不同的搜索结果让我回到同一篇文章。但是,它对我来说不太适合。有没有更简单的方法? 这是该脚本的副本: Sub CopyMeetingtoAppointment(oRequest As MeetingItem) If oRequest.MessageClass <> "IPM.Schedule.Meeting.Canceled" Then Exit Sub End If Dim oAppt As AppointmentItem Dim cAppt As AppointmentItem Set cAppt = oRequest.GetAssociatedAppointment(True) Set oAppt = Application.CreateItem(olAppointmentItem) 'I added (Rule) to the subject so I could see the rule was working. oAppt.Subject = "(Rule) Canceled: …

1
使用Chart BeforeDoubleClick与工作表中的图表对象
我试图使用Chart.BeforeDoubleClick事件让宏在工作表中的图表上工作。 我已经能够在独立的图表中使用BeforeDoubleClick事件(不使用类模块)。但我想让它在嵌入作为工作表中的对象的图表中工作。我们的想法是在单个工作表中复制多个图表。 按照本书中的建议(第172-3页),我做了以下工作: 创建了新的工作簿。在工作表Sheet1中添加了2列随机数据,并在数据旁边的同一工作表中添加了散点图。 使用代码插入名为“cl_ChartEvents”的类模块: Public WithEvents myChartClass As Chart 使用代码创建了一个标准模块: Dim myClassModule As New cl_ChartEvents Sub InitializeChart() Set myClassModule.myChartClass = _ Worksheets("Sheet1").ChartObjects(1).Chart End Sub 在VBA编辑器中,双击“Sheet1(Sheet1)对象并插入代码: Private Sub MyChartClass_BeforeDoubleClick(ByVal ElementID As Long, _ ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean) Select Case ElementID Case xlLegend Me.HasLegend …

1
使用Excel中的按钮将数字从一列添加到另一列并使用新数字替换第二列中的旧数字
就像标题所说的那样。我有一张预算表,我正在努力,我想要一个按钮,这样每周我收到付款时我都可以点击它并将已分配的工资添加到每笔费用的分配资金池中。 单击“我的表” 所以我已经计算出所有的计算结果用于分配每周支付费用,但我无法弄清楚如何编码按钮来做我需要的东西。 好吧基本上我需要从D6到D48的所有数字都添加到E6到E48的相邻数字。但是,我还需要在此列中显示新数字,就好像它每次只是向其添加新数量一样。即E6 = E6 + D6,每次按下按钮,它只会将D列中的内容添加到E列上。 对不起漫无边际,我希望这是有道理的。 在此先感谢您的帮助 彼得

0
Excel Home and Student 2010中禁用VBA(在XP SP3上)
除了在Excel中禁用VBA /宏功能外,Office的所有功能似乎都能正常工作。我无法启动编辑器,所有启用宏的文件都被解释为损坏,并且“不可读内容”(即VBA代码)在打开之前被丢弃。奇怪的是“记录宏”按钮已启用但是当我单击确定首先命名宏时,我收到一条错误消息,指出名称有问题(格式,字符或名称等) 我通过安装菜单进入光盘,我试图重新安装VBA(或修复),这个过程很顺利,没有错误。事实上,我确信它已经安装好了。也许XP OS出了问题? 有任何想法吗?

0
如何将标准电子邮件帐户分配给Microsoft Outlook中的联系人
我正在使用Microsoft Outlook 2003与6个不同的POP3帐户。现在我想定义一个用于我的联系人或联系人组的标准帐户,例如: When sending email to "john.doe@domain.net", email account 1 shall be used. When sending email to "jane.doe@domain.net", email account 2 shall be used. 我认为这不能使用规则来完成,所以基本上我正在寻找一个VBA解决方案,但我对Outlook VBA并不是很熟悉,也无法在网上找到任何解决方案。

0
包括Word 2013中参考书目的超链接
我正在努力在我的Word生成的参考书目中添加超链接(我使用word 2013)。我提出了以下解决方案(我从Raystafarian的回答中借用了一些代码来查找文本的所有实例并使其成为带宏的超链接) Sub Add_Hyperlinks_Bibliography() On Error Resume Next Set rngSearch = ActiveDocument.Range For I = 1 To ActiveDocument.Bibliography.Sources.Count strStyle = "Intensieve benadrukking" strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL") strAddress = strSearch With rngSearch.Find Do While .Execute(findText:=strSearch) = True With rngSearch 'we will work with what is found as it will be the selection …

1
相反的字体格式
我记得在某处可以选择设置草书,也称为斜体,格式化,当将其应用于所选文本时,每个字符的值都会改变为相反的格式,因此,在这种情况下,最初使用斜体字符会变成非斜体字符。例如,将其应用于 “...... 我真的爱你,山姆。” 会产生输出 “...... 和我真的爱你,山姆。 ” 在粗体文本的情况下,结果将是 “...... 我真的爱你,山姆。” 应用粗体后变为 “...... 和我真的爱你,山姆。 ” 我怎样才能让MSW以这种方式行事?希望很快能听到消息。提前致谢!

2
在Word 2007中使用VBA与图形进行交互
我有一个很长的MS Word 2007文档,我偶尔需要替换所有嵌入的图形。 这些更改非常简单且足够常规,我可以写一个VBA宏来为我做这些更新。 但是,我遇到了一个非常基本的问题:我无法弄清楚如何在VBA中选择嵌入式图形。Word中的“记录宏”功能由于某种原因不记录图形的更改,并且所有在线教程都与Excel中的图形进行交互。 有人可以发布一些简短的示例代码(或链接解释),显示与Word中的嵌入式图形的一些基本交互吗?

1
条件格式更改数字格式 - 或者它?
设置 我有两个条件格式规则适用于一系列单元格。规则是: =R1C1="something" - >数字格式为Number =R1C1<>"something" - >数字格式为百分比 它起作用:单元格对其R1C1进行数据验证,因此当我更改该值时,单元格范围内的数字格式会相应更改。 问题 我有一个连接上述范围的图表。此图表的垂直轴不会随这些单元格上的数字格式而变化。它保留了那些单元格的“硬设置”数字格式(我的意思是“硬设置”是您使用数字格式控件设置的格式)。 如何使图表根据其数据范围的数字格式更改其垂直轴的数字格式?

1
访问隐藏文件和文件夹的程序
我想编写一个删除/创建文件和文件夹的excel宏。这让我问自己以下问题: 程序看到的隐藏文件/文件夹是如何修改的? 我希望涵盖的要点: 哪些程序(如果不是全部,或者没有)可以访问设置为隐藏的文件和文件夹? 让实习生通过VBA编程删除文件/文件夹(假设某些隐藏文件可能没有备份)是危险的吗? 如果在文件夹选项中显示隐藏文件和文件夹(或者没有什么不同),并且如果不保护受保护的OS文件,他们可以搞砸计算机吗?
1 windows  security  vba 


1
现代PC的Excel 2007至2010/2013性能提升
我的工作最近将我部门的计算机升级为闪亮的新款i7 ssd 16GB RAM盒。我将大部分时间花在excel / access上,公司仍然使用该软件的2007版本。切换到更新版本的Excel,我会看到大幅提升性能吗? 我知道的一个好处是升级将让我们切换到64位版本的Excel,这样我们就可以利用更多的RAM。还有其他人吗?IT部门告诉我,这些变化在2007年至2013年间具有广泛的外观,因此更新没有意义。如果我回去挑战那个决定,我希望有一个坚实的案例。

0
Word 2010 - Coversheets
我们为多个项目创建了标准封面。这些封面在标准文档上进行交换,以使其特定于客户端。 这些封面的字体类型是Arial。似乎在Word安装的标准格式是Courier New,Paragraph设置为10 pt after和1.5 line size。 这导致了问题。是否有一种方法可以保留封面格式,而其余文件(或新文件)可以基于Office设定的标准?


By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.