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

SetOrderBy للماكرو نفتج شاشة انشاء ماكرو ونختار SetOrderBy وفي خانة ترتيب حسب ضع id DESC او id ASC حسب رغبتك تصاعدي او تنازلي id هو الحقل الذي نرغب تطبيق الفرز عليه اما في الكود فيكون الامر DoCmd.SetOrderBy "[id] asc" اخونا الشايب

جرب هذا الكود SaveNew.xlsm

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

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل 1- فورم واحد للبحث عن جميع الاذون سواء اضافة او صرف او ارتجاع 2- فورم واحد للتسجيل جميع الاذون سواء اضافة او صرف او ارتجاع 3-تم الاستغناء عن فورم الاكواد 900.xlsm

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف فهرس منتدي الاكسيل.xlsb

حملته على ال G &E & F ولم ينفع اتمنى لك التوفيق بصراحة .. لحد الان برامجي بالمجان ...سواء لاصدقائي او لدائرتي التي اعمل بها وهي مفتوحة المصدر لمن اراد الاستفادة

عمي قاسم .. ممكن تغير مكان الحفظ الإفتراضي إلى المجلد اللي تريده .. ( اتبع الخطوات : ) 🙂 ( الخطوة رقم 4 لعمل مجلد جديد للبرنامج بدل ما تحفظه على ال C مباشرة )

استاذ @Moosak انا حملته كثيرا ..ويطلب مني السواقة D.. وانا ليس في حاسوبي تلك السواقة بصراحة ..شلع كلبي(قلبي)..كما نقول في العراقي اخي او ولدي العزيز @Foksh ان كان برنامجك للتسويق فمن حقك ان تعمل ماتشاء لبرامج التنصيب والحماية ..التي لا افهم بها شيئا طبعا اما لابداء الرأي والملاحظات فيمكنك رفع ملف مضغوط دون برامج تنصيب تحياتي لك

حل اخر اخى الفاضل فوزى تسمية نطاقات واضافة الفروع.xlsm

طيب جرب كده .................. Sales.accdb

الف الف شكر استاذنا احمد عبد الحليم

استخدم هذا الماكرو، لاستبدال مجموعة كلمات متفرقة متباعدة بكلمة واحدة، مع مراعاة التشكيل: بعد تشغيل الماكرو: - ضع في خانة البحث : أَيْضا ، أيْضا ، أيضًا ، أيضا وفي خانة الاستبدال : أيضًا أو : أَيْضًا أو حسب ما تريد من ضبط، مع مراعاة المسافات ويمكن أيضا أن تضع كلمات مختلفة متباعدة في خانة البحث، لتستبدلها بكلمة واحدة. ' استبدال مجموعة كلمة متفرقة بكلمة واحدة ' ' Dim xFind As String Dim xReplace As String Dim xFindArr, xReplaceArr Dim i As Long Application.ScreenUpdating = False xFind = InputBox("أدخل هنا مجموعةالكلمات التي تريد استبدالها، مفصولة بفاصلة: ", "الكلمات المطلوب استبدالها") xReplace = InputBox(":أدخل الكلمة التي تريد استبدالها مكان الكلمات السابقة ", "الكلمة الجديدة") xFindArr = Split(xFind, "،") For i = 0 To UBound(xFindArr) With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = xFindArr(i) .Replacement.Text = xReplace .Format = False .MatchWholeWord = False End With Selection.Find.ClearFormatting ' لو أردت حذف التمييز، فاحذف هذا السطر، والثلاثة التالية له Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True Options.DefaultHighlightColorIndex = wdBrightGreen Selection.Find.Execute Replace:=wdReplaceAll Next Application.ScreenUpdating = True Beep End Sub

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

انا تعبت فيه والله بعد موافقه المنتدى على التثبيت انشاء الله سيتم وضع الملف مفتوح المصدر

