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

اولا يجب ان تعمل تركيز على نموذج الفرعي وبعدين على حقل تيكست بوكس Me.FrmNameSub.SetFocus FrmNameSub!NameTxtbox.SetFocus

السلام عليكم نقدم لكم مكتبة الأكسيس حصاد السنين الاصدار الرابع نسال الله القبول الاصدار V4 https://drive.google.com/file/d/1Ff6hW3ujEmtQ6hvz4fa32BGNZv_Dr4xs/view?usp=sharing والاصدار v4.1 https://drive.google.com/file/d/16bCBvALoJ_kl4wSedAqEAb50m6sJrTiC/view?usp=sharing

بسم الله والصلاة على اشرف خلق الله سيدنا محمد صلى الله عليه وسلم السادة الكرام مشرفين وأعضاء كل الشكر والتقدير لكل من ساهم في انجاز هذا البرنامج برنامج النور هو برنامج محاسبة فقط دون مواد ومستودعات وإن شاء الله إن أحياني الله سيكون هناك برنامج محاسبة ومستودعات ====== *البرنامج أسلوب جديد في تنزيل البيانات وخاصة ميزة استخدام البرنامج بالكيبورد فقط 95% دون استخدام الماوس(هدية للمحاسبين الذين يحبون استخدام الكيبورد فقط) وكذلك ميزة البحث عن اسم حساب في فورم بحث وليس قائمة منسدلة كومبوبكس *في البرنامج فواتير شراء – بيع - مرتجع شراء – مرتجع بيع – حسم ممنوح – حسم مكتسب – قيد يدوي – سند قبض.دفع *كما يوجد كشف حساب مع إمكانية تعديل أي فاتورة أو قيد وأنت ضمن فورم كشف حساب مع إمكانية معاينة الكشف أو طباعته بما في ذلك ترويسة وشعار الشركة *كما يوجد كشف بجميع الحسابات مع الأرصدة (ميزان مراجعة). ومن خلال هذا الكشف يمكنك تعديل اسم حساب أو رقم هاتفه أو عنوانه أسال الله العظيم أن يكون فيه النفع لكل المسلمين كلمة المرور 1 واجهة البرنامج لتعديل أي فاتورة او دفعة او اي قيد حدد السطر الذي يحتوي على رقم القيد ثم اضغط على تعديل البرنامج في المرفقات برنامج النور للمحاسبة.rar

السلام عليكم وحمة الله وبركاته تظهر لي هذه الرسالة فكيف يمكننى الكشف في هذا الملف عن الخلايا به المرتبطة بمصادر الخارجية أي: كيف يمكننى معرفة أي الخلايا هي المرتبطة بمصادر خارجية؟

ما بعرف

وعليكم السلام ورحمة الله وبركاته تقدر اخي الكريم غير الحقل من رقمي الى نص ومن خانه القناع تقدر تحط النسق الي انت حاب Database31.rar

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

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

شوف هذا الرابط ، تم مناقشة نفس الموضوع جعفر

السلام عليكم 1- إضافة إظهار صندوق اختيار (اختيار القسم الذى يتم فيه التعديل على الملفات المختلفة فى المجلد) بخلاف ما يتم عامة : الكود الحالي يقوم بالاستبدال لكل اوراق العمل ، اذا اردت اظهار رسالة لاختبار اسم ورقة العمل ، فسيعمل الكود على ورقة عمل واحدة فقط بدلا من الجميع في الوضع الحالي 2- فى التغييرات يتم الاخذ من أول قسم 1 (Div.01) وإذ لم يوجد يكمل فى باقى الشيتات بعدها وكما ظهر لسيادتكم فى الملف المرفق ما حدث للشيت الـ Cover فى الخلية A1 : اذا اردت اسثناء ورقة عمل او اكثر اسمها محدد مسبقا فهذا ممكن 3- يعمل على الملفات بدون النظر الملف به حماية أو لا : لا اعتقد ان هذا ممكن 4- لا يتم الدخول على المجلد الذى به الملفات (لان المجلدات بها مجلدات أخرى - لانها شجرة - من المجلدات ولكنها خاصة بمشروع واحد) وإنما يتم الدخول على المجلد الرئيسى : أتصور أن هذا ممكن 5- يحول الملف إلى صيغة PDF : يحوله لا اعتقد ، و لكن أتصور من الممكن حفظه بهذا التنسيق كملف اضافي و ليس معني تصوري ان هذا ممكن اني اعرف الحل ،و لكن ساحاول باذن الله ، و فى انتظار مساهمة باقي الاخوة وأتوقع مساهمات و حلول و أفكار مميزة

