Tag: 下划线

调用一个包含多个下划线的variables名

目前我正在开发一个子版本，如果一个单元格的值匹配工作表的名称，那么将会激活其中一个已经写入的子文件。 所以如果我在一个有数据validation的单元格中select了“索引”，子将会激活子索引名称“索引”，它将创build表格“索引”的pdf文件。 创buildPDF文件的子“索引”起作用。 如果在子名称中没有下划线，则激活子“索引”的子程序也起作用。 但是我确实希望它可以使用下划线，因为有些表的名字中有空格。 例如; 表“材料检查”与“Material_检查”或“Material_test_report”表单中的“材料检查报告”组合在一起。 代码只有在重置子名称后才有效。 码： Sub CreateSomePDF() Dim iMyValue As String iMyValue = Worksheets("Invulformulier").Range("A96").Value Application.Run iMyValue End Sub 是否有可能使其工作？ 我几乎可以肯定的是，由于单名的工作，下划线是问题。

macros双下划线范围如果col q = *

我有一个问题，我无法解决。 问题在于col Q.我想要的很简单： 扫描第5行到最后一行（最后一行的值在单元格“AL1”中）如果Q的那一行中有一个“*”（符号存储在单元格“AK2”中），则双下划线单元A到AF在那一行，继续扫描直到最后一行。 Sub Reformat() Dim SrchRng3 As Range Dim c3 As Range, f As String Set SrchRng3 = ActiveSheet.Range("Q5", ActiveSheet.Range("Q100000").End(xlUp)) Set c3 = SrchRng3.Find(Range("ak2"), LookIn:=xlValues) If Not c3 Is Nothing Then f = c3.Address Do With ActiveSheet.Range("A" & c3.Row & ":AF" & c3.Row) Range("A" & c3.Row & ":AF" & c3.Row).Select .Borders (xlEdgeBottom) .LineStyle […]