@2saad هل ممكن ان تقول لي المتغير i فيما يستخدم بناء على كودك؟!!! Private Sub CommandButton2_Click() Dim add As Integer i = Application.WorksheetFunction.CountA(Sheet54.Range("c:c")) add = Sheet54.Range("c1000").End(xlUp).row + 1 Sheet54.Cells(add, 3).Value = Me.TextBox1.Value Sheet54.Cells(add, 4).Value = Me.TextBox2.Value Sheet54.Cells(add, 5).Value = Me.TextBox3.Value Sheet54.Cells(add, 6).Value = Me.TextBox4.Value Sheet54.Cells(add, 7).Value = Me.TextBox5.Value Sheet54.Cells(add, 8).Value = Me.TextBox6.Value Sheet54.Cells(add, 9).Value = Me.TextBox7.Value Sheet54.Cells(add, 10).Value = Me.TextBox8.Value Sheet54.Cells(add, 11).Value = Me.TextBox9.Value Sheet54.Cells(add, 12).Value = Me.TextBox10.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد" End Sub جرب هذا التغيير ولكن قبل كل شيء اتبع الخطوات بعناية 1- احدف اي صف فارغ في الجدول ( لا تجعل الجدول يحتوي على صفوف فارغة) 2- لا داعي للتيكست بوكس الخاص بالتسلسل لانه الكود سيقوم بادراج صف ويقوم بترقيمها اتوماتيكيا حينها سيصبح عند 9 تيكست بوكس وليس 10 كما في الكود 3- تم التعديل باضافة اجراءات خاصة بكائن الجدول هذه محاولة قد تفيدك Private Sub CommandButton2_Click() Dim tbl As ListObject Dim LastRow As Long Set tbl = Sheet54.ListObjects("Table14") LastRow = tbl.Range.Rows.Count With Sheet54 tbl.Range(LastRow, "B").Offset(1) = TextBox1.Value tbl.Range(LastRow, "C").Offset(1) = TextBox2.Value tbl.Range(LastRow, "D").Offset(1) = TextBox3.Value tbl.Range(LastRow, "E").Offset(1) = TextBox4.Value tbl.Range(LastRow, "F").Offset(1) = TextBox5.Value tbl.Range(LastRow, "G").Offset(1) = TextBox6.Value tbl.Range(LastRow, "H").Offset(1) = TextBox7.Value tbl.Range(LastRow, "I").Offset(1) = TextBox8.Value tbl.Range(LastRow, "J").Offset(1) = TextBox9.Value End With MsgBox "تم حفظ البيانات بنجاح يا عم سعد", vbInformation, "تنبيه يا عم سعد" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" End Sub

جرب هذا الكود المختصر بإذن الله يكون هو المطلوب Private Sub CommandButton1_Click() Dim contact As String, mytext As String contact = TextBox1.Value mytext = TextBox2.Value ' Google Messages ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com/web/conversations/new" Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys(contact, True) Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) Call SendKeys(mytext, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) MsgBox "Done by mr-mas.com" End Sub بالتوفيق

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

آخر المواضيع المثبتة برامج مصممه على الأكسيل ListView Right to Left الدرس الثاني قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform UserForm interactive سلسلة دروس الفورم التفاعلي وبتاء قاعدة البيانات

أحسنت أستاذ مجدى أكرمك الله وزادك الله من فضله ورفع شأنك درجات وفرج عنك كربات يوم القيامة ووسع الله في رزقك برنامج جلب مواقيت الصلاة تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar *************** أعمال الأستاذ منير سعد دول وعواصم قارة اوربا - اسيا فيديو شرح كيفية استخدام برنامج دول وعواصم افريقيا برنامج دول وعواصم قارة اسيا دول وعواصم قارة اوربا - اسيا دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية عواصم العالم اختبار عواصم ودول العالم مع لعبة من سيربح المليون عواصم العالم نهائى

