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

السلام عليكم ورحمة الله وبركاته نتقدم بأرق التهاني لأخونا الكبير ومعلمنا القدير وأستاذنا يحيى حسين (أبا الحسن والحسين) ، بمناسبة تكريمه للعام الثاني على التوالي من شركة مايكروسوفت ، وحصوله على لقب MVP وهي اختصار لــ Microsoft Valuable Professional ألف ألف مبارك لك أبا الحسن والحسين ، ومن تقدم لتقدم ، ومن رقي لرقي تقبل وافر تقديري واحترامي

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

جرب التالي وعند النقر لزر امر SendKeys ("%{TAB 2}"), True بالتوفيق

الساده : الياسرين ( الخليل - العربي - البنا ) بنحبكوا كلكم في الله وكتر الله خيركم

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

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

بسم الله والصلاة والسلام على خير خلق الله السلام عليكم ورحمة الله بالملف المرفق معادلة لاستخراج اسم الملف بدون اكواد وفي المثال العملي اسم الملف عبارة عن الشهر ثم شرطه ثم السنه ومن خلال الفورمات السابق تم استخراج عدد ايام الشهر وفقا للشهر والسنة, يمكن استخدام هذه المعادلات في الملفات المرتبطة بالشهر والسنه كملفات الرواتب الشهرية خصوصا المرتبات المرتبطة بعدد ايام كل شهر على حده . برجاء من له سؤال او تصويب ان لا يبخل به علينا ليستفيد الجميع. سبحانك اللهم وبحمدك لا اله الا انت Feb-2016.zip

السلام عليكم و رحمة الله وبركاته تم عمل الكود التالي Sub aHMDzMN() Dim FS As Worksheet, TS As Worksheet Dim SH, Q1, Q2, Q3, TR, ER, FR Set TS = Sheets(ActiveSheet.Name) Q1 = TS.Range("E1").Text 'ÔåÑ ÔÑßÉ Q2 = TS.Range("E2").Text 'ÔåÑ ãÄÓÓÉ Q3 = TS.Range("D1").Text 'ÇáÝÑÚ For SH = 1 To Sheets.Count If Sheets(SH).Name = Q1 Or Sheets(SH).Name = Q2 Then Set FS = Sheets(Sheets(SH).Name) TR = TS.Range("C5555").End(xlUp).Row + 1 ER = FS.UsedRange.Rows.Count For FR = 4 To ER If FS.Cells(FR, 18) = Q3 Then For C = 2 To 18 TS.Cells(TR, C) = FS.Cells(FR, C) Next C TR = TR + 1 End If Next FR End If Next SH End Sub اضغط زر البحث جرب المرفق وقول يارب برنامج-مرتبات تجريب.rar

تفضل اخي العزيز ووافني بالنتيجة ccc.rar

السلام عليكم ورحمة الله وبركاته بمناسبة حلول السنة الهجرية الجديدة نبارك للجميع من مدير الموقع المحترم والادارة والمدراء والخبراء والمشرفين والاعضاء والزوار حلول السنة الهجرية الجديدة (1438 ) جعله الله خير عام نمر به وفتح الله عليكم وبارك لكم في حياتكم ومساعيكم وعلمكم علما تنتفعون به وتنفعوننا به وزادكم من واسع فضله واغناكم من ارزاقه السماوية وامدكم بصحه وعافية ورزقكم الخير كله فواتحه وبواطنه وان لا يريكم مكروها في انفسكم وفي عزيز لديكم وجعل الله السلام في كل بلدانكم وحفطكم من كل مكروه وشر بحق سيد الهجرة المباركة " محمد صلى الله عليه وسلم "

كل عام وجميع الامة العربية والاسلامية بألف خير

بعد اذن اخي اجمد جرب هذا الملف حساب عدد الساعات salim.rar

العفو أستاذى الغالى كنت و ما زلت وسأظل أتعلم منك و تواضعك الشديد هذا يزيدنى شرفا وفخرا بأن أقول أنك أستاذى فى vba تحياتى

