Private Sub CommandButton1_Click()
Dim list1 As New Collection
Set list1 = Nothing
Range("c3:c12", "f3:f12").ClearContents
For i = 1 To 20 If Me.Controls("CheckBox" & i) = True Then list1.Add Me.Controls("CheckBox" & i).Caption End If Next
If list1.Count > 0 Then For i = 1 To list1.Count If i <= 10 Then Range("c" & i + 2) = list1.Item(i) Else Range("f" & i + 2 - 10) = list1.Item(i) End If Next MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ", vbMsgBoxRight, "ËÈÊ ÇØáÇÚÇÊ"
End If End Sub
Private Sub CommandButton1_Click()
k = 3
k2 = 3
Range("b3:c12", "e3:f12").ClearContents
For Each ctl2 In Me.Controls
If TypeOf ctl2 Is MSForms.CheckBox Then
If Me.Controls(ctl2.Name).Value = True = True And k <= 12 Then
Sheets("Sheet1").Cells(k, 3).Value = Me.Controls(ctl2.Name).Caption
k = k + 1
ElseIf Me.Controls(ctl2.Name).Value = True Then
Sheets("Sheet1").Cells(k2, 6).Value = Me.Controls(ctl2.Name).Caption
k2 = k2 + 1
End If
End If
Next
MsgBox "ÇØáÇÚÇÊ ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ", vbMsgBoxRight, "ËÈÊ ÇØáÇÚÇÊ"
End Sub
Private Sub CommandButton1_Click()
Dim list1 As New Collection
Set list1 = Nothing
Range("c3:c12").ClearContents
Range("f3:f12").ClearContents
For i = 1 To 20
If Me.Controls("CheckBox" & i) = True Then
list1.Add Me.Controls("CheckBox" & i).Caption
End If
Next
If list1.Count > 0 Then
For i = 1 To list1.Count
If i <= 10 Then
Range("c" & i + 2) = list1.Item(i)
Else
Range("f" & i + 2 - 10) = list1.Item(i)
End If
Next
MsgBox "اطلاعات با موفقيت ثبت شد", vbMsgBoxRight, "ثبت اطلاعات"
End If
End Sub
Private Sub UserForm_Initialize()
For i = 3 To 12
Select Case Range("c" & i)
Case "ماوس"
Me.Controls("CheckBox1") = True
Case "کيبرد"
Me.Controls("CheckBox2") = True
Case "کيس"
Me.Controls("CheckBox3") = True
Case "رم"
Me.Controls("CheckBox4") = True
Case "کارت گرافيگ"
Me.Controls("CheckBox5") = True
Case "اسپيکر"
Me.Controls("CheckBox6") = True
Case "مانيتور"
Me.Controls("CheckBox7") = True
Case "هارد"
Me.Controls("CheckBox8") = True
End Select
Next
End Sub
Private Sub UserForm_Initialize()
For i = 3 To 12
Select Case Range("c" & i)
Case "ماوس"
Me.Controls("CheckBox1") = True
Case "کيبرد"
Me.Controls("CheckBox2") = True
Case "کيس"
Me.Controls("CheckBox3") = True
Case "رم"
Me.Controls("CheckBox4") = True
Case "کارت گرافيگ"
Me.Controls("CheckBox5") = True
Case "اسپيکر"
Me.Controls("CheckBox6") = True
Case "مانيتور"
Me.Controls("CheckBox7") = True
Case "هارد"
Me.Controls("CheckBox8") = True
End Select
Next
For i = 3 To 12
Select Case Range("f" & i)
Case "ماوس"
Me.Controls("CheckBox1") = True
Case "کيبرد"
Me.Controls("CheckBox2") = True
Case "کيس"
Me.Controls("CheckBox3") = True
Case "رم"
Me.Controls("CheckBox4") = True
Case "کارت گرافيگ"
Me.Controls("CheckBox5") = Tru
eCase "اسپيکر"
Me.Controls("CheckBox6") = True
Case "مانيتور"
Me.Controls("CheckBox7") = True
Case "هارد"
Me.Controls("CheckBox8") = True
End Select
Next
End Sub
Private Sub UserForm_Initialize()
For i = 3 To 12
Select Case Range("c" & i)
Case "ماوس"
Me.Controls("CheckBox1") = True
Case "کيبرد"
Me.Controls("CheckBox2") = True
Case "کيس"
Me.Controls("CheckBox3") = True
…
..
Me.Controls("CheckBox20") = True
End Select
Next
For i = 3 To 12
Select Case Range("f" & i)
Case "ماوس"
Me.Controls("CheckBox1") = True
Case "کيبرد"
Me.Controls("CheckBox2") = True
Case "کيس"
Me.Controls("CheckBox3") = True
…
..
Me.Controls("CheckBox20") = True
End Select
Next
End Sub
کامنت