我有一个数据库，其中包含供应商和人员两个表： 供应商表有一个查找列，人们可以从人员表中选择与该供应商相关的人员。人员表上有一个公司查找列，指向供应商表中他们工作的公司。现在我必须分别更新这两个表，这很麻烦而且容易出错。我想自动执行此过程，这样当其中一个表更新时，另一个表就会自动同步。 如果您能帮助我了解这是否可行以及如何实现，我将不胜感激。如果这是唯一的方法，我可以使用 Visual Basic/VBA 宏。 ...
我有一个 MS Word 文档，里面有 100 多个表格。我想将单元格宽度改为 0.54 英寸，将单元格高度改为 0.56 英寸，但我想一次性完成所有操作，但我不知道该怎么做。 请帮忙提前感谢任何答案 ...
我想在 Word 文档中链接文本旁边自动插入每个超链接的 URL。 例如，而不是： 我的超链接文本 它应该是： 我的超链接文本（https://www.google.ca） 这是我在 VBA 中编写的一些代码，它用旁边的地址替换所有链接，但这会删除原始超链接。有没有办法保留超链接，同时在其旁边的括号中附加 URL？ Dim oLink As Hyperlink Dim strText As String Dim strLink As String For Each oLink In ActiveDocument.Hyperlinks Let strT...
我有以下 Excel 单元格： 我想要做的是将包含字母 D 和 E 的每个单元格格式化为粗体和红色。我该如何实现？ 在上面的例子中，我仅手动格式化前两行。 总的来说，我有 500 x 40 个单元格，所以我无法手动完成。 我正在使用 Microsoft Excel for Mac 版本 16.67。 ...
我正在尝试编写一个代码，它将通过 Virtual Basic 水平翻转我的单元格以及单元格格式（我也需要背景颜色来翻转）。 我所说的翻转是这样的： 我提供了实际翻转单元格值的代码，但并未移动所有格式。是否可以翻转背景？ 我的代码是： Sub Fliphorizontally() 'updateby Extendoffice Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume ...
我是一名 Youtuber，我经常创建 word 文档，标记我想要插入图片、视频或声音片段的位置，与脚本中的某些单词相对应，以说明我所说的要点。我只需用粗体输入“[3]”、“[99]”等，因为我的媒体按出现顺序编号。这可能非常乏味，因为我经常在每部作品中使用 100、200、300 多个媒体。我有时还会在输入时不小心重复使用一个数字，然后不得不返回更改它以及它之后的所有内容，这令人沮丧。 因此，我很好奇，看看 Word 宏是否可以在按下按钮或击中某个键时执行以下功能： 为后续文本启用粗体文本 类型 ”[” 输入一个数字，每次使用宏时增加 1 类型 ”]” ...
我正在尝试以双向链接的方式链接两个单元格区域。这意味着，如果您更改一个单元格中的值，则会更改其他单元格中的值，反之亦然。 以供参考： Excel：源工作表和目标工作表上的单元格的双向链接 当两张工作表上的范围相同时，解决方案会非常有效，但是在我的工作簿上，我不能使用相同的范围。 在示例中，它对所有工作表使用范围 a2：D5，但我想让它从第一张工作表上的 a2：D5 到第二张工作表上的 H3：K6 进行工作。 我尝试过很多方法，但是我对 Visual Basic 的了解非常有限，甚至过了几个小时，我还是找不到任何解决方案。 真的谢谢你 :-) ...
我已经困扰这个循环三天了，最后向社区请求帮助。 我想根据 Sheet3 中的行多次将 M 列（输入表）中的每个单元格复制到 BE 列的输出表，然后继续复制 M 列（输入表）中的下一个单元格，并将其复制到已复制数据下方的 BE 列的输出表中。这应该运行到 M 列输入表中的最后一个值。以下是我面临的真实情况 我有 63 行（62 + 1 个标题），其值位于输入表的 M 列（行数不是恒定的，应该是灵活的）我想复制输入表的 M2 单元格中的值，然后复制到输出表的 BE 列中（第 1 行是标题）。此值的粘贴次数应基于 Sheet3 范围 B7 中的行数，直到最后一行填...
我试图在工作表中的多个位置放置一个交互式表格，以防止我的用户不得不重复滚动浏览这个庞大的工作表。每次从任何位置更新此表时，我希望所有表都更新。我有一个（可能无用的）开始： Private Sub Worksheet_Change(ByVal Target As Range) Dim r1 As Range, r2 As Range Set r1 = Range("M205:p205") Set r2 = Range("m207:p207") If Intersect(Target, r1) Is Nothing Then Ex...
我需要找到最后点击的超链接的位置（即同一 xlsx 文件中的单元格和电子表格），该超链接位于由超链接本身调用的另一个电子表格中。原因是，从这个“被调用”电子表格中，我想读取“调用者”电子表格中超链接一侧的单元格，并以不同的格式显示它们，等等。并且同一个电子表格可以由不同的超链接调用，每个超链接在一侧都有不同的值。有什么办法吗？提前谢谢！ ...
请参阅所附照片：如果没有照片：第 35 行显示文本全部为红色。第 36 行显示文本全部为黑色，但有一个单词是红色。 默认设置：单个单词上的红色文本。 我想要这个操作：当有人将单元格中的文本更改为其他内容时，将整行更改为黑色文本。但是如何做呢？ 因此，我尝试在第 35 行和第 36 行上设置条件格式，如果单元格中的特定文本包含更改，则字体应为黑色。第 35 行有效。第 36 行无效。出于某种原因，除非所有字体都是单一颜色，否则单词不会改变颜色。我尝试将黑色改为较浅的黑色，将单词改为红色，但不起作用。 我不想执行 worksheet_change 宏，因为我不想...
我对 Java 有一点经验，但对 Visual Basic 几乎没有经验。我需要为我的 Outlook 创建一个宏，该宏在配置文件中有 4 个收件箱。其中一个是我的[电子邮件保护]，另一个是[电子邮件保护]，一个用于信息，一个用于每月报表。我在这里已经看到了一个针对 NDR 类消息的解决方案，似乎对某些人有用（是否可以根据邮件类别在 Outlook 2010 中设置规则？)。但是，它对我和共享相同收件箱的同事不起作用。基本上，我们所有人都负责维护 3 个收件箱加上我们自己的收件箱，并且我们收到大量无法送达的回复。我们想将 NDR 类消息过滤到子文件夹中。有谁...
我希望有人能帮我找出一些公式（或 VBA 脚本）来帮助我计算定性分析。具体来说，我有两列如下所示： 参与者 ID 和随时间变化的响应 需要说明的是，参与者 ID 列在此上下文中并不重要，我仅将其包括在内以说明每个 T1 和 T2 单元格都与我们正在比较的参与者相关联。这些列表示参与者在两个不同时间对问题的回答（代码）：立即（T1）和延迟后（T2）。因此，我需要将 T1 列与 T2 列进行比较，以评估参与者从 T1 到 T2 添加（提交）或删除（省略）的内容。我试图打印出一些公式，如下所示： 第 1 列：佣金列（检查从 T1 列添加到 T2 列的内容...
我有一堆电视，用于数字标牌，由运行 Windows 10 的英特尔 NUCS 驱动。我目前正在使用 Visual Basic 脚本，它运行良好，但我想知道是否有更好的方法通过系统执行此操作。图像需要进入全屏模式，这样它才能作为标牌工作。这是否可以通过 PowerShell 脚本或注册表来实现，以使照片或绘画始终以全屏方式打开？欢迎提出任何想法。 以下是我现在使用的 Visual Basic 代码： strFileName = "FILE PATH OF IMAGE" Dim objshell : Set objshell=createobject("ws...
我当前有一个电子表格，其中包含特定列中的一组重复数据，其中每行中有一个字段为空白，如下所示： 我还希望将一列数字插入到此表中。此列中的每个唯一值都需要插入到我第一列中每组重复数字的空白列中。 因此，如果第一列数字包含 1234、5678、91011，每行一个数字，向下重复，并且我有一组新数据需要插入到下一个空白列中，每个唯一的新数字都插入到原始列中一组重复的 3 个数字旁边，有没有办法做到这一点？ 它看起来类似于以下内容： 我目前正在通过将每个键重复复制粘贴到重复列中来重复此操作，并正在寻找一种批量输入数据的方法。这可能吗？我愿意使用代码...