نجوم المشاركات

السلام عليكم جرب هذا الكود Sub SuperScriptText() 'Superscript's the selected area Start = WorksheetFunction.Find(" ", Selection.Value, 1) lenn = Len(Selection) - Start Selection.Characters(Start:=Start + 1, Length:=lenn).Font.Superscript = True End Sub تحياتي

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

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

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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

إلى أستـــــــــــــــــــاذى الأول ومثلى الأعلى " عبد الله بقشير " هذه معادلة تم صياغتها محاكاة لكود لعبقرى الأكواد الأول فى العالم العربى الرائع العظيم أستاذ الأساتذة " عبد الله بقشير " متعة الله بالصحة والعافية وأدامة الله لنا أستاذ وعالم ليعلمنا الكثير والكثير أتمنى أن يكون بها النفع للأخوة والزملاء من هواة المعادلة تقبلوا تحيات : أخيكم استخراج عدة اسماء من اسم كامل.rar

هذه هى المعادلة التى يقال عنها القول الفصل لعملية فصل ماتريدة من الأسم " عن طريق رقم " ليكون لدى عضو أوفيسنا الحبيب " الكود " لأستاذنا العبقرى " عبد الله بقشير" والمعادلة لتلميذة العاشق لأعماله لهذا أهدى هذه الفكرة لمن تعلمت على يدية معنى كلمة أكسيل فعشقتة من إبداعاتة الرائعة " أستاذ الأجيال " عبد الله بقشير " والأن إلى المعادلة: تقبل تحيات تلميذك وأسف ألا تكون الهدية على مستوى شخصكم الكريم فصل الأسماء التى تريدها برقم.rar

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد وبعد نزول شيت النقل للمرحلة الاولى والثانية [ انتظام] على هذا الرابط http://www.officena.net/ib/index.php?showtopic=53147&hl= وبعد طلب الاخوة في عمل شيت [للخدمات] وهم من ليس لهم اعمال السنة اهم المميزات الاصدار الرابع سوف اتركها لكم وتحكموا لضيق اوقاتنا جميعا وليست القضية الانقضية للشكليات ولكنه وقت عمل .. والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //أحمد أيمن فله الشكر كما اكرر شكري له لدوره الكبير في عرض الشيت عليه لفحصه فحصاً تاماً كما اشكر كل من ساهم في امدادي ببعض المعلومات ومنهم الوالدة الفاضلة // أم عبد الله الاستاذ الفاضل // اسامة عطاالله الاستاذ الفاضل // حسين شاكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها واتمنى لمن هو مهتم بهذا الشيت ان يتابع اخر مشاركات لهذا الموضوع من حين لاخر فربما نجد اخطاء ويتم تعديلها.. والسلام عليكم ورحمة الله وبركاته.. الاصدار الاول - شيت الخدمات للتعليم الفني_الجمعة - 18-4-2014.rar

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

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

السلام عليكم استعمل هذا الكود Sub test() On Error Resume Next Pth = ActiveWorkbook.Path & "\" & Range("C9") & ".pdf" ActiveWorkbook.FollowHyperlink Pth End Sub

السلام عليكم اخوانى فى الله والله انا بقالى ثلاث أيام احاول اعدل فى شيت العام وطبعآ معرفتش جاهله بقى هتقولو ايه قولت افتح كده واشوف الناس دى عملت ايه بجد انتم بمنتهى المصداقيه وشكر خاص للاخ العظيم والاستاذ الكبير المبدع الفنان صاحب اللمسات الجماليه الممتاذه الاستاذ محمد البراء انا بصراحه لسه مجريتش الشيت لكن والله من غير ما اجربه هستخدمه على طول لانى فعلآ بثق فى الاستاذ محمد وبعلمه اللى ربنا يزيده من علمه كمان وكمان من العلم والسلام عليكم ورحمه الله

السلام عليكم و رحمة الله اليك ما طلبت يا أخي عسى ان ينال اعجابك لا نتسَ ان تدوس على اعجبني رزنامة.rar

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

لي عضيم الشرف مرورك بموضوعي استاد يحيى حسين وعلى ما اضن هذه المرة الاولى ولك جزيل الشكر على كلماتك الجميلة بالنسبة لسؤالك فهو نعم لن تعمل مع اجهزة 64 كل عام وانت بخير تقبل تخياتي وشكري هناك طريقة تستطيع ان تجعلها تعمل على اجهزة 64 وهي سهله جدا فقط كل ما في الامر أن تضيف كلمه PtrSafe و سوف اوضح بالمثال: تبحث عن : Public Declare Function تضيف الكلمة كالتالي: Public Declare PtrSafe Function Public Declare PtrSafe Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long Public Declare PtrSafe Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long وسيعمل باذن الله تحياتي

هذا برنامج مدرسة متكامل لاخونا علي الحربي آمل ان يفي بحاجتك او تستفيد منه السم المستخدم =1 كلمة المرور=1 مدرسة علوش.rar

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

أحى الحبيب ( عادل أبوزيد ) مرورك وكلماتك جميلة مثلك ، شكرا أخى على هذه العبارات الجميلة وتقبل منا ومنكم صالح الأعمال تقبل تحيات : أخيك

الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على مجهوك الغير عادي في إكمال هذه المنظومة الرائعة والمتقنة للغاية أسأل الله العلي القدير أن يزيدك من فضله وعلمه ويجعل جميع اعمالك في ميزان حسناتك.لك كل التحية والتقدير.

أستاذى العبقرى ملك ملوك المعادلات ( جمال عبد السميع ) ماشاء الله عليك ، جعلت للمعادلة مذاق خاص وأمكانيات بلا حدود بارك الله فيك وزادك الله من علمة

السلام عليكم ورحمة الله أخي الكريم هاوي الإكسيل، شكرا جزيلا على تلبية طلب تغيير اسم الظهور إلى العربية... في الملفات التي أرفقتها في ردودي السابقة يجب ربط قيمة k في كود Choice بالخلية التي تحوي "عدد الفرق المتبقي في القرعة" وليس بالخلية التي تحوي "العدد الإجمالي للفرق"... أرجو في النهاية أن تفي الملفات بالغرض المطلوب... أخوكم بن علية