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

بعد اذن الجميع هذه داله لإثراء الموضوع داله MID المصنف1.xlsx

بعد اذن الاخ عبدالله هذا الكود Sub test_please() Range("A1").CurrentRegion.Offset(, 1).ClearContents i = 1 Do Until Range("A" & i) = vbNullString Call SPLIT_ME _ (Range("a" & i), "(\D)(\d{4})[0]+(\d{3})(\d{3})", i, 2) i = i + 1 Loop End Sub '+++++++++++++++++++++++++++++++ Sub SPLIT_ME(c As Range, pttrn As String, ByVal k%, m%) With CreateObject("VBscript.RegExp") .Global = True .MultiLine = True .IgnoreCase = False .Pattern = pttrn If Not .Test(c.Value) Then Exit Sub Set Results = .Execute(c.Value) For i = 0 To Results(0).Submatches.Count - 1 Cells(k, m) = Results(0).Submatches(i) m = m + 1 Next End With End Sub الملف مرفق Split_cells.xlsm

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

استاذي أحمد لا حاجة لهذا الكود الطويل المفصل بالنسبة لابجدة الجدول كما ان عمليات SELECT ترهق الاكسل بدون فائدة (الرجاء قدر الامكان الاستغناء عنها) يكفي هذا الكود الخفيف Sub sort_me() Range("A1").CurrentRegion.Sort _ key1:=Range("A1"), Order1:=1, Header:=2 End Sub

بعد اذن استاذنا الكبير سليم حاصبيا نحن لا نريد ان نضع لكل عضو الحل جاهزاً فبذلك لا يمكن ان تتعلم ابداً ,والغرض الأساسى من انشاء المنتدى هو التعلم ونشر العلم-فمن الأفضل عدم اعطائك السمكة ولكن تعلمك كيف تصطاد هذه السمكة فهناك عدة خطوات لتعلمك كيفية وضع ولصق الكود بمحرر الأكواد فى ملف الإكسيل وهذا الفيديو سيعلمك خطوات وضع الكود http://pakvim.net/watch/Cu4OCw8AYpE وهذا هو ملفك بعد وضع الكود به وحفظه بإمتداد Xlsm Book11.xlsm

من بعد اذن اخي واستاذي @kha9009lid اليك المرفق بعد اضافة الكود Test2.accdb

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

كما اوضح لك الأستاذ علي العيدروس يبدو ان اعدادات اللغة لديك غير مضبوطة على اللغة العربية لابد من تنفيذ الخطوات كما بالصورة وذلك من لوحة التحكم(Control Panel)

تفضل تم التعديل على الملف لكى تعمل المعادلات مباشرة بدون التدخل فيها فقط عليك بتغيير النسبة أعلاه فقط كما تريد (تكتب فقط رقم النسبة بدون اى اضافات بالخلية) وسترى عمل المعادلات وتغيرها مباشرة Stable Pressure Tolerances 3.xlsx

السلام عليكم بعد اذن اخونا الفاضل احمد بدره الحل بالكود (من اكواد عبدالله باقشير) تحياتي فك الخلية.xlsm

السلام عليكم ورحمة الله تفضل ما تريد إذا كنت قد فهمت المسألة.... بن علية حاجي Stable Pressure Tolerances 2.xlsx

كيفية عمل اله حاسبة calculator فى صفحة شيت الاكسل الفيديو

هل تحتاج تقرير مثل هذا xx.accdb

الشكر موصول للجميع اخي @rey360

اخي @Ali Sadiq ما يحتاج اذن بارك الله فيك حل جميل وموفق والاجمل منه مشاركتك واكمالك ما بدأته

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

Private Sub txt3_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Me.txt3.Value = Me.txt3.Text & Chr$(32) Me.txt3.SelStart = Len(txt3.Text) End If End Sub هذا الكود لعمل المسافة وتكملة البحث ان شاءالله يكون هو المطلوب

كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل رفع المشاركة فهناك المشاركات المتعددة التى تخص طلبك ومنها: ترحيل من صفحة الى عدة صفحات بإسم الصفحة ولكن تم عمل اللازم فى ملفك ترحيل على الشيتات1.xlsm