يوزرفور بحث و تعديل وحذف مرن يصلح لأي قاعدة بيانات محفظة اكواد للفورم Transpose_Notes فورم بحث في تفسير القرآن الكريم واياته فورم طباعة الفورم بالكامل Randbetween without repetition برنامج تسجيل بيانات لروضة أطفال - الاصدار الثاني ايام العمل المشتركة بين عاملين Calendar by Choise حماية الخلايا غير الفارغة بواسطة باسوورد اخر صف في كل ورقة تحديد المكررفي كل صف مع تجاهل الفراغات مجموعة من الارقام العشوائية بشرط اختيار الكلمة حسب رقم ورودها في النص تحويل البيانات من عامودين الى جدول مطاطي جدولة الديون قائمة بمحتويات التحديد و عنوانه لائحة يالاسماء حسب الديون المراتب من 1 الى 100 السنوات الكبيسة بين عامين الاعداد الأولية حذف مشاركة مكتبة الموقع - تحديد الأوزان النسبية و التقييم + تطبيق بالإكسيل محمد طاهر *************** مكتبة الموقع - اضافة محتوى القائمة المنسدلة آليا محمد طاهر *************** الزام المستخدم بمسافة واحدة بين كلمتين سليم حاصبيا *************** اظهار اجزاء من صورة بواسطة اكسل سليم حاصبيا *************** تجزئة الاسماء المركبة وفصلها عن الاسماء العادية سليم حاصبيا *************** من الغاز الاكسل سليم حاصبيا *************** استعمال REGULAR EXPRESSION في اللغة العربية سليم حاصبيا *************** Random Between Without Repetition سليم حاصبيا *************** كيف تدفع او تقبض مبلغ من المال بأقل عدد من الأوراق المالية سليم حاصبيا *************** كيف نختار مجموعة عشوائية من التلاميذ سليم حاصبيا *************** عدد ايام معينه بين تاريخين سليم حاصبيا *************** قائمة منسدلة متناقصة و مطاطة في نفس الوقت سليم حاصبيا *************** فاتورة الكهرباء سليم حاصبيا *************** الطباعة الذكية سليم حاصبيا *************** Filter By_Selection سليم حاصبيا *************** حماية خلايا بدون حماية الشيت سليم حاصبيا *************** كيف نبحث عن كلمة او حرف او عبارة داخل نص سليم حاصبيا *************** كيف نجعل الخلية تتمرد على تحديدها سليم حاصبيا *************** لائحة أسماء دون تكرار ومرتبة أبجدياً سليم حاصبيا *************** مجموع صناديق وقناني سليم حاصبيا *************** لائحة أسماء دون تكرار ومرتبة أبجدياً سليم حاصبيا *************** صادر وارد سليم حاصبيا *************** ترقية UDF سليم حاصبيا *************** جدول أرقام سليم حاصبيا *************** التغلب على الدالة Match سليم حاصبيا *************** كيف تجعل زر الأمر يتحرك سليم حاصبيا *************** استخراج الارقام أو الأحرف او الكلمات من نص سليم حاصبيا *************** اختيار عشوائي سليم حاصبيا *************** الزام المستخدم بالكتابة بالترتيب في نفس الصف داخل الجدول سليم حاصبيا *************** الكتابة باحرف كبيرة أو صغيرة فقط سليم حاصبيا *************** الفورم السحري إضافة حذف تعديل ترحيل تحميل الصور و طباعة شوقى ربيع *************** فورم حاسبة القروض ضاحى الغريب *************** الحنين الى VBA بنكهة C# برنامج الموردين شوقى ربيع *************** برنامج الموردين معدل (متوافق مع win7) شوقى ربيع *************** كتابة جدول مرتب ابجدياً سليم حاصبيا *************** كيف نحدد تاريخ الأحد القادم و الأحد السابق لاي تاريخ محمد طاهر *************** تحديد الصفّوف المكررة سليم حاصبيا *************** تحديد الصفّوف المكررة ( تابع) سليم حاصبيا *************** ٍكيف نحصل على Timer بسيط سليم حاصبيا *************** من مقالب نيسان في Excel سليم حاصبيا *************** التاريخ في الكومبو بوكس سليم حاصبيا *************** كيف نقوم بفلترة نطاق بواسطة UserForm واخنيار ما نريد من الفلتر سليم حاصبيا *************** مكتبة الموقع - مؤشر تقدم العمل بتنسيق معين محمد طاهر ***************

