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

=IF(SUM(--($H$5:H5=H5))>INDEX($D$5:$D$7;MATCH(H5;$C$5:$C$7;0));0;1) مع الضغط علي CTRL+SHIFT+ENTER

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

بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف مع تحياتى و تقديرى للجميع مجرد شخبطه على الحيط مما تعلمته من المنتدى البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات مرفق البرنامج مع الشرح لاتنسونا من صالح الدعاء ECO2_DuClick_store.rar

تصحيح الكود أولاً انت كتيت متزوج في الورقة 2 و متروج في الورقة 1 و هذا اجد الاخطاء الماكرو المناسب Sub my_filtter_tarheel() Dim myrng1 As Range, myrng2 As Range Set myrng1 = Sheets("mydata").[A1:f2] Set myrng2 = Sheets("Sheet1").Range("a1").CurrentRegion Sheets("mydata").Range("A5").CurrentRegion.ClearContents myrng2.AdvancedFilter 2, myrng1, Sheets("mydata").Range("A5") Set myrng1 = Nothing Set myrng2 = Nothing End Sub الملف مرفق salim_tarhil.xlsm

بعد اذن الاستاذ على اثراء للموضوع حل بطريقة اخرى فصل الاسم الاول عن الاسم الثانى.xls

وعليكم السلام تفضل كشف حضور وغياب1.xlsm

أنت عاوز نفس الالوان اللى فى كود ا/شوقى استخدم نفس الكود بس اعكس الالوان علشان يكون الكود بالشكل دا Sub MM() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then Cells(G, 2).Interior.ColorIndex = xlNone Cells(G, 3).Interior.ColorIndex = xlNone Cells(G, 9).Interior.ColorIndex = xlNone MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") Cells(G, 2).Interior.ColorIndex = 40 Cells(G, 3).Interior.ColorIndex = 42 Cells(G, 9).Interior.ColorIndex = 40 End If End If Next End Sub

بعد اذن استاذ شوقى رجع الالوان للخلايا اللى عاوزها واستخدم الكود بالشكل دا Sub MM() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") End If End If Next End Sub

=CONCATENATE(C4;" ";C5;CHAR(10);D4;" ";D5;CHAR(10);E4;" ";E5)

بعد اذن اخي الوزير If Me.جدول2.Form.ActiveControl.Name = "دائن" Or Me.جدول2.Form.ActiveControl.Name = "مدين" Then MsgBox ("يجب عليك الخروج من حقل المدين او الدائن اولاً") مع التنبيه انك بالضغط هلى الزر قد خرجت في الاصل من العنصر تحياتي

تفضل اخي نموذجك بعد التعديل TEST.mdb

كنت سكتب لك حل السؤال الاول FORMS!Formain!subform!filed وسبب الخلل .. انك حين وضعت النموذج الفرعي داخل الرئيسي وجب ان تدرج اسم النموذج الرئيس داخل الكود فكأنك تقول : اذهب الى : النماذج / النموذج الرئيس / النموذج الفرعي / الحقل السؤال الثاني خاص بالبحث والفلترة .. يستحق منك موضوع جديد

السلام عليكم على سبيل المثال لو أردنا دمج الخلايا A2 و B2 و C2 في الخلية D2 بهذه الطريقة نكتب المعادلة التالية في الخلية D2 : =A2&CHAR(10)&B2&CHAR(10)&C2 ونطبق على الخلية D2 خاصية "Wrap Text" (بالعربية "التفاف النص" وبالفرنسية "Renvoyer à la ligne automatiquement")... الدالة CHAR يقابلها بالفرنسية CAR بن علية حاجي

الاخ العزيز صالح دعواتى لك بالتوفيق والنجاح ان شاء الله وربنا يوفقك فى كل ما تصبوا اليه واشكرك على المداخلة الجميلة رغم مشغولياتك وتم العمل بنجاح واكرر الشكر لحضرتك

تفضل عزيزي استخدم الوحدة النمطية التالية في النموذج الخاص بك Public Function CheckFocusCtrl() On Error Resume Next If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)") Else End If End Function ثم قم باستدعائها تحت زر الامر الذي تريد هكذا: CheckFocusCtrl مع ملاحظة حقول: A , b هي الحقول التي على أحدها المؤشر فقم بتغييرها بمسميات حقولك

جرب هذا الملف مطلوب تصفية مع ترحيل بيانات مع دمج البيانات macro.rar

السلام عليكم الآن ننتقل الى كود XML وكيفية انشاءه. كود XML لتخصيص شريط ادوات يبدأ ب <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> هنا نضع الكود الخاص بانشاء شريط الادوات <tabs> </ribbon> </customUI> طبعا انا هنا لن اتطرق لمفاهيم لغة XML لان هذا ليس موضوعنا كما اننى لا اعرف عنها الكثير ساشرح فقط ما نحتاجه لتخصيص شريط الادوات اولا نفتح CustomUI ونغلقه كما بالكود اعلى وبداخله نفتح Ribbon ونغلقه وننتبه لحالة الاحرف فى بداية Ribbon نكتب "StartFromScratch="false وهذه الخاصية اذا ضبطت على False تقوم بعمل الشريط بعد الاشرطة الافتراضية اما True تقوم باخفاء الاشرطة الافتراضية بعد ذلك نكتب الكود التالى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> rRibbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true"/> </tab> </tabs> </ribbon> <CustomUI> هذا الكود يقوم باضافة tab جديد حيث customTb1 المعرف الخاص بالشريط MY NEW TAB الاسم الذى يظهر للمستخدم Visible="true" عملية اظهار الشريط الجديد ثم نقوم باضافة المجموعات الخاصة بالشريط بنفس الطريقة حيث نستبدل TAB ب Group <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true" > <Group id="CustomGR1" Lable="My Group"> </Group> </tab> </tabs> </ribbon> </customUI> نضيف المجموعة customGR1 المعرف الخاص بالمجموعة MY Group الاسم الذى يظهر للمستخدم قوموا بتنفيذ هذه الخطوات ثم اغلاق قاعدة البيانات ثم اعادة فتحه و قوموا بالذهاب الى options واختيار Current DataBase ومن ثم فى جزء Ribbon And Tool Bar Options اختار الشريط الذى قمنا بتصميمه ان شاء الله فى المشاركة القادمة نشرح كيفية اضافة الادوات والازرار الى الشريط والمزيد من خصائصها وبعدها ان شاء الله نشرح كيفية التحكم فى وقت فتح هذه الاشرطة سواء تخصيصها لفورم معين او فتحها عند فتح البرنامج وهذه القاعدة تنفيذ لما تعلمناه وهذا الكود النهائى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> Ribbon Customization Using XML.rar ملاحظات : 1- يجب الالتزام بحالة الاحرف الكبيرة والصغيرة 2- <ribbon>,<tab>,<group> هذه الاشياء تسمى فى لغة XML الاوسمة ومعظمها يفتح ثم يغلق ويفتح <الاسم> ويغلق <الاسم/> 3- لغة XML ليس لها اوسمة مخصصة شجعونى بآرائكم ومن كانت عنده زيادة او انتقاد او سؤال فلا يبخل علينا به

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

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