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

هذه محاولة عند تصغير نافذة الاكسل سيتم زيادة الخلية A بواحد جرب المرفق و خبرنا Check Excel Window State.zip

البرنامج الحصرى لبرنامج المواريث يحتوى على الوصايا والمناسخات لستة وفيات من الطبقة الأولى باالأكسل للفرضيين والمحاسبين والقانونيين الرابط:https://www.facebook.com/khaled.hadada1

الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين ، وقال {وَوَصَّى بِهَا إِبْرَاهِيمُ بَنِيهِ وَيَعْقُوبُ يَا بَنِيَّ إِنَّ اللّهَ اصْطَفَى لَكُمُ الدِّينَ فَلاَ تَمُوتُنَّ إَلاَّ وَأَنتُم مُّسْلِمُونَ} نحمده تعالى وهو الرب الجليل ، الهادي إلى سواء السبيل ، الذي لا يخفى عليه الكثير ولا القليل ، وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جاء بالحق المبين ، فكان رحمة للعالمين ، صلى الله عليه وعلى آله واصحابه وسلم تسليماً كثيراً . طلب مني أحد الأخوة تطوير برنامج الشيكات الإصدار الأول الذي تم طرحه مسبقا علي الرابط وبحمد الله تم اضافة بعض وظائف البرنامج وشاشة تقارير حسب جهة الصرف او بين تاريخين مع الطباعة وتم تعديل الشيك حسب قرار وزارة المالية كما ورد بطلب الاخ الكريم شرح مبسط للفورم الملف بالمرفقات الشيكات الأصدار الثاني.rar

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

أخوتي الاعزاء تطبيق اليوم طرق البحث عبر مربع التحرير والسرد Combo Box Selection Methods الكلمات الاستدلالية : بحث - مربع التحرير والسرد- ComboBox - كود وابدأ معكم اليوم اطلالة جديدة في مسعى لطرح تطبيقات جديدة بحلة جديدة و تطبيقات فيها أكثر ما يمكن من الفائدة والشرح ... في الطرح والله من وراء القصد .... NA_ComboBoxMethods.rar

السلام عليكم إخواني الكرام ... أشعر أن المنتدى كله مركز على الأسئلة والطلبات أكثر من الموضوعات التعليمية .. فإليكم درس خفيف ظريف ولن يستغرق منك في دراسته أكثر من 4 دقائق .. ************** نتحدث بشكل سريع عن استخدام دالة VLOOKUP للبحث عن جزء من النص داخل نطاق .. إليكم الملف المرفق به الشرح ، وأي استسفار أو سؤال لا تتردد واسأل ، لا تخجل من السؤال مهما بدا تافهاً لأن السؤال طريق ..طريق (وكله مطبات) بس هو طريق المعرفة .. VLOOKUP Text Inside A String.rar

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

ارفق الملف اخي

الف الف شكر اخى الحبيب .. والله اني احببتك فى الله الله يجزيكم خير الجزاء وانا عن نفسى كل لما اشتغل سوف افتكر من ساعدنى للوصول الى هذا وسوف ادعوا لكم بظهر الغيب وانت ايضا" ادعوا لى عسى الله ان يتقبل دعوه

اكتب هاتين المعدلتين =SUMIF($D$4:$D$500,TODAY(),$E$4:$E$500) =SUMIF($D$4:$D$500,"<"&TODAY(),$E$4:$E$500)

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

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

تـفضل اخي المعادلة التالية شرح المعادلة لو كانت قيمة الخلية A3 أكبر من الرقم 200 أترك الخلية فارغة لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 100 اكتب 30 لو كانت قيمة الخلية A3 أصغر او تساوي من الرقم 200 اكتب 40 =IF(A3>200;"";IF(A3<=100;"30";IF(A3<=200;"40")))

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

تفضل أخي الحبيب الملف التالي ..جرب زيادة العملاء إلى 700 عميل .. واصبر قليلا لأن الكود سيستغرق بعض الوقت في التنفيذ Create 700-Sheets.rar

شكرا لك اخي الجموعي وشكرا على الكود الرائع Private Sub ComboBox1_Change() Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yyyy") End Sub

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