وعليكم السلام-تم عمل قائمة بأرقاء واكواد العملاء فبمجرد اختيار الكود سيظهر لك اسم العميل بهذه المعادلة =IFERROR(VLOOKUP(D7,Sheet1!$A$2:$B$2000,2,0),"") امر تسليم 1 CBS.xlsm

تفضل -ولكن ان لم يكن هذا هو المطلوب فعليك بتوضيح المطلوب اكثر من ذلك او جرب هذا الرابط به فيديو شرح كيفية عمل اله حاسبة  calculator فى صفحة شيت الاكسل المنتديات2.xls

الكتابة ظهرك معك بهذه الطريقة لأنك لم تحول اللغة إلى العربية قبل النسخ و قمت بالتعديل على الكود حتى يتسنى لك تشغيل الكود وإليك الملف بعد التعديل Sub Sort() Range("A1:E1001").Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A1001") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A1:E1001") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("F1").Select End Sub Split_cells.xlsm

لا شكر على واجب فكلنا أخوةوالمنتدى تعليمي بالدرجة الأولى

وعليكم السلام ورحمة الله وبركاته تم عمل وحدة نمطية لاستدعاء رابط الصورة في أي مكان سواء كان نموذج او تقرير وفي حدث الحالي او التحميل او الفتح Public Function DisplayImage(Imge As Control) As String On Error Resume Next Dim sImgPath As String Dim Pic As DAO.Recordset Dim Tbl As String Set dbs = CurrentDb Tbl = "SELECT * FROM [PicTable]" Set Pic = dbs.OpenRecordset(Tbl) sImgPath = Pic.Fields("PictureFld") '=====================She3araaat=================== If IsNull(sImgPath) Or sImgPath = "" Then Imge.Picture = "" Imge.Visible = False Else Imge.Visible = True Imge.Picture = sImgPath End If End Function يتم استدعاؤها هكذا: Call DisplayImage(Pic1) pic1 هو اسم التكست بوكس الخاص بمسار الصورة ويمكنك تغييره حسب المسار لديك الوحدات النمطية لفتح المستعرض للبحث عن الصورة كثيرة ومتعددة الاشكال وضعت لك وحدة استخدمها قديما وتفي بالغرض رغم ان هناك غيرها وبشكل مختصر تفضل المرفق Aziz.accdb

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

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

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

أحسنت استاذ مجدى وجزاك الله كل خير

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

السلام عليكم العفو اخ eyadm ولايهمك اي ملاحظات لاتتردد يفضل تغير المسمى لديك للعربي وشكرا تفضل المرفق غياب_A3 مع الغياب بعذر .xlsm

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

السلام عليكم جرب المرفق Book1_Ali1.xls

استاذنا / خالد ممكن توضيح Me.txt3.SelStart = Len(Me.txt3.Text) هل كلمة selstart دالة اريد ان اعرف معناها جزاكم الله خير

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

عن طريق dlookup مرة واحدة واستدعاء اي عدد من الحقول On Error GoTo ErrHandler Dim X() As String a = DLookup("[item_no] & '|' & [item]& '|' & [s_price]& '|' & [Quantity] ", "item", "[item_no]='" & [Item_No] & "'") X = Split(a, "|") Me.item = X(1) Me.s_price = X(2) Me.Quantity_Available = X(3) DoCmd.GoToRecord , , acNewRec ErrHandler: If Err.Number <> 0 Then Me.Undo MsgBox " باركود غير مسجل " End If End If عن طريق قائمة منسدلة Me.item = Me.Item_No.Column(1) Me.Quantity_Available = Me.Item_No.Column(2) Me.s_price = Me.Item_No.Column(3)

السلام عليكم جميعاً تحية طيبة عندي ملف للعمل الإضافي أضفت عليه تذييل صفحة تظهر عند الطباعة السؤال : بغيت أضيف اعتماد (Approve) إذا زادت قيمة مجموع الصف 60 أو أكثر (عامود AH) داخل الجدول طبعا وليست المجموع النهائي سواء بكود أو خلية مساعدة أو أي طريقة شكرا لك من مر من هنا وأخص بالشكر والدعاء من ساعدني على حل المشكلة تحياتي Ot.xlsx

السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي العيدروس فكرة اخرى اضف ورقة و انا هنا سميتها وصولات (2) ثم استخدم = وصلات A1 يعني نسخة للورقة الاولا بدالة بسيطة و اجعل الطباعة من و رقة وصولات (2) في الكود كما في المرفق طبع وصولات - وصلين.xls

لأن هذه معادلة مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

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

السلام عليكم جرب المرفق غياب_A2 مع الغياب بعذر .xlsm

جرب هذا الماكرو الضغير Sub my_code() Range("A1:A" & Cells(Rows.Count, 1).End(3).Row + 4) _ .SpecialCells(4).Formula = "=A1" End Sub

تستطيع تجربة الكود التالي حسب الحدث المناسب لقاعدة بياناتك: If Right(CurrentProject.Name,5)<>"accdr" Then QuitAccess Options Exit End If بنفس طريقة الأستاذ عصام لكن هنا يعتمد على الامتداد وليس الاسم كامل

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

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

و عليكم السلام و رحمة الله و بركاته أخي الكريم الأستاذ / محمود الشريف جزاك الله خيرا - و جميع الأساتذة الذين تعلمنا منهم الكثير و مازلنا - و نفع بكم جميعا موضوع رائع بارك الله فيك

السلام عليكم و رحمة الله ما شاء الله إبداعات جميلة من الأخ بن عيلة جزاه الله كل خير ====================== و هنا طريقة أخرى لتلوين الأسطر و الأعمدة قم بتحديد المدى الذي ترغب في تطبيق التنسيق عليه و من ثم اكتب هذه المعادلة في التنسيق الشرطي =OR(CELL("row")=ROW(),CELL("col")=COLUMN()) و من ثم في رايت كليك على اسم الصفحة و اختر view code و اضف هذا الكود البسيط Private Sub Worksheet_Selectionchange(ByVal Target As Range) Application.ScreenUpdating = False End Sub و سيتم تلوين الأسطر و الأعمدة داخل هذا الجدول أما إذا كنت تريد فقط تلوين الأسطر استبدل المعادلة أعلاه بالمعادلة التالية =CELL("row")=ROW() و الحالة الثالثة إذا كنت تريد فقط أن تلون الأعمدة استبدل المعادلة بالتالي =CELL("col")=COLUMN() =============== أتمنى أن تكون المعلومة مفيدة لك نسأل الله لنا و لكم العفو و العافيه يحيى حسين - تنسيق شرطي.rar

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

أشكركم جميعاً على مقترحاتكم .. وأتمنى أن نتعاون جميعاً لتطوير العمل * أخي الغالي " إكسيلجي " مرفق نسخه مفتوحه بدون كلمات سر .. أرجوا أن نوفق جميعاً للتطوير ليستفيد الجميع Bank_Ver_3.0.zip

من لديه أوفيس 2007 يمكنه تحميل البرنامج المرفق المرفق سيكون بإمتداد أكسيل وليس exe ولهذا سيعمل بدون مشاكل بإذن الله فقط تذكر أن تخفض مستوى الأمان لديك في الأكسيل إن كان مرتفعاً وفقكم الله Bank_Ver_3.0.zip

مرفق نسخه من البرنامج بتفقيط الجنيه المصري .. النسخه السابقة تفقيط الريال السعودي Bank.zip

السلام عليكم 1 - اعمل تقرير بحجم A5 أي نصف A4 2 - اعمل تقرير فارغ بحجم A4 و أضف تقرير فرعي هو التقرير في المرحلة 1 3 - بعد أن تتأكد من أن التقرير الفرعي جاهز ويحتل نصف الصفحة قم بنسخه مرة ثانية في التقرير 4 - ارسم خط ليكون فاصل بين التقريرين الفرعيين شاهد المرفق والسلام عليكم Rep.zip