Questions tagged «macros»

计算机科学中的宏是一种规则或模式,它指定如何根据定义的规则和过程将特定的输入序列映射到特定的输出序列。如果问题与Microsoft Office产品有关,请考虑使用[vba]标记代替此标记。这可以帮助人们更有效地回答,过滤问题。

0
如何在Linux环境中使用Windows Libreoffice Macro
我有一些我在libre办公室通过窗口7制作的宏 现在我想通过某种命令在Linux系统中运行这些宏 现在问题是如何将宏保存在单个文件中..? 当我写宏的时候在Libre办公室的“My Macro and Dialogues”中保存我认为(我不知道) 我想在文件中保存宏,而不是在Libre office库中 我尝试像这样制作宏但它运行不正常,它只运行我为Open File做的第一步,之后它没有运行。 如果我可以宏运行在文件中,所以我可以在任何其他系统中使用该宏 但是这次如何在LO库的本地文件instaed中保存宏 简单:如何保存宏在本地文件而不是LO库中,所以我可以在我的另一个计算机系统中使用该宏


1
Office 2007:为“查找”分配不同的键盘快捷方式
我正在尝试将单个键(F2)分配给“find”命令,但我无法在命令列表中找到它。 正如您在此处看到的,当我将其添加到快速访问工具栏时,我可以看到“查找”命令: 但是在分配键盘快捷键时,无法找到“查找”命令: 我假设它没有显示它的原因是因为它有一个内置的CTRL + F快捷方式,但我想改变它。 简而言之: 如何将F2分配给“查找”命令?

1
如何通过libreoffice中的公式从1列中删除Duplicate
我有一些由libreoffice宏创建的数据,但有些文章在一列中有不同的价格重复,所以我不能使用这些数据 这是一个例子: 9876543210 - 1.10 1234567890 - 2.3 8523697410 - 6.0 9876543210 - 8.6 7878754587 - 9.6 1234567890 - 66.6 现在看到记录1和4两个数字相同但价格不同我只想删除整个第4个原始数据 数据编号第2和第6相同,价格不同,我想删除第6个原始数据 如果有任何公式可用,那么我可以使用记录宏编写宏代码 喜欢= CounfIf(....) 提前致谢

1
通过宏禁用/启用设备
所以,这个问题的根源来自于使用wacom笔的笔记本电脑。我非常喜欢Windows商店中的艺术应用,但大多数人都没有选择在使用笔时禁用触摸。是否有可能将打开和关闭HID兼容触摸屏的内容绑定到宏上,这样我每次想要绘制时都不必进入设备管理器?

0
用宏而不是IE打开谷歌浏览器
我有一个关于VB宏的问题,它在IE 11中自动打开一个文件。问题是我无法让下载提示消失(相信我,我已经尝试了从IE中的工具,到regedit,到gpedit.msc的所有内容) 。是否有可能让这个宏做同样的事情,而不是从IE保存/打开以保存谷歌Chrome(可以摆脱下载提示)。我所熟悉的代码是: 选项明确 Public Sub Press_Button() Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll) Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library Dim htmlInput As MSHTML.HTMLInputElement Dim htmlColl As MSHTML.IHTMLElementCollection Set objIE = New SHDocVw.InternetExplorer With objIE .Navigate "https://Somewebsite.com" ' Main page .Visible = 1 Do While .READYSTATE <> …

1
自动将OneNote页面背景更改为深色/黑色?
我有ONT13的Onetastic,每当我创建一个新页面时,我使用该插件使页面背景为黑色/蓝色(000009),然后每当我输入时我需要手动将文本更改为白色。在特定笔记本中创建新页面时,有没有办法在这方面自动化样式化?我正在考虑Onetastic宏,但我在办公室宏中没有经验,所以我不确定我是否应该走这条路。

2
如何在假期时设置Outlook宏运行?
我已经设置了Outlook规则,当收到具有特定主题行的文件时,该规则运行“保存附件”Outlook宏。由于我已经在本网站上记录了全面的答案并且我用它进行设置,因此工作正常。 现在我想去度假,带上我的笔记本,并且每当这些电子邮件符合规则时仍然可以运行宏。 我知道这是一个客户端规则,因为宏需要我的Outlook打开才能运行。 有没有一种方法/方式/程序可以让我在没有运行PC / Outlook的情况下运行此规则和宏来享受我的假期?

