close

Private Sub BTN_Click()

Dim I As Integer
Dim a(1 To 20) As String
Dim C As String

Dim x As String

For I = 1 To 20
x = "cb" & I

If Me.Controls("cb" & I) = True Then
a(I) = Me.Controls("cb" & I).Caption
End If

C = a(I) + " "

Next


ActiveCell = C
MsgBox C

uf1.Hide
End Sub

arrow
arrow
    全站熱搜

    卡車攝影師 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