1.در تب developer، بر روی بخش controlsو insert، یک دکمه به صفحه اضافه کنید.
2.محیط برنامه نویسی را باز کرده و فرم زیر را ایجاد کنید.
3.بر روی دکمه Runراست کلیک کرده و view codeرا فشار دهید.
4. ابتدا برای تعداد تکرار ایتم، یک متغیر عدد صحیح به صورت زیر تعریف کنید.
Dim No As Integer
نکته: در برنامه VBA، انواع دیگر متغیرها تعریف می شود که می توان به متغیر های double، string، long، binaryو ... اشاره کرد.
5.تعداد تکرار در کنترل textboxذخیره می شود. برای انتقال مقدار آن به متغیر No، با استفاده از ویژگی value، مقدار این کنترل در Noذخیره می شود.
No = TextBox1.Value
6. برای اضافه کردن ایتم به listboxاز کنترل لوپ for استفاده می شود که به تعدادی مشخص یک عمل را تکرار می کند.
For i = 1 To No
ListBox1.AddItem "item" & i
Next
نتیجه کار به صورت زیر می شود.
7. برای بسته شدن برنامه، در کد مربوط به close، از دستور زیر استفاده می شود که باعث بسته شدن برنامه می شود.
UserForm2.Hide
8. در صورتیکه می خواهید تغییرات را ذخیره کنید، بر روی دکمه saveکلیک کنید.
