比较VBA中的单元格以进行条件格式化

Question

I have this chunk of code that works just fine:

Function sshProblem(rng As Range) As Boolean
   Dim portStatus As String
   portStatus = rng.Value

   Dim deviceType As String
   deviceType = Cells(Application.Caller.Row, 3).Value

   Dim sshDevices As Variant
   sshDevices = Array("linux", "vmw", "docker", "unix")

   If StrComp(portStatus, "No") = 0 Then
      sshProblem = Not IsError(Application.Match(deviceType, sshDevices, 0))
   End If
End Function

Now the code needs to scale, and instead of storing values inside the sshDevices array, these values need to reside in a column in another sheet, so I tried to replace

sshDevices = Array("linux", "vmw", "docker", "unix")

with

sshDevices = Worksheets("Config sheet").Range("I2:I11").Value

at that point the conditional formatting stopped working. How may I pick up the values from a cell range and insert them into a variable for comparison?

Answer 1

I'm not 100% sure with what you are trying to achieve with your code, but to answer your question

How may I pick up the values from a cell range and insert them into a variable for comparison?

you can use a For Each loop, something akin to:

dim myCell as range, myRange as range
set myRange = Worksheets("Config sheet").Range("I2:I11")

For Each myCell in myRange
    sshDevice = myCell.Value
    'do stuff you need with sshDevice
Next myCell

If you want to keep the sshDevices array, you can do that, and use the For Each loop to add each item individually.

dim counter as int
counter = 0
For Each myCell in myRange
    sshDevice(counter) = myCell.Value
    counter = counter + 1
next myCell

Answer 2

use

sshDevices = Application.Transpose(Worksheets("Config sheet").Range("I2:I11").Value)

just be informed that this way you'll have a 1-based array regardless of any Option Base which however affects the returned array form Array() function