我如何用Just循环和if语句制作此消息框？

Posted 2021-04-11

enter image description here

        Sub RollerCoaster()

        Dim strCoaster As String
        Dim strType As String
        Dim blnFound As Boolean
        Dim intWood As Integer

        Range("A2").Select


        strType = "Wood"
        blnFound = False


        Do Until ActiveCell.Value = ""
        strCoaster = ActiveCell.Offset(1, 0).Value
            If ActiveCell.Offset(0, 2).Value = strType Then
                strCoaster = ActiveCell.Value
                MsgBox ("The RollerCoaster made out of woods is " & strCoaster)
                blnFound = True
                Exit Do
            Else
                ActiveCell.Offset(1, 0).Select
            End If
        Loop

        End Sub

我知道如何仅循环1个过山车，但是如何在消息框中获得所有的Wood型过山车？

答案

这样的事情（不需要选择/激活）

Sub RollerCoaster()

    Dim strType As String
    Dim c As Range, msg 

    strType = "Wood"
    msg = ""

    Set c = ActiveSheet.Range("A2") 
    Do While Len(c.Value) > 0 = ""
        If c.Offset(0, 2).Value = strType Then
            msg  = msg & vbLf & c.Value
        End If
        Set c = c.Offset(1, 0)
    Loop

    If Len(msg) > 0 Then Msgbox "Found matches:" & msg

End Sub

另一答案

这里您要我显示...

 Dim MyType As Variant
 MyType = Array("Wood", "Soil", "Cement", "Brick")
 For mycnt = 1 To UBound(MyType)
     strType = MyType(mycnt - 1)
     blnFound = False
     'Your do loop here
 Next