کد این هفته کمکی است که به یکی از دوستانم دادم. او باید فهرستی از مشتریان موجود در یک فایل را که حاوی کلمه “شرکت” بود، اما با فواصل زمانی با نام کارمندان از هم جدا می شد، جدا می کرد. همانطور که فوریت بلندتر صحبت می کرد، ساختن چیزی از ابتدا غیرممکن بود، بنابراین راه حل ساده ای پیدا کردم که در نهایت برای بسیاری از کاربرگ های او مفید بود. این لینک کد کامل است
کسی هست که VBA قدیمی را به خاطر نمی آورد. هنوز در دهه 90، مایکروسافت نیاز داشت تا راهی را به مشتریان شرکتی ارائه دهد تا به آنها در خودکارسازی وظایف کمک کند. از آنجایی که ایده عالی آفیس ارائه یک محصول عمومی است که در آن کاربران با دانش عمیق تر می توانند روال ها را هوشمندتر کنند. اما بدون داستان های طولانی، راه حلی که من پیدا کردم، از دو حلقه برای شناسایی کلمه ای که همیشه در فایل تکرار می شود، پیدا می کند. اگر این چیزی است که شما نیاز دارید، به این مثال نگاه کنید:
برای کسانی که با VBA آشنایی ندارند، هر متغیری باید اعلان شود و توجه داشته باشید که برای این کار باید از کلمه رزرو شده “Dim” برای ابعاد استفاده کنید، آن را دریافت کنید؟
اکنون بخش اساسی، توجه کنید که یک حلقه وجود دارد. این برای عبور از تمام ردیف های کاربرگ اکسل استفاده می شود.
می‌توانید هر کلمه‌ای را برای جستجو جایگزین کنید، به شرطی که بخشی از الگوی فایل شما باشد. بیایید تصور کنیم که به جای “شرکت:” فایل شما لیستی از دانش آموزان است، در این مورد فقط مقدار جستجوی کلمه “دانش آموزان” را تغییر دهید. اما مراقب باشید، سعی کنید الگوی خود را به خوبی شناسایی کنید. اگر کاربرگ شما حاوی بیش از یک شکل نوشتاری است، ابتدا باید مطمئن شوید که یک مورد بسیار خاص را جستجو می کنید. در مورد من، برای جلوگیری از این تصادف، متوجه شدم که هر وقت کلمه شرکت وجود داشت با علامت دونقطه (:) دنبال می شد، بنابراین آسان بود.
پس از شناسایی، باید یک نقطه شروع و یک نقطه پایان ایجاد کنید، که به شما کمک می کند تا هر کاری را که در حال حاضر نیاز دارید، یک کپی از سلول ها (مورد من)، قالب بندی یا ویرایش داده ها در صورت امکان انجام دهید. بنابراین برای اینکه جادو اتفاق بیفتد از یک حلقه جدید استفاده کردم
توجه داشته باشید که در حلقه اول ما خط به خط را طی می کنیم تا مشخص کنیم یک شرکت از کجا شروع می شود، در مورد دوم باید انتهایی را که شروع یک شرکت دیگر را تعیین می کند شناسایی کنیم. هنگامی که پایان یافت شد، اکنون می دانیم چه چیزی را انتخاب کنیم. اینجاست که کلمه “Range” وارد می شود این تابع داخلی اکسل چیزی نیست جز توانایی انتخاب یک ناحیه یا همان حرکاتی که با عبور ماوس از روی آن انجام می دهید و مناطق مورد نظر خود را در یک کاربرگ انتخاب می کنید.
در نهایت من با انتخابم آنچه را که می خواستم تعریف می کنم. *البته باید این را هم تغییر دهید تا نیازهای شما را منعکس کنید*
پاداش: کد نهایی دارای یک راه آسان برای جدا کردن محتوای بدست آمده از دستور “Range” و قرار دادن آن در یک فایل جدید است. یکی برای هر شرکتی که در صفحه گسترده پیدا شد.
بچه ها این نکته برای کسانی است که هنوز این محیط کار را نمی شناسند. به اکسل بروید Alt+F11 را فشار دهید و بررسی کنید.
و برای ما saudosistas در حال وظیفه! من این چاپ را از زمانی که با فرم ها بازی می کردیم ترک می کنم …
به کد کامل دسترسی پیدا کنید، مطالعه کنید و لذت ببرید! برای سوال پرسیدن راحت باش.
هفته خوبی داشته باشید و دفعه بعد شما را ببینم.
