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

انظر الى الورقة 3 تجريبي salim 1.rar

Private Sub UserForm_Activate() For i = 1 To 200 Step 0.1 With Me DoEvents .Height = i: .Width = i * 2 .Top = .Top - (i / 2000): .Left = .Top - (i / 2000) End With Next End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For ii = 1 To 20 Step 0.005 With Me DoEvents .Height = .Height - ii: .Width = .Width - ii * 3 End With Next End Sub مرحبا هذه محاولة شبيهة بما قام به الاستاذ الصقر

السلام عليكم ورحمة الله وبركاته إخواني في الله الموضوع ليس جديد وقد تم طرح الكود في مشاركات فرعية بموضوعات مختلفة بالمنتدى ، ولكن لأهميته رأيت ان أقوم بطرح موضوع مستقل ليسهل الوصول إلى الموضوع باستخدام خاصية البحث في المنتدى فكرة الكود هي استخراج القيم الغير مكررة أي استخراج القيم الفريدة في نطاق محدد .. والكود مشروح لمن أرد الشرح لعل وعسى أن يتعلم الجميع كيفية استخدام الأكواد بشكل جيد وهذا هو الكود مصحوب بالشرح ... أرجو أن ينال إعجايكم Sub UniqueByDictionary() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("C1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub وإليكم الملف المرفق مطبق فيه الكود مع مثال بسيط حمل الملف من هنا تقبلوا تحياتي

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

أخي الغالي عبد العزيز بارك الله فيك وجزيت خيراً .. لكم أسعدتني كلماتك ومرورك العطر بالموضوع تقبل وافر تقديري واحترامي

بارك الله فيك يا غالي على الدّروس الهامّة و المفيدة و الشّرح البسيط .. لم نشبّع .. و لا نشبع من علمك أبدًا واصل و فّقك الله .. و هأنذا بصدد محاولة فهم الكود ..

السلام عليكم الشكر لجميع الاخوة الكرام تم تعديل الكود ليتوافق مع احجام مختلفة اختر الحجم المناسب و اكتبه في التصريح مثل Const iHeight As Integer = 150 Const iWidth As Integer = 600 الكود '---------------------------------------------------- Const iHeight As Integer = 150 Const iWidth As Integer = 600 '---------------------------------------------------- Private Sub UserForm_Activate() Ap_H = Application.Height Ap_W = Application.Width With Me For iHH = 1 To iHeight .Height = iHH: .Top = ((Ap_H - .Height) / 2) DoEvents Next For iWW = 1 To iWidth .Width = iWW: .Left = ((Ap_W - .Width) / 2) DoEvents Next End With End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub

لما لا تقوم بجمع الشروط في دالة واحدة؟! صراحة لم أجرب قبل استدعاء دالة من دالة أخرى ، رغم أنه من المنطقي أن تتم بسهولة ، ربما الخطأ يرجع إلى أنك تستخدم نفس المتغيرات في الدالتين .. طيب جرب تغير في المتغيرات في الدالة الثانية يعني بدلاً من a, x, y, d, e خليها a1,x1,y1,d1.e1

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

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

بعد اذن اساتذنا الكرام هذا حل بسيط وممكن يوذي الغرض ضع هذا الكود في الفورم الواجهة في حدث عند التحميل للفورم If Dir("j:\sndesk\MOVI.txt") = "" Then MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit End If شرح الكود If Dir("j:\sndesk\MOVI.txt") = "" Then هي مسار الفلاش عندي اي ان الفلاشه علي برتشن ال ( j ) ويوجد ملف تكست اسمة MOVI داخل ال (الجي) في فولدراسمه sndesk طبعا لو انت مش موصل الفلاش الي عليها الملف ده علي الكمبيوتر مش هيفتح البرنامج وتظهر لك الرسالة MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit ثم يغلق البرنامج

انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IFERROR(INDIRECT("'"&A2&"'!E4"),"") اذا لم تعمل معك المعادلة استبدل الفاصلة بالفاصلة المنقوطة

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

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

الثوابت تنقسم الثوابت في لغة الفيجوال بسيك إلى ثلاثة اقسام رئيسية وهي نصية او رقمية ومنطقية ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة const ولاحظ هنا اخي الكريم في الفيجوال بيسك لا يمكنك تعريف ثابت إلا من خلال المبدأ التالي Const name as type = value Const اسم الثابت as قيمته = نوعه عند كتابة الثابت لا يمكنك نسب قيمة له إلا في نفس السطر الذي قمت بكتابة الثابت فيه . اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر وهذا من الاشياء التي تميز المتغير عن الثابت امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج Const name As String = "Yasser" ثابت من نوع نص Const age As Integer = 30 ثابت من نوع عدد صحيح Const marry As Boolean = True ثابت من نوع قيمة منطقية الطرق التي من خلالها تستطيع تعريف ثوابت لبرنامج الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل Const name As String = "Aseel" كتابة الثابت بدون تحديد نوع له مثل Const name = "Mohamed" كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل Const name As String = "Mohamed", age As Integer = 30 كتابة اكثر من ثابت بدون تحديد نوع الثابت مثل Const name = "Mohamed", age = 33, marry = False لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط الأخطاء المتوقع حدوثها عند تعاملك مع الثوابت تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك Const age As Integer = 20 age = 22 تعريف الثابت في سطر ونسب القيمة له في سطر اخر كما قلنا سابقاً مثال لذلك Const age As Integer age = 18 ملاحظة هامة عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة تعريف الثابت تقبلو تحياتي ياسر العربي يتبع

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

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

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

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

هذا استعلام الحاقي مصدره INSERT INTO ParentsCom ( Stu_eSIS, TheWay, Comu_Reasone, Comu_Date, Mobil_F ) SELECT StudentsNames.eSiS, [Forms]![ParentsCom]![Combo25] AS Expr1, [Forms]![ParentsCom]![Comu_Reasone] AS Expr2, [Forms]![ParentsCom]![Comu_Date] AS Expr3, StudentsNames.Mobil FROM StudentsNames WHERE (((StudentsNames.Section)=[Forms]![ParentsCom]![StuSection])); احفظ الاستعلام وتقدر تشغله اخ علي في الحدث المناسب لك وليكن خلف زر امر جديد ولكن مع وجود شرط ان القائمة مطابقة للنوع المطلوب! فمثلا لو اسميت الاستعلام ب query2 وخلف زر امر نكتب If Me.Combo25 = "إرسال اخطار مع الطالب" Then DoCmd.OpenQuery "query2" بالتوفيق

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام انشغلنا قليلاً ولم يذكرني أحد بموضوع الأسبوع الخامس .. عموماً كموضوع للبحث : بفرض أن لديك الأرقام 1 ، 2 .. المطلوب عمل معادلات أو أكواد لاستخراج كل القيم المحتملة لهذين الرقمين النتائج المتوقعة ستكون كالتالي : 1111 1112 1121 1122 1211 1212 1221 1222 2111 2112 2121 2122 2211 2212 2221 2222 تقبلوا تحياتي

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

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

بارك الله فيك أخي العزيز ياسر دائما انت مبدع وفقك الله لكل خير

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

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

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

exit sub هي للخروج من الشرط وفتح النموذج اصلا اذا تحقق الشرط فتح النموذج وهي نتيجة exit sub اما اذا لم يتحقق تخرج الرسالة ويغلق التطبيق اين المشكلة في ذلك ؟ طيب اجعل بدلها امر بفتح نموذج آخر

جرب هذا الملف الغاء المكرر في القائمة المنسدلة Salim.rar

ولكنه عندي يعمل استبدل الرقم وجرب db1.rar

هل تقصد مثل هذه الشيء vlooup_dif_sheets.rar

اعمل مثال داخل الفلاش يحتوي على نموذج واحد فقط الصق الاكواد في محرر النموذج وجرب العمل سيتم على نموذج واحد حدث عند الفتح يقرأ رقم الفلاشة وحدث عند التحميل يقارن اذا ضبطت يمكنك استبدال العبارة exit sub بعبارة اخرى لفتح ما تريد Dim i Private Sub Form_Load() If i = "1210253353" Then Exit Sub Else MsgBox "البرنامج محمي لا يمكن فتحه" DoCmd.Quit End If End Sub Private Sub Form_Open(Cancel As Integer) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems i = objItem.SerialNumber Next End Sub ويمكن جعل الكود في حدث الفتح في وحدة نمطية عامة يتم نداؤها داخل كل نموذج لتضمن عدم التمكن من فتح اي نموذج عند مخالفة الشرط

اخى العزيز ارجو ان يفى الملف التالى بالغرض مشكور ملف العمل.rar

لم تجب على تساؤلي اي برنامج متقدم يحتاج الى خدمات مصاحبة يتم تثبيتها على الجهاز المستخدم

أخي الكريم طلبك بسيط جداً بس دا مش ارتباط تشعبي ..دي مجرد معادلة بتريط خلية أخرى في ورقة عمل أخرى عموماً المعادلة دي حطها في الخلية C2 =IF(السجل!H2="","",السجل!H2) لو المعادلة قابلتك فيها مشاكل استبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

تفضل أخي الكريم رغم أن الموضوع بسيط ..بيظهر معاك كذا صفحة بتنتظر لمدة 5 ثواني وتضغط على Skip Ad .. ودا بيتكرر 4 أو 5 مرات (كنوع من الدعم البسيط لي) عموماً تفضل الكود وجرب وأعلمني بالنتيجة Sub CopyRow(sSheet As String, sRow As Long, LC As Long) Dim Ws As Worksheet Dim cnt As Long On Error Resume Next Set Ws = Sheets(sSheet) On Error GoTo 0 If Ws Is Nothing Then MsgBox "Sheet " & sSheet & " Doesn't Exist In The Workbook.", vbExclamation, "Sheet Not Found!" Exit Sub End If cnt = Sheets("بيانات المدرسة").Range("B10").Value Ws.Range(Ws.Cells(sRow, 1), Ws.Cells(sRow, LC)).Copy Ws.Range("A" & sRow).Resize(cnt + 1).PasteSpecial xlPasteAll On Error Resume Next Ws.Range("A" & sRow + 1).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents Application.CutCopyMode = False End Sub Sub DoIt() CopyRow "بيانات الطلبة", 7, 19 CopyRow "إنجاز1", 7, 15 CopyRow "رصد الترم الأول", 7, 29 CopyRow "أعمال السنة", 7, 15 CopyRow "رصد الترم الثانى", 7, 102 CopyRow "كنترول شيت", 12, 114 End Sub تقبل تحياتي

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

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

السلام عليكم رجاء افادتي عملت البرنامج وتريد اخفاء اكسس من الخلفية مع العلم انا استخدم ويندوز 7 و اوفيس 2010

المتغيرات Variables سنبدأ بتعريف المتغير Variable و هو يشير إلى موقع تخزينى فى الذاكرة و يمكن أن يحتوى على بيانات (عددية أو حرفية) ، و يتم تعريف المتغير أثناء كتابة البرنامج ، و يمكن تغيير محتوى هذا المتغير أثناء سير البرنامج ، و كل متغير له اسم وحيد يعرف به و كل متغير له اسم وحيد يعرف به و لا يمكن وجود متغيرين أو أكثر بنفس الاسم فى مكان واحد بالذاكرة. عند تحديد اسم المتغير يجب اتباع شروط محددة: .2 أن يبدأ بحرف هجائى (انجليزى : A,B, …..Y,Z or a,b,….,y,z) .3 ألا يحتوى على علامات خاصة (؟،! ،: ، ....) .4 ألا يكون هذا الاسم من الكلمات المحفوظة فى اللغة البرمجية مثل End , Byte وغيرها .5 الاسم قد يتضمن أرقام و حروف. أنواع المتغيرات : نأتى لجزء مهم فى تكويد المتغيرات و هو تعريف المتغير و هو الإعلان عن اسم المتغير و نوعه داخل نافذة البرمجة ، و من صور المتغير داخل نافذة البرمجة: Dim VariableName As DataType أمثلة تعريف على أنواع المتغيرات السابقة: او من الممكن ان نعرفها هكذا Dim myIntegr As Integer myInteger =3 وهكذا مع جميع المتغيرات Variables وهذا درس مرفق لاخي الغالي ياسر ابو البراء عن المتغيرات Variables في الVBA وطبعا وجهه الشبه كبير بين الVBA والدوت نت من حيث المتغيرات وبعض الاكواد البرمجية بل ان معظم تعريف المتغيرات Variablesداخل نوافذ البرمجة عامة كلها شبه متطابقة طيب محتاجين مثال فيه متغيرات كتطبيق عملي اقول لكم لو قمتم بتطبيق درس الآله الحاسبة ستجدو ان به متغيرات من النوع Double و String المتغير Double تم تعريفه ليكون للقيم المدخلة من الآله الحاسبة ولماذا اختارنا هذا المتغير لانه يدعم الكسور لان العمليات الحسابية لن تخلو دائما من الكسور والمتغير String تم اختياره للعمليات الحسابية وهي العلامات + - * / واستخدمناه هنا ليتعامل مع العلامات على انها نص اتمنى ان اكون قد وصلت المعلومة بطريقة سهلة ياريت بقي نلاقي امثلة فيها متغيرات منوعه كدا من الجميع تقبلو تحياتي ياسر العربي يتبع المتغيرات نبدأ الحلقة.rar

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

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

السلام عليكم المعادلة موجودة في العمود الأصفر sheet2 تفضل Book2.rar

اساتذتى الافاضل اسمحوا لى وانا تلميذكم فى هذا المنتدى أبداء رأى فى هذا الموضوع لماذا نهتم بمواضيع كسر الحمايه ولا نهتم بالبحث عن حل وابتكار جديد فى الاكسيل وهو كيفية عمل كود يمنع كسر الحمايه بدلا من ان نضيع وقتنا فى البحث فى ابتكار كسر الحمايه هل وقفنا عاجزين عن حماية ملفاتنا امام برامج كسر الحمايه ؟؟؟!!! خاصه لو هذه البرامج تحوى على معلومات خاصه بشركات او اشخاص فأصبحنا نتجه الى التنافس فى برامج كسر الحمايه ونتباها بها الفطره اللى ربنا خلقنا بيه ان كل واحد بيفكر ازاى يفكر يحمى نفسة ويحمى بيته ويحمى اولاده فأذا كانت فطرتنا هى البحث دائما عن حمايتنا فلماذا نتجه الى كسر الحمايه أنا اتفق معكم وبشده ممكن يكون الوحد ممنا نسى الباسورد لملف خاص به وبه كل بيانات عمله فلابد من حلول مثل كسر الحمايه حتى يتم استرجاع الملف وفتحه مره اخرى ولكن للاسف ممكن شخص يستخدم برنامج فك الحمايه لملف ليس خاص به بل خاص بزميل اخر وليكن على سبيل المثال 2 محاسبين فى العمل واحد يسرق مجهود اخر ؟؟؟؟!!! وهذا حصل معى بالفعل سرقة ميزانيه وتقارير كنت قمت بأعدادها على الاكسيل *********************************************************************************** سوف اكون اكثر مرونه فى رأى واتفق معكم فى انه لابد من وجود برامج كسر الحمايه والبحث عن ما هو افضل وجدييد لتفيدنا كما ذكرت فى فك ملف شخصى تم نسيان الباسورد بتاعه ولكن يكون هناك خط متوازى اخر وهو البحث عن برامج او اكواد لمنع كسر الحمايه وبكدا يكون التنافس والابتكار والابداع يسيران فى خطين متوازين متساويين ولكن كما ذكرت بأننا وقفنا عاجزين امام برامج كسر الحمايه وهذا شئ مؤسف ويجعلنا نفقد حبنا للاكسيل وعدم الثقه فيه لانه غير قادر على حمايه بياناتنا واتذكر استاذى الحبيب عماد الحسامى حاول مرارا وتكرار فى مواجهه كسر الحمايه للاسف مش متذكر الرابط اللى كان بيقدم فيه ذالك ولكن يكفية شرف المحاوله * فهل قمنا نحن ولو مجرد محاوله فى ابداع وابتكار جديد لمواجهه برامج كسر الحمايه او حتى اكواد تفك الحمايه واخيرا ارجوا على الاقل ان نمشى فى خطين متوازيين تقبلوا تحياتى

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

أخي الحبيب واستاذنا / مجدي يونس بارك الله فيك علي متابعة الموضوع وبالنسبة لموضوع الكهرباء وانقاطعها المتكرر بمصر فانصحك ((بسيبسليزر) (Stabilizer) لانه من مميزاته تثبيت التيار علي 220 فولت مهما انخفض او ارتفع التيار المدخل والميزة الاخري والهامة جدا عند انقطاع التيار يعطيك فترة 30 دقيقة فيها الفرصة الكافية للقيام بحفظ اعمالك وعمل اغلاق للكمبيوتر وحتي لو انت مثلا غير متواجدامام الجهاز بيقوم بعمل شيت داون للجهاز وفي منه تعطي فترات اعلي لكن اغلي وحسب النوع وبلد المنشا لكن متوسط السعر بالسعودية 270 ريال وسعره بباب اللوق 340 ج لكن بالنسبة لمنطقة بورسعيد لا اعرف ماهو السعر وهتلاقي تكاليف تغيير الرامات او البور صبلاي مجمعة علي فترة معينة بنفس سعر الجهاز عن تجربة تقبل تحياتي

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