اريد طريقة التحويل من عشري الى ثنائي ثم من ثنائي الى ثماني بالمعادلات وليس الاكواد

[هاوي اكسل]

السلام عليكم ورحمة الله وبركاته

اريد تحويل العدد من عشري الى ثنائي ثم من ثنائي الى ثماني عن طريق المعادلات وليس الاكواد

عندي ملف للتحويل لكنه بالاكواد

Book1.rar

[محي الدين ابو البشر]

السلام على من اتبع الهدى

اخي العزيز في المرفق طلبك بالنسبة للثماني

للثنائي هناك حدود موجود توضيح بالمرفق

بحاجة لمعالجة

Book.rar

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

جرب المعادلة التالية في الخلية B2

=DEC2BIN(MOD(QUOTIENT(A2,256^3),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^2),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^1),256),8)&DEC2BIN(MOD(QUOTIENT(A2,256^0),256),8)

 

[هاوي اكسل]

الله يعطيك العافية ابو البشر

انا اريد التحويل الى ثنائي وناتج الثنائي نحوله الى الثماني

شكراً لك

وجزاك الله خيراً

 

 

الله يعطيك العافية ابو البراء

جربت المعادلة في الخلية B2

تظهر المعادلة في الخلية ولا تعطي اي نتائج

تم تعديل مارس 19, 2016 بواسطه هاوي اكسل

[أبوبسمله]

56 دقائق مضت, ياسر خليل أبو البراء said:

جرب المعادلة التالية في الخلية B2

=DEC2BIN(MOD(QUOTIENT(A2;
;256^3);256);8)&DEC2BIN(MOD(QUOTIENT(A2;256^2);256);8)&DEC2BIN(MOD(QUOTIENT(A2;256^1);256);8)&DEC2BIN(MOD(QUOTIENT(A2;256^0);256);8)

 

اتفضل اخى هو نفس الكود لكن باعد تعديل الفاصله للفاصله المنقوطه

انسخ من الاقتباس وان شاء الله يظبط معاك

جزاه الله كل خير ابو البراء

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

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

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

[هاوي اكسل]

14 دقائق مضت, ياسر خليل أبو البراء said:

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

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

الله يعطيكم العافية جميعا

هذا رابط الملف

Decimal & Binary & Octal Conversion.rar

4 ساعات مضت, هاوي اكسل said:

السلام عليكم ورحمة الله وبركاته

اريد تحويل العدد من عشري الى ثنائي ثم من ثنائي الى ثماني عن طريق المعادلات وليس الاكواد

عندي ملف للتحويل لكنه بالاكواد

Book1.rar

 

تم تعديل مارس 19, 2016 بواسطه هاوي اكسل

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

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

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

تقبل تحياتي

 

[هاوي اكسل]

صدقت ابو البراء

لكن الاكواد تتطلب تحديث بالاستمرار

بينما المعادلات تعطيك الناتج مباشرة دون تحديث

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

أضحكتني أضحك الله سنك .. وهل ضغطة على زر الأمر بالأمر المرهق ! ..

عموماً إن شاء الله تجد الحل بالمعادلات ..

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

[محي الدين ابو البشر]

سلام عليكم

اخي الكريم ما رايك

بالاستفادة من معادلة الاستاذ ياسر بارك الله به

اتمنى أن يعجبك هذا الحل

Book.rar

تم تعديل مارس 19, 2016 بواسطه محي الدين ابو البشر

[هاوي اكسل]

ابو البراء المعادلة مربوطة بمتغير لحظي فهل مثلا ساحدث عدة صفحات كل عشر ثواني او اقل لعدة ساعات

الله يعطيكم العافية جميعا باقي التحويل من ثنائي الى ثماني

تم تعديل مارس 19, 2016 بواسطه هاوي اكسل

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

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

[هاوي اكسل]

في ١٠‏/٦‏/١٤٣٧ هـ at 22:14, ياسر خليل أبو البراء said:

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

الله يعطيك العافية ابو البراء

ياليت لو تعملها لعدة صفحات

اذا مافي كلفه عليك

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

أخي الكريم

ارفق ملف معبر تماماً عن الملف الأصلي لكي أستطيع تقديم المساعدة .. فأنا لا أعمل دون ملف مرفق

تقبل تحياتي

[هاوي اكسل]

جزاك الله خير

وهذا الملف مرفق محاكي تماما للملف الاصلي

Microsoft Office Excel Worksheet جديد ‫‬.rar

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

أخي الكريم

جرب الكود بهذا الشكل

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

[هاوي اكسل]

بارك الله فيك ابو البراء

الملف لا يوجد به اي كود

ولا عندي خلفية اضيف الكود

 

[محي الدين ابو البشر]

السلام عليكم

الكود موجود في المرفق

مع ذلك انظر النرفق التالي

اضغط ALT+f11

ثم في module1  الكود الموجود

 

Decimal & Binary & Octal Conversion For All Sheets YasserKhalil.rar

تم تعديل مارس 22, 2016 بواسطه محي الدين ابو البشر

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

أخي الكريم هاوي الإكسيل

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

الرابط من هنا

[هاوي اكسل]

8 ساعات مضت, ياسر خليل أبو البراء said:

8 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم هاوي الإكسيل

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

الرابط من هنا

الله يعطيكم العافية جميعا

احاول ان شاء الله

الله يعطيك العافية ابو البراء

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

أخي الفاضل

هل قمت بتجربة الملف المرفق وأدى الغرض ؟

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

[أبوبسمله]

جزاك الله كل خير يا ابوالبراء

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

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

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

وجزيت خيراً يا فلاحجي بمثل ما دعوت لي

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

[أبوبسمله]

انت اللى ذكرتنى بها

بتفانيك فى الرد على الموضوعات بأبسط مايكون وتبحث على كل معلومه 

وهي كذلك بل كانت تراسل مايكروسفت نفسها بالسؤال رايت من اعمالها تحف وروائع بالاكسيس والفوتوشوب ومعظم ادوات البرمجه بل اقول قد طوعت الاكسيس بين يديها واخرجت منه اجمل التحف الفنيه

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

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

ليس عندى حكومه فانا مطلق

وحتى لو عندى فان لم تحترمها لطلقتها من اجل احترامها

جزاها الله كل خير