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

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

السلام عليكم تم اجراء ان لا تقبل الا الارقام كما طلبت تقبل تحياتي sssss2 - Copie.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: إدارة المنتدى والقائمين عليه وخبراء إكسيل الكرام ...السلام عليكم ورحمة الله وبركاته أعرض لمقامكم الكريم طلباً - ليس لي فحسب - بل يعود بالفائدة على الكثير من روّاد منتداكم الكريم حيث قام كل من الأخوين الصقر "حسام عيسى " و الأخ "أنس الدروبي " جزاهما الله خيراً بالعمل على برنامجين رائعين قيمين يستحقان بنظري الوقوف عند كل منهما لما يتصفان بهما من ميزات هامة .....برنامج EMA بنسخته الحديثة التي دأب على تطويرها زمناً ، وبرنامج الصرافة المالية الخاصة الذي عرضه الأخ أنس كهدية رمضانية لرواد المنتدى الكريم. وطلبي من حضراتكم - فضلاً لا أمراً - الاطلاع على البرنامجين وتقييمهما بخبراتكم الواسعة فإن كانا يستحقان التثبيت ضمن المواضيع الدائمة فبها ونعمت وإن لم يكونا كذلك فإنني اكتفي بعرض هذا الطلب إحقاقاً للحق ..وأنتم خير من يعرف مصلحة رواد المنتدى ...كتبت ذلك فقط للتذكير ببرامج هامة عرضت في زحمة مواضيع كثيرة عرضت وتعرض ليس تقليلاً من شأنها ...ولكن "فذكّر"... أرجو أن لا أكون أثقلت عليكم بطلبي هذا ......تقبلوا تحياتي جميعاً... والسلام عليكم ورحمة الله وبركاته. أخوكم أبو يوسف. السلام عليكم إخوتي الكرام لا أدري بسبب ضعف الإنترنت أو بسبب عطل مفتاح الماوس ضغطت عليه وكتب لي أسفل المشاركة انتظر 11 لا أدري ما 11 هذه هل هي 11يوماً أم ساعة أم ثانية اعذروني عن التكرار. والسلام عليكم. يرجى من الإخوة الكرام إدارة المنتدى حذف هذا الموضوع بسبب تكراره دون قصد مني ...بالغ أسفي واعتذاري.

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

السلام عليكم ورحمة الله وبركاته الدرس الاول 1-Introduction علشان تستطيع جعل الاكسيل قادرا على التاعمل مع ملفات vba اتبع الخطوات الاتيه تقبلوا تحياتى

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

السلام عليكم و رحمة الله و بركاته حل مميّز من أستاذنا المميّز KHMB .. بارك الله فيك و زادها بميزان حسناتك ..

السلام عليكم ورحمة الله شكرا اخي الفاضل عبدالعزيز وهذا حل آخر بواسطة الفورم لعل احد يستفاد منة كلمة مرور لماكرو.rar

السلام عليكم و رحمة الله و بركاته حاول إضافة هذيْن السّطريْن في بداية الماكرو ..أي ماكرو .. بحيث 123 هي كلمة المرور ..لعل و عسى تضبط معك .. لكن لا بد من حماية محرر الأكواد بكلمة مرور لمنع التحايل بوضع ماكرو غير محمي يؤدي نفس مهمة الماكرو المحمي .. لاحظ الملفيْن أتمنى أن يكون هو طلبك .. خالص احتراماتي كلمة المرور للماكرو.rar

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

السلام عليكم ورحمة الله وبركاته: أعود لمقترح أخي عبد العزيز وألتزم بطلبه بعد أن تم نشر الموضوع منتظراً الإجابة، فمهما طال الصيف وجفت الأرض ونضبت مياه الآبار ،سيأتي شتاء يعوض ما فات يملأ الحياض وتفور الينابيع وتسمع خرير المياه بجداولها وأنهارها ...طبعاً هذا ما نسميه الرجاء... للرفع ... رفع الله درجاتكم ووضع عنكم أوزاركم ...أمين تقبلوا تحياتي والسلام عليكم ورحمة الله وبركاته.