وجزيت خيراً بمثل ما دعوت لي أخي وحبيبي في الله مختار الحمد لله أن تم المطلوب على خير ، والحمد لله أولاً وأخيراً وما قدمته ما هو إلا جزء بسيط مما ندين به لك ، فأنت قدمت الكثير والجديد والمفيد ، وأنا من أول المتابعين لك والمتلهفين لرؤية كل جديد تقدمه تقبل وافر تقديري واحترامي

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

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

يمكن في نهاية الكود وضع سطر يحدد أي ورقة عمل ليلغي الأوراق الأخرى المحددة

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

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

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

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

ما يفتح المرفق عندي ... اي اصدار اوفيس انت بتستخدمها ؟

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

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

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

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

أخي الكريم جرب الكود التالي .. سيعمل الكود بشكل جيد في حالة أن الخلايا الثلاثة المراد ترحيلها ليست فارغة .. رابط الكود من هنا

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

بدل ذاك السطرين Private Sub Panel_Click() On Error Resume Next If Me.Panel = -1 Then Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acFirst Forms!students!Visit.Form!lecturs.Form.SetFocus بدل هذا السطر الى (Forms!students!Visit!lecturs!lecture.SetFocus) DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acLast Forms!students!Visit.Form!lecturs.Form.SetFocus و ايضا هذا (Forms!students!Visit!lecturs.SetFocus) DoCmd.GoToRecord , , acGoTo DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste result = "" End If Me.Panel = 0 End Sub

السلام عليكم بعد اذن أستاذى الغالى ياسر أخى خالد جرب الطريقة دى Sub delActiveRowallSheets() 'delete Active Rows in all Sheets then Un select Row Dim ws As Worksheet, bdel As Boolean On Error Resume Next bdel = True For Each ws In Worksheets With ws .Select bdel .Rows(ActiveCell.Row).EntireRow.Delete End With Application.Goto ActiveSheet.Cells(9, 1) bdel = False Next ws End Sub

السلام عليكم اتمنى ان يكون هذا التعديل مساعد لك في الحل التصاريح.rar

نقل بيانات معينة.rar Sans titre.rar في سؤالك الأول لم توضح أي شرط

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

