فایل اکسل جستجو در جدول شیت با فرم ( نمایش همه موارد منطبق از جستجو در Userform ListBox )

فایل اکسل جستجو در جدول شیت با فرم (نمایش همه موارد منطبق از جستجو در UserForm ListBox)

در دنیای امروز، استفاده از نرم‌افزار اکسل به دلیل قابلیت‌های گسترده و قدرت بالای آن، بسیار رایج است. یکی از ویژگی‌های مهم و پرکاربرد آن، امکان جستجو و فیلتر کردن داده‌ها در جداول است که به کاربران کمک می‌کند تا اطلاعات مورد نیاز خود را سریع‌تر و آسان‌تر پیدا کنند. در این نوشته، قصد داریم به طور کامل و جامع درباره ساخت یک فایل اکسل که قادر است در یک جدول در شیت، جستجو انجام دهد و نتایج را در یک UserForm به صورت لیست نشان دهد، توضیح دهیم. این فرآیند شامل طراحی فرم، نوشتن کدهای VBA، و نحوه ارتباط بین فرم و جدول است که در کنار هم یک سیستم قدرتمند و کاربردی را تشکیل می‌دهند.
مقدمه بر مفاهیم اصلی
برای شروع، باید مفاهیم پایه‌ای را که در این پروژه مورد نیاز است، درک کنیم. اکسل، علاوه بر امکانات اولیه، قابلیت‌های برنامه‌نویسی با زبان VBA (Visual Basic for Applications) را دارد. با استفاده از VBA، می‌توان فرم‌های تعاملی (UserForm) ساخت که در آنها عناصر مختلفی مانند ListBox، TextBox، Button و غیره وجود دارند. این فرم‌ها می‌توانند با داده‌های موجود در جداول اکسل ارتباط برقرار کنند و عملیات‌هایی مانند جستجو، فیلتر و نمایش داده‌ها را انجام دهند.
در این پروژه، هدف اصلی، ساخت یک فرم است که کاربر در آن عبارتی را وارد می‌کند، و سپس، سیستم به صورت خودکار در جدول جستجو می‌کند و تمامی موارد منطبق را در یک لیست قابل مشاهده (ListBox) نشان می‌دهد. این کار، نیازمند برنامه‌نویسی VBA است که به صورت رویداد-محور کار می‌کند؛ یعنی، پس از وارد کردن متن و فشردن دکمه، عملیات جستجو آغاز می‌شود و نتایج در لیست نمایش داده می‌شوند.
طراحی فرم UserForm در اکسل
در مرحله اول، باید یک فرم UserForm در ویرایشگر VBA ایجاد کنیم. برای این کار، در محیط VBA، بر روی پروژه خود راست کلیک کرده و گزینه Insert → UserForm را انتخاب می‌کنیم. پس از ظاهر شدن فرم، عناصر مورد نیاز را به آن اضافه می‌کنیم:
- یک TextBox برای وارد کردن عبارت جستجو

- یک Button برای شروع عملیات جستجو
- یک ListBox برای نمایش نتایج
در ادامه، تنظیمات و نام‌های مناسب را برای این عناصر در نظر می‌گیریم، مثلاً، نام TextBox را `txtSearch`، Button را `btnSearch`، و ListBox را `lstResults`.
نوشتن کد VBA برای عملیات جستجو
حالا، باید کد VBA مربوط به رویداد کلیک بر روی دکمه جستجو را بنویسیم. این کد باید عملیات زیر را انجام دهد:
1. خواندن متن وارد شده در `txtSearch`
2. پیمایش در تمامی ردیف‌های جدول موجود در شیت خاص
3. مقایسه هر مقدار در ستون‌های جدول با متن جستجو

1. در صورت منطبق بودن، افزودن ردیف مربوطه به `lstResults`

برای این کار، می‌توان از حلقه‌هایی استفاده کرد که در کل ردیف‌های جدول پیمایش می‌کنند و مقایسه‌های لازم را انجام می‌دهند. به عنوان مثال، کد نمونه زیر، به صورت پایه‌ای این عملیات را انجام می‌دهد:

vba  
Private Sub btnSearch_Click()
Dim ws As Worksheet  
Dim lastRow As Long  
Dim i As Long  
Dim searchText As String
Set ws = ThisWorkbook.Sheets("Sheet1") ' نام شیت مورد نظر  
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' پیدا کردن آخرین ردیف در ستون A  
searchText = LCase(Me.txtSearch.Value...  ← ادامه مطلب در magicfile.ir