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

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

هذه المرة لمحبي الرزنامات رزنامة سنوية Annual_Calendar.zip

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

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

السلام عليكم تفضل Public Sub Alt_Trhil() Dim S As Worksheet T = CStr(Trim([b2])) '' خلية اسم الورقة المراد الترحيل اليها Set S = Sheets(T) With S L = .Cells(.Rows.Count, 7).End(xlUp).Offset(1, 0).Row C = 7 For Each r In ActiveSheet.Range("B3:B26,D2:D26") If C = 31 Then C = C + 1: .Cells(L, C) = r: C = C + 1 Next End With Set S = Nothing End Sub

وهذه فكرة اخرى لفكرة الاخ عبدالله If Len(Dir(CurrentProject.Path & "\" & ID, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & ID MsgBox ("تم الانشاء بنجاح") Else MsgBox ("المجلد موجود مسبقا") End If بالتوفيق

تفضل أخي محمود ملفك بعد التعديل program.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام أحياناً يصادفنا أن يكون حجم الملف كبير جداً مقارنةً بالبيانات الموجودة بداخل الملف .. فقررت عمل موضوع مفتوح يقوم الأعضاء باقتراح طرق لتقليل حجم الملف .. وإليكم ملف للأخ سليم حاصبيا في أحد الموضوعات ..حجم الملف أكثر من 5 ميجا العبد الفقير لله لديه كود خطير يساهم في حل المشكلة ولكن لن أقدمه الآن (كنوع من التشويق ) في انتظار مشاركاتكم القيمة والمساهمة في حل مشكلة تقابل الجميع وفقكم الله لما يحب ويرضى Last Price SALIM.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

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

أخي الحبيب أبو يوسف ما المشكلة في المشاركة بالنسبة لك ؟؟ تقبل تحياتي

أخي الكريم أبو عبد الرحمن لك الكثير من الموضوعات ومازلت تجهل أين يوضع الكود ؟؟!!! عموماً إليك الرابط التالي فيه البدايات .. أنا لا أطلب منك أن تتعلم الأكواد ولكن على الأقل تعرف كيف تتعامل معها وتضعها داخل موديول (دعك من الملفات الجاهزة وفقط .. تقدم خطوة للأمام) من هنا

السلام عليكم ورحمة الله وبركاته .. بارك الله فيك اخي محمد وجميع الأخوة الكرام .. اضافات بسيطة برأيي المتواضع :: 1- الأطباء المعالجين كما أشار الأخ عبدالله .. 2- ارتباط نوع الإصابة بمدة الجلسة وعدد الجلسات " هذي ممكن يفيدك فيها اخصائي علاج طبيعي " 3- قائمة للمواعيد الإضافية :: مثلا يوم الثلاثاء هناك موعد لمحمد عند العاشرة صباحا .. ابلغ محمد مسؤول العلاج بأنه لن يحضر ... هنا يتم احلال مريض من قائمة المواعيد الإضافية. 4- تقرير بالمدة التي قضاها المريض في العلاج منذ دخولة القسم حتى خروجه .. يشمل بياناته وايام علاجه ونوع الإصابة .. الخ. 5- تحديد موعد ولو تقريبي لوقت انتهاء جلسات العلاج أو التأهيل ... وهذا يساعد في ترتيب عمل القسم في المستقبل . 6- هل المريض منوم في المستشفى .. ام يراجع من المنزل. 7- تقرير بعدد المرضى الذين تم تأهيلهم خلال فترة مع نوع الإصابة ومدة التأهيل . اتمنى اني اضفت للموضوع بما يفيد وهذا برأيي المتواضع . وفقنا الله واياكم لكل خير وشفى مرضانا ومرضى المسلمين اجمعين.

أخي ياسر بارك الله فيك نجحت الفكرة إلا أن الحلقة التكرارية تبدأ من 1 وليس 2 فقط تقبل تحياتي أنت وأبو نصار

أخي الحبيب أبو يوسف نظراً لانشغالي فربما يضيع مني فرصة أن أشارك بالموضوع ولكن أضع بين أيديكم موضوع بهذا الخصوص على منتدى إكسيل فور أس http://excelforus.com/vb/showthread.php?t=4575 كما يوجد موضوع في هذا الخصوص في التوقيع الخاص بي تقبلوا تحياتي

اذا الحمياية لابد منها نريح دماغنا ونعمل كدا حماية عادية بدون رمز حماية كدا نحط في اول كود الطباعة ActiveSheet.Unprotect وفي نهاية الكود نضع دا ActiveSheet.Protect برمز نزود الرمز كدا اول الكود ActiveSheet.Unprotect "123" اخر الكود ActiveSheet.Protect "123" غير كدا يبقي ترفق الملف عشان الامور تبقي واضحة

أخي الكريم ارفق ملف للتوضيح ويرجى ذكر النطاق myrange4 (النطاق المسمى) غالباً ان الخلية النشطة التي تحاول التعامل معها ضمن خلايا النطاق المسمى المحمي

اخي الحبيب سليم بارك الله فيك ومشكور على الهدية الجميلة والرائعة كروعة صاحبها

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

روعه اخي سليم

هذا حل بواسطة المعادلات (معادلة واحدة لكل العامود) إيجاد الارقام المفقودة salim.zip

لا يسعني سوا ان ادعي الله عز وجل بظهر الغيب ان يسعد اوقاتكم ويزيدكم علماً وشكرا لكل من ساهم في هذه الاجابة تحياتي لكم جميعاً +1

السلام عليكم نحن بصدد اكمال الموضوع وعمل ما يلزم وبنفس الاسلوب (اي عمل فديو توضيحي ) ولكن بعض المعوقات اخرت ذلك وهي المناسبه التي نمر بها في العراق وانشغالنا في هذه المناسبه بالتوفيق

العملية بسيطة خالص نحط دا في تنشيط الشيت المراد تفعيل النسخ فيه Private Sub Worksheet_Activate() Call ToggleCutCopyAndPaste(True) End Sub و هذا في حدث اذا كان الشيت غير نشط يقفل النسخ Private Sub Worksheet_Deactivate() Call ToggleCutCopyAndPaste(False) End Sub مطبق علي شيت 3 في المرفق Disable Enable Cut copy paste .rar

تلصق الكود في حدث الورقة Private Sub Worksheet_Activate() '' الصفحه المراد السماح بالنسخ With Application .ScreenUpdating = False .Calculation = -4135 Call ToggleCutCopyAndPaste(True) '' .ScreenUpdating = True .Calculation = -4105 End With End Sub وهكذا تلصق الكود في الورقة المراد منع النسخ Private Sub Worksheet_Activate() '' الصفحه المراد منع بالنسخ With Application .ScreenUpdating = False .Calculation = 4135 Call ToggleCutCopyAndPaste(False) '' .ScreenUpdating = True .Calculation = -4105 End With End Sub او هكذا تحط الكود في حدث Thisworkbook حط اسماء الاوراق التي تريد منع النسخ فيها Private Sub Workbook_SheetActivate(ByVal Sh As Object) Select Case Sh.Name Case "ورقة1", "ورقة2", "ورقة3", "ورقة4", "ورقة5", "ورقة6", "ورقة7", "ورقة78" '' الاوراق الذي تود منع النسخ فيها With Application .ScreenUpdating = False .Calculation = 4135 Call ToggleCutCopyAndPaste(False) '' .ScreenUpdating = True .Calculation = -4105 End With Case Else '' With Application .ScreenUpdating = False .Calculation = -4135 Call ToggleCutCopyAndPaste(True) '' .ScreenUpdating = True .Calculation = -4105 End With End Select End Sub

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

اخي العزيز كيف يتم نقل الايقونه الى ملف الاكسيل حيث ان طريقة النسخ واللصق لم تنفع مع الشكر

أخي الكريم ياسر لقد تم الامر علي خير لقد افادني كثيرا في عملي شكرا جزيلا لك

السلام عليكم الاخ والاستاذ ابراهيم ابو ليله اشكرك على مرورك العطر وكلماتك الطيبه تقبل تحياتي وشكري

التعديلات كما يأتي Private Sub Worksheet_Activate() Dim x As Long, t As Integer Application.ScreenUpdating = False x = [CD5].Value If x = 0 Or x = 1 Then GoTo 1 Range("A16:BY16").AutoFill Destination:=Range("A16:BY" & x + 15), Type:=xlFillDefault Range("A17:BY" & x + 15) = Range("A17:BY" & x + 15).Value Range("A" & x + 16).Resize(70000, 77) = "" GoTo 2 1: Range("A" & 17).Resize(70000, 77) = "" 2: For t = 0 To 10 Range("A45:BY47").Offset(32 * t, 0).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Application.ScreenUpdating = True End Sub انسخ الكود كما هو وجرب النتيجة تحياتي

السلام عليكم تفضل البحث السريع حسب الورقة_111.rar

السّلام عليكم و رحمة الله و بركاته أخي الفاضل " أبو عبد الرّحمن البغدادي " إعْملْ حسابكْ بقدرة المولى القدير .. ثم بقدرة أساتذة "أوفيسنا" الأكارم بإمكانهم ترحيل جهازك من أمامك إلى غرفة أخرى عبر ذبذبات الأثير باسم الله .. تبارك الله طبعًا يمكن .. أخي الغالي فائق إحتراماتي

بيانات الورقة الاخرى وين تريدها في اي ليست ؟ حسب فهمي شاهد المرفق اضغط زر استدعاء kaled.ra_111.rar

بارك الله فيك وجزاك الله خير الجزاء

اتفضل Microsoft Office 2010 SP2 X86/X64 Pro Plus VL MULTi- / Last updated >>--------> 15 September 2015 Microsoft Office 2010 SP2 X86/X64 Pro Plus VL MULTi-13 {Generation2} | Microsoft Office 2010 - one of the best office suite for computers, phones and browsers, including features, you can rely on today and the opportunities that may be needed in the future. This set of applications allows you to confidently take up the challenge of today's economic situation, not losing sight of the factors necessary for success in information technology. This release contains one ISO [SOURCE ISO] and eleven exe-files. All exe-files are created from original ISO's for each language. This is done with SmartVersion, a program that calculates the difference between two files (one of which is used as the source) and then creates an svf-file based on that difference. * Hash-values attached in a separate .txt * Updated September 2015 [ DOWNLOAD INFO ] Download the Source ISO and preferred language.exe If you want en-US then just download the SOURCE ISO, Run the exe-file in the same folder as the SOURCE ISO. This will extract & recreate the original ISO, fully updated and in the selected language. [ LANGUAGES ] * da-DK - Danish * de-DE - German * el-GR - Greek * en-US - English * es-ES - Spanish * fi-FI - - Finnish * fr-FR - -French * hi-IN - -Hindi * it-IT - - Italian * nb-NO -Norwegian * nl-NL - -Dutch * pl-PL - -Polish * pt-BR - Brazilian * pt-PT - Portuguese * sv-SE - Swedish [ SOURCE ISO ] * Office14.en-US.iso Size: 3,78GB [ EXE-FILES ] * Office14.da-DK.exe - Size: 502MB * Office14.de-DE.exe - Size: 552MB * Office14.el-GR.exe - Size: 497MB * Office14.es-ES.exe - Size: 413MB * Office14.fi-FI.exe - - Size: 520MB * Office14.fr-FR.exe - -Size: 486MB * Office14.hi-IN.exe - -Size: 375MB * Office14.it-IT.exe - - Size: 577MB * Office14.nb-NO.exe -Size: 376MB * Office14.nl-NL.exe - -Size: 428MB * Office14.pl-PL.exe - -Size: 488MB * Office14.pt-BR.exe - Size: 384MB * Office14.pt-PT.exe - Size: 401MB * Office14.sv-SE.exe -Size: 392MB * To activate Office, use Microsoft Toolkit. * Extract attached MTKV253.zip, click the Office button, * install AutoKMS, and then click the Activate button. * Hope you will enjoy this release! حمل من هنا - رابط واحد تحميل مباشر بالنواتين 32 , 46 بيت  الحجم  3.78 جيجا لتحميل حزمة اللغة العربية لتحويل الواجهة للغة العربية اضغط هنا وحمل من 4 شيرد وهذا رابط أيضا تحميل مباشر ولكن لم اقم بتجربته اضغط هنا للتحميل

ودى فكرتى المتواضعة للوصول للنتيجة المطلوبة مع إضافة كود حدث قبل التحديث للفورم لو رقم الملف خالى او الاسم خالى لا يتم حفظ البيانات في الجدول حتى لا يتم احتساب بيانات غير كاملة program- UPDATE.rar وده تعديلى باظهار الرسالة التي تفيد وتوضح رقم الملف السابق ان وجد بالاسم الذى تم اضافته لرقم الملف هذا في رسالة بعد تحديث رقم الملف واهم شيء إضافة اللمسة الرمهانية على التعديل program- UPDATE2.rar

السلام عليكم ورحمة الله الأخ صلاح لا داعي للتكرار وموضوعك تم الرد علية كطلب للمعرٍف المشاكس علي الرابط : تم حل الموضوع ملف 2003 وملف 2013 http://www.officena.net/ib/topic/65186-سؤاال-كيفية-طباعة-ورقة-بإسم-شخص-ابحث-عليه-فقط-بالضغط-عليه/

شكــرا لك اخي العزيز :) وشكرا على الترحيب الغالي يا غالي ----------- نعم اخي ولكن اريد البحث عن طريق الاسم واللقب احسن وظهور الاسماء المكررة ثم اطبع الذي ابحث عليه

استاذنا الفاضل ما هي بيانات تسجيل الدخول اسم المستخدم و كلمة السر

السلام عليكم اضغط STEP1 ثم اختار اسم الورقة اضغط STEP2 ثم اختار اسم الإدارة التعليمية او المكتب اضغط STEP3 تظهر لك القائمة بالمدارس يمين الورقة و امامها عدد مرات التكرار تحياتي و تقديري school.rar

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

وعليكم السلام ايش رايك اعلمك كبف تصيد ، بدل ما اعطيك السمكة يجب ان تختار صح على المربع الاحمر رقم 3 . اغلق البرنامج ، وافتحه، إما تنقر مرتين على رقم 1 او تنقر مرة على رقم 2 او تختار من القائمة جعفر

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله هذا الموضوع من فترة كنت أبحث فيه وأتذكر أن هناك من طلب مثل هذا الطلب ، كما أنه يوجد موضوع بالمنتدى في الأيام الأخيرة لا أتذكره يخص إغلاق التطبيق وكيفية منع الإغلاق عن طريق زر الإغلاق الخاص بالتطبيق ، ووجدت زخم من الأكواد ، ومتاهات إلخ ... فقررت عمل موضوع لإنهاء الأمر والقضاء عليه بهدوء .. بأكواد بسيطة جداً بعيداً عن الزخم الغير مرغوب فيه والتعقيد الذي لا أحبذه في كثير من الأحيان ففي البساطة لو تعمقت في المسألة ، ستجد دائماً الحلول اليسيرة التي قد لا تخطر على بال الكثيرين سيكون محور العملية في كودين أحدهما يوضع في موديول .. ويكون بالشكل التالي Public CloseMode As Boolean Sub CloseMe() CloseMode = True ThisWorkbook.Save Application.Quit End Sub السطر الأول دا إعلان (بس مش في التليفزيون ولا إعلان على مواقع الانترنت ) دا إعلان في مشروع المصنف VBA Project ولا يخص الموديول فقط ، بل هو إعلان عاااااااااااااااااااااااااام أي أنه يمكن التعامل معه في أي موديول (سواء موديول عادي أو موديول ورقة عمل أو موديول المصنف أو موديول الفورم) المتغير اللي بيتم الإعلان عنه اسمه CloseMode ونوعه (يا إما ذكر يا إما أنثى) ..( True أو False) الإجراء المسمى CloseMe (والترجمة اقفلني .. والكلام ليس لي .. لأنك لو قفلتني مش هنزل الموضوع ده >> إنما المتحدث هنا هو الإكسيل .. فالإكسيل بيقولك اقفلني شكراً .. بس متقفلنيش من زر الإغلاق ..ابعد عن زر الإغلاق وغني له) أول سطر في الإجراء بيخلي المتغير العام قيمته True وتاني سطر بيحفظ المصنف والتالت بخرج من التطبيق وبس خلاص دي قفلة الكود End Sub تقريبا دي اختصار هند صبري (إند صب) دا الجزء الأول .. انتهينا منه *************************** شوية نجوم عشان الناس تصحصح تاني وتركز في الجزء التاني (كأننا في مسلسل مهند ونور) Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" End If End Sub الجزء ده بيوضع في حدث المصنف .. وكما ذكر أخونا إبراهيم أبو ليلة في سلسلة شروحاته إن الحدث دا بيتنفذ قبل الإغلاق .. يعني ببساطة لما أدوس للإكسيل على طرف (اللي هو زر الإغلاق) يتنفذ الأسطر الموجودة الأسطر عبارة عن جملة شرطية بتقول ايه : (نركز ونصحى عشان أنا هنام منكم أهو) لو المتغير العام CloseMode منفي .. يعني قيمته Fasle وممكن نكتب الشرط بالشكل ده If CloseMode = False Then واحد هيسأل طيب لو كانت قيمة المتغير True مش كدا ممكن نستخدم زر الإغلاق ؟؟؟ أقوله صحيح .. بس المتغير العام القيمة الافتراضية له False .. أول ما نفتح المصنف أي متغير بتكون قيمته الافتراضية 0 مثلاً لو كان متغير من النوع Long ، أو فراغ "" لو كان المتغير String ، أما القيمة الافتراضية للمتغير Boolean يا ناس يا حلوين هي القيمة False المهم نرجع للشرط .. فلو كانت قيمة المتغير CloseMode تساوي False ينفذ اللي جاي .. يا إما أروح أمشي أنا يا شيخ عبد الستار وطبعاً زي ما قلت القيمة الافتراضية False بالتالي بالتالي وأكيد هينفذ باقي الكود باقي الكود .. السطر Cancel = True معناها الغي عمل زر الإغلاق ، ومش بس كدا .. أنا مش هسيبك تضرب أخماس في أسداس وتقول نسخة الأوفيس خربت عندي .. لا أنا هظهر لك رسالة عشان تتأكد إن النسخة مخربتش الرسالة بتقول : روح يا ولدي استخدم الزر اللي ياسر خليل عمله في ورقة العمل ، عشان زر الإغلاق بتاع التطبيق ، سعادته ياسر بيه لعب في أساسه وعطله (أصلي من النوع المعطلاتي) وطبعاً زي ما اتعودنا من الأخ شعبولة إننا نقفل ، فالشرط اللي بدأناه كمان لازم يقفل بـ End IF .. زي بس خلاص بتاعة شعبولة ** نقطة أخيرة : واحد سامعه بيفكر (على فكرة هو متكلمش هو لسه بيفكر ..) دلوقتي لو عايز أقفل من زر الإغلاق مع وجود الكودين دووول أعمل ايه ؟؟ الإجابة : بسيطة جداً روح واعمل إجراء فرعي وخلي قيمة المتغير العام CloseMode تساوي True ( وبكدا تقدر تستخدم زر الإغلاق مرة أخرى) Sub EnableCloseButton() CloseMode = True End Sub ونفذ الإجراء الفرعي ده .. ضع مؤشر الماوس داخل الإجراء الفرعي وانقر Run أي تنفيذ الإجراء الفرعي ، أو F5 من لوحة المفاتيح ... تقدر دلوقتي تقفل من زر الإغلاق عادي لأنك جعلت قيمة المتغير العام CloseMode تساوي True وأقفل أنا كمان موضوعي بالقفلة المعروفة بالنسبة لي .. دمتم على طاعة الله ، ولا تنسونا من صالح دعائكم حمل الملف من هنا

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

وبه نستعين والصلاة والسلام على اشرف المرسلين سيدنا محمد الصادق الامين ومن سار على سنته الى يوم الدين.. وبعد في موضوع قاعدة بيانات خاصة بمختبر تحاليل طبية بالاكسل أحببت أن أوضح لأخواني بالمنتدي ان التجربة والخطأ هي افضل الطرق للتحصيل والتعلم والمنتدي ذاخر بالمادة العلمية ومساهمات الاعضاء المختلفة وكلها مفتوحة المصدر بالاضافة الي التعاون المستمر من جميع اخواني بالمنتدي في الرد علي الاستفسارات المختلفة والتي تحتوي بين طياتها علي الكثير والكثير من المعرفة والافكار ولاحظت في الفترة الاخيرة تكرار الطلب مع انه موجود بصورة او باخري وليس شرطا ان يكون بنفس فكرة الاخ الطالب لكن موجودة افكار كثيرة يمكن تطويعها لاعمالنا او تكون مدخلا لافكار اخري قابلة للتطوير كنت من فترة طرحت موضوع برنامج الشيكات مع التقارير مفتوح ويصلح لاعمال عديدة بتطويعه واليوم نفس البرنامج لم اقم الا بتغيير مسميات الاعمدة وتغير مظهر الفورم ليتناسب مع طلب الاخ السائل في موضوع مختبر التحاليل الطبية ويكون دعوة للجميع بالمنتدي ان نبحث ونجرب ونخطيء ونتعلم ونسأل ونستفسر ويصبح لنا بصمة لاعمالنا وذلك افضل من طرحنا سؤال او طلب لبرنامج كامل حتي ان وجدنا من يجيب او يصمم ذلك البرنامج ستكون افادتنا ليست الا مستخدمين لذلك البرنامج فدعونا جمعيا نشارك بايجابية ونبحث قبل طرحنا السؤال اسف للاطالة شرح البرنامج 1- الشاشة الرئيسية وبها وظيفتي ادخال جديد والبحث وطباعة ايصال استلام النقدية عند اختيار جديد نلاحظ ان المسلسل تلقائي وايضا يتم ادراج اليوم تلقائيا والتفقيط ايضا 2- البحث برقم مسلسل العميل من خلال شاشة البحث يظهر معنا خيار طباعة ايصال استلام النقدية كالتالي 4- من خلال الوظائف اسفل الفورم يمكنك الانتقال شاشة التقارير 5- شاشة التقارير والتي تتيح لك خيارات تقرير باسم مريض معين لحصر معاملاته خلال فترة معينة ويمكنك من خلالها عمل تقرير يومي لمعرفة الايراد او تقرير لفترة محددة بين تاريخين ومن خلال شاشة التقارير يمكنك طباعة التقرير كالتالي شاشة المساعدة وبها شرح مبسط للبرنامج عند اختيارك اغلاق للفورم للدخول علي الملف يطلب منك كلمة مرور كالتالي في شيت Info يمكنك اضافة اسماء التحاليل الطبيبة المستخدمة وسوف تظهر في الفورم عند اختيارك لادخال جديد فاللهم تقبل منا عملنا هذا خالصا لوجهك الكريم اسأل الله العلي القدير أن يوفقني وإياكم لما فيه الخير الملف بالمرفقات ويسعدني اي استفسارات حول البرنامج اوفيسنا للتحاليل الطبية.rar

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

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

السلام عليكم ورحمة الله وبركاته الشكر واصل للحبيب ابو انصار نفس الاكواد المستخدمة اعلاه وضعتها في موديل آخر (ليس موديل حدث ThisWorkbook) دخول وخروج للورك بوك Sub Auto_Open() With Application .ActiveWindow.DisplayHeadings = False .DisplayFormulaBar = False .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End With End Sub هذا الكود سيستخدم اتوماتيكيا عند الضغط على اكس الخروج وايضا ممكن تربطه بزر آخر Sub Auto_Close() With Application .ActiveWindow.DisplayHeadings = True .DisplayFormulaBar = True .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" .Workbooks(ThisWorkbook.Name).Save .Quit End With End Sub جرب انا لم اضيف شي هذه اكوادكم ردت اليكم ودمتم في حفظ الله