السلام عليكم هذا ايضا كود آخر يقوم بنفس المهمة Sub iCOPY() Application.ScreenUpdating = False Dim Rng As Range, _ shs As Worksheet, shd As Worksheet, _ LastS As Integer, LastD As Integer Set shs = Sheets("اعتمادية3"): Set shd = Sheets("تسهيل مهمة") LastS = shs.Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To LastS Set Rng = Union(shs.Range("B2:B" & i), _ shs.Range("D2:D" & i), shs.Range("E2:E" & i), shs.Range("H2:H" & i)) Rng.Copy Next shd.Range("I" & shd.Cells(Rows.Count, 9).End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.ScreenUpdating = True Application.CutCopyMode = False MsgBox "Êã äÞá " & Rng.Rows.Count & " ÕÝæÝ Çáì æÑÞÉ ÊÓåá ãåãÉ", vbInformation + vbMsgBoxRight, "ÊÑÍíá" End Sub

السلام عليكم ورحمة الله الصق هذا الكود فى موديول جديد وخصص له زر Sub Tarhil() For R = 2 To 200 If Cells(R, 2) = Sheet3.Cells(R, 6) Then Cells(R, 9) = Sheet3.Cells(R, 2) Cells(R, 10) = Sheet3.Cells(R, 4) Cells(R, 11) = Sheet3.Cells(R, 5) Cells(R, 12) = Sheet3.Cells(R, 8) End If Next End Sub

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

عسى ربي يوفقك ويرضا عليك ورحم الله والديك يكفي بارك الله فيك بأنك تنقش طيبك في قلبي وكما أسلفتُ سابقاً سواء وجدت الحل أم لا ستبقى متفضل عليَّ الله يزيدك من فضله

ربط البيانات بين الجدول الرئيسي والرفرعي غير مكتمل (نقص ID ورقم فاتورة البرنامج) ثم ضع زر امر لحفظ البيانات وضع فيه الكود التالي عند حدث Click DoCmd.RunCommand acCmdSaveRecord

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

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

السلام عليكم و رحمة الله وبركاته الطلب يحتاج للمزيد من الشرح لفهم المطلوب فهم السؤال نصف الإجابة مثلا ماهو وضع ساعات العمل التي هي خارج المدة من 17 الى 24 ========================================= على الرغم من ذلك مرفق حل على قدر فهمي يحسب الساعات الواقعة بين 17 و 21 و الساعات بين 21 و 24 حساب عدد الساعات.rar

جزاكم الله خيرا أ \ مصطفى شاهين على هذه الافادة النافعة

أختى الكريمة حاولت التطبيق على ملفك شيت سجل الرصد لكن يفلح الامر لأنه كما قلت لك كمية البيانات فى الشيت ضخمة 200 صف x اكتر من 237 عمود لذلك قمت بعمل نموذج مصغر اليك طريقة العمل : تحديد نطاق البيانات المراد التعامل معه وتسميته باسم Mydata عدد 2 Class Module باسم Class3 و Class4 كما هما بدون تعديل وبنفس الاسم كود استدعاء الفورم بنعمل فيه تعديلات حسب الحاجة كاسم النطاق و عدد خلايا الشبكة التى تظهر فى صفحة MultiPage فى كود الفورم تعليقات بسيطة على السطور المهمة والتى يمكن تعديلها حسب الرغبة والحاجة عند تشغيل الفورم سوف يظهر النطاق Mydata فى MultiPage داخل الشبكة يمكن عمل سكرول لاستعراض البيانات كما يمكن وضع المؤشر فى اى خلية بالشبكة و تعديلها عند الضغط okay سوف تتغير الخلية فى الشيت كما يمكن وضع المؤشر فى التكست بوكس و تعديل العنوان ( بتغيير رقم الصف أو العمود ) ثم الضغط على get لمعرفة قيمتها أو set للتعديل آى استفسار تحت أمرك مع خالص تحياتى show data from-spreadsheet in MultiPage for updatting.rar

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

شكرا مصطفى على التوضيح الجيد والسلام عليكم

جرب هذا الملف تم حماية المعادلات لعدم العبث بها عن طريق الخطـأ معادلة تجميع عدد العمليات على حسب التاريخ والإسم SALIM.rar

وعليكم السلام انا اشعر اني فظ في التعامل معك ، فاعتذر منك واليك نصيحتي والتي قلتها سابقا: رجاء ان يكون سؤالك واضح وبالتفصيل الممل ، وفيه امثلة من بياناتك ، ومن اسماء نماذجك وحقولك ، وتوضيح (سواء على الاكسل او الوورد او الصور) ، وترفق هذه الجزئية من برنامجك (لأنه يجب على احدنا عمل المثال). عندها تحصل على اجابة تامّة كاملة ، وجاهزة للعمل والآن الى سؤالك: انت تعرف ان قوانين المنتدى تسمح بسؤال لكل موضوع ، لهذا السبب يجب عليك فتح موضوع لكل سؤال ، لوسمحت وسأرد على اسئلتك بسرعة ، للعلم فقط ، ويترتب عليك فتح مواضيع لها: هل بالامكان بدل طباعه التقرير ارساله الى ( القسم ) على فيئه تقرير او ايميل ، نعم على شكل مرفق pdf في ايميل مثلا ، بدل طباعه الوصفه ارسالها مباشره للصيدليه للصرف ، نعم ، اذا كانت الصيدلية مربوطة بالبرنامج على الشبكة ، فلا تحتاج لشئ ، فقط يعطي المريض رقمه الى الصيدلية ، وبنموذج خاص للصيدليه ، يمكنه الصرف ، والتأشير على السجل عند الصرف ، بدل طباعه نموذج اشعه ارساله للقسم مع امكانيه عمل فيد باك او حفظ النتيجه بملف المريض ، نعم ، كما قلت ، يمكنه العمل ، والتأشير على السجل بعد العمل ، ولو لاحظت ، فانا عملت لك تبويب Medications و Lab Reports حتى تستطيع ان تتوسع في هذا الطريق: يعني تكون هناك اشارة تنبيه للصيدليه بوجود وصفه للصرف ، المختبر ب وجود عينه ، للاشعه بوجود طلب ، للعياده بوجود مريض نعم يمكن ، وسأشرح طريقتين: 1. مثل ما قلت في الاعلى ، بأن يأتي المريض للصيدلية / المختبر / .. ويعطيهم رقمه ، وبالتالي يفتحون النموذج الخاص بتلك الجهة صيدلية / المختبر / .. ، ويتم العمل ، وهذه هي الطريقة الافضل ، 2. ان يكون نموذج صيدلية / المختبر / .. مفتوحا دائما ، وتعمل به Timer ، بحيث يتم استيراد البيانات عن طريق الامر Requery جعفر

الواجهة الرئيسية للبرنامج

إفتح الموقع الذى تريد جلب الداتا من أحد الجداول به إعمل كوبى لعنوان الصفحة إفتح برنامج الإيكسيل قف فى الخلية A1 من قائمة بيانات إستيراد بيانات خارجية إستعلام ويب جديد سيفتح لك مربع حوار ضع العنوان الذى سبق أن نسخته فى مكان العنوان فى مربع الحوار إضغط على كلمة إنتقال ستظهر لك داخل صندوق الحوار صورة للسايت الذى وضعت عنوانه وستجد مربعات صفراء صغيرة داخلها اسهم سوداء تحدد الجداول الموجودة بالموقع المذكور وعليك البحث عن الجزء الذى تريد جلب بياناته حتى تجده تضغط على المربع الاصفر بالماوس يتحول السهم الأسود إلى علامة صح داخل مربع صغير اخضر إضغط على كلمة إستيراد سيظهر لك مربع حوار جديد إضغط موافق إنتظر ثوانى ستجد الجدول جاء من الموقع لملفك كلما تريد تحديث البيانات بملفك إفتح الملف وإختار زر تحديث البيانات فيحدثها تلقائياً ويجلب لك آخر تحديث للبيانات على السايت يمكنك ضبط التحديث التلقائى للبيانات بحيث يقوم الغيكسيل تلقائياً بجلب البيانات الجديدة كل فترة تحددها بنفسك جرب 10 دقائق مثلاً فتجد البرنامج يقوم تلقائياً بذلك أرجو التجربة ويارب أكون افدتكم قمت بتجربة صغيرة وهذه خلاصتها الملف بالمرفقات ____________.rar

السلام عليكم حفظك الله أخي التقني على تنبيهك الأخ ابو محمود , أن أحببت استخدم هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim m As Integer Dim ctl As Control Dim intnewrec As Integer intnewrec = Me.NewRecord If intnewrec = False Then For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.OldValue <> ctl.Value Then m = InputBox(ctl.ControlName & " value already changed Enter your password to save ?") If m = 1 Then Cancel = False Else Cancel = True ctl.Undo End If End If End If Next ctl End If End Sub الفكرة تقوم على جعل خاصية قفل الحقول متاحة اي التعديل متاح , حيث يمكنك ادخال سجل جديد بدون اي حرج , لكن عند الذهاب الى سجل سابق و محاولة تعديله , و قبل الخروج من ذلك السجل سيقارن قيم الحقول ففي حال وجد اي تعديل عليها سيرسل رسالة بأن قيمة الحقل الفلاني قد تغيرت , أدخل كلمة السر لحفظ التعديل , و هي هنا " 1 " فاذا أدخل المستخدم واحد سيحفظ التعديل و الا فلا