visual-basic

Microsoft Excel 工作表中的键盘语言自动更改
visual-basic

Microsoft Excel 工作表中的键盘语言自动更改

在 Microsoft Excel 中,使用Visual Basic,如何为不同的列设置默认语言?例如,A 和 C 列默认设置为英语,B 和 D 列默认设置为波斯语。考虑到当工作表中输入的单词数量非常大时,手动更改键盘语言将是一项耗时的任务。 ...

Admin

我的 Windows Excel 图标对于 .xlsx 和启用宏的 .xlsm 文件是相同的
visual-basic

我的 Windows Excel 图标对于 .xlsx 和启用宏的 .xlsm 文件是相同的

我正在运行 Microsoft Office Professional Plus 2016。启用宏的 .xlsm 文件,其 excel 图标中有一个感叹号。一段时间以来,所有类型的 excel 文件都有相同的简单 excel 图标。 有人知道这是怎么发生的吗?我是否可以将 .xlsm 文件中的感叹号图标恢复? ...

Admin

Microsoft Access 中可以有双向关系吗?
visual-basic

Microsoft Access 中可以有双向关系吗?

我有一个数据库,其中包含供应商和人员两个表: 供应商表有一个查找列,人们可以从人员表中选择与该供应商相关的人员。人员表上有一个公司查找列,指向供应商表中他们工作的公司。现在我必须分别更新这两个表,这很麻烦而且容易出错。我想自动执行此过程,这样当其中一个表更新时,另一个表就会自动同步。 如果您能帮助我了解这是否可行以及如何实现,我将不胜感激。如果这是唯一的方法,我可以使用 Visual Basic/VBA 宏。 ...

Admin

更改多个表格的单元格高度和单元格宽度 MS Word 365
visual-basic

更改多个表格的单元格高度和单元格宽度 MS Word 365

我有一个 MS Word 文档,里面有 100 多个表格。我想将单元格宽度改为 0.54 英寸,将单元格高度改为 0.56 英寸,但我想一次性完成所有操作,但我不知道该怎么做。 请帮忙提前感谢任何答案 ...

Admin

使用 VBA 在 MS Word 中的每个超链接后以纯文本形式插入 URL
visual-basic

使用 VBA 在 MS Word 中的每个超链接后以纯文本形式插入 URL

我想在 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...

Admin

如何按字符选择性地格式化 Excel 单元格
visual-basic

如何按字符选择性地格式化 Excel 单元格

我有以下 Excel 单元格: 我想要做的是将包含字母 D 和 E 的每个单元格格式化为粗体和红色。我该如何实现? 在上面的例子中,我仅手动格式化前两行。 总的来说,我有 500 x 40 个单元格,所以我无法手动完成。 我正在使用 Microsoft Excel for Mac 版本 16.67。 ...

Admin

Excel VBA:水平翻转单元格及其格式
visual-basic

Excel VBA:水平翻转单元格及其格式

我正在尝试编写一个代码,它将通过 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 ...

Admin

创建 Word 宏来输入增加的数字
visual-basic

创建 Word 宏来输入增加的数字

我是一名 Youtuber,我经常创建 word 文档,标记我想要插入图片、视频或声音片段的位置,与脚本中的某些单词相对应,以说明我所说的要点。我只需用粗体输入“[3]”、“[99]”等,因为我的媒体按出现顺序编号。这可能非常乏味,因为我经常在每部作品中使用 100、200、300 多个媒体。我有时还会在输入时不小心重复使用一个数字,然后不得不返回更改它以及它之后的所有内容,这令人沮丧。 因此,我很好奇,看看 Word 宏是否可以在按下按钮或击中某个键时执行以下功能: 为后续文本启用粗体文本 类型 ”[” 输入一个数字,每次使用宏时增加 1 类型 ”]” ...

Admin

Excel 不同工作表和不同范围内的双向链接
visual-basic

Excel 不同工作表和不同范围内的双向链接

