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

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

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

وعليكم السلام وجزيت خيراً بمثل ما دعوت لي أخي الحبيب محي الدين تقبل وافر تقديري واحترامي

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

أخي الكريم محيي الدين قم بإزالة علامة الصح الموجودة بجوار الخيار Missing ثم ابحث عن الخيار Microsoft Word والرقم يختلف من نسخة أوفيس لأخرى .. 16 تعني الإصدار 2016 .. ستجد لديك نسخة مختلفة من ثم يجب اختيار المكتبة المناسبة للنسخة التي لديك دققت اكثر في الصورة فوجدت المكتبة 15 مضافة بالفعل .. يكفي أن تقوم بإزالة علامة الصح من جانب المكتبة التي بها كلمة Missing أي مفقود وغير موجود تقبل تحياتي

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

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

جرب تنصب نسخة أوفيس أحدث من نسخة 2007 ..جرب 2013 أو 2016 أخي الفاضل

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

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

تمام أخي الكريم تم التواصل مع العربي .. وهل توصل العربي لحل ؟ نريد أن نعرف ما تم التوصل إليه ليستطيع الأخوة ممن قد يواجهون مثل هذه المشكلة إيجاد الحل المناسب لها؟ يا خوفي ليكون التشفير سببه العربي نفسه ..عامل زي شركات الأنتي فيروس .. تعمل فيروسات عشان تشوق لمنتجها شكلها عملتها فينا يا عربي .. فك التشفير وأبلغنا بالنتيجة (ومتنساش النسبة بالنص 50 50 .. Fifty Fifty) يا إما هبلغ عنك الانتربول

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

أخي الكريم عاطف بدلاً من أن تقوم بنقل الكود من الموديول إلى حدث ورقة العمل يمكنك ببساطة ترك الكود في الموديول كما هو لأنه يعمل بكفاءة من خلال الكود ، وإذا أردت تشغيله عن طريق الضغط بالنقر بالمزدوج في العمود الثالث ما عليك إلا أن تقوم بعملية استدعاء باستخدام كلمة Call أو يمكن كتابة اسم الإجراء بشكل مباشر .. ليصبح بهذا الشكل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then Call kh_Show_UFormChang1 End If End Sub أرجو أن يفي بالغرض تقبل تحياتي

بارك الله فيك أخي الحبيب الزباري وجزيت خير الجزاء وفي انتظار المزيد والمزيد منك فما زال في جعبتك الكثير .. أخرج ما في جعبتك لإخوانك تقبل وافر تقديري واحترامي

وعليكم السلام ورحمة الله وبركاته أخي الحبيب عبد العزيز البسكري .. لا أدري تماماً أخي فأنا ذكرت أنني لم أعمل عليها .. ولكن رأيي حتى لو كانت VB.Net فأعتقد أنها أفضل النسخ .. لأنني أثناء التنصيب أذكر أنه لم تصادفني أية مشاكل وساعتها كنت أعمل على ويندوز 10 64 بت .. ولكن لم أجربها على النسخة الحالية بعد وهي ويندوز 7 32 بت تقبل تحياتي

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

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

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

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

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

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

أخي الغالي ياسر العربي .. مالك قافش ليه .. Take It Easy يا عزيزي لا تلقيح ولا تنقيح .. ولا تأنيب ولا أنابيب .. لا يوجد أي من هذه الأفكار التي تدور برأسك وافر تقديري واحترامي

أخي الكريم جرب الكود بهذا الشكل Sub ConvertProcess() Dim I As Long, Sh As Worksheet Dim strbinnum, BitValue, BinNumSize, PlaceValue, lngBaseX Dim intNumber, intRemainder, strRemainder, strOctalNumber Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Sheets With Sh .Range("F2:J10000").ClearContents For I = 2 To .Cells(Rows.Count, 5).End(xlUp).Row .Cells(I, 6).Value = RemovePeriods(.Cells(I, 5).Text) + 0 .Cells(I, 7).Value = DecimalToBinary(.Cells(I, 6)) .Cells(I, 8).Value = BinaryToOctal(.Cells(I, 7).Text) .Cells(I, 9).Value = SumDigits(.Cells(I, 8)) .Cells(I, 10).Formula = "=IF(" & .Cells(I, 8).Address & "="""","""",MOD(" & .Cells(I, 8).Address & "-1,9)+1)" .Cells(I, 10).Value = .Cells(I, 10).Value Next I End With Next Sh Application.ScreenUpdating = True End Sub Public Function RemovePeriods(ByVal Txt) Application.Volatile If TypeOf Txt Is Range Then Txt = Txt.Text End If RemovePeriods = Replace(Txt, ".", "") End Function Public Function DecimalToBinary(DecimalNum As Long) As String Dim Tmp As String Dim N As Long N = DecimalNum Tmp = Trim(Str(N Mod 2)) N = N \ 2 Do While N <> 0 Tmp = Trim(Str(N Mod 2)) & Tmp N = N \ 2 Loop DecimalToBinary = Tmp End Function Function BinaryToOctal(strbinnum As String) Dim BitValue As String, BinNumSize As Long, PlaceValue, lngBaseX As Long, intNumber As Long, intRemainder As Long, strRemainder As String, strOctalNumber As String BinNumSize = Len(strbinnum) For PlaceValue = 0 To BinNumSize - 1 BitValue = Mid(strbinnum, BinNumSize, 1) BinNumSize = BinNumSize - 1 lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX Next PlaceValue intNumber = lngBaseX Do While intNumber >= 1 intRemainder = intNumber Mod 8 strRemainder = CStr(intRemainder) intNumber = intNumber \ 8 strOctalNumber = strRemainder & strOctalNumber Loop BinaryToOctal = strOctalNumber End Function Function SumDigits(Number) Dim I As Long For I = 1 To Len(Number) SumDigits = SumDigits + Val(Mid(Number, I, 1)) Next I End Function وإليك الملف المرفق مطبق فيه الكود مع ملاحظة أن تم تنسيق عمود G كنص Decimal & Binary & Octal Conversion For All Sheets YasserKhalil.rar

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

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