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

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

وطول عمرى كسول :) وحتى كسلت اعلن عن المتغيرات المهم اللي يعدل علينا حبايبنا تسلملي حبيبي تحياتي لك

بسم الله ما شاء الله عليك يا عربي متميز كالعادة .. إضافة بسيطة لمسح الصور في حالة عدم وجود الاسم Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, fullImagePath As String If Target.Address = "$B$1" Then myPath = ThisWorkbook.Path & "\pic\" fullImagePath = myPath + [B1] On Error GoTo Skipper Image1.Picture = LoadPicture(fullImagePath & "1.JPG") Image2.Picture = LoadPicture(fullImagePath & "2.JPG") Image3.Picture = LoadPicture(fullImagePath & "3.JPG") Image4.Picture = LoadPicture(fullImagePath & "4.JPG") Exit Sub End If Skipper: Image1.Picture = LoadPicture("") Image2.Picture = LoadPicture("") Image3.Picture = LoadPicture("") Image4.Picture = LoadPicture("") End Sub

جرب المرفق لعله المطلوب تحياتي pc.rar

وعليكم السلام يمكن استخدام دالة معرفة بالشكل التالي '=NumberOut(A2) Function NumberOut(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc(Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 Case Else NumberOut = NumberOut & Mid(rng.Value, i, 1) End Select Next i End Function

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ترحيل بصفحة البنوك والمشاريع تم ارفاق كود الحل من الفاضل_ أ / عبدالله باقشير مرفق الملف و الشرح ___________.rar و لا تنسونا من صالح الدعاء تحياتى

السلام عليكم ورحمة الله وبركاته أخواني هذه مشاركة أردت بها تلخيص بعض الأكواد أرجو أن تفيدكم وهى ليست من تأليفي وإنما هى مما تعلمته في هذا الموقع الرائع لا تحرمنا من دعائكم بعض الأكواد البسيطة.rar First.rar Second.rar Third.rar

السلام عليكم عودة بعد غيبة طويلة جدا عن منتدى الإكسيل بهذه الطريقة الظريفة بدون برامج وفقكم الله الفيديو

بالنسبة لفواتير البيع , تحتاج جدولين للفواتير جدول رئيسي : مسلسل - رقم الفاتورة - تاريخ - رقم الزبون - طريقة الدفع ,, الخ جدول تفاصيل الفواتير : رقم الفاتورة ( مرتبط مع رقم الفاتورة الرئيسي ) - رقم الصنف - الكمية - السعر ثم تعمل استعلام يتضمن مجموع الكمية من حقل تفاصيل الفواتير , و هو عبارة عن الرصيد لكن السؤال , ألا تريد جدول مشتريات ؟ كيف ستتم تغذية الرصيد كلما تم البيع ؟

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

جرب الكود التالي Sub Test() Dim sh As Worksheet Dim shResult As Worksheet Dim lr As Long Dim last As Long Application.ScreenUpdating = 0 Set shResult = Sheets("ورقة النتائج") For Each sh In ThisWorkbook.Worksheets If Left(sh.Name, 3) = "IBC" Then lr = sh.Cells(Rows.Count, 3).End(xlUp).Row last = shResult.Cells(Rows.Count, 3).End(xlUp).Row + 1 If sh.Range("C4").Value <> "" Then sh.Range("C4:E" & lr).Copy shResult.Range("C" & last).PasteSpecial xlPasteValues End If End If Next sh Application.CutCopyMode = 0 Application.ScreenUpdating = 1 End Sub

فقط استخدم الوحده النمطية والنموذج الذى بالمشاركة الاولى وضعهم فى قاعدة بياناتك وسوف تجد كود فى زر انشاء النسخة الاحتياطيه مثل هذا Call ExportNew("BackUp Dir " & "\" & pro & ".dat", pass) قم باستبدال BackUp Dir الى مسار الملف الذى تريد حفظ النسخة به وستعمل لديك بدون مشاكل وعندما ننتهي من المشكلة الحالية بامكانك استخدامها ايضاً . ولا تحزن على عدم المشاركة فلا يكلف الله نفساً إلى وسعها . وفقك الله اخى .

جزاك الله كل خير

وجدت الحل الحمد لله بتغير الجملة الى Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2, True, False, ";pwd=Pass") حيث ان Pass هو الرقم السري المراد انشاءه . وضبطت وتم عمل الباسورد والحاق العلاقات وتبقت المشكلة عند الاسترداد فهل من مساعدة .

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير Sub Timer() Application.OnTime Now + TimeValue("00:00:01"), "ChangeTime" End Sub Sub ChangeTime() On Error Resume Next Sheets("1").Range("E3") = Now() Call Timer Exit Sub End Sub Sub Auto_Close() Application.Quit End Sub Sub Auto_Open() Call Timer End Sub مرفق الملف و الشرح _________________________.rar و لا تنسونا من صالح الدعاء تحياتى

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته

