Excel VBA中使用函数和数组

Question

我的东西尝试尝试：

没有与人的名单，我想做些什么，是读取数组单元值（这部分作品），比对工作表中的每个单元格执行检查，并且如果给定的单元格与数组中的字符串相同，则执行一些操作。

但不幸的是，我得到了“类型不匹配”的错误。

诗篇。我知道这没有多大意义，我可以在服务器功能里面找到一些东西，但是相信我，我有我的理由。 :-)

编辑：固定的几件事情，现在它看起来像这样（现在我得到的对象不支持方法的该属性）

如果有帮助，你也可以尝试一下。你只需要添加一个名为“服务器”的单元，然后在它下面写一些随机的单词。现在它应该在的msgbox “OK” x次，其中x是你写的行数写在细胞下，命名为 “服务器”

'server name 
Function server(ByVal issrvname As String) 
Dim j As Integer 
Dim c As Range 
Dim x As Integer, y As Integer 

For Each c In Sheets("Topology").UsedRange.Cells 

Dim srvname() As String 
j = 0 
    If c.Cells.Value = "Servers" Then 
    y = c.Column: x = c.Row + 1 
     Do Until IsEmpty(Cells(x, y)) 
     ReDim Preserve srvname(0 To j) As String 
     srvname(j) = Cells(x, y).Value 
     x = x + 1 
     j = j + 1 
     Loop 
    End If 
Next c 

For Each c In Sheets("Topology").UsedRange.Cells 
    If IsInArray(c.Cell.Value, srvname) Then 
     issrvname = True 
    Else 
     issrvname = False 
    End If 
Next c 

End Function 

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1) 
End Function 

Sub test() 


Dim c As Range 

For Each c In Sheets("Topology").UsedRange.Cells 

    If server(c) = True Then 
    MsgBox "ok" 
    End If 

Next c 

End Sub 

Answer 1

我认为你可以将您的功能：

首先，你需要包括你的阵列生成块到主子。
包括它在函数，因为它需要产生在服务器功能

EDIT1的每个呼叫阵列服务器减慢执行代码：这是试图现在测试。我已经重新编写了你的​​功能并改进了你的子功能。

Sub test() 
    Dim j As Integer 
    Dim c As Range, c1 As Range 
    Dim x As Integer, y As Integer 
    Dim i As Long '~~> added it just to check how many is shown in MsgBox 

    For Each c In Sheets("Topology").UsedRange.Cells 
     '~~> generate array if "Servers" is encountered 
     If c.Value = "Servers" Then 
      Dim srvname() As String 
      j = 0 
      y = c.Column: x = c.Row + 1 
      With Sheets("Topology").UsedRange 
       Do Until IsEmpty(.Cells(x, y)) 
        ReDim Preserve srvname(j) 
        srvname(j) = .Cells(x, y).Value 
        x = x + 1 
        j = j + 1 
       Loop 
      End With 
      '~~> use the generated Array of values here 
      i = 1 
      For Each c1 In Sheets("Topology").UsedRange.Cells 
       If IsInArray(c1.Value, srvname) Then 
        MsgBox "ok" & i 
        i = i + 1 
       End If 
      Next c1 
     End If 
    Next c 
End Sub 

---

这里的新功能：（实际上，你不需要它，你可以直接在主分拨打匹配功能）

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    IsInArray = Not IsError(Application.Match(stringToBeFound, arr, 0)) 
End Function 

也许你这样做只是供测试用？我只是认为用于生成阵列的工作表必须与要比较服务器名称的工作表不同。

Answer 2

我认为这可能是你定义C作为在测试的范围内，但调用服务器c当服务器期待一个布尔一个。