Excel 按钮将内容作为电子邮件发送问题

Excel button to send contents as email issue

我有一个表单模板，用户可以填写该表单模板并通过电子邮件发送给部门以提出请求，我混合使用 IF 函数和条件格式，以便表单 hide/shows 字段基于用户输入。

我的问题是，当用户按下按钮通过电子邮件发送表单时，已显示（之前隐藏）的字段没有 table 边框，即使在电子表格上显示但在电子邮件。

我使用了下面链接的教程中的代码： https://www.excell-en.com/auto-email-macro-excel

这是它应该出现的样子（如 excel 中所示） Excel view

电子邮件中的结果如下：Email view

如果可能的话，我想让电子邮件看起来与它在 excel

中显示的完全一样

任何想法或帮助将不胜感激

我刚刚将单元格边框重新应用到这些单元格

并重新触发电子邮件，这里是输出

编辑

花了一些时间后发现出了什么问题。问题在于条件格式。 VBA 代码创建一个临时 sheet 并复制所有数据和条件格式。但是，单元格引用是错误的，如下所示

为了使单元格引用正确，我开始风靡A1

    Set rng = Sheets("Division_Extensions").Range("A1:C20").SpecialCells(xlCellTypeVisible) '

现在，单元格引用是正确的，因此条件格式可以正常工作

编辑 2：添加主题阅读单元格中的数据

  1. 在某些单元格中添加主题，例如我在 sheet“数据验证”第 7 行和 C 单元格中添加

  2. 从该单元格中读取数据并将其分配到 VBA 代码中

    .subject = Sheets("数据验证").Cells(7, 3)