چند راهنمای

[munibahmadi]

سلام و درود یک راهنمای میخواستم و امیدوارم که یکی از عزیزان منو راهنمای کنن چون خیلی به این راهنمای نیاز دارم

من در یوذر فورم یک جدولی درست کردم میخواهم این قسمتی رو که علامت زدم رو فعال کنم ولی نمیدونم به چه صورت میشه یعنی کد انتخاب این در سلول رو نمیدونم چک باکس هست
و دوم اینکه یک تکس باکس یا یک قسمت سرج بزارم که در بین تکس های که ذخیره کردم یک حرف رو اګر خواستم سرج کنم در تمام فایل ها هرچی حرف به نام من هست رو لیست کنه و نشون بده آیا این امکان رو داره آموزش بدین

[iranweld]

با سلام

جواب سوال اول را در فایل پیوست بررسی بفرمایید

Private Sub CheckBox1_Change()

If CheckBox2 = True Then
CheckBox2 = False
CheckBox1 = True
End If

End Sub

Private Sub CheckBox2_Change()
If CheckBox1 = True Then
CheckBox1 = False
CheckBox2 = True
End If

End Sub


Private Sub CommandButton1_Click()

Z1 = Cells(Rows.Count, "A").End(xlUp).Row + 1

If CheckBox1 = True Then

Range("A" & Z1) = CheckBox1.Caption

ElseIf CheckBox2 = True Then

Range("A" & Z1) = CheckBox2.Caption

End If

End Sub