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

استبدل في الكود ما موجود في المربع الأحمر بما بما هو موجود في المربع الأزرق اي احذف الرقم 2 (مع ترك الفاصلة) كما في الصورة ( في مكانين) على كل حال ارفع الملف لاكتب لك كود بسيط جداً حوالي 10 سطور و يمكن اقل

تفضل اخي الكريم ستظهر الرسالة المنبثقة عند الثانية 59 من كل دقيقة تستطيع تغيير التوقيت اما بالساعات او الدقائق أو كماهي عليه الأن بالثواني مثال_للرسائل_عند_عداد_الوقت.zip

تكمن المشكلة في عدد الحروف في السطر البرمجي حيث يتعدى الكود الخاص بإضافة جميع الأسماء في مصفوفة array العدد المسموح في السطر والحل هو تقسيم السطر إلى مجموعة من السطور البرمجية عن طريق المسافة و underscore ولقد قمت بعمل إجراء يقوم بإنشاء الكود الخاص بموديول1 في ملف نصي bas حتى يمكن استيراده لمحرر الأكواد بعد ذلك خالص دعواتي بالتوفيق mas_TransA2E.xlsb

وعليكم السلام -يمكنك ذلك بإستخدام الدالة المعرفة Function COUNTCOULREDCELLS(CriRange As Range, MCri As Range) As Long Dim c As Range Dim CountC As Long Application.Volatile For Each c In CriRange If c.Interior.ColorIndex = MCri.Interior.ColorIndex Then COUNTCOULREDCELLS = COUNTCOULREDCELLS + 1 End If Next c End Function ويكون ذلك بهذه المعادلة كما بالمرفق =COUNTCOULREDCELLS($D$2:$J$31,K$1) إمامه1.xlsm

تفضل هذا التعديل اخي الكريم الامان1.accdb

جرب هذا الكود Option Explicit Dim sh As Worksheet Dim Other_sh As Worksheet Dim Rg As Range Dim All_RG As Range Dim lc%, i%, Ro%, Arr(), itm '+++++++++++++++++++++++ Sub creat_shett() Set sh = Sheets("Sheet1") lc = sh.Cells(Rows.Count, 3).End(3).Row For Each Rg In sh.Range("C2:C" & lc) If Rg.Value <> "" Then If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then sh.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Rg.Value End If End If Next add_data End Sub Sub add_data() Set sh = Sheets("Sheet1") For Each Other_sh In Sheets If Other_sh.Name <> "Sheet1" Then ReDim Preserve Arr(i) Arr(i) = Other_sh.Name i = i + 1 End If Next For Each itm In Arr Set Other_sh = Sheets(itm) With Other_sh Set All_RG = .Range("A1").CurrentRegion Ro = All_RG.Rows.Count If Ro > 1 Then Set All_RG = All_RG.Offset(1).Resize(Ro - 1) All_RG.Clear End If .Range("Z1") = sh.Cells(1, 3) .Range("Z2") = .Name sh.Range("A1").CurrentRegion.AdvancedFilter 2, _ .Range("Z1:Z2"), .Range("A1:d1") .Range("Z1:Z2").Clear End With Next End Sub الملف مرفق Hasan_rady.xlsm

بنفس الطريقة ولكن نعكس الجداول والاستعلامات تفضل انظر الى الاستعلامات والنماذج الجديدة db1.rar تخياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بعد الاتفاق مع الاخ سيف الدين وردنا على استئذان اخونا / megonil ونقول له ان نحن اسرة واحدة مكملين لبعضنا البعض وقد بادرت بجمع الملفين مع بعض واضفت بعض الميزات الجديدة وهي : 1- شاشة دخول وخروج مع اخفاء القوائم واشرطة الادوات وامكانية الحفظ والخروج واظهار القوائم واشرطة الادوات 2 - وضعت الاستعاذة والبسملة قبل بدء البرنامج 3 - تنبيه (اثناء البحث وفي حالة انك لم تضع كلمة البحث وضغطت زر بحث) 4 - تنبيه (اثناء البحث وفي حالة عدم ظهور نتائج للبحث ) 5 - تلوين الكلمة هدف البحث باللون الأحمر اثناء رؤيتها في الملف وفي الاستخدام مايغني عن الشرح تفضلوا المرفق ولا تنسوا الدعاء لكل من ساهم في هذا الملف ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور _____________________.rar

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

وفقنا الله جميعا لكل ما يحبه ويرضاه

الله عليك يمبدع تستاهل 10 نجوم مو عارف كيف اشكرك

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

اعتذر عن الخطأ اخي الكريم يجب الحفظ بعد العملية تفضل التعديل متاخرات (1).rar

الخطأ يكمن فى ان تنسيق معادلة جمع القروش نص وليس رقم فبالتالى ظهرت بهذه الطريقة 11452.xlsb

لديك حقول بها عمليات حسابية فلا تضع لها قيمة "" لتفريغ محتواها فقط اتركها بدون قيمة وستاخذ قيمتها تلقائيا من العملية الحسابية مثل [Text98] = "" [Text99] = "" [Text24] = "" فاتورة معدلة.rar تحياتي

تفضل اخي الكريم APE_OK123.rar تحياتي

وعليكم السلام-جرب هذا الموقع https://convertio.co/ar/xls-csv/ أو هذا https://onlineconvertfree.com/ar/convert-format/xls-to-csv/

