ناصرالمصرى

الاخ الفاضل / خالد بالرغم انى خطى " بعيد عنك حياتى عذاب " ألا انه نطمع بالمزيد كما ذكر لك أخى حماده عمر معلومات قيمة ذو قيمه بقدرقيمتكم التى نعتز بها وافر تقديرى

اوافق حضرتك انه لايوجد مثل هذا الامر لاختلاف خطوط الايدى بين بعضها ولكنها محاولة لتقارب وجهات النظر وافر تقديرى واحترامى

السلام عليكم يمكنك عمل ذلك بتغيير نوع الخط من قائمة Change the Font Face ومن الامر Font Color حدد اللون الازرق New.rar

استاذى الفاضل / احمد ابوزيزو السلام عليكم انتظرت رد حضرتك قمت بتحميل البرنامج ولكن للأسف معمول بالاكسيس المقصود استاذى الفاضل ملف اكسيل حسب المعطيات الموضحة بالصورة مشاركة رقم 3 تقبل تحيات تلميذكم

السيد الاستاذ / احمد ابو زيزو السلام عليكم هل من تطبيق بملف اكسيل بدلا من الصورة المرفقة احترامى

السلام عليكم هل تقصد هكذا =IF(A1<25;"*";A1)

up

up

السلام عليكم أخوانى الكرام المرجو المساعدة بالمرفق التالى المطلوب ترحيل بيانات الموظفين قرين كل اسم بنك بالورقة المخصصه له وحسب ترتيب الصفوف ولكم موفور الشكروالاحترام

بورك فيكم

بورك فيكم

up

up

الاستاذ الفاضل / ياسر خليل السلام عليكم جميع الاراء محل تقدير واحترام وماهى الاكواد الملائمة لتنفيذ ذلك نرجو توضحيا بمثال عملى فضلا لا أمرا وافر تقديرى

اخى العزيز الفاضل الاستاذ // عبدالبارى البنا تسلم عيونك حبيب قلبى وتسلم عيون حبيب قلبى ابن مصر الغالى والله ماقصرتم فجميع الحلول ماأروعها ولكن المشكلة يوجد تعارض بالملف الاصلى المعمول عليه والمطلوب هو كيفية جعل الكود ياللى بالمشاركة الاولى يعمل بطريقة انسيابية حيث لايوجد به أى عوائق بالملف المعمول عليه سوى بطئه الشديد وعدم انسيابته أرجو التماس العذر ... وفققكم الله .... وافر تقديرى

جزاكم الله خيرا

ابن مصر الغالى الملف أكثر من رائع ولكن بالتجربة حدث تعارض مع باقى الاكواد بالملف الاصلى هل يمكن تعديل الكود باللى بالمشاركة 1 ليتوافق مع الكود ياللى بموضوع شئون العاملين خيث تمت تجربته بالملف الاصلى حبث لايوجد تعارض ولكن يعيبه البطىء وعدم الانسيابية فى الحركة والمطلوب هو ان يكون هناك توافقا بين الكودين وافر احترامى

السيد الاستاذ الفاضل // ابن الغالية " مصر " بارك الله فيك سأجرب على الملف الاصلى وسأوافيك بالنتيجة وافر احترامى

السيد الاستاذ / ابن مصر الغالية شاكر جدا تفاعلك بالموضوع اقتربت من تحقيق الهدف ماريده ان يتم تفعيل الكود ولكن من داخل Label وليس TextBox أو WebBrowser عذرا لتعبكم ... فى انتظار ردكم ... وافر تقديرى

الاستاذ الفاضل / ابن مصر الفالية السلام عليكم تم مراجعة كافة الروابط المتعلقه بذات الموضوع ولكن للأسف لم تفى يالغرض سوى المرفق ياللى بالرابط اعلاه وافر تقديرنا لحسن المتابعه

السلام عليكم عثرت على هذا الكود لتحريك نص داخل Label ولكن هذا الكود يعمل يطريقة بطيئة ولايعمل الا سوى بضع مرات ومع افتراب الماوس من Label فقط Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim CurPosition As Long, Starttime As Long, elapsed As Long CurPosition = UserForm1.Width - (Label1.Width + 10) Label1.Left = CurPosition Label1.Visible = True Do Until CurPosition < 10 Label1.Left = CurPosition DoEvents Starttime = Timer * 100 elapsed = 0 Do While elapsed < 5 elapsed = (Timer * 100) - Starttime Loop CurPosition = CurPosition - 5 Loop End Sub ولكن اريد التعديل بالكود ليعمل بطريقة استمراية بنقس الطريقة بالمرفق ياللى بالرابط http://www.officena.net/ib/index.php?showtopic=58892&page=1 مع وافراحترامنا

بارك الله فيكم جميعا ورزقكم الفردوس الاعلى وافر تقديرنا واحترامنا

السلام عليكم برجاء التقضل بمشاهدة المرفق التالى لايجاد جملة المبالغ لذات الساده الافاضل دون غيرهم مع ملاحظة اختلاف النسب المئوية بالعمود C بارك الله فيكم جميعا ونشكر لسيادتكم حسن تعاونكم معنا

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

الاستاذ الفاضل / بن عليه حاجى السلام عليكم شاكر جدا اهتمامكم على مشاركة الموضوع طيب الله خاطرك .... واسمح لى بشرح دالة TRANSPOSE معلومات غاية فى الاهمية .... بارك الله فيكم