برنامج نور التجاري والخدمي (هدية العام الهجري الجديد) ضاحي الغريب و شوقي ربيع ************** سلسلة : تعلم اكسل معي بالصوت والصورة محمد نصري ************** دروس فى VBA Excel _ نتعلم معا برمجه اكسل محمود الشريف ************** افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) ياسر خليل أبو البراء ************** سلسلة علمنى كيف اصطاد ( الفورم ) Forms حسام عيسى (صقر المنتدى) ************** فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد الأستاذ المخضرم / مجدي يونس **************

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

http://www.sheekh-3arb.net/3atter/salam_files/image002.gif ويستمر النهج بفضل الله http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (42) دالة ( تفقيط ) تحويل الرقم الى نص بالعربي خبور خير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (43) برنامج رواتب العاملين في التربية والتعليم سعيد بيرم http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (44) ترتيب العشرة الأوائل حسب الاسم والعمر(فورم) خبور خير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (45) دالة لاضافة صور من مجلد الى شكل تلقائي خبور خير http://www.sheekh-3arb.net/3atter/salam_files/image002.gif المواضيع الحديثة http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (46) فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به عبدالله باقشير http://i68.servimg.com/u/f68/14/58/38/08/1128110.gif الموضوع رقم (47) مُجمِع البيانات للاكسيل - Excel Data Collector محمد طاهر

السلام عليكم ورحمة الله وبركاته اخي هشام على خطاكم نسير الموضوع رقم(34) مجمع بيانات الإكسل محمد طاهر الموضوع رقم(35) مشروع توزيع الطلبة على الفصول خبور خير الموضوع رقم(36) دوال مستحدثة جديدة ( دوال البحث VLOOKUP متنوعة) عماد الحسامي الموضوع رقم(37) دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل عماد الحسامي الموضوع رقم(38) مواضيع خاصة بادراج الصور بالخلايا وما شابه هشام شلبي الموضوع رقم(39) موضوع تجميعي لدوال حساب السن جمال الفار الموضوع رقم(40) دليل الدوال المستحدثة لرواد منتدى أوفسينا عماد الحسامي الموضوع رقم(41) موضوع لتجميع الأعمال والمواضيع المتعلقة بالتحقق من الصحة عبدالله المجرب

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/ خبور خير/ الحسامي/  طارق ===================================== الموضوع رقم(15) تحويل دالة SUMPRODUCT الى كود VBA \ kemas \ zxzxzxzخبور خير ===================================== الموضوع رقم(16) شرح كتابة معادلة الإكسيل داخل كود فيجوال بيسك - فديو تعليمي kemas ===================================== الموضوع رقم(17) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba .. range .. cells .. offset الحسامي ===================================== الموضوع رقم(18) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء if ....case ...switch ...choosم الحسامي ===================================== الموضوع رقم(19) دورة للمبتدئين في عالم البرمجة YasserKhalil ===================================== الموضوع رقم(20) امتلك منتدى وموقع ومدونة مجانا خالد القدس ===================================== الموضوع رقم(21) كود للشهادات يمكن تطبيقه على اي شهادات خبور خير ===================================== الموضوع رقم(22) برنامج طلبات الشراء ابو عبدالله ===================================== الموضوع رقم(23) هيا معاً : نتفاعل - نشارك - ننتج – نرقى ... ابو عبدالله ===================================== الموضوع رقم(24) مشروعات:01:تقليل هالك الحديد TareQ M ===================================== الموضوع رقم(25) مشروعات : 02 - برنامج الحسابات مع مراكز التكلفة أبو عبدالله ===================================== الموضوع رقم(26) مشروعات : 03 - نظام محاسبة ومخزون مطاعم وفنادق هاني بدر ===================================== الموضوع رقم(27)   درس في الترحيل باستخدام الاكواد ... هدية شهر رمضان كل عام وانتم بخير   الحسامى ===================================== الموضوع رقم(28) ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته http://www.officena....opic=34088&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