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

الاخ الحبيب محمد الخازمى وبعد اذن استاذى الفاضل خالد الرشيدى هذه العباره سوف تتفادى الفرز بمعنى ان الخطأ كان يقع بالكود بعد السطر Range("C11:M86").Select هنا عند وصول الكود لهذا السطر وتتم عملية التحديد للنطاق المذكور يأتى الكود الموجود بحدث الورقه ويقوم بمهمته بعد التحديد ثم يقوم بحماية الورقه ثم بعد ذالك يرجع الكود الاصلى فى اكمال مهامه فيأتى عند هذا السطر Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal وهذا السطر مهمته هى عملية الفرز للنطاق الذى تم تحديده مسبقا وعند تنفيذه سيجد الشيت محمى فهنا يحدث error للكود فلو وضعنا هذا السطر كما تفضل استاذى خالد الرشيدى On Error Resume Next سوف يقوم الكود بالقفز الى السطر التالى لسطر الفرز ولا يقوم بمهمة الفرز وطبعا السطر التالى هو ActiveSheet.Protect "1234" End Sub اعتذر لاستاذى خالد الرشيد ولكن حبيت ان اوضح للاخ محمد الخازمى من اين ياتى error تقبلوا تحياتى واحترامى

السلام عليكم ثلاثة برامج لمن يبحث عن برامج جمعبات خيرية والبرامج الثلاثة مع بعض قابلين لتعديل مكتب هيئة الإغاثة .zip رقم سري :1 ContributorData.rar رقم سري :1234 جمعية الوفاء.rar

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

لم اراد الاطلاع على شرح المشروع http://www.officena.net/ib/index.php?showtopic=62446&page=0 فهذا الموضوع ثمرة النقاش هناك بفضل الله انهيت تقريبا 80% من التأسيس الجديد واطلب منك استاذ كريم انك تنسى برنامجك الاول تماما وطبعا هذا صعب للصحبة التي بينكما ولكن حاول وسأفصل الموضوع مع الشروح السابقة بعنوان جديد ان شاء الله المهم من مراجعتي لبرنامجك السابق تبين لي انك تجمع كل شيء خلال شهر حتى انك ادخلت الممون والقرض مع المنحة وهذا واضح في استعلام qryValues وايضا الممون مع الموظف في استعلام qryTransfer حتى اختلط الحابل بالنابل علما ان هذين الاستعلامين هما اساس برنامجك لذا فقد قمت باختصار الطريق لك وتسهيله ارجو من الله التيسير المرفق الاول 1- الجداول الاساسية حسب تصوري 2- نموذجين رئيسي وفرعي لتسجيل البيانات الاساسية المرجعية 3- نموذج تسجيل الطلبات ( مبدئيا ) واعتبره هو عمود الخيمة ويمكن تطويره للافضل مثلا التخصيص واخفاء واظهار بعض الحقول حسب الحاجة فكما تعلم حقول القروض لا يستحسن ظهورها عند طلب المنح .. وهكذا راجع المرفق بروية ودقة وقم باجراء التجارب ووافني بمرئياتك واستفساراتك كما اعتذر لااخواني لمن في اجهزتهم الاصدار2003 ان واجهتهم مشاكل عند فتح النماذج حيث اني اعمل الآن على جهاز يحتوي على الاصدار 10 Karem1.rar

شرح وافي بارك الله فيك استحيت ان اطلب الشرح فا بادرت انت بذالك شكراً استاذ خالد الرشيد السباق للخير

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