تم تعديل المشاركة اعلاه ، و اضافة معادلة الطرح و 0.5 هنا تعني نصف يوم

إن شاء الله سأحاول عمل ذلك ان امكنني برمجتها

السلام عليكم المشكلة فى ملفك هي وجود مسافة زائدة قبل النص للتغلب عليها =MID(A7,2,2)&":"&MID(A7,5,2)&":"&MID(A7,8,2) أو =RIGHT(A7,8) مرفق الملف به المعادلتان Date2Txt.zip

السلام عليكم فاتورة شراء وبيع المعدلة تم اضافة كشف العميل تحياتي محمد علي الطيب فاتورة شراء وبيع المعدلة.rar

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

هذا الكود يمثل جزء مما طلبت و ليس كله فبتشغيله تقوم بتحديد الكلمة المراد استبدالها ، ثم الكلمة البديلة ، ثم تحدد المجلد فيقوم الكود بفتح الملف و استبدال الكلمة و الاغلاق لكل الملفات الموجودة فى المجلد على التوالي Sub ReplaceInFolder() Dim strPath As String Dim strFile As String Dim wbk As Workbook Dim wsh As Worksheet Dim strFind As String Dim strReplace As String strFind = InputBox("Enter text to find") If strFind = "" Then MsgBox "No find text specified!", vbExclamation Exit Sub End If strReplace = InputBox("Enter replacement text") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strPath = .SelectedItems(1) Else MsgBox "No folder selected!", vbExclamation Exit Sub End If End With If Right(strPath, 1) <> "\" Then strPath = strPath & "\" End If Application.ScreenUpdating = False strFile = Dir(strPath & "*.xls*") Do While strFile <> "" Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False) For Each wsh In wbk.Worksheets wsh.Cells.Replace What:=strFind, Replacement:=strReplace, _ LookAt:=xlWhole, MatchCase:=False Next wsh wbk.Close SaveChanges:=True strFile = Dir Loop Application.ScreenUpdating = True End Sub المصدر الملف للتجربة Replacer.zip

السلام عليكم استعمل هذا الكود في حدث عند النقر على القائمة المنسدلة: Me.no = Nz(DMax("[no]", "[tbl]", "[type]='" & Me.types & "'"), 0) + 1 بحيث me.types اسم القائمة المنسدلة tbl اسم الجدول type اسم حقل النوع

حل ربما يفي بالغرض عن طريق الـ conditional formatting بحث.rar

اتفضل التعديل المشكله كانت بمسميات النموذج الفرعي في الكود Alkmiah وفي النموذج الكميه تعديل الفاتوره 1.rar

:: فقط تأكد من مصدر بيانات النموذج والحقول وتعديل الكود الخاص بالزر ... If Me.Text39 = Me.SerialNumber Then Me.Text5.Visible = False Else Me.Text5.Visible = True End If

الملف مع التعديل الملف مع التعديل Select_data_by_columns_1.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

يمكن عن طريق استبدال ctrl + h يتم نسخ الأقواس الزائدة (((( ولصقها في خانة (البحث عن) وفي خانة استبدال بــ: (تترك فارغة) وعمل استبدال للكل سيتم حذف هذه الأقواس الزائدة ونفس الكلام للأقواس الأخرى ))))