1
如何创建从MS Project 2013到Excel 2013的持久数据连接?
我正在尝试从MS Project文件中获取日期以找到一个单独的Excel文件,我用它来运行条件公式来处理项目状态矩阵。 问题是我需要在项目文件发生变化时更新这些日期,因此简单的导出/导入并不理想 - 我需要持久连接。 我试过了copy> paste-special> link> text方法。这对于初始数据转储到Excel非常有效,并且对仍然打开的项目文件的任何更新都会通过。但是,只要我关闭并重新打开excel或项目文件,链接似乎就会损坏(我没有更改文件名或位置)。 如果不自动更新,如何设置至少持久且健壮的连接?

0
加快复制/粘贴图片的代码的提示?
这是我使用VBA的第一个项目。我有一个代码(见下文),它会读取工作表上是否有数字。如果是,则代码将调用宏来从另一个工作表复制源图片,将其粘贴到新工作表上,并在单元格中重命名/调整大小/居中粘贴的图片。 问题是我已经知道这段代码运行缓慢了。我知道使用“.select”可以减慢代码速度,但我不知道是否有解决方法需要做什么。 这是我的工作(虽然很慢)代码。(滚动到底部以供参考pic) 这是第一个测试数字并调用宏的代码: Sub xGridA_Pic_Setup() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If Evaluate(WorksheetFunction.CountIf(Worksheets("Rent Grid A").Range("D1:H1"), "1")) < 1 Then Else Call xGridA_Comp1 End If If Evaluate(WorksheetFunction.CountIf(Worksheets("Rent Grid A").Range("D1:H1"), "2")) < 1 Then Else Call xGridA_Comp2 End If If Evaluate(WorksheetFunction.CountIf(Worksheets("Rent Grid A").Range("D1:H1"), "3")) < 1 Then Else Call xGridA_Comp3 End …

1
带宏的勾选框
请如何使excel中的勾选框与“2宏”一起工作? 我需要它,当检查时,然后隐藏一些行,并在未选中时,然后取消隐藏它。我怎样才能做到这一点? 我有这个宏: Sub bodnariucova_jednotlivci() Columns("U:EW").Hidden = True End Sub 编辑:我这样编辑了 Sub bodnariucova_jednotlivci() Dim cBox As CheckBox Set cBox = ActiveSheet.CheckBoxes(LName) If cBox.Value > 0 Then Columns("U:EZ").Hidden = True Else Columns("U:EZ").Hidden = False End If End Sub 但是当我运行它时,我得到运行时错误'1004'无法获取属性Worksheet的属性CheckBoxes(就像那样,只用我的语言)。

1
如何跳过复制宏中的数组中的项目从Excel到PowerPoint
我是新来的,有些事让我累了好几个星期。 我有一个宏,可以将excel范围从工作表复制到预先准备好的PowerPoint幻灯片,这是使用如下数组完成的: SlideArr = Array(1, 2, 3) RangeArr = Array(Output.Range("A1:B1"), Output.Range("A2:B2"), _ Output.Range("A3:B3")) For x = LBound(SlideArr) To UBound(SlideArr) RangeArr(x).Copy Set shp = MyPresentation.Slides(SlideArr(x)).Shapes.PasteSpecial(DataType:=2) 现在这样做是将3组范围复制粘贴到3个不同的幻灯片。我的问题是,是否可以编写跳过第二张幻灯片(数组2)的宏,因此它只会粘贴到幻灯片1和3上。


1
使用MACRO将数据从一个工作表中的行复制到另一个工作表
我正在开发一个电子表格,需要将在一个工作表上生成的信息复制到另一个电子表格以进行打印。主电子表格(数据表)上的信息通过两个包含对象高度和宽度的下拉列表生成。我希望能够将数据表上生成的此信息复制到打印页上,并通过将新的高宽组合复制到打印页上的新行来继续此过程。我到目前为止的宏给了我一个错误,我想知道是否有任何解决方案可以解决这个问题 Sub copyRow() Dim wsd1 As Worksheet Dim wsd2 As Worksheet Dim wsp As Worksheet Dim Row1 As Long ' define which worksheet to work on, i.e. replace Sheet1 with the name of your sheet Set wsd1 = ActiveWorkbook.Sheets("Data Sheet").Range("B11:H11") Set wsd2 = ActiveWorkbook.Sheets("Data Sheet").Range("M11:R11") Set wsp = ActiveWorkbook.Sheets("Print Sheet") …


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.