السلام عليكم لن تجد حرفاً غير منقوط مقابل كل حرف أبجدي منقوط (إلا إذا استخدمت برامج تحرير الخطوط المتخصصة لتعديل أي خط تريد، وهذا يستغرق وقتاً ويستلزم بعض الخبرة). يمكنك استعمال ما يتوفر من حروف في إدراج رمز لتحصل على مبتغاك. مثلا: - يمكنك استعمال الحرف "ٮ" (رقمه U+066E) مقابل الباء والتاء والثاء. - يمكنك استعمال الحرف "ٯ" (رقمه U+066F) مقابل القاف. - يمكنك استعمال الحرف "ڡ" (رقمه U+06A1) مقابل الفاء. - يمكنك استعمال الحرف "ک" (رقمه U+06A9) مقابل الكاف إن أردتها بدون الـ"ء" في آخر الكلمة. - يمكنك استعمال الحرف "ں" (رقمه U+06BA) مقابل النون، غير أنه لا يصلح إلا إذا كانت النون أخيرة. أما في غير ذلك فتظهر منقوطة. يمكنك في هذه الحالة استخدام الحرف "ٮ". مثال: بيت: ٮ + ى + ٮ = ٮىٮ انقرن: ا + ٮ + ٯ + ر + ں = اٮٯرں شريف: س + ر + ى + ڡ = سرىڡ

بسم الله ما شاء الله عليك أخي الحبيب سليم مبدع كعادتك دائماً ..تسلم على هذه الفكرة الجميلة

جرب المرفق ان كان ما تريد حدد كأفضل إجابة ليصبح الموضوع مجاب ومنتهى تقريب عدد عشري.rar

انسخ هذا الكود الى حدث الصفحة و اعطني رأيك Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub

تفضل اخى الكريم ارجو تحديد الرد كأفضل إجابة حتى يصبح الموضوع مجاب ومنتهى TEST2015.rar

السلام عليكم شكراً علي المساعدة استاذ خالد الرشسد هذه العبارة ادت نفس الغرض الذي اريده.......... لكن وضع سطر فك الحماية قبل النطاق الذي اشار به الاستاذ الصقر كان اسرع في عملية الابجدة فا الابجدة تكون من النقرة الاولي علي مفتاح الاستدعاء هذا للتوضيح لسبب اختيار افضل اجابة On Error Resume Next

السلام عليكم أجد الشاشة غريبة في ثوبها الجديد الإخوة الأعزاء لا أستطيع تنزيل الملفات ، ربما بعض الإصلاح مازال مستمرا عموما أحببت أشارك بنقاط توضيحية 1- شدني جزء من مشاركة أبولجين حيث يقول"والامر الذي احتاج اليه هو اذا كانت قيمة المتوسط اكثر او تساوي 360 نقوم بطرح 360" أخي العزيز إذا كانت جميع الزوايا أقل من 360 فلايمكن أن تكون قيمة المتوسط اكثر او تساوي 360 ، إلا إذا كنت تقصد المجموع وليس المتوسط 2- رياضيا يمكن التعبيرعن الزاوية بالموجب باتجاه عكس عقارب الساعة وبالسالب في إتجاه عقارب الساعة أي أن الزاوية 30 هي نفسها الزاوية (-330) والزاوية 350 هي نفسها الزاوية (-10) ويستخدم هذا الأسلوب (التعبير بالسالب عن الزوايا) لتلك التي تزيدعن 180 3- قد تكون الملحوظتان السابقتان بلافائدة إذا استطعت تحميل الملف 4- مما أثار اللخبطة لكثير من القراء أن مصطلح "زوايا دائرية" الذي استخدمه أبولجين هو في عالم الرياضيات له معني آخر غير مايقصده هنا حيث تقسم الدائرة في نظام الزوايا الدائرية (بدلا من 360 درجة) إلي ضعف النسبة التقريبية أي أن الـ 360 تكون مكافئة لـ حوالي 6.283183 درجة دائرية وبالمقلوب الزاوية الدائرية التي تساوي (1) هي الزاوية التي يتساوي طول قوسها مع نصف قطر الدائرة

السلام عليكم اخى الكريم جرب ان تضع تلك العبارة قبل كود الفرز التصاعدى مباشرة On Error Resume Next

السلام عليكم أخي jewel An يرجى مراجعة التوجيهات أولاً فيما يخص تعريب الاسم ثم هناك أحرف عربية دون نقط في برنامج الوورد من إدراج ..رمز ...تجد الحروف التي تريدها لتضعها ضمن النص المطلوب كتابته. أو قم بالبحث ..عن خطوط عربية...Arabic Fonts تقبل تحياتي.

