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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الغالي هل فكرت يوماً ؟ إذاً أنت موجود .. لأن الحكمة بتقول : أنا أفكر إذاً أنا موجود ، وبتعديل بسيط ممكن نقول : أنا أؤمن بالله إذاً فالله موجود وأنا حي القلب قبل حياة الجسد سرحت اعذروني أقدم لكم اليوم كود جديد ، يقوم الكود كما هو موضح بالعنوان (والموضوع بيبان من عنوانه ..فمحدش يتوه مني عشان أنا متعمد أتوهكم) ..كما هو موضح يقوم الكود بتنفيذ الماكرو أو الإجراء الفرعي عدد معين من المرات ، يمكنك أن تحدد عدد المرات في الملف المرفق قمت بوضع عدد المرات في الخلية C3 ويمكن تغييره بالطبع ، كما يمكن أيضاً (عشان الناس متقولش إني بخلان عليكم بمعلومة) ممكن أن تغير في الكود لتضع عدد مرات التكرار الذي ترغبه داخل الكود ، وذلك من خلال تغيير هذا السطر nTimes = Range("C3").Value إلى هذا السطر nTimes = 3 إذاً فأنت حر في اختيارك لطريقة وضع قيمة المتغير المرتبط بعدد مرات التكرار وإليكم الكود بالشكل الكامل (والكمال لله وحده) 'تعريف المتغير الذي يمثل عداد لعدد مرات تنفيذ الماكرو Dim I As Integer Sub RunMacroNTimes() 'تعريف المتغير الذي يمثل عدد مرات تنفيذ الماكرو Dim nTimes As Integer 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'وضع القيمة صفر للعداد I = 0 '[C3] ليساوي قيمة الخلية [nTimes] تعيين قيمة للمتغير nTimes = Range("C3").Value 'حلقة تكرارية لتكرار تنفيذ الماكرو طبقاً لقيمة الخلية Do While I < nTimes 'زيادة قيمة العداد بمقدار واحد في كل حلقة تكرارية I = I + 1 'استدعاء الماكرو المراد تنفيذه Call Test 'الانتقال داخل الحلقة التكرارية إلى أن تساوي قيمة العداد قيمة الخلية Loop 'إظهار رسالة تفيد بعدد مرات تنفيذ الماكرو MsgBox "تم تنفيذ الماكرو " & I & " مرات" 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub Sub Test() MsgBox "مرحباً بكم إخواني .. الترحيب رقم " & I End Sub وعشان خاطر عيون حبايبي اللي زعلانين مني (وهما عارفين مين .. وكل لبيب بالإشارة يفهم .. ومش عايز حد يكون ساخـ (هـ) ـــر مني) قمت بشرح أسطر الكود للاستفادة منه في أكواد أخرى كما أقدم لكم ملف مرفق للإطلاع عليه (ودا عشان الناس الكسلانة .. شايف مختار بيحمل الملف المرفق .. لا إنت لا إنت طبقه بنفسك) وأخيراً تقبلوا تحياتي ودمتم في رعاية الله Run Macro Number Of Times YasserKhalil.rar

