ياسر خليل أبو البراء

يا عربي .. العملية قافلة ليه هو النهاردة الجمعة ؟!! يسر الله أمورك ويسر عليك كل عسير .. وفك الله كربك وكرب جميع المسلمين تقبل وافر تقديري واحترامي

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

بص موضوع الـ ByVal موضوع محتاج وقت ... خد الكود دا فيه شرح وفيه الفرق بين ByVal و ByRef 'a. Formal Parameter - a variable passed to a Sub or Function (e.g. i, iRow, and sData are formal parameters). 'b. ByRef (default) means the Sub or Function is allowed to modify the value of a formal parameter and pass the _ modified value back to the calling routine. 'c. ByVal means means the Sub or Function is allowed to modify the value of a formal parameter (in some languages _ this causes a compile error), but the value that the calling routine sees is the ORIGINAL value. '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Sub IncrementCounter(ByRef I As Long) I = I + 1 End Sub Sub OuputValueToColumnA(ByVal iRow As Long, ByVal sData As String) Cells(iRow, "A").Value = sData iRow = iRow + 1 'NOTE: Modification of a ByVal formal parameter is allowed inside the routine, but is poor programming practice Cells(iRow, "A").Value = sData End Sub Sub ImprovedOuputValueToColumnA(ByVal iInputRow As Long, ByVal sData As String) Dim iRow As Long iRow = iInputRow 'Make a local copy of the input value Cells(iRow, "A").Value = sData iRow = iRow + 1 'NOTE: Modification of a ByVal formal parameter is allowed inside the routine, but is poor programming practice Cells(iRow, "A").Value = sData End Sub Sub ByRefAndByVal() Dim iRow As Long Dim sMessage As String sMessage = "Hello World." iRow = 11 Debug.Print "iRow = " & iRow 'Output to Immediate Window (CTRL G in debugger) Call IncrementCounter(iRow) Debug.Print "iRow = " & iRow '12 expected iRow = 21 Debug.Print "iRow = " & iRow 'Output to Immediate Window (CTRL G in debugger) Call OuputValueToColumnA(iRow, sMessage) Debug.Print "iRow = " & iRow '21 expected Call ImprovedOuputValueToColumnA(iRow, sMessage) Debug.Print "iRow = " & iRow '21 expected End Sub تقبل تحياتي

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

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

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

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

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

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

أخي الكريم جمال الدين يرجى تغيير اسم الظهور للغة العربية فضلاً لا أمراً جرب الكود التالي لحذف كل أوراق العمل ما عدا الورقة الأولى (حركة الحسابات) والورقة الثانية (Statement) Sub DeleteAllSheetsExceptTwo() Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In ThisWorkbook.Sheets If Sh.Name <> Sheet1.Name And Sh.Name <> Sheet2.Name Then Sh.Delete End If Next Sh Application.DisplayAlerts = True End Sub تقبل تحياتي

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

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

أخي الحبيب رجب جاويش وهذا الكود هدية مني Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = [B4].Address Then Application.EnableEvents = False Dim vSheet For Each vSheet In Array("Sheet1", "Sheet2", "Sheet3") Sheets(vSheet).Range("B4").Value2 = Target.Value Next vSheet Application.EnableEvents = True End If End Sub تقبل تحياتي

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم سيف الدين أبو باسم جرب الملف المرفق (تم تعديل المعادلات في الفئة أ) رغم أنني ما زلت لم أفهم المطلوب بشكل واضح .. جرب المرفق وأخبرنا بالنتيجة : هل ضبطت معك أم لا؟ برنامج توزيع مبلغ بنسب.rar

أخي الكريم ابراهيم الديب يرجى ضبط اسم الظهور الخاص بك حيث أن اسم ابراهيم ملتصق بالديب ..فمش عايزين الديب ياكل ابراهيم جرب الكود التالي ...يوضع في حدث ورقة العمل التي تحتوي على الارتباطات التشعبية لأوراق العمل الأخرى 'Steps: '[Main][Sheet1][Sheet2][Sheet3] قم بإنشاء أربعة أوراق عمل 'في ورقة العمل الرئيسية قم بعمل ارتباط تشعبي لكل أوراق العمل الأخرى '[Main] قم بإخفاء أوراق العمل كلها ما عدا ورقة العمل الرئيسية المسماة 'يوضع الكود في حدث ورقة العمل الرئيسية ويقوم الكود بإظهار الشيت الهدف '--------------------------------------------------------------------- Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim strSheet As String If InStr(Target.Parent, "!") > 0 Then strSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1) Else strSheet = Target.Parent End If Sheets(strSheet).Visible = True Sheets(strSheet).Select End Sub Private Sub Worksheet_Activate() Dim WS As Excel.Worksheet For Each WS In ThisWorkbook.Worksheets WS.Visible = (WS.Name = Me.Name) Next End Sub تقبل تحياتي

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

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

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

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

ضع المعادلة التالية في الخلية F3 ثم قم بسحبها لأسفل وعبر الأعمدة =SUMIFS($B$3:$B$341,$A$3:$A$341,$E3,$C$3:$C$341,F$2) إذا لم تعمل المعادلة معك قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

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

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

أخي الكريم علي لطفي بعد إذن أخي الحبيب الغالي خالد الرشيدي قم بتحديد الخلية A1 ومن التبويب Data ثم Data Validation اختر الأمر List لعمل قائمة ثم اكتب Male,Female ثم قم بعمل كليك يمين على اسم ورقة العمل واختر الأمر View Code وضع الكود التالي .. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$A$1" Then If Target.Value = "Male" Then Target.Offset(, 1).Value = 1 ElseIf Target.Value = "Female" Then Target.Offset(, 1).Value = 2 End If End If End Sub قم بحفظ المصنف بامتداد xlsm .. جرب تختار أحد الخيارين Male أو Female من الخلية A1 .. ستتغير قيمة الخلية B1 (الخلية المجاورة) إلى رقم 1 في حالة اختيارك للخيار Male وإلى رقم 2 في حالة اختيارك للخيار Female أرجو أن يكون المطلوب .. تقبل تحياتي