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

وعليكم السلام ورحمة الله وبركاته من اضافة تجميع وفرز كما في الصورة test120.rar

وزيادة بسيطة على كود الاستاذ شفان .. ضع Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_2" في كود الطريقة الثانية في الفورم الثاني بعد كود Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_2.*, Tab_2.id FROM Tab_2 WHERE (((Tab_2.id)=[Forms]![f_2]![id]));" لكي يتم فتح النموذج Forme_InsertAndEdit وفيه مصدر السجلات = Tab_2 ^_* تحياتي

اتفضل اليك قاعدة بها طريقتين اي منها تريد اختاره DoCmd.OpenForm "Forme_InsertAndEdit", acNormal ' طريقة الاولى Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_3" Form_Forme_InsertAndEdit.Masder_record_AfterUpdate DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, , "[id_f]=" & Me.id_f, acReadOnly, acWindowNormal ' طريقة الثانية 'Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_3.*, Tab_3.id_f FROM Tab_3 WHERE (((Tab_3.id_f)=[Forms]![f_3]![id_f]));" كل الطريقين ستستخدمه بعد فتح النموذج Openformresors.rar

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

هل احتجت أن تستبدل أكثر من نص (حرف أو كلمة) بمجموعة أخرى من النصوص (حروف أو كلمات) ومللت من تكرار دالة substitute بعدد مرات الاستبدال في المعادلة؟؟؟!!! إليك الحل بطريقتين مختصرتين دالة معرفة UDF وإجراء SUB زكاة العلم نشره فشارك غيرك ما تعلمه يزدد علمك لو بخل بها غيرك ما وصلت إليك #a1mas #ostazmas بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays فتابعونا. mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays ورد إلينا هذا السؤال في صفحتنا على فيس بوك وكانت الإجابة سريعة ولكن غير مختصرة فقررت تصميم دالة معرفة تقوم بالمطلوب وهو استبدال مجموعة من النصوص بمجموعة أخرى من النصوص في مرة واحدة ولكن ما هو الكود الذي سنحتاجه لعمل هذه الدالة mas_substitute ؟ تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba كيفية التعامل مع كل عناصر المصفوفة array elements إجراء أكثر من عملية استبدال بضغطة زر واحدة والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح هنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور mas_substitute.rar

نعتذر انا فقط اهتمت عن جملة التحديث اتفضل يجب ان تغير في هذا السطر ايضا If DCount("[ProdNoAccTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoAccTab]=" & Me.ProdNoAccTab ) > 0 Then يجب ان يكون هكذا If DCount("[ProdNoActTab]", "[InvoiceHelperTab]", "[InvoiceNo]=" & Me.InvoiceNo & "and [ProdNoActTab]='" & Me.ProdNoAccTab & "'") > 0 Then اليك المرفق الفواتير.rar

الآن فهمت قصدك. لاحظ معي جيدا: 1- لا يمكنك تحديد طول و عرض التقرير في الأكسس. 2- يمكنك اختيار حجم الورقة فقط حسب الأحجام المخصصة لذلك A4 و A5 و A3 .... وغيرها 3- بالنسبة للأحجام المخصصة هي متعلقة بنوع الطابعة فهناك طابعات إفتراضية تعطيك إمكانية تحديد حجم التقرير. 4- طريقة تحديد نوع حجم الورقة بالكود هي كالتالي: Me.Printer.PaperSize = acPRPSA5 بحيث acPRPSA5 هي ورقة A5 و acPRPSA4 هي و رقة A4 و هكذا. و يمكنك الإستفادت من هذا الموضوع:

http://2.bp.blogspot.com/-hMWLyi9cTpY/UUIQX1zpUaI/AAAAAAAAJ9Y/7Jf27UZOkt8/s1600/images.jpeg في هذا الدرس سوف نشرح ماهو php أو ماهي لغة php ؟و لماذا أنا بحاجة إليها؟ بي اتش بي (PHP) هي لغة البرمجة (لغة سكريبت) على الارجح الاكثر شعبية على شبكة الإنترنت. يتم استخدامها لتحسين صفحات الويب. مع PHP، يمكنك أن تفعل أشياء مثل إنشاء الصفحات تسجيل الدخول اسم المستخدم وكلمة السر ، والتحقق من المعلومات من نموذج،و إنشاء منتديات، ومعارض صور، والاستقصائية، و مجموعة أكثر بكثير. و كثيرا ما نرى صفحات ويب تنتهي بـ PHP، هذا يعني أن المؤلف قم بستخدام أكواد PHP لبرمجة أو بعض HTML القديمة وسهلة، وهناك مواقع شعبية تستعمل PHP متل موقع أتواصل الجتماعي. ومن المعروف أن PHP كلغة تعمل في الخادم (server) فقط . لذلك لا يمكن أن تعمل PHP أو تنفيذها على جهاز الكمبيوتر الخاص بك، ولكن على الكمبيوتر الذي يطلب الصفحة من سيرفر ما . يتم تسليم النتائج من لك سيرفر، وعرضها في المتصفح الخاص بك. هناك أيضا لغات البرمجة الأخرى التي قد سمعت بها هي ASP، بيثون وبيرل. (أنت لست بحاجة إلى معرفة أي من هذه اللغات لكي تبدأ فتعلم PHP. في الواقع، لتعلم من هذه الدروس لن تحتاج لأن تكون عندك خبرة في البرمجة على الإطلاق.) التفسير الأكثر شعبية لـ PHP هو "Hypertext Pre-processor". ولكن ذلك يجعله HPP، وبالتأكيد؟ إن التفسير بديل هو أن الأولى أتى من الإصدار الأقدم من هذه اللغة البرمجة، الذي كان يسمى "Personal Home Page Tools". على الأقل الآن يمكنك الحصول على الحروف "PHP" بالترتيب الصحيح! PHP شعبية جدا إذا كنت تبحث عن وظيفة في البرمجة وتصميم المواقع الإلكترونية/الويب أو تريد فقط تعلم PHP،عليك متابعة هذه الدروس جيدا، ولن تحصل على مشكل في تعلمه. و، اتمنى ان تكون سهلة لك بكثير مما كنت تعتقد . و بطبيعة الحال لمتابعة مع هذه الدروس، سوف تحتاج لهذه الملفات في الدورة التدريبية

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

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