السلام عليكم أخوتى ورحمة الله وبركاته كلنا يعرف يشغل ماكرو لكن هل فكرت تعمل باسوورد للماكرو ؟!!!!!!!!!!!!!!!!!!!!!!!!!! ماشى البعض منا يعرف يسوق عربية - أنا مش منهم - لكن هل فكرت أنك تعمل باسوورد لعربيتك ؟!!!!!!!!!!!!!!!!! حمل المرفق وهتعرف كل شىء الكود الأساسى المستخدم بسيط : Sub passtorunmacro() Dim MyPassword MyPassword = InputBox("من فضلك أدخل كلمة سر تشغيل الماكرو ", "كلمة السر", "********") 'باسوورد الماكرو If MyPassword = "123" Then MsgBox "كلمة السر صحيحة. لتشغيل الماكرو اضغط موافق", vbInformation, "دخول" 'استدعاء الماكرو Call Shape Exit Sub Else MsgBox "كلمة السر خاطئة", vbCritical, "خطأ" Exit Sub End If End Sub وهذا هو البنزين90 عفواً أقصد الكود الفرعى الذى نستدعيه لتحريك العربية : Sub Shape() Dim i As Integer Dim j As Integer With ActiveSheet.Shapes("Picture1") For j = 1 To 10 For i = 1 To 300 .IncrementLeft 0.75 DoEvents Next i For i = 1 To 300 .IncrementLeft -0.75 DoEvents Next i Next j End With End Sub اللى تعجبه الفكرة يدعو لى أتعلم السواقة , وأشترى عربية Enter Password to run a Macro.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع ليس بجديد على الإطلاق ، ولكن أظن أن الكثيرين لا يعرفونه ، فأحببت أن أشارككم المعلومة علكم تستفيدون ، ولعلكم تنفضون غبار الكسل .. الذي طال أمده موضوعنا عن كيفية إضافة شريط أمر تحكم إلى الكليك يمين ، بمعنى آخر : عندك إجراء فرعي معين ، وبتستخدمه كثيراً ، ومش عايز الإجراء يكون مرتبط بزر أمر ولا يكون تلقائي ، لكن تريد أن يكون موجود في الكليك يمين .. إذاً فالحل بين يديك يتم وضع الكود التالي في حدث فتح المصنف Private Sub Workbook_open() 'هذا الحدث مرتبط بفتح المصنف 'يقوم الكود بإضافة سطر أمر إلى قائمة الكليك يمين 'تعريف متغير من النوع شريط أمر التحكم Dim NewControl As CommandBarControl On Error Resume Next 'حذف شريط الأمر من قائمة الكليك يمين إذا كان موجود من قبل Application.CommandBars("Cell").Controls("Show Date And Time").Delete On Error GoTo 0 'إنشاء أو إضافة شريط أمر التحكم Set NewControl = Application.CommandBars("Cell").Controls.Add With NewControl 'عنوان شريط أمر التحكم الذي سيظهر في قائمة الكليك يمين .Caption = "Show Date and Time" 'مسار واسم الإجراء الفرعي المرتبط بشريط أمر التحكم .OnAction = "Module1.DateAndTime" 'عدم فصل شريط أمر التحكم الجديد بخط .BeginGroup = False End With End Sub وحتى لا تحدث أخطاء في برنامج الإكسيل يراعى أن يتم حذف شريط أمر التحكم الذي تمت إضافته ولذا ستجد الكود التالي في حدث إغلاق المصنف Sub Workbook_BeforeClose(Cancel As Boolean) 'هذا الحدث مرتبط بإغلاق المصنف On Error Resume Next 'هذا السطر لحذف الأمر - الذي تمت إضافته عند فتح المصنف - من قائمة الكليك يمين Application.CommandBars("Cell").Controls("Show Date and Time").Delete End Sub وهذا هو الكود المرتبط تنفيذه بشريط أمر التحكم Sub DateAndTime() 'هذا هو الماكرو الذي تمت إضافته لقائمة الكليك يمين MsgBox "Today is: " & Format(Date, "dd. mm. yyyy") & "." & vbCr & vbCr & "It is: " & Format(Time, "hh:mm:ss") End Sub وأخيراً تقبلوا تحيات أخوكم أبو البراء دمتم على طاعة الله Add Control To Right Click Menu.rar

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.rar مثال من تصميم أحد الأخوة فيه عدة أمثلة على نماذج و تقارير مختلفة.rar FileSize-مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات.rar ربط قاعدة البيانات حسب الاختيار (المثال بعد التعديل).rar ChooseReportFromList2_2k-مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox.rar مثل الصلاحيات.rar CtlGroups-مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج.rar sHIFT-مثال للتحكم في خصائص تشغيل أي ملف أخر , مثل السماح باظهار صفحة بيانات الملف أو استخدام المفاتيح الرئيسية او اظهار شريط الأدوات أو ... الخ.rar Tree- مثال على البنية الشجرية - تصميم أبو هادي - أوفسينا.rar findrecord2k--مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة.rar Animation2k-مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة.rar Atomatic_Record_Scrolling-مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج.rar AutoBkUp2K-- مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات.rar UpdateDirect2k - مثال على الاستيراد و التصدير المبرمج.rar

أخوتى فى الله السلام عليكم كلنا يعلم أن الفلترة شىء هام فى الاكسل كثيراً ما نحتاجه وكلنا نعلم أن الفلترة تكون حسب اعتبارات كثيرة لكن كونها تكون حسب لون الخط أعتقد أن القليل منا يعرفها لذلك أحببتُ أن أشاركم بهذا الكود المنقول لرجل أقدره فى هذا المجال وهو Ron de Bruin بدون إطالة تفضلوا المرفق وتقبلوا تحياتى Filtering by the Active Cell's Font Color.rar

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

ههههه والله معك حق سيّدي الفاضل صلاح الدين الأيوبي ..أركب ألف عربية و لا أركب نصف كود . كود مميّز أستاذي مختار حسين محمود بارك الله فيك و جزاك الله خيرًا..فقط سؤالي كمبتديء أين نضع هذيْن الكوديْن لو سمحت ؟؟

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

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

