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

وعليكم السلام اخوي ابو عبدالله ايش رايك بهذه الطريقة ، اختيار اعضاء الفريق ، هو الذي يقرر التشكيل ، والكود يذكرك بالاعضاء المختارين ، كلما تختار الفريق: وهذا هو الكود: Private Sub List0_AfterUpdate() On Error GoTo err_List0_AfterUpdate List2.RowSource = "" List2.RowSource = "Select TypID,MemprName From MemprsTbl Where TypID=" & Me.List0.Column(0) 'everytime we click in List0, we look in Text4 items, 'every item in Text4, we select it in List2 'now show the items selected before, and exist Text4 now Dim x() As String 'split each line of Text4 based on vbCrLf x = Split(Nz(Me.Text4, ""), vbCrLf) 'loop through all the lines For i = LBound(x) To UBound(x) For j = 0 To List2.ListCount - 1 'now loop through List2 strSelected = Me.List2.Column(1, j) & ";" & Me.List2.Column(0, j) If x(i) = strSelected Then 'select List2 item if it is the same as Text4 Me.List2.Selected(j) = True End If Next j Next i Exit Sub err_List0_AfterUpdate: If Err.Number = 94 Or Err.Number = 9 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub List2_Click() On Error GoTo err_List2_Click 'everytime we click in List2, we look in Text4 items, 'if there are Selected in List2, we leave it in Text4, 'if there are Not Selected in List2, we remove them from Text4 'loop through List2 items For i = 0 To List2.ListCount - 1 strSelected = Me.List2.Column(1, i) & ";" & Me.List2.Column(0, i) If Me.List2.Selected(i) Then 'is List2 item selected, add it to Text4 'but is it there already If InStr(Nz(Me.Text4, ""), strSelected) = 0 Then Me.Text4 = Me.Text4 & strSelected & vbCrLf End If Else 'Remove from Text4 Me.Text4 = Replace(Me.Text4, strSelected & vbCrLf, "") End If Next i Exit Sub err_List2_Click: If Err.Number = 94 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 693.TestList2.mdb.zip

ربما هذه المعادلة تقوم يهذا الشيء(دون كود) =SUMPRODUCT($J$4:INDEX($J$4:$J$200,COUNTIF($J$4:$J$200,"<>0")-1))

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

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

تحية مني لخبراء هذا الصرح العظيم أنا أستخدم في عملي برنامج الفواتير والمخزون الشامل للأستاذ عمرو السيد وهو عمل عظيم لرجل عظيم ومجاني أيضا وأنا أحب أن أعمل عليه سنة بسنة وأحاول أن أصفر قاعدة البيانات وأبقي فقط على الأصناف والعملاء والموردون ولكن لا أستطيع مما يضطرني لإعادة كتابة كل ذلك مرة أخري . حاولت التواصل مع الأستاذ عمرو ورد علي بالفعل ووعدني خيرا ولكن يبدو أن وقته لايسمح اشتريت برنامج آخر ولكنه لم يعجبني لإعجابي ببرنامج الأستاذ عمرو وسهولة العمل عليه . وإليكم البرنامج وكل ما أطلبه تصفير البرنامج مع ترك أسماء الأصناف وأسماء العملاء وأسماء الموردين جزاكم الله خيرا وكل عام وأنتم بخير . رابط البرنامج http://www.mediafire.com/file/t673ifq4692hef6/بسمة+من+يوم+3-4-2016Backup+06-11-2016%2C02.57.08+مBackup+06-11-2016%2C03.16.49+م.xlsb

اخي ياسر خطرت على بالي معادلة Offset لكني لا أحبذها لانها كما تعرف Volatile

صعها اينما تريد

تفضل اخى فورم للترحيل هذا ما تعلمته هنا من اساتذتى نموذج.rar

وهذه معادلة أخرى تفي بالغرض إن شاء الله =SUM(OFFSET($J$4,0,0,COUNTIF($J$4:$J$100,">0")-1,1))

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