تفضل هذا المثال وضعت لك مثالين لسحب الصورة من الماسح الضوئي و جلب صورة من الكمبيوتر Database12222.mdb

اخي الكريم تفضل هذا الكود البسيط لجلب الصورة من الماسح الضوئي Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) filepath = CurrentProject.Path & "\" & "SCAN" & "-" & Format(Now, "dd-mm-yyyy" & "-" & "hh:mm") & ".jpg" Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [اسم مربع عنصر التحكم لوضع لتخزين المسار] = filepath errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

بدايتك في تعديل المرجع الخاص بالاسم المعرف xxx الموجود في شيت data_validation بدلا من k10:k17 إلى k10:k20 ثم تضيف عناوين الاعمدة المطلوبة في مكانها في هذه القائمة

في حال كان عدد الصفوف كبيراً (اكثر من 10 ) وقتها يجب ان نعين الكثير من المتغيرات S1/S2/....... /S20 و أرى ان هذا الأمر يأخذ كود طويل جداَ لذلك اقترح هذا الكود الذي يحدد اوتوماتيكياً عدد الصفوف و يحمعها في Array Option Explicit Sub Free_summation_1() Dim M As Worksheet Dim M_index Dim t%, k% Dim lr% Dim Arr() lr = Sheets("Jan").Cells(Rows.Count, 2).End(3).Row For k = 2 To lr ReDim Preserve Arr(k - 2) Arr(k - 2) = 0 Next Set M = Sheets("Month") M_index = M.Index If M_index = 1 Then Exit Sub If M_index > 12 Then M_index = 13 For t = 1 To M_index - 1 For k = LBound(Arr) To UBound(Arr) Arr(k) = Arr(k) + _ IIf(IsNumeric(Sheets(t).Range("B" & k + 2)), _ Sheets(t).Range("B" & k + 2), 0) Next k Next t M.Range("B2").Resize(UBound(Arr) + 1) = _ Application.Transpose(Arr) End Sub ما أقصده في هذا الملف Moustafa_extra.xlsm

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

اعد تثبيت اوفيس من جديد وتأكد من اعدادت اللغة في ويندوز تحياتي

1- من ايت يأتي لك الاكسل بالورقة رياضيات وهي ليست موجودة ضمن الأوراق 2-يظهر انك تستعمل اصدار قديم من اكسل ليس فيه العامود MM 3- في هذه الحالة يمكن الاستعانة بأي عامود غير MM مثلاُ Z لاحظ الصورة فيصبح الكود بهذا الشكل Option Explicit Sub My_Ad_filter() Dim Rg As Range Dim Cret_rg As Range Dim arr, itm Application.ScreenUpdating = False arr = Array("عربية", "فيزياء", "فرنسية") Set Rg = Sheets("g").Range("A14").CurrentRegion For Each itm In arr With Sheets(itm) .Range("A14").CurrentRegion.ClearContents .Range("Z1") = "المادة" .Range("Z2") = itm Set Cret_rg = .Range("Z1:Z2") Rg.AdvancedFilter 2, Cret_rg, .Range("A14") Cret_rg.ClearContents End With Next Application.ScreenUpdating = True End Sub الملف مرفق H_2611 -2.xls

السلام عليكم أستاذd الفاضل: إلم تكن توصلت إلى طريقة لإظهار الجهاز على الشبكة، فهذا الخطوات قد تحمل الحل-إن شاء الله-: services >> Discovery : set the function to Automatic then start SSDP : set the function to Automatic then start upnp : set the function to Automatic then start على الأغلب هذه الخدمات كلها أو بعضها غير مفعلة في نسخة الويندوز في الحاسب الذي لا يظهر على الشبكة-بناء على تجرية سابقة لي-، وعلى أية حال قم بضبظها أوتماتيكياً على حاسبيّ ويندوز 10. هذا إن كانت إعدادات المشاركة المتقدمة قد ضبطت بالصورة المناسبة ولم تأتِ بالنتيجة المنشودة. بالتوفيق.

تفضل اخى الكريم نفس ملف استاذنا الكريم سليم وتم تعديل المطلوب protect first column.xlsm

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

تم التعديل على الماكرو ليتناسب مع الوضع (كلمة السر pass) بشرط احتواء الخلية AA1 على الرقم 1 (غير مرئي) الكود يعمل فقط في العامود A لفك الحماية امسح الخلية AA1 و لاعادتها ارجع قيمتها الى 1 protect first column.rar

والكمية ما تخلص طبعا هذي ميزة أوفيسنا ( كلمة شكر ) أول شي جزا الله كل خير لأخوانا المشرفين والأعضاء إلي ما يقصرون بكل معلوماتهم لمساعدتنا في كل صغيرة وكبيرة . ثانيا : أبي أتكلم عن البرنامج : البرنامج هذا لمتابعة جميع حركات حساباتك (بالمختصر المفيد) أول مشاركة وإنشاء الله تعجبكم وإدعولي زين ______________________________.zip

الكود التالي يعمل فقط في المجال A1:C10 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 3 And Target.Row < 11 Then Me.Unprotect "ali" Target.Cells.Locked = True Target.Cells.FormulaHidden = True Me.Protect "ali" End If End Sub شاهد المرفق، _________________________________________.rar