اخى الكريم اولا قم بعمل تكست بوكس جديد وبالتالى سوف يكون رقمه 3 ثم قم باستبدال هذا السطر بالكود ( هتلاقية بزر التاكيد) If TextBox1 = "12345" Then Unload Me: Exit Sub بهذا السطر If TextBox1 = "12345" And TextBox3 = "عبدالعزيز" Then Unload Me: Exit Sub جرب وعلمنى بالنتيجة انا محبتش ارفق الملف بالحل انا عايزك انت تجرب بنفسك تقبل تحياتى

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

اخواني الاعزاء وانا ابحث في مواقع الاجنبية و العربية وجدت هذا الفايل الاكسل الذي فيه خمس شيت و صاحب الفايل بذل فيه جهد كبير تصفحوه واستفيدو من فكرته القوية جدا في الاكسل لاني من عشاق الفنون الاكسل home balancesheel.rar

تفضل 1. التوقيت: البرنامج يفحص وقت الكمبيوتر كل دقيقة ، 2. هذا هو كود الفحص: Private Sub Form_Timer() Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC 'Debug.Print Format(Now, "hh:mm") & vbCrLf & Format(rst!Class_Time_From, "hh:mm") & vbCrLf & Format(rst!Class_Time_To, "hh:mm") & vbCrLf 'compare the timer with the Class_Time If Format(Now, "hh:mm") >= Format(rst!Class_Time_From, "hh:mm") And Format(Now, "hh:mm") <= Format(rst!Class_Time_To, "hh:mm") Then 'Debug.Print "I am in" rst.FindFirst "[Class_Number]=" & rst!Class_Number Me.Bookmark = rst.Bookmark Exit Sub End If rst.MoveNext Next i Debug.Print "------" End Sub 3. اضفت 3 حقول في الجدول: Class_Number: لرقم كل حصة ، ومافي داعي لها ، لكنها لتسهيل الشغل (يعني بالعربي ، انا حطيتها ، وبعدين شفت مافي داعي لها ، بس كنت كتبت الكود ومستكاود اغيره ) ، Class_Time_From: البرنامج يفحص الوقت "من" و "الى" ، وحسب التجربة ، يفضل ان يكون الوقت بينهم على الاقل 3 دقائق ، Class_Time_To: جعفر 60.تجريبي.mdb.zip

السلام عليكم لن اطيل عليكم السؤال فى العنوان

أخي الكريم يرجى وضع الأكواد بين أقواس الأكواد لتظهر بشكل منضبط Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim strCrt As String Dim I As Long, X As Long X = 6 Set WS = RawData: Set SH = ClientSheet strCrt = SH.Range("T1").Value Application.ScreenUpdating = False SH.Range("A6:R135").ClearContents With WS .AutoFilterMode = False For I = 6 To .Cells(4000, 1).End(xlUp).Row If .Cells(I, "S").Value = strCrt Then .Range(.Cells(I, "A"), .Cells(I, "R")).Copy SH.Range("A" & X).PasteSpecial xlPasteValues X = X + 1 End If Next I .Range("A5:R5").AutoFilter End With SH.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub زي كدا جرب الكود بهذا الشكل النهائي .. وإن شاء الله يكون أدى المطلوب

انا اقول الرجال ساكت ، اثارية يعدل وينظم ثروته بارك الله فيك أخي أبوآلآء انا انزلت برنامجين افحصهم جعفر

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

مشكور ابو الآء وجزيت خيراً !! عمل جميل جدأ!! وماشاء الله عليك باحتفاظها لديك ! وعلى كذا اي شي نتذكره من اعمال المنتدى الشقيق سنطلبه منك !! بالتوفيق .. ولك اجمل تحية

السلام عليكم بعيد عن الاكواد والمعادلات هذه مشاركة بسيط منى عمل نسخه احتياطيه من الملف تحفظ لك بياناتك من التلف رابط الموضوع http://www.officena.net/ib/index.php?showtopic=57348&hl= فيديو بسيط

على فكرة يا أبوصلاح أخوك مش ناسيك كنت فى بالى وأنا مريح من عناء الاكسل النهردة الصبحية كوداية صغيرة فى حدث المصنف زى دى Private Sub Workbook_Open() AlertTime = Now + TimeValue("00:00:10") Application.OnTime AlertTime, "autosave" End Sub وحنة صغيرة فى مديول عادى زى دى Sub autosave() Application.ScreenUpdating = False Application.DisplayAlerts = False ThisWorkbook.Save AlertTime = Now + TimeValue("00:00:10") Application.OnTime AlertTime, "autosave" Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub الأثنين بيعملو حفظ تلقائى كل 10 ثوانى من غير ما تشعر تحياتى