وعليكم السلام اخي سلمان تفضل Private Sub cmd_ReSeq_Click() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TB_1 Where isNull(m_RegMin1)=False Order By No_Common") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'set all id2 to zero DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE TB_1 SET Id2 = 0") DoCmd.SetWarnings True For i = 1 To RC rst.Edit rst!id2 = i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Sub جعفر 695.sa.accdb.zip

وعليكم السلام جرب الكود التالي عله يفي بالغرض Sub Test() Dim ws As Worksheet Dim lr As Long Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets(Array("1", "2", "3", "4", "5")) lr = LastRowNonZero(ws.Name, "J") - 1 ws.Range("L2").Value = Application.WorksheetFunction.Sum(ws.Range("J4:J" & lr)) Next ws Application.ScreenUpdating = True End Sub Public Function LastRowNonZero(ShtName As String, ColumnLetter As String) As Long Dim cel As Range Set cel = Sheets(ShtName).Cells(Rows.Count, ColumnLetter).End(xlUp) Do While cel.Value <= 0 Or Not IsNumeric(cel) Set cel = cel.Offset(-1) Loop LastRowNonZero = cel.Row End Function

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

السلام عليكم ورحمة والله أقدم لكم أخواني البرنامج رقم 22 من تصميمي وهو برنامج خاص بضبط المحاضرات ومواعيدها 1- يحوي البرنامج على نظام تصنيف حديث معتمد في معظم برامج المحاسبة 2- نموذجي الكشف وطريقة العمل ( التحكم بالاعمدة المعروضة في نافذة معاينة - التحكم في التقرير - خيارات الفلترة متعددة الاشكال و الانماط ) 3- يمكن انشاء اكثر من قاعدة بيانات والعمل عليهم طريقة تشغيل البرنامج 1- بعد فك الضغط 2- تنصيب البرنامج على قرص D 3- تشغيل البرنامج من أيقونة تظهر على سطح المكتب 4- تخفيض أمان أكسس تلقائيا أثناء التنصيب 5- لا يوجد مستخدمين أو كلمات مرور أنتظر منكم الرد والتقييم الرابط https://drive.google.com/file/d/0B_ZrhTFFRjn3QnB4b3hzVTFZRHc/view?usp=sharing تحياتي للجميع

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

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

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

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

استخدم هكذا >=#16/04/2017# And <=#15/05/2017# وسيعطيك النتائج مقبولة ان شاء الله

هنا موضوع يتحدث عن مطلوبك

مثل ما قلت لك ، وضعت الكود على زر البحث ، بكرة ان شاء الله جربه على بياناتك الجديدة ، واخبرنا النتيجة 688.لازام نطوره.mdb.zip

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

