‫ درس 8: کنترل های تکرار شونده ( بخش دوم ) | انجمن

مدیریت
مدیریت 20 شهریور 1396

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  کلیک کنید.