به تعداد رقم وارد شده option button ایجادکند

[نیلوفر66]

در فرم زیر بعد از انتخاب شماره ترم درسهایی که در آن ترم ارایه شده را به صورت option button نمایش دهد.تنها تونستم یک درس رو نمایش بدم از حلقه for به چه صورت استفاده کنم و option ها رو نام گذاری کنم؟؟

[Ali Parsaei]

سلام،
دقيقا" سوالتان را متوجه نمي شوم! يعني وقتي شماره يک ترم را وارد کرديد و دگمه نمايش دروس را زديد اسامي تمام دروس آن ترم را درفرم (مثلا" در LABEL يا TEXTBOX هاي جداگانه) بياورد و جلو هر کدام هم يک OPTION BUTTON قرار دهد؟
چرا از LIST BOX استفاده نمي کنيد؟
ببينيد اينجوري بهتر نيست: يک LISTBOX در فرم ايجاد کرده و در دگمه "نمايش دروس" کد زير را بنويسيد:


Private Sub CommandButton2_Click()
ListBox1.Clear
Dim C As Range
For Each C In Range("h2:h15")
If C = TextBox2.Text Then
ListBox1.AddItem C.Offset(0, 1).Value
End If
Next
End Sub

بعد از اسامي دروس که در ليست بکس آمده با کد نويسي استفاده کنيد. (البته کد نويسي آن بستگي به آن دارد که در مرحله بعد چه کار مي خواهيد بکنيد)

[نیلوفر66]

سپاس از پاسخ
وقتی دروس نمایش داده شد و بعد از انتخاب درس نمره ها وارد شد چطور درس انتخاب شده را تشخیص دهم و در سلول ذخیره کنم؟

[Ali Parsaei]

اگر منظورتان همان LISTBOX که من اشاره کردم مي باشد، براي استخراج مقادير از رديف هاي ليست شده در ليست بکس بايد از اين کد استفاده کنيد:


ListBox1.List(ListBox1.ListIndex)

مثلا" اگر بخواهيد روي يک رديف از مقادير ليست بکس کليک کرده و آن مقدار در سلول M1 نوشته شود بايد کد زير را به کار بريد:


Private Sub ListBox1_Click()
Range("M1").Value = ListBox1.List(ListBox1.ListIndex)
End Sub

يا مثلا" مي توانيد يک فرم ايجاد کنيد و در فرم يک تکست بکس قرار دهيد و سپس از کد زير استفاده کنيد، در اين صورت اگر روي يکي از مقادير داخل ليست بکس کليک کنيد فرمي که جديد ايجاد کرده ايد باز شده و واژه اي که رويش کليک کرده ايد در تکست بکس فرم نمايش داده خواهد شد:


Private Sub ListBox1_Click()
UserForm1.TextBox1 = ListBox1.List(ListBox1.ListIndex)
UserForm1.Show
End Sub

بعد در اون فرم دوم هر چيز ديگري هم مي خواهيد وارد کرده و يک دگمه ثبت هم قرار دهيد که اطلاعات دست آخر به شيت منتقل شود