السلام عليكم و رحنة الله وبركاته اللآن في نفس الورقة AZ_مقاول1.xls

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

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

يجب تحميل الملف(أو قسم منه اذا كان كبيراً) للعمل عليه

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

اشكرك استاذي الكريم جربتها وهي نفس المشكله ولكن دلنا استاذنا القدير ابو خليل الله يعطيه العافيه بطريقه قريبه من هذا الشكل الحمدلله ظبطت aaaaa\-aaaaa;0; صار يقبل حروف وارقام علما بان طريقه ابو خليل كونها تكون افضل من طريقتي بس ما قدرت انزلها من الجوال تحياتي وشكري وتقدير لك والا ستاذ شفان وكل الاخوه الذين ساعدونا بارك الله فيكم

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

اتفضل بعد التعديل AA.rar

تفضل 2الباكورد.zip

الكود Sub Distribute_col() Application.EnableEvents = False Dim MY_Rg As Range Dim x%, n%, i% Dim k%: k = 1 Dim s%: s = 1 Dim my_arr(), my_arr_Item() Set MY_Rg = Range("i5").CurrentRegion Dim N_row As Double: N_row = MY_Rg.Rows.Count Set MY_Rg = MY_Rg.Resize(N_row - 1) N_row = MY_Rg.Rows.Count Range("LM6:LM" & N_row + 6).ClearContents x = Int(N_row / [LM1]) For n = 1 To N_row ReDim Preserve my_arr_Item(1 To s): my_arr_Item(s) = MY_Rg.Cells(n) ReDim Preserve my_arr(1 To s): my_arr(s) = "Section :" & k s = s + 1 If (n Mod x) = 0 Then k = k + 1 Next For i = LBound(my_arr) To UBound(my_arr) Cells(i + 5, "LM") = Application.Index(my_arr, Application.Match(my_arr_Item(i), my_arr_Item, 0)) Next Application.EnableEvents = True End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$LM$1" Then Exit Sub Distribute_col End Sub

الف تحية والف شكر لك استاذ شفان هذا هو المطلوب

اذن تم اضافة هذا السطر الى كود بعد تحديث لرقم الصنف Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) والكود صار هكذا Private Sub Rajmsanf_AfterUpdate() Me.Rajmsanf = left(Me.Rajmsanf, 5) & "-" & right(Me.Rajmsanf, 5) If DCount("[Rajmsanf]", "tfsil_jard", "[Rajmsanf]=[forms]![frmEdrajSenf]![Rajmsanf]") >= 1 Then MsgBox " سبق جرده " & DLookup("[Almwka]", "tfsil_jard", "[Rajmsanf] = Forms![frmEdrajSenf]![Rajmsanf]") DoCmd.CancelEvent Me.Undo End If End Sub اتفضل جربه واعطينا الخبر 2الباكورد.rar

فی قاعدە بیاناتک مش موجود مثل هذه الارقام لكن فيها 1-1 و 2-2 و 3-3 و 4-4 والرقم المكتوب اصلا غير موجود لذلك بيعطيك الرسالة لذلك نحن بحاجة شرح وافي من حضرتك عن ماذا تريد بالضبط و ارفاق قاعدة بيانات حسب شرحك

وفيكم بارك الله شكرا لمرورك العطر

ما هو نوع الورق أو حجمه الذي تريد الطباعة عليه

جرب أخى هذا تجربة 1.xls

الكود يعمل عندي بشكل ممتاز RTR1.xlsm

كله سيظهر ان شاء الله فقط انتظر يوم جديد

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

:: احسنت اخي شفان هذا هو المطلوب ... بارك الله بك وبعلمك وحفظ لك محبيك .. :: احسنت اخي شفان هذا هو المطلوب ... بارك الله بك وبعلمك وحفظ لك محبيك ..

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

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

