问题标签 [vba7]

我有这个用户表单（图 1），我正在尝试通过类模块应用一些自定义。因此，我的第一个目标是在单击时修改标签格式（图 2）。到目前为止一切顺利，我已经通过类模块“cLabels”完成了这项工作。现在，我的第二个目标是（这是我遇到的问题）为上述标签应用其他颜色。关键是，我不知道如何做到这一点。

我尝试创建其他名为“cUserForm”的类模块，但我不知道如何将修改后的标签传递给 cUserForm 类模块并使用它的 MouseMove 事件。我知道我可以使用 MouseMove 事件通过标准 UserForm 模块应用修改，但问题是，我不希望在我的 UserForm 模块中有任何类似的代码，我希望类模块做“脏”工作。伙计们有什么想法我该如何规避这个问题？

附加信息（但对解决问题并不重要）：我的最终目标是制作像这样的“按钮” https://drive.google.com/file/d/1ev_LNgxPqjMv0dtzlF7GSo7SOq0wDbR2/view?usp=sharing一些效果，例如 MouseHover , TabPress 等等。VBA 按钮非常难看。只是为了记录，我已经在一个标准的 UserForm 模块中完成了所有这些（如果有人想让工作簿看到我在说什么，我有它），但最终结果只是一团糟，这么多代码（这只是修改用户窗体外观的代码，想象一下当我放一些代码来做某些动作时，天哪）。

图 1

图 2

这是我到目前为止所拥有的：

用户窗体模块

c标签

cUserForm

工作簿： https ://drive.google.com/file/d/1cLG4pLmC-jDaysjd_dK0EFuJ_LqYqJ-u/view?usp=sharing

这是json代码（https://textsaver.flap.tv/lists/3ic4），我正在尝试

我想在下面提到的点下打印 TEXT。它在图片中也以蓝色突出显示。

如果有人向我推荐任何网站或书籍以获取有关从嵌套 json 修剪文本的基本想法，那将会更有帮助。

我有一个数据集，其中包含 B 和 C 列中的值。我需要为 B 列中存在的每个数据实例添加 UID。例子。

A 列应该根据 B 列中的数据为我提供数据集的 UID。

我尝试了许多公式，但似乎与我正在寻找的内容无关。

我想从 sheet1、sheet2、sheet3、sheet4 中删除 n% 的单元格。百分比将以原始形式在工作表名称中给出。例如，在 E19 的原始工作表中，它给定 10%，因此在每个工作表 S1、S2、S3、S4 中，它应该删除总共 10% 的数据行。（例如：工作表 1 有 100 行数据，因此按照 10% 的比例，它应该从 100 行中删除 10 行，其他工作表也同样如此。我进行了很多研究，但没有得到任何与此相关的信息。

我使用事件处理程序在 Outlook 2016 中自动对电子邮件进行排序。这些事件处理程序已在 ThisOutlookSession 中定义为 Public WithEvents 变量，它们是使用 Application_Startup 事件设置的，它们调用位于不同代码模块中的不同程序，这些程序直接引用这些事件处理程序过程中的对象。

今天早上，每当运行这些程序时，我都会收到“需要对象”错误。我打开了 Option Explicit，它显示当我尝试手动运行该过程时，我收到一个编译错误，表明这些变量（ThisOutlookSession 中的公共变量事件处理程序）未定义。当我将过程移动到 ThisOutlookSession 或将事件处理程序引用为“ThisOutlookSession.EventHandler1”而不是“EventHandler1”时，错误停止。

我可以使用这些变通方法，但这将是很多工作。知道发生了什么或如何解决这个问题（不求助于变通方法）？

示例代码（在 ThisOutlookSession 中）：

示例代码（在单独的代码模块“自定义”中）

我正在尝试修改此 VBA 代码以将电子邮件中的所有附件保存在 Inboxsubfolder中。项目填充了此文件夹中的所有消息，但其余代码不起作用。

我正在尝试打印出要调试的项目对象，但这也不起作用。

原始代码：https ://community.spiceworks.com/scripts/show/361-auto-save-attachments-to-folder

更新 1：我现在意识到只有 Application_Startup() 可以使用 Run 按钮进行调试。发送一封测试电子邮件，我能够逐步完成该程序并看到一切都按预期工作。

首先，我是 VBA 的初学者，所以我不太了解。我倾向于记录我的宏，然后稍微修改它们。

我收到以下错误 1004 消息

您不能在此处粘贴此内容，因为复制区域和粘贴区域的大小不同。仅选择粘贴区域中的一个单元格或相同大小的区域，然后再次尝试粘贴。

我基本上只是想将数据从一张“ExpenseImport”复制到下一个空白行的“CMiCExport”。数据将始终从 A 列到 AE，因为它已被映射，但行将始终根据该特定周的条目数量而变化。当我使用“F8”进入并运行代码时，它工作得很好，但是当使用活动控件运行代码时，它会失败。有人能帮我吗？

我正在尝试使用 VBA 向每个学生发送包含（学生姓名和他的分数）的电子邮件..

我有如下的excel表

从上面的excel我需要向每个学生发送电子邮件，电子邮件正文如下

我已经在 VBA 中编写了代码，但我不知道如何将此文本发送给 mailBody 部分中的每个学生。

我的代码如下

亲切的问候..

我正在努力从 excel 表中向每个学生发送包含（学生姓名和他的分数）的电子邮件，如下所示

一切正常，但是当学生姓名为阿拉伯字符时。名称显示为 (???? )，如下所示

我将本地系统的设置更改为阿拉伯语，但仍然遇到同样的问题。

有什么建议吗？

我正在使用 VBA 处理 excel 表：我正在尝试测试进度条。我已经完成了设计，如下图：

代码下方userForm：

代码下方Module：

当我运行代码时，我收到此错误：

当我按下 时Debug，它会突出显示：

ufProgress.LabelProgress.Width = 0

更多信息

UserForm 名称是 ( ufProgress )，UserForm 左上角的标签，将用于显示指示状态名称的文本 ( LabelCaption ) ...以及 UserForm 名称上的框架 ( FrameProgress ).. Finlay，另一个标签, 即将增长的进度指标名称 ( LabelProgress ) ..

任何建议...

亲切的问候