我正在尝试以双向链接的方式链接两个单元格区域。这意味着,如果您更改一个单元格中的值,则会更改其他单元格中的值,反之亦然。 以供参考: Excel:源工作表和目标工作表上的单元格的双向链接 当两张工作表上的范围相同时,解决方案会非常有效,但是在我的工作簿上,我不能使用相同的范围。 在示例中,它对所有工作表使用范围 a2:D5,但我想让它从第一张工作表上的 a2:D5 到第二张工作表上的 H3:K6 进行工作。 我尝试过很多方法,但是我对 Visual Basic 的了解非常有限,甚至过了几个小时,我还是找不到任何解决方案。 真的谢谢你 :-) ...

Admin

需要帮助创建一个循环以某种方式复制和粘贴数据
visual-basic

需要帮助创建一个循环以某种方式复制和粘贴数据

我已经困扰这个循环三天了,最后向社区请求帮助。 我想根据 Sheet3 中的行多次将 M 列(输入表)中的每个单元格复制到 BE 列的输出表,然后继续复制 M 列(输入表)中的下一个单元格,并将其复制到已复制数据下方的 BE 列的输出表中。这应该运行到 M 列输入表中的最后一个值。以下是我面临的真实情况 我有 63 行(62 + 1 个标题),其值位于输入表的 M 列(行数不是恒定的,应该是灵活的)我想复制输入表的 M2 单元格中的值,然后复制到输出表的 BE 列中(第 1 行是标题)。此值的粘贴次数应基于 Sheet3 范围 B7 中的行数,直到最后一行填...

Admin

将一组单元格镜像到同一张表的其他位置
visual-basic

将一组单元格镜像到同一张表的其他位置

我试图在工作表中的多个位置放置一个交互式表格,以防止我的用户不得不重复滚动浏览这个庞大的工作表。每次从任何位置更新此表时,我希望所有表都更新。我有一个(可能无用的)开始: 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...

Admin

以编程方式查找上次单击的超链接的位置
visual-basic

以编程方式查找上次单击的超链接的位置

我需要找到最后点击的超链接的位置(即同一 xlsx 文件中的单元格和电子表格),该超链接位于由超链接本身调用的另一个电子表格中。原因是,从这个“被调用”电子表格中,我想读取“调用者”电子表格中超链接一侧的单元格,并以不同的格式显示它们,等等。并且同一个电子表格可以由不同的超链接调用,每个超链接在一侧都有不同的值。有什么办法吗?提前谢谢! ...

Admin

当单元格发生变化时,如何更改单个单词的文本颜色?
visual-basic

当单元格发生变化时,如何更改单个单词的文本颜色?

请参阅所附照片:如果没有照片:第 35 行显示文本全部为红色。第 36 行显示文本全部为黑色,但有一个单词是红色。 默认设置:单个单词上的红色文本。 我想要这个操作:当有人将单元格中的文本更改为其他内容时,将整行更改为黑色文本。但是如何做呢? 因此,我尝试在第 35 行和第 36 行上设置条件格式,如果单元格中的特定文本包含更改,则字体应为黑色。第 35 行有效。第 36 行无效。出于某种原因,除非所有字体都是单一颜色,否则单词不会改变颜色。我尝试将黑色改为较浅的黑色,将单词改为红色,但不起作用。 我不想执行 worksheet_change 宏,因为我不想...

Admin

Outlook VBA - 启动宏,用于移动多个共享收件箱的传入无法送达(NDR 类)邮件
visual-basic

Outlook VBA - 启动宏,用于移动多个共享收件箱的传入无法送达(NDR 类)邮件

我对 Java 有一点经验,但对 Visual Basic 几乎没有经验。我需要为我的 Outlook 创建一个宏,该宏在配置文件中有 4 个收件箱。其中一个是我的[电子邮件保护],另一个是[电子邮件保护],一个用于信息,一个用于每月报表。我在这里已经看到了一个针对 NDR 类消息的解决方案,似乎对某些人有用(是否可以根据邮件类别在 Outlook 2010 中设置规则?)。但是,它对我和共享相同收件箱的同事不起作用。基本上,我们所有人都负责维护 3 个收件箱加上我们自己的收件箱,并且我们收到大量无法送达的回复。我们想将 NDR 类消息过滤到子文件夹中。有谁...

Admin