انتخاب محدوده با Vba در اکسل
يكشنبه, ۱ آذر ۱۳۹۴، ۰۷:۴۳ ق.ظ
1- از سربرگ Developer بخش Controls دستور Insert Button یک دکمه یا کلید طراحی می کنیم.
2- نامی را برای macro مثلاً Button1_Click نوشته و گزینه New را برای ورود به محیط کد نویسی انتخاب می کنیم
3-قطعه کد زیر را مابین Sub Button1_Click و End Sub می نویسیم:
Dim UserRange As Range
On Error GoTo Canceled
Set UserRange = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Type:=8)
Application.GoTo UserRange
Canceled:
4-حالا به محیط اصلی برنامه روی کلید کلیک راست و گزینه Assign macro را برای اطمینان از انتساب ماکرو به کلید می بینیمSet UserRange = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Type:=8)
Application.GoTo UserRange
Canceled:
5- با کلیک روی کلید در پنجره ظاهر شده محدوده را انتخاب کرده و Ok می کنیم
با تشکر-گروه فناوری اطلاعات آموزشگاه عصر دانش گستر
- ۹۴/۰۹/۰۱