将不同types的数组传递给UDF函数

我有一个函数，显示在Excel表中的数组的内容。 我的函数的标题如下所示：

Public Sub afficher_signal(ByRef signal() As Integer, ByVal nb_ligne As Integer)

问题是，有时我想用它来显示一个整数数组，有时，它是一个双数组我想要显示。 有没有办法改变ByRef signal() as Integer的东西，可以接受任何types的数组？

非常感谢你 ！

Answer 1

更换

 Public Sub afficher_signal(ByRef signal() As Integer, ByVal nb_ligne As Integer) 

同

 Public Sub afficher_signal(ByRef signal, ByVal nb_ligne As Integer) 

要么

 Public Sub afficher_signal(ByRef signal as Variant, ByVal nb_ligne As Integer) 

以下演示afficher_signal的示例使用

 Public Sub Main() Dim arr As Variant arr = Array(1, "yo", 3, 10 Mod 2, 5.25) afficher_signal arr, 0 afficher_signal2 arr, 0 End Sub Public Sub afficher_signal(ByRef signal As Variant, ByVal nb_ligne As Integer) Dim i As Long For i = LBound(signal) To UBound(signal) Debug.Print signal(i) Next i End Sub Public Sub afficher_signal2(ByRef signal, ByVal nb_ligne As Integer) Dim i As Long For i = LBound(signal) To UBound(signal) Debug.Print signal(i) Next i End Sub