تفضل هذا الموضوع http://yasserelaraby86.blogspot.com.eg/2016/10/split-text-number.html تحياتي

تفضل أخي My Test 1.rar

السلام عليكم ورحمة الله تفضل اخى الكريم مخزن.rar

اخوانى الكرام تم حل المشكلة .. وهذا المرفق لمن صادفتة نفس المشكلة ("",(ws.Cells(iRow, 8) = Replace(ws.Cells(iRow, 8), Chr(13 تحياتى مثال 1.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل_ أ / أبو تامر_عمر الحسينى مرفق الملف و الشرح Copy_Every_Name_2_Sh_2_N_Wb.rar و لا تنسونا من صالح الدعاء تحياتى

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل_ أ / عبدالله باقشير مرفق الملف و الشرح __________________________.rar ___________________.rar و لا تنسونا من صالح الدعاء تحياتى

كعبلاوى جزاك الله خيرا

تم التعديل How_Old 1.rar

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

فى الاستعلام ضع الشرط >0 ( اكبر من صفر )

السلام عليكم ورحمة الله وبركاتة الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة ساشرح اليوم بطريقة بسيطة كيفية إستخدام Sum IF في هذا الفيديو يتم شرح دالة Sum If بالإضافة إلي استخدمها بطريقة احترافية في كشف المرتبات . أرجو نشر الفيديو ومتابعة القناة للمزيد من الفيديو لتعلم الإكسيل عبر اليوتيوب

السلام عليكم أستاذ علي معلش اتحملني شوي ، الطلب ليس متكامل اولا انا نسيت ايش بالضبط اللي لازم يصير (العتب على الشيب) ، ولكني عملت تغيير في الخطة ، وان شاء الله يكون مناسب للنوعين من التقارير اختر تاريخين من النموذج frm_PrintRpt ، للإختيار الاول "بين تاريخين محددين" . 1. لما تضغط على زر عمل التقرير ، البرنامج يعمل جدول خارجي ، به التواريخ والايام و eSIS جميع الطلبة للصف والشعبة ، هذا الجدول المؤقت (tmp_tbl_Dates_Days) في البرنامج المؤقت (tmp_Dates_Days.mdb) يتكون في مجلد الوندوز Temp ، ولست بحاجة لرؤيته ، وعندما يتكون الجدول ، ترى نتائجه في الاستعلام qry_Temp ، 2. تلقائيا الاستعلام qry_T2 يفتح ، وسترى فيه جميع الايام ، سواء بغياب او بدون ، ويجب ان نعدل الحقول في هذا الاستعلام ، ونعمل التقريرين منه رجاء فحص هذا العمل ، لأنه سيستبدل العمل السابق ، ولكني بحاجة الى توجيهك للخطوة التالية اما الاختيار الثاني "طباعة التقرير بالكامل" فيقوم الكود بأخذ اول يوم في الجدول ، وآخر يوم ، ويقوم بنفس العملية اعلاه الاستعلامات الوحيدة التي اعتمدت عليها في هذه الخطوة هي qry_T1 و qry_T2 و qry_Temp ، والشغل كله تقوم به الوحدة النمطية التالية: Option Compare Database Dim tbdf As TableDef, qrydf As QueryDef, fld As Field Dim rst As DAO.Recordset, rst_TQ As DAO.Recordset Dim sfrm As Form Dim wrkAcc As Workspace Dim dbsNew As Database Dim mdb_Name As String Public H1 As Integer Function Make_DB() On Error GoTo err_Make_DB 'populate Arabic day in an array Dim Arabic_Days() As String Set rst = CurrentDb.OpenRecordset("Select * From tbl_Months") rst.MoveLast: rst.MoveFirst ReDim Arabic_Days(7) For i = 1 To 7 Arabic_Days(i) = rst!Day_A rst.MoveNext Next i 'How Many Students mySQL = "SELECT Grade, Section, eSIS FROM tbl_Follow4" mySQL = mySQL & " Where Grade='" & [Forms]![frm_PrintRpt]![StuGrade] & "'" mySQL = mySQL & " AND Section='" & [Forms]![frm_PrintRpt]![StuSection] & "'" mySQL = mySQL & " GROUP BY Grade, Section, eSIS" 'Debug.Print mySQL Set rst_TQ = CurrentDb.OpenRecordset(mySQL) rst_TQ.MoveLast: rst_TQ.MoveFirst How_Many_Students = rst_TQ.RecordCount 'create an empty Dates_Days.mdb in the same folder as the FE 'this will allow more than one user to use This DB Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet) 'database name and path (in the Windows Temp Folder) mdb_Name = GetWinTemp & "\tmp_Dates_Days.mdb" 'mdb_Name = Application.CurrentProject.Path & "\tmp_Dates_Days.mdb" ' Make sure there isn't already a file with the name of the new database. If Dir(mdb_Name) <> "" Then Kill mdb_Name ' Create the new database Set dbsNew = wrkAcc.CreateDatabase(mdb_Name, dbLangGeneral) dbsNew.Close wrkAcc.Close 'make a Table tmp_tbl_Dates_Days using "Make Table" query in the DB Dates_Days.mdb mySQL = "SELECT tmp_tbl_Dates_Days.* INTO tmp_tbl_Dates_Days IN " & Chr(34) & mdb_Name & Chr(34) mySQL = mySQL & " FROM tmp_tbl_Dates_Days" 'Debug.Print mySQL DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True 'set the Dates required If Forms!frm_PrintRpt!MyDates = 1 Then fDate = Forms!frm_PrintRpt!FromDate tDate = Forms!frm_PrintRpt!ToDate Else fDate = DMin("[DayDate]", "tbl_Follow4") tDate = DMax("[DayDate]", "tbl_Follow4") End If Set dbsNew = OpenDatabase(mdb_Name) Set rst = dbsNew.OpenRecordset("Select * From tmp_tbl_Dates_Days") For j = 1 To How_Many_Students N = fDate dif = DateDiff("d", fDate, tDate) For i = 0 To dif N = DateAdd("d", i, fDate) 'MsgBox "Date:" & N & vbCrLf & "Day :" & Format(N, "dddd") 'skip Fridays and Saturdays If Weekday(N) <> 6 And Weekday(N) <> 7 Then rst.AddNew rst!DayDate = N rst!DayName = Arabic_Days(Weekday(N)) 'Format(N, "dddd") rst!eSIS = rst_TQ!eSIS rst.Update 'MsgBox Arabic_Days(Weekday(N)) & vbCrLf & Format(N, "dddd") End If Next i rst_TQ.MoveNext Next j 'now make the query qry_Temp based on the new location mySQL = "SELECT Auto_ID, DayDate, DayName, eSiS" mySQL = mySQL & " FROM tmp_tbl_Dates_Days IN " & Chr(34) & mdb_Name & Chr(34) mySQL = mySQL & " ORDER BY Auto_ID" 'delete the old qry_Temp DoCmd.DeleteObject acQuery, "qry_Temp" 'make the new qry_Temp Set qrydf = CurrentDb.CreateQueryDef("qry_Temp", mySQL) rst.Close: Set rst = Nothing rst_TQ.Close: Set rst_TQ = Nothing dbsNew.Close Exit Function err_Make_DB: If Err.Number = 3270 Then 'this field does not have a caption for it, give it the field name ElseIf Err.Number = 3024 Or Err.Number = 91 Or Err.Number = 52 Or Err.Number = 53 Or Err.Number = 3055 Then 'mdb, and Table not found to Delete Resume Next ElseIf Err.Number = 3167 Then 'ignor, Records Deleted Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function جعفر 459.2.AbsentLate-10-12-2016.accdb.zip

ولو أردنا الكتابة في سطرين نكرر كتابة الكود التالي: Print #1, "اسمي هو: " Print #1, "الزباري" لتكون النتيجة كالتالي: أما إذا أردنا الكتابة في نفس السطر (العمود التالي) فإننا نضيف فاصلة كالتالي: Print #1, "اسمي هو: ", Print #1, "الزباري" لتكون النتيجة كالتالي:

متاح البرنامج 1800 جنيه مصرى hanythomas@hotmail.com

انا جاهز للعمل راسلني على الواتساب 00905456969400

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

بارك الله فيك جاري التحميل

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

الأخ الغالي محبوب ... إليك إصدار آخر من الملف ..عله ينال رضاك ..قمت ببعض الإضافات ليكون الملف شامل وكافي ووافي لكل السنوات ... جرب الملف التالي (ولو عجبك غير أفضل إجابة وحددها هنا ..ليسهل للباحث فيما بعد الوصول بسرعة للحل المطلوب) متنساش تدعي لي ..ومتنسناش بفردة كاوتش من معرض السيارات (أي مصلحة منك ..!!) Three Loops In Two Excel Files By YasserKhalil V2.rar

http://www.officena.net/team/khboor/kh_image/p36.gif الموضوع رقم(1) كود لتحويل المعادلات الى قيم خبور خير ===================================== الموضوع رقم(2) التقاط صورة للتحديد خلايا او صوره او اي شي ويتم حفظه ومعاينته خبور خير ===================================== الموضوع رقم(3) فورم باوامر صناديق الحوار Application.Dialogs خبور خير ===================================== الموضوع رقم(4) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول خبور خير ===================================== الموضوع رقم(5) توزيع الفصول على نصفي الورقة حسب النوع او مشترك خبور خير ===================================== الموضوع رقم(6) اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم خبور خير ===================================== الموضوع رقم(7) شرح اعداد كشوفات مدرسية باختيار روؤس الاعمدة عن طريق فورم خبور خير ===================================== الموضوع رقم(8) برنامج الجدول المدرسي الاصدار الثاني خبور خير ===================================== الموضوع رقم(9) وداعاً للقوائم المنسدلة .. وداعا لListBox .. وداعا لكل انواع القوائم الحسامي ===================================== الموضوع رقم(10) برنامج كاس العالم 2010 بالمعادلات ( الاصدار الثاني) بخاصية انتقال الصور خبور خير ===================================== الموضوع رقم(11) دالة استخراج النص او الارقام طريقة اخرى خبور خير ===================================== الموضوع رقم(12) دالة جديدة لاستخراج ولي الامر باسلوب جديد خبور خير ===================================== الموضوع رقم(13) دالة تجزئة الاسماء من اسم طويل مع معايير خاصة لفهم الاسماء المركبة للاسم الواحد خبور خير ===================================== الموضوع رقم(14) عمل قائمة منسدلة مرتبطة بقائمة أخرى mahmoud_xp/ خبور خير/ الحسامي/&amp;nbsp;&amp;nbsp;طارق ===================================== الموضوع رقم(15) تحويل دالة SUMPRODUCT الى كود VBA \ kemas \ zxzxzxzخبور خير ===================================== الموضوع رقم(16) شرح كتابة معادلة الإكسيل داخل كود فيجوال بيسك - فديو تعليمي kemas ===================================== الموضوع رقم(17) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba .. range .. cells .. offset الحسامي ===================================== الموضوع رقم(18) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء if ....case ...switch ...choosم الحسامي ===================================== الموضوع رقم(19) دورة للمبتدئين في عالم البرمجة YasserKhalil ===================================== الموضوع رقم(20) امتلك منتدى وموقع ومدونة مجانا خالد القدس ===================================== الموضوع رقم(21) كود للشهادات يمكن تطبيقه على اي شهادات خبور خير ===================================== الموضوع رقم(22) برنامج طلبات الشراء ابو عبدالله ===================================== الموضوع رقم(23) هيا معاً : نتفاعل - نشارك - ننتج &amp;ndash; نرقى ... ابو عبدالله ===================================== الموضوع رقم(24) مشروعات:01:تقليل هالك الحديد TareQ M ===================================== الموضوع رقم(25) مشروعات : 02 - برنامج الحسابات مع مراكز التكلفة أبو عبدالله ===================================== الموضوع رقم(26) مشروعات : 03 - نظام محاسبة ومخزون مطاعم وفنادق هاني بدر ===================================== الموضوع رقم(27) &amp;nbsp;&amp;nbsp;درس في الترحيل باستخدام الاكواد ... هدية شهر رمضان كل عام وانتم بخير&amp;nbsp;&amp;nbsp; الحسامى ===================================== الموضوع رقم(28) ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته http://www.officena....opic=34088&amp;amp;st=0 الحسامى ===================================== http://www.officena.net/team/khboor/kh_image/p37.gif http://www.officena.net/team/khboor/kh_image/p39.gif السلام عليكم ===== الموضوع رقم(29) شرح دوال الاكسيل للاستاذ خبور خير خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(30) بعض الاكواد المنفصلة قد تهم البعض ارجوا من الجميع المساهمة yahiaoui http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(31) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول اراءكم واستفساراتكم لوضع الخطة على الطريق الصحيح قدر الامكان خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(32) مشاركات للمواضيع الخاصة بالشروحات فيديو فقط فكرة لتنشيط الاعمال والشروحات المميزة والمفيدة هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(33) هذا الموضوع مخصص للموضوعات الخاصة بالمعلمين من كنترولات وخلافه لسهولة البحث للاخوة الاعضاء " موضوع متجدد" هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif

السلام عليكم ... مرفق ملف يتضمن ورقة بحث للأخ : أحمد حسين بتال عن كيفية حل نماذج البرمجة الخطية بواسطة الوظيفة الإضافية Solver . (y) أرجو أن تنال إعجابكم. solver_ad.rar