我编写了一个包含重复代码的 Excel 子程序，其中活动范围以特定方式格式化，但我认为不可能将这些情况组合成一个循环。是否可以编写一个单独的子/函数来接受输入范围，对其进行格式化并输出该格式化范围，就像 python 具有可定义的函数一样？
编辑：这是一些准系统伪代码
function Colour_and_Merge(Input Range)
Formatted range = *Input Range with text and background colour changed*
Colour_and_Merge = Formatted Range
end function
sub Main_Code()
for y = 1 to 3
if y <> 1
Colour_and_merge(Range(Cells(1,y),Cells(5,y)))
end if
Colour_and_Merge(Seperate_Range)
end sub
你会像下面那样做。
Option Explicit
Public Sub ColorAndMerge(ByVal InputRange As Range)
With InputRange
.Interior.Color = vbRed ' format range background red.
.Font.Bold = True ' format font bold
'what ever you like to do with that range put it here
End With
End Sub
Public Sub MainCode()
Dim y As Long
For y = 1 To 3
If y > 1 Then
ColorAndMerge Range(Cells(1, y), Cells(5, y)) 'make sure you specify in which workbook and worksheet your `Range` and `Cells` objects are!
End If
Next y
ColorAndMerge SeperateRange
End Sub
请注意，您不需要 a Functionbut a Sub。返回范围没有任何意义，因为它与您作为InputRange. 因此，例如，如果您ColorAndMerge SeperateRange在主过程中调用，则不需要ColorAndMerge返回任何内容，因为它只会返回与SeperateRange您已经知道的相同的内容。
因此，如果您的主要代码执行以下操作
Public Sub MainCode()
Dim SeperateRange As Range
Set SeperateRange = Range(Cells(1, y), Cells(5, y))
ColorAndMerge SeperateRange 'if you call the procedure
'here `SeperateRange` will be the formatted range. There is no need to return it in a function, the SeperateRange variable is just a reference to the real range in the worksheet that already got formatted by ColorAndMerge
End Sub
另请注意，调用过程/子函数时必须不带括号，而函数是带括号调用的：
ColorAndMergeSub SeperateRange ' correct
ColorAndMergeSub (SeperateRange) ' wrong! ... this syntax exists but does something entirely differnt than the first one
ReturnValue = ColorAndMergeFunction(SeperateRange) ' correct
ReturnValue = ColorAndMergeFunction SeperateRange ' wrong!
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句