نوشته شده توسط
Nader700
سلام ممنون بابت پاسخگویی سریع شما
فقط من حواسم نبود که بگم فرم من به صورت Continuous Forms هست الان کد شما هم اومده جدول tblu رو بر اساس id فیلتر کرده
من میخوام مثلا در فرمم یک تکس باکس بذارم و بر اساس مثلا نام خانوادگی 100 تا دارم (به طور مثال 30 تا نام خانوادگی رو فیلتر کرد ) بیاد اون 30 تا نام خانوادگی رو به اکسل انتقال بده
فکر کنم هم کد اصلی و هم ماژول modExcel باید تغییر کنه
نمونه ضمیمه رو بررسی کن ببین همون چیزیه که مد نظرته
در نمونه فوق برای فیلتر کردن اطلاعات Continuous Forms سه تکست باکس جستجو قرار داده ام که شما میتونی در هر کدوم به تنهائی یا باهم بصورت ترکیبی حرف یا عبارت ستون مربوطه رو وارد کنی و دکمه ای که با آیکون فیلتر مشخصه کلیک کنی تا اطلاعات فیلتر شوند بعد اونها رو به اکسل بفرستی . درصورت عدم فیلتر هم میتونی کل اطلاعات رو یکجا به اکسل ارسال کنی
در مورد کدهای ماژول ارسال فایل اکسل عنایت داشته باش در خطی که کد xlWSh.Range("A1:D1").Select درج شده D1 را با توجه به تعداد ستونهای جدول تغییر بده . در جدول فایل نمونه چون تعداد ستونها 4 تا میباشد آخرین ستون در فایل اکسل D1 میباشد و بفرض اگر تعداد ستون های جدول شما 6 تا باشد باید F1 رو جایگزین D1 نمائید .
و اگر به فعال شدن شیت Dashboard در فایل اکسل نیاز نداری میتونید یک خط کد زیر رو از کدهای ماژول ارسال به اکسل حذف نمائید!
ApXL.Worksheets("Dashboard").Activate
پاسخ با نقل قول