السلام عليكم ورحمة الله وبركاته اخي الحبيب عملك مضبوط لكن فيها خطأ واحد في حرف واحد اذا تغيره سيكون كل شيء على ما يرام شوف هذه الجملة sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" القي نظرتا الى الشرط فيه الشرط الاول تمام ما فيه المشكلة WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) والشرط الثاني AND (([InvoiceHelperTab].ProdNoAccTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" فقط غير حرف سي الاخير من هذه الكلمة ProdNoAccTab الى حرف تي ProdNoActTab القي نظرتا الى الكود الصحيح sql = "UPDATE [InvoiceHelperTab] SET [InvoiceHelperTab].QtyOut = [InvoiceHelperTab]![QtyOut]+[Forms]![SalInvoiceForm]![Child13].[Form]![QtyOut] WHERE ((([InvoiceHelperTab].InvoiceNo)=[Forms]![SalInvoiceForm]![Child13].[Form]![InvoiceNo]) AND (([InvoiceHelperTab].ProdNoActTab)=[Forms]![SalInvoiceForm]![Child13].[Form]![ProdNoAccTab]));" اليك ملفك بعد تغيير حرف واحد الفواتير.rar

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

لعله المطلوب New Microsoft Excel Worksheet.rar

وعليكم السلام أظن لأنه لا يوجد حقل باسم [الصف] في النموذج

بارك الله فيك الدالة فوق الممتاز-والشرح تمام

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

تفضل هذا الكود من أعمال أستاذنا الغالى ومعلمنا الكبير الأستاذ ياسر خليل جلب بيانات بين تاريخين.xls

ريما كان المطلوب الكود Option Explicit Sub give_data() Dim m%, i%, x%, my_st$ Dim a As Boolean Dim match% x = Range("Source_tabl").Rows.Count Dim find_range As Range Range("Source_tabl").Offset(1, 1).ClearContents For m = 2 To x my_st = Range("Source_tabl").Columns(1).Cells(m) If my_st = vbNullString Then Exit For For i = 1 To 3 a = IsError(Application.match(my_st, Range("tabl_" & i).Columns(1), 0)) If Not a Then match = Application.match(my_st, Range("tabl_" & i).Columns(1), 0) Set find_range = Range("tabl_" & i).Columns(1). _ Cells(match).Offset(-match + 1, -1) Range("Source_tabl").Columns(2).Cells(m) = find_range.Value Range("Source_tabl").Columns(3).Cells(m) = Range("tabl_" & i) _ .Columns(3).Cells(match) GoTo 1 End If Next 1: Next End Sub الملف البحث_بشروط Salim.xlsm

طبعا التعديل هو وضع معادلة حضرتك (ضمن) دالة التقريب المطلوبة وهى دالة Ceiling وهى دالة تقوم بتقريب الأرقام العشرية لأقرب (أكبر) عدد صحيح، بصرف النظر عن قيمة الرقم العشرى كانت أصغر أو أكبر من 0.5 والدالة التى تقوم بعكس دور هذه الدالة هى الدالة Floor حيث تقرب لأقرب (أقل) عدد صحيح .. يعنى فى مثال حضرتك للرقم 84.3 دالة سيلينج تجعله 85 ودالة فلور تجعله 84 وتكوين الدالة فى الاكسل يكون اسم الدالة ثم خانتين الأولى نضع فيها العدد المطلوب تقريبه، أو الحسابات التى تصل بنا للعدد المطلوب تقريبه والثانية نضع بها طول التقريب، إن كان لأقرب عدد واحد نضع (1) إن كان التقريب مطلوب لأكثر من ذلك نضع العدد المطلوب = Ceiling(84.3;1) هذه صيغة الدالة فى شيت الاكسل لكن عند التعامل مع محرر اكواد الاكسل يجب استدعاء دوال الاكسل أولا عن طريق أمر Application والمقصود هو ابلكيشن الاكسل ثم أمر الدوال WorksheetFunction ثم نختار الدالة المطلوب إدراجها

السلام عليكم من المعروف أن وحدة القياس في كائنات الأكسس هي Twip و كل 1 سنتيمتر يساوي 566.9291338583 تويب لذلك استعمل الشكل التالي: h*566.9291338583 بحيث h هو الطول بالسنتيمتر

السلام عليكم ورحمة الله استخدم هذا الكود Sub PrintPages() Dim i As Integer, j As Integer i = Range("D3").Value j = Range("E3").Value If i < 1 Or j < 1 Then Exit Sub ActiveSheet.PrintOut from:=i, to:=j, Copies:=1 End Sub

تفضل عزيزي دعنا نبدأ من هذه النقطة واي اضافة تريدها اطرحها :: تحياتي BridSale.rar

تفضل أخى محمد لك ما تريد وأعتذر عن التأخر لكثرة انشغالى جلب بيانات بين تاريخين.xls

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

اسم المستخدم أبوطالب للأجهزة الكهربائية وكلمة السر 123