البحث في الموقع

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

برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله برنامج تسجيل التحاليل الطبية ************************ برنامج مجانى لكل مريض و لكل طبيب يعالج مرضاه بالمجان ************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=szAFJNL2CEU&feature=youtu.be ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx?id=10910 ****************************************************** رابط تحميل برنامج تسجيل التحاليل الطبية http://www.mediafire.com/download/yf7bh9mmiy3f8hr/%D8%AA%D8%B3%D8%AC%D9%8A%D9%84+%D8%A7%D9%84%D8%AA%D8%AD%D8%A7%D9%84%D9%8A%D9%84+++.accdb ****************************************************** اسم المستخدم : الحمد لله كلمة السر : الحمد لله

السلام عليكم ورحمته الله وبركاته بالمرفق التالى بيان أسعار بطريقة التليحق تم فى موضوع سابق بمعاونة زملائى الافاضل إخفاء المدى =فاتورة!$F$8:$J$37;فاتورة!$A$38:$J$38 عند طباعة النسخة الاولى ومن ثم إظهاره بداية من النسخة الثانيه فهل من سبيل لتعديل الكود المبين بالموديل رقم 3 بهذا الجزء من الكود End With Application.Goto Reference:="del_range" Selection.NumberFormat = ";;;" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Application.Goto Reference:="del_range" Selection.NumberFormat = "00" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Range(Cells(lr + 1, "B"), Cells(lr + 1, "C")) = "" End Sub ليشمل إخفاء تذييل بيانات بيان الاسعار "الذى يتم نسخة من الورقة data " واجمالى ماقبله على ان يتم اخفاؤهم عند طباعة النسخة الاولى ومن ثم إظهارهم مرة أخرى بداية من النسخة الثانية او كما يترأى لحضراتكم من تعديل وذلك كلما فتحنا بيان جديد وذلك بالضغط على F2 بالاضافة الى 2 انتر " الاولى لنسخ التذييل والثانية لنسخ الجدول " أرجو بأن لاأكون مثقلا على حضراتكم ولله الأمرمن قبل ومن بعد وافر تقديرى واحترامى وجزاكم الله خيرا طباعة بشرط إخفاء تذييل بيان أسعار عند طباعة النسخة الاولى.xlsb.rar

