Excel VBA在带有变量的页脚内开始和停止下划线

Posted 2023-04-14

【中文标题】Excel VBA在带有变量的页脚内开始和停止下划线

【英文标题】：Excel VBA Start and Stop Underlining within a footer with a Variable

【发布时间】：2018-11-28 16:03:15

【问题描述】：

我想在 Rightfooter 中有一个页脚，其中有一个带有变量的文本字符串，那里没有问题，但我发现一些困难是在特定点开始下划线和终止下划线的语法页脚字符串。基本上，我需要工作“页面”，然后是 2 个带下划线的空格，然后是由变量生成的页码也带下划线，然后再有 5 个空格加下划线，最后我需要 10 个不带下划线的空格来定位页脚到我正在复制的报告中的正确位置。这是我正在尝试的代码。

DIM pg as integer, WS as worksheet

pg = 14

With WS.PageSetup
    .RightFooter = "&Time New Roman""&12" & "Page" "&U,  " & pg & "   " "&U           "
End With

为此，第一个“&U”出现“预期结束状态”错误。这个东西中有大量代码已经过 QC，这是最后一个让我失望的 QC 元素，我们将不胜感激。

【问题讨论】：

你的引用是错误的"&""Times New Roman,Regular""&12Page &U " & pg & " &U "

谢谢，我几乎可以肯定，这对于问题的主旨是有效的。我在下面的答案中使用白色字符是我看到其他人在努力解决的问题。

【参考方案1】：

With WS.PageSetup
    .RightFooter = "&""Times New Roman""&12 Page" & "&U  A-" & pg & "    " & "&U" & "&KFFFFFF PPPPPPPPPPPPPPPPPP"
End With

所以我弄清楚了语法并意识到尾随空格不会将我的文本重新定位到左侧，因此我不得不切换到将一些文本设置为白色并使用不可见的字符将我想要的块推到更左边。这就是我想出的，它对我有用，希望这可以帮助将来尝试在页脚中对齐文本的其他人。