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當服務器期待一個布爾一個。