جزيت خيرا وزوجت بكرا..

جرب هذه comm: iif(([salary]*0.005)>=5;5;[salary]*0.005)

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

بعد إذن الأستاذ الفاضل / الصقر جرب الكود التالى : كود لعمل حفظ ذانى لملف الإكسيل على رابط لى قد شاركت به من قبل http://www.officena.net/ib/index.php?showtopic=59622&hl=%2Bauto+%2Bsave يوضع الكود فى ThisWorkbook Sub workbook_beforeclose(cancel As Boolean) If Me.Saved = False Then Me.Save End Sub Auto Save Excel.rar

أخي الكريم صلاح غير ممكن تنفيذ مثل ذلك الأمر حيث أنه بانقطاع التيار ينتهي العمل بالحاسب فمين بقا اللي ح يحفظ تقبل خالص تحياتي

يا رب يا عم ياسر أجيب عربية وأروح أتفسح و أشوف حبايبى فى مطروح

بارك الله فيكم أخى الكريم و فعلا انتم نعم الناس الذين يعلمون و يتعلمون

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

أخى طبعاً يمكن ذلك بكل تأكيد ولكن بعد عودة الكهرباء بالسلامة :jump: بهذر معاك يا أبوصلاح

أقول إيــــــــــــه مش لاقى كلام يبقى تاخد دول :fff: وهذا ملف مشابه يساعد فى سرعة عمل قائمة بأيام الأسبوع والشهور لعموم الفائدة Add Custom List Access to Right Click Menu.rar

الأخ الفاضل محمد أبو العلا صراحة مبقتش عارف ايه المطلوب قدمت لك حل بالمعادلات .. وحل بالاكواد !! بالنسبة للقائمة المنسدلة روح للخلية اللي فيها القائمة المنسدلة وبعدين روح للتبويب Data ثم Data Validation ثم ستجد في النافذة الأمر Clear All وبذلك تتخلص من القائمة المنسدلة ويمكنك استخدام الخلية لكتابة أي رقم لأي عملية ..

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

تفضل جرب هذا التعديل حاسبة الأسعار2.rar

أخي الحبيب الغالي مختار بارك الله فيك وجزاك الله خيراً على كل ما تقدمه بس إنت تاعب نفسك ليه كدا بأزرار الأوامر (خليك كسول زي حالاتي عشان توصلك لأقصر الحلول ..بلاش الطرق الوعرة الطويلة يا صاحبي) جرب الملف التالي لعله يكون أقصر الطرق .. Private Sub UserForm_Initialize() Dim I As Integer For I = 1 To 24 With cbNumberOfPages .AddItem I End With Next I End Sub Private Sub cmdPrint_Click() If Tx_Copies.Value = "" Then MsgBox "أدخل عدد النسخ المراد طباعتها": Exit Sub If cbNumberOfPages.Value = "" Then MsgBox "أدخل عدد الصفحات المطلوبة للطباعة": Exit Sub On Error Resume Next Sheets("Feuil1").Select ActiveWindow.SelectedSheets.PrintOut From:=1, To:=cbNumberOfPages.Value, Copies:=Tx_Copies.Value, Collate:=True Sheets("Feuil2").Select End Sub Private Sub cmdEnd_Click() End Sheets("Feuil2").Select End Sub تقبل تحياتي Print UserForm Mokhtar.rar

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

بارك الله فيك و جزاك الله خيرا..تم عمل المطلوب بشكل سليم و صحيح ..ألف شكر أستاذي

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

اسمحولي أن أخصص مشاركتي رقم (100) بالشكر الخاص لهذا المنتدى الرائع ولجميع القائمين عليه وجميع الأعضاء الخبراء منهم والمبتدئين.. وتقبلوا تحياتي

مشكور على مرورك العطر ومجاملتك الرقيقة أخي محمد وبعدين الموضوع بسيط مفيهوش إبداع .. الإبداع عندك إنت في الموضوع الخاص بيك http://www.officena.net/ib/index.php?showtopic=61010 هو دا الشغل الاحترافي تقبل تحياتي

حياكم الله !! واذكرك فقط باختيار افضل اجابة !! تحياتي

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

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

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

تفضل اخي الكريم حل بطريقة اخرى بع اذن الاساتذة الافاضل راتب.rar

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

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

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

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

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