طبعا سيكون هناك اكثر من طريقة لعمل المطلوب ، وانا اخترت الطريقة الاسهل لي تفضل الكود ، وقد اعدت مسمى الحقول من والى: Private Sub Form_Load() Me.Form.Caption = DLookup("[user]", "fbi") Dim rst As DAO.Recordset 'إيرادات mySQL = "Select [رقم السند]" mySQL = mySQL & " From السندات" mySQL = mySQL & " Where [نوع السند]='إيرادات'" mySQL = mySQL & " And التاريخ>=#" & Me.n1 & "#" mySQL = mySQL & " And التاريخ<=#" & Me.n2 & "#" mySQL = mySQL & " Order By [رقم السند]" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Erad_From = rst![رقم السند] rst.MoveLast Me.Erad_To = rst![رقم السند] 'اجل mySQL = "Select [رقم السند]" mySQL = mySQL & " From السندات" mySQL = mySQL & " Where [نوع السند]='اجل'" mySQL = mySQL & " And التاريخ>=#" & Me.n1 & "#" mySQL = mySQL & " And التاريخ<=#" & Me.n2 & "#" mySQL = mySQL & " Order By [رقم السند]" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Aajel_From = rst![رقم السند] rst.MoveLast Me.Aajel_To = rst![رقم السند] 'مصاريف mySQL = "Select [رقم السند]" mySQL = mySQL & " From السندات" mySQL = mySQL & " Where [نوع السند]='مصاريف'" mySQL = mySQL & " And التاريخ>=#" & Me.n1 & "#" mySQL = mySQL & " And التاريخ<=#" & Me.n2 & "#" mySQL = mySQL & " Order By [رقم السند]" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Masareef_From = rst![رقم السند] rst.MoveLast Me.Masareef_To = rst![رقم السند] 'سداد mySQL = "Select [رقم السند]" mySQL = mySQL & " From السندات" mySQL = mySQL & " Where [نوع السند]='سداد'" mySQL = mySQL & " And التاريخ>=#" & Me.n1 & "#" mySQL = mySQL & " And التاريخ<=#" & Me.n2 & "#" mySQL = mySQL & " Order By [رقم السند]" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Me.Sadad_From = rst![رقم السند] rst.MoveLast Me.Sadad_To = rst![رقم السند] rst.close: Set rst = Nothing End Sub جعفر 688.لازام نطوره.mdb.zip أخي ابو عبد الله انا فكرت في طريقتك ، وبهذه الطريقة يجب علينا زيارة الجدول مرتين لكل نوع من انواع السجلات ، وعندنا اربع سجلات ، فمعناه عندنا 8 زيارات للجدول لأخذ القيم المطلوبة ، ولكنك تأتي بمعلومة واحدة كل مرة بينما الطريقة التي عملتها انا تقوم بـ 4 زيارات فقط ، ولكنها تأتي ببيانات اكثر من بياناتك ، ثم نصفيها والطريقة الافضل هي ان لا نقوم بأي زيارة للجدول ، فالبيانات موجودة في النموذج الفرعي ، وما علينا إلا ان نستخرجها منها جعفر

وعليكم السلام أخي وضاح اعطنا مثال لوسمحت بارقام من قاعدة بياناتك جعفر

الكود مافيه شيء 1. هذا معناه ان الواجهة ليست متصلة دائما بالجداول ، وانما يتم الاتصال وقت حفظ البيانات ، اذا كان هذا صحيح ، فالافضل ان يكون عندك من بداية تشغيل البرنامج نموذج مخفي فيه بيانات من جدول , ويمكن ان يكون جدول فيه اسم/رقم البرنامج فقط ، المهم ان يكون الاتصال بين الواجهة والخلفية مستمر وغير منقطع من بداية تشغيل البرنامج ، 2. ولو انه سؤال سخيف ، هل برنامجك على نفس القرص الذي عليه نظام السيرفر؟ من المهم جدا ان لا تضع قاعدة بياناتك في القرص الذي عليه نظام الكمبيوتر، الوندوز ، سواء على السيرفر او على اي كمبيوتر آخر ، نعم انا قلت قرص ولم اقل partition ، يعني اذا القرص فيه C و D و E ، فلا تضع البرنامج على اي واحد منهم ، وانما ضعه على قرص آخر ليش؟ لاحظ الكمبيوتر او اللابتوب ، وبدون ان تشتغل عليه ، تلقى ضوء القرص دائما يولع وينطفئ ، هذا معناه ان نظام الكمبيوتر ، الوندوز ، يقوم بالعديد من الاعمال في الخلفية ، واذا النظام اعطى امر لتعديل شيء معين فيه ، وفي نفس الوقت قمت انت بطلب شيء معين في قاعدة بياناتك (مثل استعلام او حفظ بيانات او ...) ، ولآن النظام وبرنامجك على نفس القرص ، فالكمبيوتر سيجعل برنامجك ينتظر الى ان ينتهي من امر النظام ، بينما اذا كان برنامجك في قرص مستقل ، فـ CPU سيعطي الامر لكل قرص لعمل اوامره الخاصة به 3. تأكد ان الحقول التي فيها معيار في الاستعلام او في النموذج ، تأكد انها مفهرسة في الجدول ، فالفهرسة تجعل حجم البرنامج اكبر شوي ، ولكنها تجعل التعامل مع بيانات الجدول اسرع الاشياء اللي قلتها: ضغط واصلاح BE و FE ، مكان وجود البرنامج على القرص ، والفهرسة ، هذه جميعا لي تجارب معاها جعفر