السلام عليكم اسمحوا لي ان انقل تجربتي فى برنامج المخازن لعلها تفيدكم لو هتتعامل مع اكثر من مخزن يبقا لازم نعمل حقل يسمي ( نوع الصرف --نوع الاضافة ) لان بيكون فى صرف داخلي للمخزن نفسه وصرف خارجي للمخازن الاخري وكذلك الاضافة ....... فى اضافة مشتراه للمخزن واضافه محوله من مخزن اخر

السلام عليكم ورحمة الله وبركاتة الاخوة الكرام الاستاذ عبدالله والاستاذ الكبير ابو خليل تحية من القلب اليكم لى مداخلة متواضعة وهي 1- اذا كنت تريد عمل نظام الكتروني ولا بد من التخلص من النظام الورقي بالكامل 2- تتم الموافقات عن طريق البرنامج ولكل شخص له صلاحيات فالمسئول له صلاحية والمدير له صلاحية وتكون الحركة المستندية الالكترونية كتالي 1- يتقدم الموظف بطلب اجازة عن طريق تعبأة نموذج (شاشة) 2- يتم اشعار المسئول بالطلب ويسمح له فقط بالموافقة والرفض ولا يسمح بالتعديل 3-عند موافقة السئول ينم اشعار المدير بالطلب و يسمح له فقط ايظا بالموافقة او الرفض ولا يسمح له بالتعديل عند ذلك ينتقل الطلب الى الموارد البشرية لبتم تنفيذه ويتم خصم الاجازة من رصيد الموظف بشكل الى اارجو ان تكون مداخلتي مفيده وان يكون هذا هو المطلوب اما التفيذ يحتاج الى وقت والى اقتراحات كثيرة مع تحياتي

أخي الكريم الياسر سات :السلام عليكم ورحمة الله وبركاته ما هكذا تورد الإبل...أي هل راجعت التوجيهات مثلاً قبلاً ؟...أين سلامك قبل كلامك؟ أرجو أن تستدرك ما فاتك كونك عضو جديد مرحب بك في منتدانا الكريم...

جرب المرفق ان كان هذا ما تريد حدد الموضوع كمجاب TEST.zip

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

السلام عليكم هذا التعديل على كود الاخ رجب ان شاء الله يفي بالغرض Sub Ragab() Dim R As Integer Dim LR As Integer Dim KH As Range Dim KH_1 As Range Dim KH_2 As Range LR = Cells(Rows.Count, 1).End(xlUp).Row R = Application.CountIf(Range("b6:b" & LR), "ذكر") + 5 RR = R + 1 Application.ScreenUpdating = False With ActiveSheet Set KH = .Range("a6:b" & LR) Set KH_1 = .Range("a6:b" & R) Set KH_2 = .Range(Cells(RR, 1), Cells(LR, 2)) KH.Sort Key1:=Cells(6, 2), Order1:=xlAscending KH_1.Sort Key1:=Cells(6, 1), Order1:=xlAscending KH_2.Sort Key1:=Cells(RR, 1), Order1:=xlAscending End With Application.ScreenUpdating = True End Sub

السلام عليكم و رحمة الله و بركاته اخي استخدام Ctrl+Shift+Enter مع المعادلات ذلك لكي يتعرف الاكسيل على ان هذه المعادلات هي معادلات صفيف و معادلات الصفيف هي نمط خاص من المعادلات في الاكسيل جرب هذه المعادلة بعد ان تقوم بكتابتها اضغط على كنترل ثم شفت ثم انتر ================ دمت في حفظ الله

السلام عليكم و رحمة الله إضافة لحلول الأخوة جزاهم الله كل خير يمكنك تجربة معادلة الصفيف التالية حيث تغنيك عن الاستعانه بأي اعمدة اضافية مع الحل =SUM(IF(TEXT($A$4:$A$20,"[$-10B0000]MMMM")=D2,IF($B$4:$B$20=$E$2,$C$4:$C$20))) و لا تنسى أن تضغط Ctrl+Shift+Enter

--->ادوات------> ماكرو-----> الامان ------> نؤشر الخيار الاخير منخفض او استعمل ملف التسجيل هذا ووافق عليه مرتين امان الماكرو.rar