ویژگی ListRows و Selected در کمبو باکس

اواخر آذر ۱۴۰۱:

بانوان مطالبه‌گر حوزه عفاف و حجاب اعلام کردند؛

بست‌نشینی را تا ارسال ۵ هزار پیامک تذکر حجاب ادامه می‌دهیم

بانوان مطالبه‌گر حوزه عفاف و حجاب که از حدود سه هفته پیش در برخی از بقاع متبرکه بست نشسته‌اند و خواستار اجرای مطالبات امامین انقلاب و قانون عفاف و حجاب هستند، اعلام کردند: تا زمانی که حداقل ۵ هزار پیامک تذکر حجاب ارسال نشود به این بست‌نشینی ادامه می‌دهیم.

Selected : 

انتخاب مورد از لیست باکس کمبو

Combo1.Selected(3)=True

ایندکس ردیف ها در لیست باکس ZeroBase هست یعنی ردیف ۱ ایندکس صفر دارد پس طبق خاصیت یا ویژگی مثال زده شده 3 می شود ردیف چهارم

The item in the combo box. The first item is represented by a zero (0), the second by a one (1), and so on.

ListRows : 

حداکثر ردیف هایی که نمایش داده می شود

SelStart : 

برای تعیین نقطه شروع در متن یا نقطه درج.

این ویژگی از دیتا تایپ integer در محدوده صفر تا تعداد کل کاراکترها در قسمت تکست باکس یک کمبو باکس بهره می برد.

.SelStart=0

باعث می شود که از حالت انتخاب خارج شود

SelLength هم طول کاراکتر را مشخص میکند فرضا با SelStart نقطه شروع در متن رو انتخاب می کنید و با ویژگی گفته شده ، می توان برای جستجو در متن و های لایت کردن یافته بهره برد.

ScrollBarAlign : 

جهت نوارپیمایش عمودی یا Vertical از صفر تا ۲ ... 

۱ Scroll Bar در سمت راست کنترل قرار می گیرد .

۲ Scroll Bar در سمت چپ کنترل قرار می گیرد.

TabStop :

کاملا مشخصه یعنی مانع از استفاده Tab برای بردن فوکس به کنترل خواهد شد به False و True تنظیم میشود البته مراقب کلیدهای ترکیبی باشید.

LimitToList : 

اگر متن وارد شده در لیست کمبو باکس نباشد در صورت زدن Enter یا پرش از تکست باکس خطا می دهد.

نماینده ولی فقیه در استان لرستان در صحبت های جنجالی اخیر خود گفت: مسئله بر سر حجاب نیست بحث بر سر سوق دادن به سمت همجنسگرایی و ازدواج با حیوانات است.

سیاستمدار سیاس

او پس از واقعه کودتای سوم اسفند ۱۲۹۹ به دست رضا خانِ میرپنج برای فرار از دست غضب شاه، بست‌نشین مرقد حضرت معصومه (س) شد و از تبریز به قم مهاجرت کرد.

یک روز بعد از این مهاجرت احضاریه‌ای مربوط به املاک لشته‌نشاء به دست فخرالدوله رسید. احضاریه را عبدالکریم خان اکبر معروف به میرزا کریم‌خان رشتی و برادرش عبدالحسین خان اکبر معروف به معزالسلطان و سردار محیی برایش فرستادند. فخرالدوله نیز با وجود مخالفت همسرش میرزا محسن خان، برای اعاده دادرسی به دادگستری تهران رفت و با سردار سپه ملاقات کرد و موفق شد نظر مساعد شاه را برای حفظ املاک پدریش جلب کند.

رضاخان با دیدن فخرالدوله و شهامتش، او را این گونه توصیف کرد: «قاجاریه یک مرد و نیم داشت، مردش فخرالدوله و نیم مردش آغا محمدخان بود.»  البته قاجاریه و فخرالدوله مثل ... از رضاخان ترس داشتند چون اگر دست از پا درازتر می کردند در دم کشته می شدند.

کمبو باکس وابسته در اکسل

Named Range / Indirect

جستجو در لیست باکس ( Developer/ActiveX Object / Control )

روش دوم : 

استفاده از تابع SEARCH  اگرنبود تابع FIND

استفاده از تابع IF و  COUNTIF در ستون G به صورتیکه اگر سلی در ستون F برابر یک شده کانت 1 را در رنج $F$3:F3 در سل مربوطه درج کند.

 نمونه ی استفاده از تابع SEARCH در تصویر زیر 

فرمول همراه با تابع Index در ستون H 

([MATCH(lookup_value, lookup_array, [match_type

(MATCH(ROWS($G$3:G3),$G$3:$G$22,0

عملکرد تابع ROWS (برگشت  تعداد ردیف ها )  در رنج مشخص شده - وقتی فرمول به پائین کشیده شود ( DRAG )  قسمت اول که $ دارد ثابت میماند و قسمت دوم یعنی G3 اعدادش نسبت به قبلش یک واحد بصورت افزایشی تغییر میکند یعنی G3 میشود G4 و سل بعد G5 و ... 

ROWS($G$3:G3) : 1
ROWS($G$3:G4) : 2
ROWS($G$3:G5) : 3
ROWS($G$3:G6) : 4
ROWS($G$3:G7) : 5
ROWS($G$3:G8) : 6
ROWS($G$3:G9) : 7

عملکرد تابع MATCH یعنی تعیین موقعیت ( اعداد برگشتی تابع بالا پارامتر آرگومان اول تابع MATCH شده اند )

MATCH(1,$G$3:$G$22,0)=1=
MATCH(2,$G$3:$G$22,0)=7=

همانطور که در بالا مشاهده می کنید موقعیت عدد یک را در ستون G نمایش میدهد که 1 است و همینطور موقعیت عدد 2 در ستون G که 7 است را برمی گرداند و برای اعداد بعدی ( حاصل تابع ROWS بالاتر ) که 3 و ... هست چون وجودندارند صفر است .

حال تابع بالا ( MATCH ) میشود آرگومان Row در تابع INDEX 

([INDEX(array, row_num, [column_num

  (INDEX($E$2:$E$20,1=
(INDEX($E$2:$E$20,7=

:Here are the steps to create it

1. Go to Formulas –> Name Manager.
2. In the name-manager dialogue box click New. It will open a New Name dialogue box.
3. In the Name Field enter DropDownList
4. In the Refers to Field enter the formula: 
5.  =$H$3:INDEX($H$3:$H$22,MAX($G$3:$G$22),
6. 
   

درستون H از دوتابع MATCH و INDEX استفاده شده که تابع MATCH موقعیت موردجستجو را برمی گرداند .

Range("E3:E27").AdvancedFilter Action:=xlFilterCopy

CopyToRange:=Range("I3"), Unique:=True,

Private Sub ComboBox1_Change()
ComboBox1.ListFillRange = "DropDownList"
Me.ComboBox1.DropDown
End Sub

کمبوباکس های وابسته با Named Range

کمبوباکس های وابسته در اکسل ( Advanced Filter Vba )

عدم نمایش پیام کمبوباکس درصورت مچ نشدن مقدار تکست باکس کمبو با لیست باکس کمبو

♧استفاده از رویداد NotInList کمبو باکس♧

پراپرتی LimitToList حتما باید Yes باشد 

.NotInList (NewData, Response)

Response=0 Or Response=acDataErrContinue