أخى الكريم وعليكم السلام ورحمه الله وبركاته جزيتم عنى خير الجزاء ونسأل الله عز وجل أن يفك كرب اليمن وأهل اليمن بلد الأستاذ العلامه // عبد الله باقشير ، وأن يحفظه هو ومن يحب وأهله من كل سوء -------------------------------- بالنسبة لعملية البحث فى الفورم تكون بأى حرف أو بأى رقم بأى عمود من أعمده الليست بوكس فهذه طبيعة الكود الموجود بالتكست بوكس 1 ----------------------------- أما فيما يختص بعمليه التقليص على حرف ،، فمن وجهة نظرى أنها غير عملية وليس لها أى مدلول أو هدف بل تزيد من صعوبة البحث وتجعل البحث قاصر على عمود واحد فقط لاغير -------------------- فهدف البحث بهذا الفورم هو التسهيل على من يقوم بإجراء عملية البحث حتى يصل إلى أقرب نتيجه بل إلى أدق نتيجه ممكنه فممكن القائم بعملية البحث ينسى كود الصنف ويتذكر أسم الصنف أو العكس وبالنهاية هل وصلك ما أريد إيصاله لكم أخى الكريم --------------- وتقبل منى وافر الاحترام والتقدير

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

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

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

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل (((( تابع / الدرس الثاني )))) اولا احب ان قدم كل الشكر والعرفان للخلوق الكريم الراائع الخبير / عبد الله باقشير ... جزاه الله خيرا ... وزاد له في علمه وبارك له فيه افادني بهذا الكود التالي ومن شدة كرمه وجمال اخلاقة وحرصة علي افادة الجميع بكل معلومة ولكنه اراد ان اقدمه انا لترتيب الموضوع علي طريقتي ... وهو بالطبع اقدر ومشاركته واضافته للموضوع بلا شك اضافة وشرف للموضوع ولصاحب الموضوع اسألكم الدعاء له بظهر الغيب ====================================== مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة وسنتعرف في هذا الدرس علي العمليات الحسابية والتفقيط داخل فورم الفاتورة وطريقة وضع اكوادها ولكن هذه المرة وفي هذا الملحلق باستخدام (( الطريقة الباقشيرية الخبورية الرااائعة )) والتي تختصر الكثير من الكود المستخدم سابقا وطبعا في منتهي الدقة ... ولكن يجب الآخذ في الاعتبار انها علي اساس تسمية التكستات كما سبق شرحة في الدرس الاول =============================== واليكم الكود بدون الشرح والشرح في الملف المرفق في محرر الاكواد وكما تعودنا تم شرح الكود سطر سطر ارجو من الله ان اكون وفقت في شرح الكود فقد تم شرحه علي عجل حيث اردت ان يصل اليكم بمجرد وصوله لي من القدير الكبير وان اكون عند حسن ظن استاذي العملاق الخبير / عبد الله باقشير 'UserForm_MouseMove يتم وضع الكود في حدث الفورم عند تحريك الماوس Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim r As Integer Dim iSum As Double For r = 1 To 5 Me.Controls(Cells(r, "E").Address(0, 0)) = Val(Me.Controls(Cells(r, "C").Address(0, 0))) * Val(Me.Controls(Cells(r, "D").Address(0, 0))) iSum = iSum + Val(Me.Controls(Cells(r, "E").Address(0, 0))) Next '=========== TextBox31.Value = iSum '=========== TextBox33.Value = Val(TextBox31) - Val(TextBox32) '=========== Label3 = NoToTxt(TextBox33.Value, "جنيهاً", "قرشاً") '================================================= End Sub ارجو أن وفقني الله في الشرح وان اكون عند حسن ظنكم اعتذر عن الاطاله ولكن يجب ارجاع الحق لاصحابة الحقيقيين جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها( باقشيرية )اكسيل .rar

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

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل المرفقات عدد ( 2 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة حيث لم اتمكن من اضافتهم في المشاركة الاولي نظرا للمساحة المخصصة لكل عضو ( حسب علمي ) فيديو2 .. طريقة عمل شاشة ادخال 2.rar شاهد النتيجة فيديو3 .. طريقة عمل شاشة ادخال 3.rar