السلام عليكم الأساتذة الافاضل يوجد كود للطباعة يعمل بشكل جيد ( Sub الصف_كل() Range("h1").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$h$3:$O$36" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("N1").Value Range("a1").Select End Sub) لكن لما اضفت حماية الورقة اصبح يظهر الخطأ كما في الصورة ولكن ليس دائما أحيانا واحيانا أخرى لما ازيل الخطأ واضغط على زر الطباعة يطبع دون ظهور الخطأ كما في اول مرة هل يوجد تعديل او إضافة على الحماية او على كود الطباعة جزكم الله خيرا

السلام عليكم ورحمة الله وبركاته مرحبا جميعا عندي ملف اكسل وفيه كود VBA انا اريد تطبيق نفس هذا الدرس ,, لكن على شكل UserForm : http://trumpexcel.com/2013/10/excel-drop-down-list-with-search-suggestions/ الملف جاهز ويعمل ( لكنه غير مكتمل بعد ) لكن هناك مشكلة بسيطة عند ربط Combobox1 بالخلية A3 في الورقة Temp لكي يتم انتاج قائمة جديدة كل مرة يتم فيها ادخال نص في Combobox انتهي بدائرة غير منتهية مثلا : عند كتابة جزء من النص (مثلا bb ) تظهر جميع الاسماء التي تحتوي على هذا النص .. عندما انقر على الاختيار الاول تمشي الامور تمام كما اريد وانقر على زر perview ويظهر المعاينة لكن المشكلة عندما انقر اي خيار آخر غير الاول يختفي النص في Combobox (يجي ويختفي بسرعة ) كأنه لووب او شي خاطئ في تعريف dynamic named range ارجو المساعدة وشكرا مقدما SEARCH.rar

حياكم الله ومساكم بالخير الطلب على النحو التالى معذرة إخوانى الافاضل بالمرفق التالى إجابة على تساؤلى بالرابط حيث كانت الافادة صائبة من الاخوين الكريمين الاستاذ / ياسر خليل والاستاذ / سعيد بيرم بعد الانتهاء من نقل البيانات تظهر رسالة تفيد أنتهاء نقل البيانات الاضافة المطلوبه هى إضافة رسائل MsgBox بالتوالى بطباعة محتوى الجدوال بالورقة 2 يتبع بعد ذلك مسح محتوى الورقة 1 من أول صف به بيانات حتى نهاية أخر صف يتبع بعد ذلك مسح محتوى نطاق البيانات بالورقة 2 من C8 الى X27 فقط دمتم بكل خير وشكرا جزيلا نقل بيانات كل 10 ثوانى.xlsb.rar

السلام عليكم ورحمة الله أخواني وأساتذتي الكرام لطالما أبدعتمونا بإنجازتكم وافكاركم الجميلة والمتميزة في هذا الموقع والصرح العملاق فأحببت أن أشارك معكم هذا الكود الجميل والمتميز في أطفاء وإعادة تشغيل الكمبيوتر من ملف أكسل وذلك بعد قمت ببعض التعديلات الخفيفة للملف لكي يصبح بشكل أجمل ومرغوب للجميع الملف يعمل على أنظمة ويندوز XP و7 و8 و8.1 وكافة نسخ أوفيس سواء كانت بيئة 32 بت أو 64 بت أترككم لتجربة الملف وإعطاء أفكار جديدة حول الموضوع تقبلو تحياتي ومروري إطفاء وإعادة تشغيل الكمبيوتر.rar

مرحبا الكود التالي لاستعلام البياتات من برنامج اس كيو ال Private Sub GetSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "------" ServerName = "------" UserId = "------" Password = "------" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "SELECT * from transactions WHERE CustomerID= '2648' " cn.Open strconn rs.Open sql_string, cn Range("a3").CopyFromRecordset rs rs.Close Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub مع العلم انه يجب تفعيل التالي من Tools - References

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

برنامج محاسبي بسيط جدا لا يوجد كلمة مرور على البرمجة Alkamel.zip

السلام عليكم اخوانى اعضاء المنتدى واساتذة الأكسل الأجلاء لفت انتباهى اثناء مشاركتى فى الردود أو قراءة البرمجيات او الشروح الجميلة لبعض الأساتذة الاجلاء عدم الاهتمام بالتسميات المناسبة ولى رأيي فى هذا الموضوع وهو ما قرأته فى العديد من كتب ومراجع البرمجة واتمنى إذا أعجبكم ان تطبقوه وتحدثوا شروحاتكم المتعلقة به مثلا لكل كود برمجى يفضل ان يكون اسم الكود معبرا عن وظيفته مثل "Move_Data" "Get_Data" ...... بما يسهل على من يتابع الاكواد أو يتعلم منها معرفة الوظيفة مبدئيا لكل كود وايضا عند استعمال الفورم من الافضل ان تغير من مسميات عناصر الفورم وفى هذة الحالة يجب ان يتكون الأسم من جزئين الجزء الأول بادئة مختصرة تعبر عن نوع الكنترول مثل txt للتعبير عن textbox او cmd للتعبير عن commandbutton اما الجزء الثانى فيعبر عن محتوى او وظيفة هذا العنصر مثل ان يكون هناك txtFirstName ، للتعبير عن انها تحتوى الاسم الاول مثلا ، وكمثال اخر cmdUpdateData للتعبير عن زرار cmd وظيفته تحديث البيانات أو cmdClearText هو زرار لتنظيف الحقول النصية وهكذا (تخيل انك لديك العديد من عناصر التحكم TextBox1 , TextBox2 ,TextBox3 , ,jv وتريد ان تعرف ايهما يمثل الاسم الاول و أيهما الاسم الاخير .... اثناء كتابة الكود وبدون ان تنظر الى الفورم ...... وحتى إذا أضفت شكل مربع او دائرى فى شيت الاكسل يجب تطبيق نفس القواعد للدلالة على وظيفته والرابط المدرج به قائمة بالبادئات المفضلة لعناصر التحكم https://msdn.microsoft.com/en-us/library/aa263493(v=vs.60).aspx ما الفائدة : الفائدة فى التقيد بهذة البادئات هو انك عندما تستعملها إضافة الى الوظيفة تسهل على كل من يقرأ البرمجية ان يفهمها بسرعه ويتابع التعديل فيها كطاقم عمل وذلك حالنا هنا فى المنتدى فريق واحد فيجب ان نتكلم لغة واحدة يسهل للجميع فهمها من اول لحظة.

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه إخوتي الكرام تحية طيبة أزفها إليكم من صميم قلب محب لكم وتحية الإسلام السلام السلام عليكم ورحمة الله وبركاته...أهنئكم بقدوم عيد الأضحى المبارك ..اللهم أعده على أمتنا بالخير واليمن والبركة أما بعد: فقد وردت إلى ذهني فكرة تدوين الأعمال التي قام بها جهابذة الإكسيل الكرام وأجعل نفسي من ضمنهم لأنه من عاشر القوم أربعين يوم صار منهم هذا شرف لي أن أخاطبهم وأتناقش معهم وأستضيء بنورهم ...فهم كمصابيح الدجى يتألقون في ظلمة عالم دامس مكفهر مضطرب. قدّمت هذا العمل لأستاذنا الجليل وأخينا الحبيب ياسرخليل أبو البراء كمقدمة لمعرفة مدى الإقبال على مثل هذه الأعمال الطيبة لنحفظها كإرث لأبنائنا علماً أنني سأقوم فقط بتنقيح زبدة العمل دون المداخلات التي تحتوي على التعبير عن الثناء ... أطرح موضوعي هذا طالباً استشاراتكم ومقترحاتكم التي سأضعها إن شاء الله تعالى نصب عيني وعلى رأسي...فما قولكم؟؟؟ أخوكم المحب لكم أبو يوسف المصفوفات 2

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

الاخوة في منتدي اوفسنا المحترمين حصلت على قاعدة البيانات المرفقة من المنتديات قاعدة البيانات مصممة على الاكسل المطلوب 1- كيفية تعريف الطابعة على قاعدة البيانات 2- اضافة نموذج قبض خاصة وان المبيعات نقدا ما في مشكلة اما في البع على الحساب ويتم التسديد لاحقا حنا المشكلة في التحصيل 3- رصيد اول المدة لا يوجد له مكان ارجو من اصحاب الخبرة مساعدتي وشكرا سلفا لجيع الاعضاء في هدا المنتدي فاتورة جديد1.rar

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

بسم الله الرحمن الرحيم اولا اريد ان اشكركم على المعلومات القيمة في هذا المنتدى الرائع ثانيا اريد ان استفسركم عن المشكل البرمجي الذي لم اعرفه حيث انني اريد ان اكتب عدد النسخ التي استطبع ان اطبعها و عند كتابتي للعدد في الخانة لا تطبع إلى صفحة واحدة فقط رغم انني حددت اكثر من صفحة وشكرا الملف المرفق http://www.gulfup.com/?eIUzfS

السلام عليكم و رحمة الله و بركاته، اتمنى مساعدتكم أبحث عن ملف لمساعدتي في عملية صرف بدل حضور اللجان. مثال انا عندي لجنة فيها: ١ رئيس لجنة ( مكافأة ٥٠٠ ريال عن حضوره لكل إجتماع لجنة) ١٠ عضو رئيسي ( مكافأة ٢٥٠ ريال عن حضوره لكل اجتماع لجنة) ٤ عضو احتياطي ( مكافأة ٢٥٠ ريال في حال حضوره عن عضو رئيسي متغيب) تكرار انعقاد الجلسة: ١٠ جلسات فلنفترض بآن رئيس اللجنة حضر ١٠ اجتماعات ( ٥٠٠٠ ريال) و جميع الاعضاء الرئيسيين حضروا الجلسات ( ٢٥ الف ريال ) فيتم رصد ٣٠ الف ريال في الموازنة لللجنة في هذا الحال. ماذا لو الاحتياط حضروا ؟ كيف اقدر اتابع عدم تجاوز الميزانية ؟ علماً بأن كشوفات الحضور تبعث لي في كشوفات جاهزة مع المكافات المستحقة ، و في بعض الاحيان اكتشف تلاعب و تجاوز في المخصصات المنصرفة بعكس المعتمدة اساسا من اول السنة. عارف يمكن الامر مش واضح لكن اتمنى لو في حد يعمل في متابعة اللجان و المجالس يقدر يساعدني و بكون شاكر له.

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثالث والثلاثون من الدورة المميزة مهارات اكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة وفيه نشرح واحدة من أهم مزايا الاكسيل وأكثرها فاعلية في التعامل مع البيانات وهي ميزة الجداول وكيفية التعامل معها والعمليات المختلفة عليها انتظرونا غداً في الدرس الرابع و الثلاثين ( انشاء واستخدام الرسومات البيانية Charts) لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

لوسمحتم اريد كود برمجي يحسب وقت الحضور ووقت الانصراف ويظهر كم عمل الموظف نظام العمل 24 ساعة للعملم =IF(G1384>F1384;G1384-F1384;G1384+24-F1384) حساب الوقت بالدالة اف معروف لدي فقط اريد كود برمجي عن طريق vba للعلم يمكن الموظف يعمل نص يوم في تاريخ ونص الاخر في تاريخ اخر يعني يكون الكود نظام 24 ساعة

أسعد الله أوقاتكم بكل خير فيما يلي شرح فيديو مميز للدوال النصية أتمنى لكم مشاهدة ممتعة ومفيدة انتظرونا غداً في الجزء الثاني من الدوال النصية لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير

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

بسم الله الرحمن الرحيم وبه نستعين الساده الزملاء الافاضل السلام عليكم جميعا ورحمته الله وبركاته وكل عام أنتم جميعا بخيرأينما كنتم داعيا المولى العلى القديرأن يتقبل منا جميعا صالح الاعمال انه ولى ذلك والقادرعليه تناول معظم الساده الزملاء الآفاضل بمنتدانا المتألق دوما موضوع تذيل اوراق العمل ومن خلال تنوع الافكارالتى قدمتومها حضراتكم تبين أن المشكلة مازلت قائمة حيث يعتمد موضوع التذيل على عدة عوامل أهمها ان يكون التذيل أسفل الجدول مباشرة سواء فى المطبوعات التجارية كالفواتير وايضا المطبوعات الحكومية ككشوف صرف المكافات والتى تعتمد على عدة توقيات فضلا عن عملية التفقيط فلابد من وجود فراغ ملائم ليحتوى على توقيعات الساده المسؤلون بالاضافة الى الاختام المطلوبه لاعتماد عملية الصرف فهناك فكرة ارجو من الله تعالى أن تكون موفقه لخدمة الجميع لذا نرجو من حضراتكم فضلا ان تساهموا فى تنفيذ هذه الفكرة لعلها تكون فيها النفع والافاده تعتمد فكرة الكود المطلوب على إدراك عدد 5 صفوف من بداية الصف الـــ 29 ثم نسخ محتوى التذيل المطلوب نسخة من الورقة "DATA" الى الورقة " مكافاة الثانويه العامه" ثم نسخ عدد 21 صف بنفس التنسيقات والمعادلات بداية من الـــ 8 الى 28 وهكذا وذلك من خلال فوروم بسيط يحتوى على الاوامرالتاليه ادرك الصفوف اولا ثم رساله " هل تريد نسخ محتوى التذيل المطلوب" ثم نعم ثم رساله أخرى " هل تريد نسخ الصفوف من 8 الى 28 " ثم نعم او كما تروه سيادتكم فضلا ملائما لتنفيذ هذه المحاولة دامت دياركم وديارنا عامرة بنورالايمان ...... تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا

انا طالب اعمل في مشروع تخرج والدكتور المشرف علي المشروع طلب مني استخدام البيانات الموجودة في الجداول المرفقة ولكن تفاجأت بانها مشفرة فهل من طريقة لفك التشفير ؟ مع العلم ان الدكتور ليس لديه علم بطريقة تشفير هذا الملف !! لينك تحميل الملف http://www.mediafire.com/download/tk52ec2zjbzeob0/DataDb.mdb

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة ارسال بريد الكتروني من خلال الاكسل لهذا الغرض عملت دلة صغيرة لارسال االايميل بلخيارات الاساسية التي ستحتاجها و سأحاول ان اعرضها اليكم بطريقة بسيطه مع توضيح كيفية عملها و الشروط التي يجب ان تتوافر قبل استخدامها سنفترض التالي البريد المرسل هو : send@gmail.com البريد المستلم هو : emp01@gmail.com تطبيق الدالة عنوان الرسالة ياتي قبل نصها ... ولكن بسبب تنسيق الكود في المنتدى فمعظم الاكواد تظهر نص الرسالة قبل العنوان 1 - ارسال رسالة بعنوان: اختبار و نص الرسالة: هذا اختبار ارسال رسالة SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","هذا اختبار ارسال رسالة" 2 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com" 3 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com و نسخة كربونية (BCC) لـ send@gmail.com يفضل دائما ان تحتفظ بنسخة من الرسائل التي ارسلتها. SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com","send@gmail.com" 4 - ارسال رسالة وارفاق ملف واحد SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,"c:\work\pic1.jpg" 5 - ارسال رسالة وارفاق اكثر من ملف SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,Array("c:\work\pic1.jpg","c:\work\pic2.jpg") 6 - ارسال رسالة لاكثر من مرسل اليه SendEMail "send@gmail.com", Array("emp01@gmail.com","emp02@gmail.com"), "اختبار","اختبار ارسال رسالة" 7 - ارسال رسالة لاكثر من نسخة (CC) SendEMail "send@gmail.com","emp01@gmail.com","اختبار" ,"اختبار ارسال رسالة", Array("manager01@gmail.com","manager02@gmail.com") 8 - ارسال رسالة بتنسيق HTML SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار", "<B>نص الرسال</B>", , , , True شروط استخدام الدالة و افتراضات 1- الدلة تستخدم ملقم SMTP تبع ال GMail ولهذا يجب ان يكن لديك حساب في القوقل ... تم الافتراض هنا ان الحساب هو send@gmail.com (يجب ان تستخدم حساب حقيقي) 2- افترضنا كلمة السر هى password (غير كلمة السر للكلمة الحقيقية ) غير القيم كما في الصورة هذا فقط ما يجب عليك فعله لبدء استخدام الدالة الا ان هناك ملاحظة مهمة شركة قوقل في شهر 7 الماضي رفعت متطلبات الامن لديها و لهذا فان ارسال الايميل عبر ملقمها smtp.gmail.com لن يتم الا اذا خفضنا درجة الامان. ولهذا انصح ان تنشئ بريد الكتروني جديد لاتستخدمة الا في ارسال البريد عبر الاكسل لتخفيض درجة الامن لحساب قوقل اتبع الخطوات التالية: - ادخل على حسابك و اختر Account - في القسم Account Settings و اختر Access for less secure Apps - اختر Enable يمكنك تحميل الدالة من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال كود ارسال بيريد الكتروني.zip

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