وعليكم السلام تفضل ، ضع هذا الكود على زر التعديل في النموذج الفرعي: Me.Parent.الاسم = Me.Phone Me.Parent.مربع_تحرير_وسرد65 = Me.Country Me.Parent.الادارة = Me.City ولكن: اسماء الحقول في النموذج الرئيسي والنموذج الفرعي ، ماشاءالله تفتح النفس للخطأ فنصيحتي ان تعدل فيهم مادام البرنامج في اوله جعفر

السلام عليكم ورحمة الله اليك الكود بعد التعديل Sub ترحيل() ' ' ترحيل ماكرو ' Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant, Temp As Variant Dim i As Long, j As Long, p As Long Set ws = Sheets("تسجيل الدرجات") Set sh = Sheets("دور ثاني") sh.Range("A10:U" & sh.Range("D" & Rows.Count).End(xlUp).Row + 9).ClearContents Arr = ws.Range("B9:CS" & ws.Range("D" & Rows.Count).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 2) = "راسب" Then p = p + 2 For j = 1 To 18 Temp(p, Choose(j, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 15, 16, 17, 18, 19, 20)) _ = Arr(i, Choose(j, 1, 2, 3, 5, 6, 7, 8, 9, 10, 19, 28, 37, 48, 59, 68, 79, 87, 96)) sh.Cells(p + 9, 1) = p / 2 Next End If Next sh.Range("B10").Resize(p, UBound(Temp, 2)).Value = Temp End Sub

