Question

我正在尝试启动以下功能

Function MitteOben(Bereich As Range)

    With Bereich
        .VerticalAlignment = xlTop
        .HorizontalAlignment = xlCenter
    End With

    With Bereich.Font
        .Name = "Tahoma"
        .Size = 10
        .ThemeColor = xlThemeColorLight1
    End With

End Function

当我尝试定义范围并启动该功能时，它会创建运行时错误424。

我试图以这种方式开始：

Set Hlpr = Range(Cells(ObjStartRow, 14), Cells(ObjStartRow, 28))
MitteOben (Hlpr)
Fett (Hlpr)

我也尝试过Swap＆＃34; ObjStartRow＆＃34;使用数字或将整个范围更改为：范围（＆＃34; N29：AC29＆＃34;）都已失败。

Answer 1

它应该是Sub，而不是函数。在genreal中，函数返回值，subs执行某些操作。

话虽如此，作为在德国工作的VBA人，我请求您开始用英语命名您的函数，变量和子函数。它确实可以为下一个处理代码的人节省大量的被动愤怒。它使您的代码更好。

Public Sub MitteOben(Bereich As Range)

    With Bereich
        .VerticalAlignment = xlTop
        .HorizontalAlignment = xlCenter
    End With

    With Bereich.Font
        .name = "Tahoma"
        .Size = 10
        .ThemeColor = xlThemeColorLight1
    End With

End Sub

这是如何调用它： call MitteOben(selection)或MitteOben selection

尝试启动函数会导致运行时错误424

1 个答案: