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

أخي الكريم أبو عاصم يرجى تغيير اسم الظهور للغة العربية يمكن تنسيق الخلايا بحيث لا تظهر الأرقام السالبة وتظهر باللون الأحمر لكن تظل سالبة _(* #,##0.00_);[Red]_(* (#,##0.00);_(* "-"??_);_(@_) أما إذا كان المطلوب تغيير الأرقام السالبة لتكون موجبة فيمكنك كما ذكر الأخ الحبيب زيزو استخدام الدالة ABS للحصول على القيمة المطلقة الموجبة للقيم

الأخ الفاضل سبق أن طلبت منك تغيير اسم الظهور للغة العربية لسهولة التواصل الحل المقدم من الأخ الغالي خزاني حل بسيط وجميل جداً أنا فقط ترجمته إلى الكود Sub TimeCalculate() With Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=MOD(B2-A2,1)" .Value = .Value End With End Sub تقبل تحياتي

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

الأخ الفاضل أحمد بالنسبة للمنتدى ليس به مشكلة ..قد يكون الموضوع كان بعنوان غير مناسب فقام أحد المشرفين بتغيير العنوان للموضوع ومن السهل الوصول لموضوعاتك من خلال اسمك بالمنتدى ادخل على رابط كتاباتي ستجد كلمة المشاركات والموضوعات وبسهولة يمكنك الوصول لموضوعك إليك الكود التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("F3")) Is Nothing Then If Not IsEmpty(Range("F3")) Then Cells.EntireRow.Hidden = False lRow = Range("F3").Value + 4 Rows("" & lRow & ":39").Hidden = True End If End If End Sub تقبل تحياتي اخفاء صفوف.rar

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

أخي الفاضل عابر سبيل إليك رابط أوفيس 2013 32 بت https://storage.rcs-rds.ro/content/links/7f253172-e08d-4e31-90e5-373967aae884/files/get/F332-0415.7z?path= CRC32: 67AD6099 MD5: 6B17A117FFB509C8B465689DC60F5DA1 SHA-1: 1CA829A829D7D39BAA6A1250E755200C0E4D2A11 وهذا رابط نسخة الأوفيس 2013 64 بت https://storage.rcs-rds.ro/content/links/2d7aee19-6d94-497c-a531-01344c093a21/files/get/F364-0415.7z?path= CRC32: 3D08E134 MD5: 1B3E312C14FBC4A5F9C39D9E459F65CF SHA-1: AD3F3DC72C338FA8F1B2CA80BAE4BDF3C50AC6DE تقبل تحياتي

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

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

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

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

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

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

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

إلى أن تقوم برفع ملف جرب الكود بهذا الشكل .. Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer On Error Resume Next If Not Intersect(Target.Cells(1, 1), Union(Range("D2:D10000"), Range("O2:O10000"))) Is Nothing Then R = Target.Row If Cells(R, "D").Value <> "" Then Cells(R, "O").Value = R + 4999 Cells(R, "E").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 2, 0) Cells(R, "F").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 3, 0) Cells(R, "G").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 4, 0) Else Union(Cells(R, "O"), Cells(R, "O")).ClearContents End If End If If Not Intersect(Target.Cells(1, 1), Union(Range("C2:C10000"), Range("O2:O10000"))) Is Nothing Then R = Target.Row If Cells(R, "C").Value <> "" Then Cells(R, "O").Value = R + 4999 Cells(R, "l").Value = WorksheetFunction.VLookup(Cells(R, "C"), [TUNNEL3], 2, 0) Else Union(Cells(R, "O"), Cells(R, "O")).ClearContents End If End If On Error GoTo 0 End Sub ولكن الكود غير مفهوم بالنسبة لي .... ومبهم في بعض الأسطر .. ولاحظت أن في الكود رقم 0 وأعتقد أن الصحيح هو أن الصفر يجب استبدالة بحرف الـ O عموما جرب قد يكون المطلوب

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

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

الأخ الكريم رؤوف يرجى تغيير اسم الظهور للغة العربية بالنسبة لاستفسارك دا حرف الـ L مش رقم واحد التعبير الموجود هو XL ودي تعتبر بادئة لبعض القيم ..يعني مثلاً الخاصية Visible الخاصة بإظهار أوراق العمل لها 3 قيم إما : xlSheetVisible لإظهار ورقة العمل وإما : xlSheetHidden لإخفاء ورقة العمل وإما : xlSheetVeryHidden لإخفاء ورقة العمل أيضاً والفرق بين الإخفاء في الحالة الأولى والثانية شرحه بالتفصيل كالتالي الإخفاء في الحالة الأولى xlSheetHidden يمكن إظهار ورقة العمل ببساطة من خلال كليك يمين على تبويبات أوراق العمل ، هتلاقي كلمة Unhide وتختار ورقة العمل المطلوب إظهارها أما طريقة الإخفاء الثانية xlSheetVeryHidden فهي أقوى لأنه في هذه الحالة لا يمكن إظهار ورقة العمل كما في الحالة الأولى ، إنما لابد من الدخول لمحرر الأكواد والنقر على ورقة العمل المطلوب إظهارها ثم من نافذ الخصائص Properties Window بتغير حالة ورقة العمل من خلال الخاصية Visible دا كان مجرد مثال ..لتوضيح التعبير XL تقبل تحياتي

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

الأخ الحبيب أحمد أبو زيزو أعتذر عن التأخر في الرد طريقة يمكنك بها التغلب على المشكلة والطريقة أنا أستخدمها في كثير من الأحيان حدد العمود المراد تنسيقه بالشكل المناسب من التبويب Data اختر Text To Columns ثم Next ثم Next مرة أخرى ، ثم اختر Text ثم أخيراً Finish جرب الطريقة وأعلمني بالنتيجة

تجمع النجوم ..!! تطلع فوق على سطح البيت وتجيب معاك صاعق وتلسكوب وكيس ... وتبص من خلال التلسكوب وتركز على أي نجمة تعجبك ولما تلاقيها تقوم تمسك الصاعق وتلوش بيه هتلاقي النجمة وقعت في الكيس وهكذا .. والله ما فهمت حاجة لا من الملف ولا من الشرح ...ارفق بعض النتائج المتوقعة واشرح بالتفصيل المطلوب بدقة جرب المعادلة دي في الخلية K2 =G2&" "&H2&" "&I2&" "&J2 تقبل تحياتي

أخي الكريم طارق إليك الملف غير مضغوط .. اختار الإصدار الذي تعمل عليه وانقر دبل كليك ثم Yes ثم Yes ثم OK ..هذا كل ما في الأمر Enable Macros.rar

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

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

يمكن استخدام الـ Pivot Table اطلع على الملف المرفق اسم المجموعة.rar

قم بإرفاق ملف ليتضح طلبك