[已解决]VBA用星号输入字母B如图

vbyou127

VBA用星号输入字母B如图

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-8 10:15

Sub Click()
    Dim i
    For i = 1 To 7
        Select Case i
        Case 1, 4, 7
            Cells(i, 1) = "*****"
        Case Else
            Cells(i, 1) = "*   *"
        End Select
    Next i
End Sub

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim i
    For i = 1 To 7
        Select Case i
        Case 1, 4, 7
            Cells(i, 1) = "*****"
        Case Else
            Cells(i, 1) = "*   *"
        End Select
    Next i
End Sub