این کد VBA (ماکروی اکسل) یک مثال ساده برای دریافت ورودی از کاربر و نمایش نتیجه بر اساس انتخاب کاربر است. بیایید کد را به بخشهای مختلف تقسیم کرده و بررسی کنیم:

بخشهای اصلی کد:

1. تعریف متغیرها

Dim num As Integer
Dim cel As Range
Set cel = Cells(1, 1)

• num برای ذخیره عدد وارد شده توسط کاربر

• cel یک محدوده (Range) است که به سلول A1 اشاره دارد (ستون 1، سطر 1)

2. پاکسازی سلول مقصد

cel.Value = ""

سلول A1 را خالی میکند تا از هر مقدار قبلی پاک شود.

3. دریافت ورودی از کاربر

again_:
num = Val(Application.InputBox(":عدد بین 1 تا 2 را وارد کنید"))

• یک کادر محاورهای برای دریافت عدد از کاربر نمایش میدهد

• Val مقدار وارد شده را به عدد تبدیل میکند

• برچسب again_ برای بازگشت در صورت ورودی نامعتبر استفاده میشود

4. بررسی شرطها

If num = 1 Then GoTo a
If num = 2 Then GoTo b
If num = 3 Then GoTo c
If num > 3 Then GoTo err_

• اگر کاربر 1 وارد کند، به بخش a میرویم

• اگر 2 وارد کند، به بخش b میرویم

• اگر 3 وارد کند، به بخش c میرویم

• اگر عددی بزرگتر از 3 وارد کند، به بخش خطا (err_) میرویم

5. بخشهای نتیجه

a:
    cel.Value = "A"
    Exit Sub

b:
    cel.Value = "B"
    Exit Sub

c:
    cel.Value = "C"
    Exit Sub

• بسته به انتخاب کاربر، حرف مربوطه در سلول A1 نمایش داده میشود

• Exit Sub از ادامه اجرای کد جلوگیری میکند

6. بخش خطا

err_:
    MsgBox "مقدار وارد شده معتبر نیست"  
    GoTo again_

• اگر عدد نامعتبر وارد شود، پیغام خطا نمایش داده میشود

• GoTo again_ کاربر را به ابتدای کد برمیگرداند تا عدد جدیدی وارد کند