اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رسم دوائر صغيرة على محيط دائرة كبيرة


الردود الموصى بها

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

اتمنى لو استطيع من خلالكم رسم دائرة ثم رسم دوائر صغيرة على محيط هذه الدائرة بمعطيات الخلايا

مثلا قطر الدائرة الكبرى 7سم

قطر الدوائر الصغيرة 0.75 سم 

عدد الدوائر الصغيرة 18

المسافة بين كل دائرة واخرى 2 سم

بمعرفة عدد الدوائر الصغيرة او بمعرفة المسافة بين كل دائرة واخرى اريد رسم الدوائر الصغيرة على الدائرة الكبيرة

 

بارك الله فيكم وجزاكم الله خير

رابط هذا التعليق
شارك

الأخ الفاضل أبو حسنين

إليك الملف التالي عله يفي بالغرض

Sub TestRun()
    Const PI As Double = 3.14159265358979
    Const D2R As Double = PI / 180#

    Const CtrX As Double = 300
    Const CtrY As Double = 300

    Dim A As Double
    Dim RadBig As Double
    Dim RadSml As Double
    Dim ICol As Long
    Dim SHP As Shape
    Dim AvdInp As Variant
    
    For Each SHP In ActiveSheet.Shapes
        If SHP.Type = msoAutoShape Or SHP.Type = msoTextBox Then SHP.Delete
    Next SHP
    
    AvdInp = Range("B2:C4").Value2

    For ICol = 1 To UBound(AvdInp, 2)
        RadBig = CDbl(AvdInp(1, ICol))
        DrawCircle CtrX, CtrY, RadBig
        RadSml = AvdInp(2, ICol)

        For A = 0 To 359.99 Step 360 / AvdInp(3, ICol)
            DrawCircle CtrX + RadBig * Sin(A * D2R), CtrY - RadBig * Cos(A * D2R), RadSml
        Next A
    Next ICol
End Sub

Sub DrawCircle(CtrX As Double, CtrY As Double, rad As Double)
    Dim SHP As Shape

    Set SHP = ActiveSheet.Shapes.AddShape(msoShapeOval, CtrX - rad, CtrY - rad, 2 * rad, 2 * rad)
    With SHP.Fill
        .Visible = msoTrue
        .ForeColor.RGB = vbWhite
        .Transparency = 0
        .Solid
    End With
End Sub

يتم كتابة المعطيات في النطاق D2:E4 ثم تنفيذ الكود

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" ولا تضغط عليها إذا لم ينل الملف إعجابك :wink2:

Draw Circles By Code.rar

  • Like 3
رابط هذا التعليق
شارك

اخي ياسر بارك الله فيك  عمل رااااااااائع 

 

لدي  مزرعة مستطيلة   تقريبا 

 

مزرعة    بطول    1000م    وعرض      500  م  

 

كم استطيع ا ن اغرس  فسيله نخلة   ا ذ اكانت المسافة بين كل   فسيلة واخرى     6متر

تم تعديل بواسطه ا بو سليمان
رابط هذا التعليق
شارك

أخي الحبيب أبو سليمان

كل عام وأنت بخير

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

الموضوع لا علاقة له بطلبك

كل ما عليك أن تطرح موضوع جديد وإن شاء الله تجد المساعدة من إخوانك

تقبل تحياتي :fff: :fff: :fff:

  • Like 1
رابط هذا التعليق
شارك

 

أخي الحبيب أبو سليمان

كل عام وأنت بخير

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

الموضوع لا علاقة له بطلبك

كل ما عليك أن تطرح موضوع جديد وإن شاء الله تجد المساعدة من إخوانك

تقبل تحياتي :fff: :fff: :fff:

 

احسنت اخي ياسر

 

 

انا  تعمد طرحة هنا   لكي يكون ذا فائدة  لمن يدخل المووضع ليجد اكثر من عمل  في موضوع واحد 

رابط هذا التعليق
شارك

أخي وحبيبي في الله

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

تقبل تحياتي

رابط هذا التعليق
شارك

مشرقنا الغالي بارك الله فيك

 

جربت الكود المرفق وقام برسم 8 دوائر متطابقة فوق بعضها حسبتها في البداية دائرة واحدة لكن عندما حركتها تبين انها 8 دوائر ثم اعطاني خطأ  type mismatch

 

شكرا حبيبي الغالي لكن لا اعتقد انه يفي بالغرض

 

فهل من مساعدة اخرى

رابط هذا التعليق
شارك

الأخ الكريم

الملف يعمل معي بشكل جيد جداً وكما هو متوقع

ربما نسخة الأوفيس لديك قد تكون السبب ..

ممكن تدلني على السطر في الكود الذي يعطي الخطأ ..

ننتظر تجربة الأخوة الأعضاء للملف وإبداء رأيهم بخصوص عمل الملف من عدمه

رابط هذا التعليق
شارك

 

الأخ الكريم

الملف يعمل معي بشكل جيد جداً وكما هو متوقع

ربما نسخة الأوفيس لديك قد تكون السبب ..

ممكن تدلني على السطر في الكود الذي يعطي الخطأ ..

ننتظر تجربة الأخوة الأعضاء للملف وإبداء رأيهم بخصوص عمل الملف من عدمه

 

اعتذار كبير للمشرف الحبيب

 

الخطأ مني وفي استعجالي

 

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

 

ولكن عندما رجعت الى المشاركة مرة اخرى وجدت اوامرك تحت الكود ووجدت ايضا الملف المرفق

 

وكم خجلت من نفسي على تسرعي فارجو منك المعذرة

 

 

الحقيقة ان النتيجة ابهرتني ولم اكن اتصور انه يمكن تنفيذ ما طلبته لكني فوجئت به وهو امام عيني وانا غير مصدق

 

لكن فعلا هناك رجال يفعلون المستحيل

 

فالشكر الوافر والجزيل لك مشرفنا العزيز وبارك الله فيك

 

بقي لي طلب ان كان لي ان اطلب

 

اريد ان اعرف المسافة بين كل دائرة واخرى من الدوائر الصغيرة

  • Like 1
رابط هذا التعليق
شارك

أخي الكريم أبو حسنين

لا داعي للاعتذار فكلنا ذو خطأ

الحمد لله أن تم المطلوب على خير ..

وطبعاً الكود ليس لي (لست من رجال المستحيل .. ولكننا على اتصال بهم :wink2: )

 

بالنسبة لطلب الثاني سأحاول فيه إن شاء الله .. قم بإرفاق شكل النتائج المرجوة ؟ أين هو النطاق المراد إظهار النتائج فيه ؟كيف هي شكل النتائج؟

رابط هذا التعليق
شارك

بعد إذن الحبيب ياسر

يمكنك كتابة المسافة بين الدائرتين مثلا في الخلية A5

ثم في الخلية D5 نكتب هذه المعادلة

=((2*22/7*D2/2)-(D3*D4))/D4

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

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

تم تعديل بواسطه أ / محمد صالح
  • Like 2
رابط هذا التعليق
شارك

بعد إذن الحبيب ياسر

يمكنك كتابة المسافة بين الدائرتين مثلا في الخلية A5

ثم في الخلية D5 نكتب هذه المعادلة

=((2*22/7*D2/2)-(D3*D4))/D4

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

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

 

بارك الله فيك أستاذنا الكبير / محمد صالح

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

إضافة مميزة

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information