أخي الحبيب محمد جابر ولا تنسى إخوانك أيضاً الذين بادروا بالمساعدة وفتحوا باب الأفكار للحلول المتنوعة .. بارك الله فيهم جميعا وجزاهم الله خير الجزاء عنا فهم أساتذتنا وعلى أيديهم تتلمذنا وتعملنا .. بالنسبة لماذا لا تعمل .. يجب عليك أن تقوم بنقل الدالة المعرفة إلى ملفك ..قم بالضغط على ALT + F11 للدخول لمحرر الأكواد ثم ابحث عن الدالة Function ConcIf(Rng1 As Range, Rng2 As Range, Criteria As String, MyJoin As String) As String Dim X X = Filter(Evaluate("INDEX(if(" & Rng2.Address & "=""" & Criteria & """," & Rng1.Address & ",CHAR(2)),,)"), Chr(2), 0) If UBound(X) > -1 Then ConcIf = Join(X, MyJoin) Else ConcIf = "لا يوجد" End If End Function وقم بنسخها إلى ملف في موديول جديد .. عندما تفتح محرر الأكواد ستجد قائمة Insert اختار منها Module ثم ضع ما نسخته فيها .. واحفظ الملف بصيغة Macro-Enabled تقبلوا تحياتي

السلام عليكم ورحمة الله أخي الكريم إبراهيم، يمكنك عدم عرض الأصفار في الخلايا التي تريد بإضافة علامتي فاصلة منقوطة في نهاية تنسيق الخلايا المعنية مثلا : إذا كان تنسيق الخلايا Standard تكتبه : ;;Standard فتظهر الخلايا (التي تحوي أصفارا) فارغة... أخوك بن علية

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

الاخ الصقر شكرا لك الموضوع يستحق التثبيت فعلا وانا عملت الواجب

معادلتى متوافقة مع معادلة الأستاذ " ياسر " بارك الله فية لذلك لم أقم برفعها لأنها ستصبح تكرار لامعنى له لأن فكرة التعديل تقوم على وضع الصفر موضع الفراغ ، وذلك لأن الصفر" قيمة " أما الفراغ " نص" ، ويمكن أيضا يكتفى بحذف علامتى التنصيص وترك موضعها فارغ دون صفر أو علامة تنصيص هكذا =IFERROR(IF(AND(O3<>"",VLOOKUP(I3,data!$A$2:$C$100,3,0)>=1),VLOOKUP(I3,data!$A$2:$C$100,3,0)+O3,),"") لذلك عند إستبدال العمود " O " بالعمود " R " تحقق المعادلة النتيجة لأن العمود "O" يرجع قيم أما العمود " R " فكان يرجع نص تقبلوا تحياتى

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

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

تم الحل للرائع ابو تراب

لك ما تريد اخي ابو سليمان الدرجات في الصفحة رقم 2 و يمكنك الاضافة عليها و تعديل المعادلات بموجبها ابو سليمان ومقياس الطالب salim.rar

حبيبنا الاخ عبدالله باقشير انا على تواصل معة حتى تاريخ 16/1/2015 عبر الواتس اب بعدها لم اعرف اخباره نسال الله ان يكون بصحة وعافيه وبخير وجميع احبتنا عضاء المنتدى

ربما تريد هذا الشيء انظر الى الصفحة (sheet1(2 find1.rar

السلام عليكم اخواتي في المنتدى كود مقتبس عن احد المواقع الاجنبية لاستخراج الحروف و الارقام من النصوص ارجو ان ينال اعجابكم حروف و أرقام.rar

أخي الغالي ابن مصر جرب الكود التالي المستخدم لحساب وقت تنفيذ الكود Sub CodeExecutionTime() Dim xStartTime As Double Dim xElapsedTime As Double xStartTime = Timer() 'ضع الإجراء الفرعي المراد حساب وقت التنفيذ له Call Test xElapsedTime = Timer() - xStartTime If xElapsedTime < 0# Then xElapsedTime = xElapsedTime + 86400# End If MsgBox "الوقت المنقضي في تنفيذ الكود بالثواني هو : " & xElapsedTime End Sub ضع الكود بموديول جديد واستبدل كلمة Test باسم الإجراء الفرعي المراد حساب وقت التنفيذ له جرب الثلاثة إجراءات الفرعية ، لترى بنفسك وقت التنفيذ لكل منهم تقبل تحياتي

روعة أخي الحبيب سليم لا حرمنا الله منك .. وجزاك الله خير الجزاء يوجد بمكتبة الصررح دالة تقوم بعمل الدالتين (يعني 2 * 1 زي برت بلس) Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function وهذا ملف مرفق به تطبيق الدالة جانباً إلى جنب مع دالتيك الرائعتين حروف و أرقام.rar

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

أخي الحبيب الغالي ابن مصر أعتقد أن الموضوع شبه مكرر (كان فيه موضوع مشابه لهذا الموضوع) وحضرتك قدمت حل رائع بنفس الأسلوب (مراقبك وبضيف كل مفيد من ناحيتك) بس لي تعقيب بسيط (الحلقات التكرارية المتداخلة مع البيانات الكثيرة يمكن أن تتسبب في ثقل تنفيذ الماكرو) وحضرتك سيد العارفين فهذا حل آخر لإثراء الموضوع وليس كبديل من باب التنوع في الحلول حل آخر مع الشرح (ويا ريت نبدأ بحملة الشرح لأي كود جديد أو مفيد أستاذي ابن مصر) إليك الحل الآخر Sub GetId() Dim Cell As Range, Rng As Range 'سطر لتجنب الخطأ في حالة عدم العثور على نتائج On Error Resume Next 'تعيين نطاق البيانات في ورقة البيانات الرئيسية Set Rng = Sheet1.Range("B3:C" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) 'عمل حلقة تكرارية لكل خلية من خلايا النطاق المراد إظهار النتائج به ، في العمود الثالث For Each Cell In Sheet2.Range("C4:C" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) 'قيمة الخلية تساوي نتيجة البحث عن الخلية المجاورة في نطاق البيانات ، ويكون الحبث في خانة العمود الثاني Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -1), Rng, 2, False) Next Cell End Sub بدون ملف مرفق متعمداً حتى تستطيع أخي شكيب بدء التعامل مع الأكواد وكيفية تطبيقها بنفسك

اتوقع ان الاخ ابو عبدالله الحلواني وضح المشكلة وهي مناداة قيمة بنموذج مغلق لذلك لاتغلق النموذج وانما اخفائه . مثلا me.visible=false وطبعا قبل امر فتح النموذج الاخر . بالتوفيق

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

تفضل أخى المطلوب تقبل تحياتى كتابة التاريخ بشكل تلقائى.rar

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

تفضلى نتيجه الصف الاول.rar

أخي الحبيب التاج بارك الله فيك وجزيت خيراً على كلماتك الرقيقة ودعائك الطيب ..أرجو الله أن يتقبل دعائك بالنسبة للكود في المشاركة السابقة لم يكن يجلب كل البيانات ولم ألاحظ ذلك إلا الآن حيث أن هناك اسم ياسر في الصف رقم 20 لم يتم جليه بالكود السابق .. إليك الملف التالي فيه نسخ النطاق B2:C21 وكذلك التخلص من الفراغات ...وكذلك وضعت لك المصنفات الفرعية في مجلد . وضعت بعض التعليقات التي قد تفيدك في الكود ، ويمكنك الإطلاع على الكود بالضغط على Alt + F11 للدخول لمحرر الأكواد تفضل أخي الغالي بيانات الطلاب.rar

السلام عليكم أخي العزيز تأخرت عليك ، عذرا تفضل المرفق بالتنسيق الشرطي AnyYearBusinessCalendar1.rar

السلام عليكم اخوانى هذا هو رابط تحميل الملف بعد التعديل https://www.mediafire.com/?1r7e0pp7oz3bke5 https://www.mediafire.com/?1r7e0pp7oz3bke5 https://www.mediafire.com/?1r7e0pp7oz3bke5

لا تعليق ... والعنوان أيضاً غير واضح ..يعني ايه كلمة مرور متغيرة بمرور الوقت والتاريخ ؟؟ هل تقصد أن كلمة المرور مرتبطة بالتاريخ والوقت ، ولكل وقت أو تاريخ كلمة المرور الخاصة به؟ وأعتذر عن قلة فهمي للطلب ، فأنا لست خبيرا كما أسلفت إنما أنا مجتهد على قدر استطاعتي تقبل تحياتي (وبعدين سألتك في مشاركة عن اسم حضرتك ولم تجبني ..أشكرك على أية حال)

شاهد ما لدي http://youtu.be/vRW8dKr-HQA

تنبيه : أفضل إرفاق الكودات الداعمة للتحليل و الفكرة ، مساعدة للسائل على تحقيق أكبر فائدة ممكنة ، وحثه على التطبيق بنفسه حال الضرورة لا مانع لدي من إرفاق تطبيق معدل وللحديث بقية ... بإنتظار ردودكم و تعليقاتكم ............

معروف أن هناك كثير من التطبيقات حول موضوع شريط المعلومات ، ولكنني هنا أقدم تطبيقا يستخدم الفكرة مقترنة بجعل مصدر المعلومات للشريط جدول أو إستعلام أو جملة SQL ، وللشريط غاية إخبارية رقابية. تطبيق العبد الفقير لرحمة ربه نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=39192

أخي الرايق بيك شكرا على دعائك الطيب ، وسرني قضاء حاجتك ، ويشرفنا تواجدك معنا ... فحياك الله أخي أبا ياسر سلمك الله ورعاك ... أبشر بما أستطيع ، فالطيبون أمثالك لا ترد مطالبهم (إن أذن الله بقضائها) ... سهرت ليلة أمس وانا أحاول اقناع google بقصة أخونا الرايق بيك ، فأمهلني لعل سهرة الليلة تكفي لإقناع بقية القائمة ولنا بإذن الله لقاء قريب وهذه دعوة مفتوحة للإخوة ، لتقليب خبراتهم الطيبة ، علهم يسعفوني وإياك بحل ذهبي والله من وراء القصد ... ..........

أخي العزيز تم بعون الله كل ما فعلناه ، بعد التعريفات والسلام والكلام ... انتقلنا للصفحة الالكترونية حسب السجل في الجدول ثم تفاهمنا معها لنقل اسم المستخدم ثم اقنعناها بقبول كلمة السر ثم ضغطنا زر الامر signed in Private Sub &#195;&#227;&#209;36_Click() Dim sURL As String Dim htmlDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library Dim htmlInput As MSHTML.HTMLInputElement Dim htmlColl As MSHTML.IHTMLElementCollection With wbbWebsite .Navigate Me!CompanyWebsite ' Main page .Visible = 1 Do While .ReadyState <> 4: DoEvents: Loop 'set user name and password Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("INPUT") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If htmlInput.Name = "Email" Then htmlInput.Value = Me.MName Else If htmlInput.Name = "passwd" Then htmlInput.Value = Me.Pass End If End If Next htmlInput 'click login Set htmlDoc = .Document Set htmlColl = htmlDoc.getElementsByTagName("input") Do While htmlDoc.ReadyState <> "complete": DoEvents: Loop For Each htmlInput In htmlColl If Trim(htmlInput.Type) = "submit" Then htmlInput.Click Exit For End If Next htmlInput End With End Sub فقط لا غير .... ببساطة ... قضيت الحاجة بإذن الله وفضله وهكذا أصبح التطبيق ولي عندكم دعوة خير طيبة بظهر الغيب والله من وراء القصد ..... والسلام ختام NA_ActivateWebpage.rar

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

فقط اضغط على (كنترول + شيفت + يساوى) ثم اكتب أى أس تريده وللتحويل للخط العاد اضغط ( كنترول + شيفت + يساوى ) مرة أخرى (ctrl+shift+=)

اخواني الأعزاء نواصل حلول التقارير في اكسس مرفق لكم المثال السابق بعد إضافة مدول جديد وتقريرين وذلك لعمل خلفية تقرير برمجيا دون إثقال البرنامج بصور لجعلها خلفية للتفارير ارجو ان تكون مفيدة تحياتي,,, التقارير.rar