تفضل هدا الكود بال SeTimer API .. الكود يجعل كل الكونترولات على الفورم تومض و ليس الليبل فقط ملف للتحميل : https://app.box.com/s/v1bq7azcpdyf53ghc1j77mg62obarw7i 1 - كود في Standard Module : Option Explicit Public oUf As Object #If VBA7 And WIN64 Then ' 64-bit Office Public Sub TimerRedirect(ByVal hwnd As Longlong, ByVal nIDEvent As Longlong, ByVal uElapse As Longlong, ByVal lpTimerFunc As Longlong) #Else ' 32-bit Office Public Sub TimerRedirect(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) #End If CallByName oUf, "TimerProc", VbMethod, hwnd, nIDEvent, uElapse, lpTimerFunc End Sub 2 - كود في موديول الفورم UserForm Module : Option Explicit Private Enum BackForeColor Background ForeGround End Enum #If VBA7 And WIN64 Then Private Declare PtrSafe Function SetTimer Lib "user32" ( ByVal HWnd As LongLong, ByVal nIDEvent As LongLong, ByVal uElapse As LongLong,ByVal lpTimerFunc As LongLong) As LongLong Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As LongLong,ByVal nIDEvent As LongLong) As LongLong Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr) #Else Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) #End If Private Sub UserForm_Initialize() Set oUf = Me Call Flash(Me.Label1, Background, 1, vbRed) Call Flash(Me.Label2, ForeGround, 2, vbRed) Call Flash(Me.Label3, Background, 1, vbYellow) Call Flash(Me.TextBox1, Background, 3, vbGreen) Call Flash(Me.CommandButton1, Background, 1, vbMagenta) End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim oCtl As Control For Each oCtl In Me.Controls KillTimer Application.hwnd, ObjPtr(oCtl) Next Set oUf = Nothing End Sub Private Sub Flash( _ ByVal obj As Object, _ ByVal What As BackForeColor, _ ByVal FlashesPerSecond As Long, _ ByVal FlashColor As Long _ ) obj.Tag = IIf(What = Background, "BackColor", "ForeColor") & "*" & FlashColor & "*" & _ IIf(What = Background, obj.BackColor, obj.ForeColor) Call SetTimer(Application.hwnd, ObjPtr(obj), FlashesPerSecond * 1000, AddressOf TimerRedirect) End Sub #If VBA7 And WIN64 Then ' 64-bit Office Public Sub TimerProc(ByVal hwnd As Longlong, ByVal nIDEvent As Longlong, ByVal uElapse As Longlong, ByVal lpTimerFunc As Longlong) #Else ' 32-bit Office Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) #End If Dim obj As Object Dim FlashCl As Long Dim sProp As String Dim initColor As Long CopyMemory obj, uElapse, 4 sProp = Split(obj.Tag, "*")(0) FlashCl = Split(obj.Tag, "*")(1) initColor = Split(obj.Tag, "*")(2) If CallByName(obj, sProp, VbGet) <> FlashCl Then CallByName obj, sProp, VbLet, FlashCl Else CallByName obj, sProp, VbLet, initColor End If CopyMemory obj, 0&, 4 End Sub

السلام عليكم و رحمة الله و بركاته ما فيه أجمل من كلامك أخي و أستاذي الغالي فايز ياسين .. جزاك الله خيرًا على التشجيع الطيّب .. ألف شكر ..كامل احتراماتي

السلام عليكم جرب المرفق اعتقد انه يشمل طلبك الاول و الثاني زر الحذف بالتوفيق sssss - Copie.rar

السلام عليكم الاستاذ علي انا اعتذر منك ، فلم ارى مرفقك إلا الآن والسبب اني لم اره ، هو انك عدلت في مشاركتك ووضعت فيه المرفق ، بعد مشاركتي !!! على كل حال ، فتح واكتشاف كائنات برنامجك كان تحديا اكثر من الحل نفسه في مشاركتي الاخيرة قلت: . وبالفعل هي مشكلة برنامجك !! عندك 42 نموذج ، بهم صورة او اثنتين ، و 23 تقرير ، بهم صورة او اثنتين . . صحيح انك في بعض النماذج والتقارير كنت كاتب الكود الصحيح لربط الصور ، ولكن للأسف ، الصور اصلا كانت مضمنة وليست مرتبطة. غير طريقة عرض الصور من Embedded او Shared الى Linked ، واضغط واصلح البرنامج ، وان شاء الله البرنامج يصغر حجمه جعفر

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

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

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

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

بعد إذن استاذنا العظيم سليم أضفت تنسيق شرطى للاسم المكرر اسماء الاخوة (salim).rar

جرب الملف التالي اسماء الاخوة (salim).zip

السلام عليكم طبق هذه المعادله =SUMPRODUCT((MONTH($A$2:$A$15)=$G$5)*($B$2:$B$15))

إرسال نسخة إحتياطية من التطبيق ، كمرفق ، الى البريد الإلكتروني ، عبر الكود ، من خلال الأكسيس كطلب الأخ الشاعر .... وتطبيق العبد الفقير لرحمة ربه .... نارت لبزو ( أبو آدم ) ..... http://www.officena.net/ib/index.php?showtopic=41784&st=0 ...........