اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تغير مؤشر الماوس فترة تنفيذ الكود


الردود الموصى بها

اخواني واساتذتي الكرام

تحيه طيبه ...

في كثير من الاوقات نلاحظ عند استخدام الاكواد قد يحدث تأخير"بطئ" لحين تنفيذ الكود وفي هذا الوقت وقد يكون بسيط لا يتجاوز من 10 الى 30 ثانيه،وفي هذا الوقت يكون رمزالمؤشر لا توضح بأن الكود ما زال قيد العمل مما يؤدي الى ان بعض الاشخاص قد يتصور بأن الكود لا يعمل او تم التعلق وحتى لا اطيل عليكم اود كود يقوم بتغير رمز المؤشر مما يدل على استمرارية عمل الكود لضمان وصول المعلومه لدى مستخدمين الملف (مثل بقية البرامج "الساعه الرمليه او ماشبة")..

ولكم جزيل الشر والتقدير,,,

تم تعديل بواسطه jazea
رابط هذا التعليق
شارك

يوضع السطر الأول في بداية تنفيذ الإجراء (sub) لجعل المؤشر على شكل الساعة الرملية

ويوضع السطر الثاني في نهايته لعودة المؤشر كما كان

وإذا تم إرفاق مثال منك يمكن التعديل عليه

رابط هذا التعليق
شارك

استاذي العزيز اسعد الله صباحك

الكود يعمل بشكل صحيح ولاكن عند استخدامه بملف فيه هذا الامر الخاص بفتح الملف دون عرضه

Private Sub Workbook_Open()

Application.Visible = False

frmLogin.Show

End Sub

لا يتم الاستجابه للكود المذكود وهو:-

Application.Cursor = xlIWait

Application.Cursor = xlDefault

ما هو الحل؟

رابط هذا التعليق
شارك

من الطبيعي أن يحدث هذا

فأنت تقوم بتغيير خاصية لشيء ليس مرئياً

وأعتقد أنه يلزمك التخلي عن أحد الكودين لكي يعمل الآخر حسب أولوياتك

رغم أني لست أدري ما سبب إخفاء التطبيق ككل؟؟!!!

يمكنك إخفاء أشرطة الأدوات جميعها بجعل التطبيق ملء الشاشة كبديل

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information