1.برنامه اکسل را باز کرده و از تب developer، از بخش insert، یک دکمه به صفحه اضافه کنید.
2. به محیط برنامه ریزی VBAبروید و یک فرم جدید اضافه کنید.
3. فرم جدید را با استفاده از نوار ابزار کنترلها، به صورت زیر تکمیل نمایید.
4.برای مقدار دهی اولیه combobox، در تابع UserForm_Initializeکد زیر را وارد کنید.
For i = 1 To 10
UserForm3.ComboBox1.AddItem i
Next
در کد بالا، userform3، نام مشخصه فرم ساخته شده است.
5.برای این که listboxقبل از هر گونه تغییر، از تغییرات جدید پاک سازی شود، کد زیر به کد مربوط به دکمه Runاضافه شود. دستور دوم برای سفید کردن کنترل Listboxدر صورت تغییر رنگ استفاده می شود.
ListBox1.Clear
ListBox1.BackColor = RGB(255, 255, 255)
6.برای شمارنده لوپ whileو تعداد چرخش لوپ، نیاز به تعریف دو متغیر زیر است که به صورت عدد صحیح تعریف می شوند.
Dim i As Integer
Dim no As Integer
7.برای چاپ در Listbox1از لوپ whileاستفاده می شود که شمارنده iتا زمانی که کمتر از no+1می شود، چاپ Itemدر listbox1قرار می گیرد.
8.اگر دکمه رادیویی در حالت redباشد، رنگ پس زمینه Listbox1با استفاده از دستور زیر وارد می شود.
If OptionButton1.Value = True Then
ListBox1.BackColor = RGB(255, 0, 0)
Else
ListBox1.BackColor = RGB(0, 255, 0)
End If
9.با کلیک کردن clear listنوشته های در listbox1پاک می شود و اگر رنگ تغییر کرده باشد، رنگ با استفاده از دستور زیر رنگ سفر خواهد شد.
ListBox1.BackColor = RGB(255, 255, 255)
ListBox1.Clear
10.در صورتیکه قصد ذخیره تغییرات را دارید بر روی دکمه save کلیک کنید.