السلام عليكم أخي الكريم محمود مش عارف أقولك ايه .. حاولت أنصحك بس شكلك مش عايز تاخد بالنصيحة .. متزعلش بهزر معاك ، بس هنصحك بردو لما تطرح موضوع الأفضل إنك تبسط الأمور .. تبسطها إزاي ؟؟! أقولك مش لازم ترفع الملف الأصلي .. أنا واحد من الناس لما بشوف الملف فيه شغل جامد ومتداخل ومش فاهم المطلوب فين بالظبط بترك الموضوع وأشوف غيره (مش عشان صعوبة الموضوع لكن عشان الوقت ممكن ميكونش متاح ، لأن في حالة الملف المعقد مضطر تدرس الملف كويس وتقرا الموضوع كويس عشان تقدر تساهم بحل) .. والحكمة بتقول : ليه أتعب نفسي طالما ممكن أرتاح وأتعب غيري .. مين بقا غيري ؟ اللي هو صاحب الموضوع .. المفروض يتعب عشان يوضح طلبه بشكل أفضل وأيسر معلش إذا كنت برغي كتير ، بس أنا بحب أوضح الأمور طيب هتسألني أعمل ايه يعني؟ أقولك : بسطها ترتاح وتريح وتحصل على المطلوب بكل سهولة ويسر من كل الأعضاء يعني لما يكون طلبك يخص فورم معين .. ارفق ملف بالفورم دا بس أو بالفورم اللي يخص طلبك فقط .. مع توضيح التفاصيل .. ******************************** نيجي بقا لموضوعك : بعد الإطلاع على الملف أعتقد حل موضوعك بسيط جداً جداً وهو كالتالي : في الفورم المسمى "UserFormopen" (أخدت بالك بحدد المكان اللي هتعامل فيه إزاي ..عشان تخلي بالك) فيه حدث اسمه "UserForm_Activate" (أخدت بالك إني بحدد الجزء اللي هتشتغل فيه إزاي .. عشان تخلي بالك) دا مسئول عن تفعيل الفورم ، يعني لما الفورم يتفعل ايه اللي هيحصل .. دا اللي إنت هتحدده إنت عامل أزرار .. زر أمر لكل ورقة عمل ، طيب دلوقتي عايز تربط الزر دا باسم ورقة العمل لما يتغير .. يبقا في الحالة دي هتستخدم الخاصية Caption ودي معناها عنوان (عنوان الزر) .. وأعتقد دا طلبك يبقا هتكلم الإكسيل وتقوله : لو سمحت خلي عندك دم وغير لي عنوان زر الأمر ده ... بس بصراحة إنت عارف إن الإكسيل مش هيفهمك كدا لأنه هيسألك : إنت عايز تغيره لايه يا سعادة البيه؟ .. تقوم إنت ترد وتقوله : لاسم ورقة العمل .. يرد عليك بعنف : ويقولك بطل هزار يا حودة ، أنا عندي أوراق عمل كتير ، خليك محدد الهدف عشان تعرف تجيب جوووووووول GOAL تقوم إنت تشوف الزر دا عايز تربطه بأي ورقة عمل .. مثال : CommandButton3 مكتوب عليه ورقة1 ، فتقوم تبص للاسم البرمجي لورقة العمل هتلاقيه في محرر الأكواد في نافذة المشروع .. هتلاقي الاسم البرمجي لورقة1 اسمه sh3 (إنت اللي مسميه يا جميل لأن مش دا الاسم الافتراضي .. مش موضوعنا) يرجع مرجوعنا لموضوعنا : الخلاصة دلوقتي إننا نخلي عنوان زر الأمر بنفس عنوان اسم ورقة العمل يبقا الحل ببساطة عمل سطر بالشكل التالي CommandButton3.Caption = sh3.name شفت بسيطة إزاي (ودا حل مشكلتك .. بس كان لازم تعرف إزاي تتعامل مع المشكلة قبل ما تحلها طبعاً هتعمل نفس الحكاية مع بقية الأزرار .. يعني نفس الفكرة هتطبقها بنفسك يا جميل Private Sub UserForm_Activate() Application.Visible = False CommandButton3.Caption = sh3.name 'اشتغل بنفسك على بقية الأزرار End Sub وأخيراً أعتذر للإطالة ... تقبل تحياتي

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

مرت ساعات وساعات. . هذا موعد عرب

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

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

مرفق عدد 3 ملف بهم عده أفكار سبق وأن تعلمتها من أساتذتى بهذا المنتدى الأول : الشهادات بعده طرق و أرقام الجلوس ( تم التطبيق على ملف الأستاذ // محمد الدسوقى ) الثاني : الأوائل الفصلين الدراسين ، وحسب كل مادة ( تم التطبيق على ملف الأستاذة // سماح ) الثالث : عرض عدد ( 4 ) شيت فى شيت واحد ( رصد تفصيلي ، رصد بالدرجات ، رصد بالتقديرات ، رصد بالدرجات والتقديرات ) All Certificates print_ GLOSE _By _MZMELSHRIEF.rar THE FIRST ST.rar عرض 4 شيت فى شيت واحد.rar

المحترم ناصر سعيد بالمرفقات الملف ( شهادات & أرقام جلوس ) وما زلت فى انتظار ( اسماء المواد ودرجاتها للمدارس العام واللغات ) All Certificates print_ GLOSE _By _MZMELSHRIEF.rar

السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي Convert to PDF.rar Convert to PDF.rar

السلام عليكم لو البيانات في عمود البحث رقم بتنسيق نص يشتغل الكود ما دامت البيانات ارقام ولها نفس الطول مثل ملفك ممكن تستخدم الكود هذا العدد 5 هو طول الرقم في عمود البحث Private Sub TextBox2_Change() Dim c As Integer c = 5 - Len(TextBox2) If TextBox2 = "" Or c < 0 Then Selection.AutoFilter Field:=7 Else Range("Del").AutoFilter , Field:=7, Criteria1:=">=" & CStr(TextBox2) & String(c, "0"), Operator:=xlAnd, _ Criteria2:="<=" & CStr(TextBox2) & String(c, "9") End If End Sub وقد تجد اكثر من حل ودمتم في حفظ الله

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