我有一个仅适用于单元格 D3 和 E3 的代码，我需要它对其他单元格（如 D4/E4、D5/E5）执行相同的操作，但在同一工作表上使用不同的公式。我正在尝试为其他单元格创建新的私有子项，但它们似乎无法编译？提前致谢： Private Sub Worksheet_Change(ByVal Target As Range) Dim DE As Range, t As Range, v As Variant Dim r As Long Set t = Target Set DE = Range("D3:E3") If In...
我正在尝试编写一个宏，将单元格的内容剪切到剪贴板，以便我可以将其粘贴到另一个应用程序。这不起作用（它不会粘贴任何内容）... Sub Macro5() ' ' Macro5 Macro ' ' Keyboard Shortcut: Ctrl+m ' Selection.Cut ActiveCell.FormulaR1C1 = "" ActiveCell.Offset(1, 0).Range("A1").Select End Sub 我应该解释一下，普通的剪切粘贴是行不通的，因为它不消除Excel 中的文本仅将其放入您粘贴的位置。 ...
我目前正在做一个项目。我在名为“Master”的工作表的 A 列中有一个职位列表。我需要循环遍历该列表并检查它们是否作为工作表存在。如果不存在，它应该创建一个包含列表中内容的工作表。不过，我可以完成这一部分： 我有另一张名为“数据”的工作表。其中包含员工的数据，例如他们的全名、入职日期、职位和联系电话。我需要按他们的职位对他们进行分类，并将其粘贴到通过名为“主表”的工作表上的列表创建的各自工作表上。 这是我目前所拥有的： Sub CreateSheetsFromAList() Dim MyCell As Range, MyRange As Range ...
我正在组合几个单元格来制作一份需要每天发送给我的团队的报告。单元格有正值和负值，我需要用红色显示负值。 我尝试了以下公式，但它不起作用 =A8&TEXT(F8,"0.0%;[Red]0.0%") ...
我有下面的代码，但是当我运行宏时，它似乎忽略了我排除“输入”表的事实。有什么想法吗？我知道前面的代码中可能还有其他错误，但我想先修复这个！ Sub export_all() Dim Path As String Dim Name As String Dim ws As Worksheet Path = Workbooks("CGL Configurator V3.xlsm").Sheets("Input").Range("$C$12") Name = ActiveSheet.Range("A151") For Each ws In ThisWorkbook...
我正在使用来自这个答案，它允许您根据指定列的值拆分文件。我对其进行了调整以添加 Dim sMonthYear As String ' Month & Year of report sMonthYear = Application.InputBox("Enter the Month and Year of the report", "Enter text", , , , , , 2) 用户输入一个字符串，我SaveAs把它改成了 ash.SaveAs sFilePath + "\Split\" + sSectionName + "\" + sMon...
我正在尝试用包含换行符的 Excel 单元格内容替换 Word 文件中的文本。查找部分必须区分大小写。我尝试了 2 种不同的方法，但它们都无法完全发挥作用。 在选项 1 中，“查找”部分区分大小写，但在替换时，换行符会被替换为方块。 在选项 2 中，替换正确完成并保留 Excel 单元格中包含的换行符，但“查找”部分不区分大小写。 我尝试过将两者结合起来，但没有成功。有什么想法吗？我已经被这个问题困扰好几天了。 VBA 代码选项 1： Set ObjWord = CreateObject("word.Application") ObjWord.do...
我有一张 Excel 表，其中 x 行的值为 980002。在 x 行之后，A 列中会出现一个新数字。在 B 列中，需要插入一个日期，该日期为 3 行中的同一日期，然后为接下来的 3 行添加一周，直到第一个值 980002 结束。然后对 A 列中的下一个值重复相同的过程。 （编辑）：这是我的新代码集，但我无法让它只在 980002 旁边的单元格中写入日期，直到该值结束。相反，它会计算 980002 的行数并写入那么多日期，在每个单元格之间添加 3 行。例如，如果有 5 行值为 980002，那么它将写入 5 个日期，但从第 1 行到第 15 行。 Su...
有人能告诉我为什么函数显示类型不匹配吗If Not j Is Nothing Then 我正在尝试制作一个宏来在一张工作表（此处称为报告表）中搜索变量列表（该变量旁边的单元格具有特定值），另一张工作表具有这些变量及其新值，并将它们复制到报告表以进行比较。 如果我声明j为，range那么我将无法搜索，因为我必须删除.select并添加设置j到下面的行 j = Range("h1:q3000").find(What:=variablename).Select Option Explicit Sub search_and_find() Dim data...
我想根据单元格值复制行（Emp_Section; Emp_Section包含正面） 从工作表1到工作表2。 我有以下脚本，它将复制所有行 Sub EmpCopy() Dim myCols As Variant Dim lastRow As Long Dim c As Long Sheets("Sheet1").Activate ' Set columns you want to loop through in an array myCols = Array("D", "B", "C", "F") ' ...
我已经通过 GPO 禁用了 MS Office 产品的宏，如下所示：https://superuser.com/a/1176677/440382不幸的是，这会导致 MS Word（2016 版和 2013 版）出现非常奇怪的错误： 多个警报窗口弹出有关宏的警告（就像是 ”您尝试运行的函数包含宏或需要宏语言支持的内容...“)： 尽管在 GPO（AD 组策略）中有“全部禁用，不通知“在本地 MS Word 选项中也可能看到： 发生此错误仅当您打开第二个 MS Word 窗口时.当仅打开一个.DOC(X)文件时，不存在此问题。 不幸的是，即使 DOC...
我们将在走廊中添加一块显示（仅显示）屏幕。我们需要允许运行它的计算机启动 - 打开 Web 浏览器 - 输入凭据（专门用于此用途），单击登录，单击页面中的几个选项卡等，等待 20 分钟（如果发生登录超时），然后重新执行所有操作。 有这样的事吗？我试过几个宏录制器，但效果不太好，因为网站第二次加载需要更长的时间。 如果您有任何想法可以实现这一点，请告诉我。我希望能够设置它并忘记它。 ...
一位客户向我提供了一组我支持的系统的数据更新。他们这样做的方式是提供一个包含所有数据的 Excel 电子表格，其中进行了一些更新。他们进一步将更改后的文本的颜色从黑色更新为某种蓝色，因此单元格可能如下所示： 电子表格有 1000 多行，大约 20 列宽，许多单元格包含多行文本。大多数单元格没有变化，但约 5% 的单元格有此类蓝色更新。如何使用公式（或缺少公式，使用宏）确定单元格是否包含此类更改？然后我可以至少进行一些自动化来获取我需要的更改，而不是手动检查 20,000 个单元格。 ...
我收到的每封来自本地域之外的电子邮件正文顶部都会出现一个巨大的“外部电子邮件”警告框。这不仅使我的通信变得混乱，而且对我发邮件的每个人都产生了一种微侵犯，而且通过屏蔽电子邮件的顶行，它大大降低了我在打开邮件之前辨别合法邮件和非合法邮件的能力。 我认为我可以通过运行宏来禁用此功能，但我的知识仅限于此。 有人愿意向我解释我需要做什么来防止这种烦人的入侵吗？以下是包含警告消息的空白电子邮件的源代码： 外部电子邮件 ：此电子邮件来自组织外部。请警惕网络钓鱼企图。如有疑问，请致电 TSC 或使用 O...
我有一个 Excel 工作簿，里面有一个宏，它几乎可以完成我想要的所有操作。这个宏从一个选项卡上的某个范围复制数据，然后将不同的值粘贴到另一个选项卡上。 我需要帮助的是将宏更改为粘贴为值。复制的数据是公式，格式与目标不同。 下面的宏基于一个加里的学生很好心地创建了这个链接来回答这个问题： 宏将不同的值从一个 Excel 表复制到另一个 Excel 表 Sub Update() Dim s1 As Worksheet, s2 As Worksheet Set s1 = Sheets("Copy Tab") Set s2 = She...