فایل یک

امروز در این پست یک دیتابیس و نمونه برنامه ساخته شده با اکسل برای نمایش لیست فیلم های ایرانی را برای شما کاربران عزیز وبسایت فایل سحرآمیز آماده دانلود قرار داده ایم.

این دیتابیس که بصورت فایل اکسل دارای لیست فیلم های ایرانی می باشد که بصورت برنامه اکسل توسط ماکرو فرم برنامه نویسی شده است که براحتی می توانید دانلود کرده و استفاده نمایید.

نمونه تصاویر در زمان اجرا

نمونه داده های این دیتابیس :

رویای نیمه شب پاییز> [' امیر جعفری', ' پانته آ بهرام', ' سعید چنگیزیان', ' مسعود حجازی مهر'] > 0.84 > این نمایش پیشنهادی است درباره اینکه چگونه می توان متن یک تعزیه را در دروره امروزی وارد جهان نمایش کرد و آن را با مسائل روز پیوند داد... > ['فیلم تئاتر'] > [' کیومرث مرادی', ' نغمه ثمینی', ' حیدر ساجدی'] > فیلم

خوش خیال> [' افسانه بایگان', ' رضا رویگری', ' داوود موثقی', ' حسین محب اهری', ' حسین عرفانی', ' شهلا ناظریان', ' فرخ لقا هوشمند', ' زهره حمیدی', ' سعید شیخ زاده'] > 0.76 > مهدی با آرزوهای دور و درازش، پس از مرگ همسرش، به همراه پسرش محمد در یک متل واقع در شمال زندگی می کند. با عقب افتادن پرداخت اجاره، برای مهدی اخطاریه می آید. مهدی با برادر ثروتمندش علی تماس مس گیرد. اما.... > ['کمدی', 'اکشن'] > [' مهران تاییدی', ' مهران تاییدی', ' مهران تاییدی', ' جلال قزل ایاق', ' غلامرضا آزادی', ' بابک بیات'] > فیلم
و .... برای دیدن دیتابیس بصورت کامل فایل را دانلود فرمایید

توضیحات در مورد کد این برنامه

این کد یک برنامه VBA (Visual Basic for Applications) است که در برنامه Excel اجرا می‌شود و عملکردی مشخص دارد. این برنامه به شما امکان می‌دهد با استفاده از مقادیر وارد شده در TextBox1 و ComboBox1 یک سرچ (جستجو) در برگه (Worksheet) فعال انجام دهید و نتایج را در برچسب های (Label) 1 تا 7 نمایش دهید.

توضیحات کد:

• در بخش "Private Sub CommandButton1_Click()"، عملکرد دکمه CommandButton1 تعریف شده است. وقتی این دکمه کلیک می‌شود، کد زیر اجرا می‌شود:

  • مقدار وارد شده در TextBox1 به متغیر searchValue اختصاص داده می‌شود.
  • مقدار انتخاب شده در ComboBox1 به عنوان ستون جستجو در متغیر searchColumn ذخیره می‌شود.
  • آخرین ردیف با داده در برگه فعال در فایل اکسل به عنوان lastRow تعیین می‌شود.
  • سپس، در یک حلقه For، مقدار مورد نظر را در ستون مورد نظر جستجو می‌کند:
    • اگر مقدار مورد نظر در سلول مورد نظر وجود داشت، مقادیر سلول‌های متناظر با آن سلول را در برچسب‌های Label1 تا Label7 نمایش می‌دهد و از حلقه خارج می‌شود.
  • اگر مقدار مورد نظر پیدا نشد، مقادیر برچسب‌های Label1 تا Label7 را به "مقدار مورد نظر پیدا نشد." تنظیم می‌کند.

• در بخش "Private Sub UserForm_Initialize()"، عملکرد هنگامی که فرم (UserForm) بارگذاری می‌شود تعریف شده است. در اینجا، گزینه‌های مربوط به ستون‌های جستجوی ممکن را به ComboBox1 اضافه می‌کند.

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

برای شما کاربر عزیز پیشنهاد دانلود داده می شود.

">برای دانلود کردن اینجا کلیک فرمایید