لینک کوتاه : https://magicfile.ir/?p=4696
دانلود ماکرو اکسل برای دریافت نماد های بورس (دیدبان بازار بورس ایران)
امروز در این پست برای شما کاربران عزیز وبسایت فایل سحرآمیز یک ماکرو اکسل برای دریافت نماد های بورس (دیدبان بازار بورس ایران) را آماده دانلود قرار داده ایم.
نمونه تصویر
معرفی کد
این ماکرو با استفاده از تکنولوژی XMLHTTP متصل می‌شود و اطلاعات نمادها را از منبع رسمی دریافت می‌کند. سپس داده‌ها به‌صورت ساختاریافته در یک شیت جدید ایجاد شده و همراه با عنوان ستون‌ها، قالب‌بندی، رنگ‌بندی و فیلتر آماده استفاده می‌شوند.
ویژگی‌ها و امکانات
-
حذف و ایجاد خودکار شیت داده‌ها
قبل از هر اجرا، شیت قدیمی حذف و شیت جدید با نامTSETMC_Dataساخته می‌شود. -
دریافت داده‌ها به‌صورت لحظه‌ای
استفاده از شیءMSXML2.XMLHTTPبرای ارتباط مستقیم با سرور TSETMC و دریافت متن خام داده‌ها. -
ساخت جدول ستونی منظم
ایجاد هدرهای کامل شامل:-
شناسه، کد، نام نماد، عنوان، کد عددی، تاریخ، قیمت‌ها، حجم معاملات، EPS و ...
-
-
قالب‌بندی و زیباسازی
-
رنگ پس‌زمینه سطر هدر آبی تیره با متن سفید
-
رنگ‌آمیزی سطرهای زوج با رنگ ملایم برای خوانایی بیشتر
-
تنظیم خودکار عرض ستون‌ها
-
فعال‌سازی فیلتر ستون‌ها
-
-
امکان بروزرسانی سریع با یک کلیک
اضافه‌شدن یک دکمه "بروزرسانی" داخل شیت که با کلیک بر روی آن، داده‌ها مجدد از سرور دریافت و جایگزین می‌شوند. -
کد پویا برای دکمه
کد رویداد کلیک دکمه به‌صورت خودکار به ماژول شیت اضافه می‌شود تا کاربر نیاز به ویرایش دستی کد نداشته باشد.
نحوه استفاده
-
اکسل را باز کنید و با کلیدهای
Alt + F11وارد محیط VBA شوید. -
یک ماژول جدید ایجاد کرده و کد را در آن قرار دهید.
-
در قسمت Trust Center اکسل، اجازه اجرای کدهای VBA را فعال کنید.
-
ماکرو
GetTSETMC_ToExcel_Fast_Fixرا اجرا کنید. -
شیت
TSETMC_Dataبه‌طور خودکار ساخته و داده‌ها بارگذاری می‌شوند. -
برای بروزرسانی داده‌ها، از دکمه بروزرسانی داخل شیت استفاده کنید.
نکات مهم
-
برای عملکرد صحیح، باید دسترسی اینترنت فعال باشد.
-
به دلیل تغییرات احتمالی در ساختار داده‌های سایت، ممکن است نیاز به بروزرسانی کد باشد.
-
اجرای کد در اکسل نیازمند فعال‌سازی Microsoft XML v6.0 Reference در VBA نیست چون از CreateObject استفاده شده، اما فعال‌سازی آن سرعت را کمی بهبود می‌دهد.
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
