ابوحسنين قام بنشر يونيو 29, 2015 قام بنشر يونيو 29, 2015 السلام عليكم ورحمة الله وبركاته اتمنى لو استطيع من خلالكم رسم دائرة ثم رسم دوائر صغيرة على محيط هذه الدائرة بمعطيات الخلايا مثلا قطر الدائرة الكبرى 7سم قطر الدوائر الصغيرة 0.75 سم عدد الدوائر الصغيرة 18 المسافة بين كل دائرة واخرى 2 سم بمعرفة عدد الدوائر الصغيرة او بمعرفة المسافة بين كل دائرة واخرى اريد رسم الدوائر الصغيرة على الدائرة الكبيرة بارك الله فيكم وجزاكم الله خير
ياسر خليل أبو البراء قام بنشر يوليو 1, 2015 قام بنشر يوليو 1, 2015 الأخ الفاضل أبو حسنين إليك الملف التالي عله يفي بالغرض 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 ثم تنفيذ الكود لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" ولا تضغط عليها إذا لم ينل الملف إعجابك Draw Circles By Code.rar 3
ا بو سليمان قام بنشر يوليو 1, 2015 قام بنشر يوليو 1, 2015 (معدل) اخي ياسر بارك الله فيك عمل رااااااااائع لدي مزرعة مستطيلة تقريبا مزرعة بطول 1000م وعرض 500 م كم استطيع ا ن اغرس فسيله نخلة ا ذ اكانت المسافة بين كل فسيلة واخرى 6متر تم تعديل يوليو 1, 2015 بواسطه ا بو سليمان
ياسر خليل أبو البراء قام بنشر يوليو 1, 2015 قام بنشر يوليو 1, 2015 أخي الحبيب أبو سليمان كل عام وأنت بخير لي طلب لديك .. إذا كان لديك طلب يرجى طرحه في موضوع مستقل فهذا أيسر للجميع وأفضل لك وللجميع لكي يستفيد الجميع من الطلب .. الموضوع لا علاقة له بطلبك كل ما عليك أن تطرح موضوع جديد وإن شاء الله تجد المساعدة من إخوانك تقبل تحياتي 1
ا بو سليمان قام بنشر يوليو 1, 2015 قام بنشر يوليو 1, 2015 أخي الحبيب أبو سليمان كل عام وأنت بخير لي طلب لديك .. إذا كان لديك طلب يرجى طرحه في موضوع مستقل فهذا أيسر للجميع وأفضل لك وللجميع لكي يستفيد الجميع من الطلب .. الموضوع لا علاقة له بطلبك كل ما عليك أن تطرح موضوع جديد وإن شاء الله تجد المساعدة من إخوانك تقبل تحياتي احسنت اخي ياسر انا تعمد طرحة هنا لكي يكون ذا فائدة لمن يدخل المووضع ليجد اكثر من عمل في موضوع واحد
ياسر خليل أبو البراء قام بنشر يوليو 1, 2015 قام بنشر يوليو 1, 2015 أخي وحبيبي في الله المتابع للموضوع الواحد إذا وجد أكثر من قضية في الموضوع الواحد قد يتشتت أمره ولا يكمل متابعته .. الأفضل دائماً التركيز في موضوع واحد والحصول على حلول متنوعة لنفس الطلب في نفس الموضوع هو الأفضل .. تقبل تحياتي
ابوحسنين قام بنشر يوليو 2, 2015 الكاتب قام بنشر يوليو 2, 2015 مشرقنا الغالي بارك الله فيك جربت الكود المرفق وقام برسم 8 دوائر متطابقة فوق بعضها حسبتها في البداية دائرة واحدة لكن عندما حركتها تبين انها 8 دوائر ثم اعطاني خطأ type mismatch شكرا حبيبي الغالي لكن لا اعتقد انه يفي بالغرض فهل من مساعدة اخرى
ياسر خليل أبو البراء قام بنشر يوليو 2, 2015 قام بنشر يوليو 2, 2015 الأخ الكريم الملف يعمل معي بشكل جيد جداً وكما هو متوقع ربما نسخة الأوفيس لديك قد تكون السبب .. ممكن تدلني على السطر في الكود الذي يعطي الخطأ .. ننتظر تجربة الأخوة الأعضاء للملف وإبداء رأيهم بخصوص عمل الملف من عدمه
ابوحسنين قام بنشر يوليو 2, 2015 الكاتب قام بنشر يوليو 2, 2015 الأخ الكريم الملف يعمل معي بشكل جيد جداً وكما هو متوقع ربما نسخة الأوفيس لديك قد تكون السبب .. ممكن تدلني على السطر في الكود الذي يعطي الخطأ .. ننتظر تجربة الأخوة الأعضاء للملف وإبداء رأيهم بخصوص عمل الملف من عدمه اعتذار كبير للمشرف الحبيب الخطأ مني وفي استعجالي عندما قرأت جملة "إليك الملف التالي عله يفي بالغرض" اعتقدت ان الكود المكتوب على الشاشة هو الملف المقصود وقمت بنسخه والصاقه في ملف اكسل وشغلته فطلعت الاخطاء التي حدثتك عنها ولكن عندما رجعت الى المشاركة مرة اخرى وجدت اوامرك تحت الكود ووجدت ايضا الملف المرفق وكم خجلت من نفسي على تسرعي فارجو منك المعذرة الحقيقة ان النتيجة ابهرتني ولم اكن اتصور انه يمكن تنفيذ ما طلبته لكني فوجئت به وهو امام عيني وانا غير مصدق لكن فعلا هناك رجال يفعلون المستحيل فالشكر الوافر والجزيل لك مشرفنا العزيز وبارك الله فيك بقي لي طلب ان كان لي ان اطلب اريد ان اعرف المسافة بين كل دائرة واخرى من الدوائر الصغيرة 1
ياسر خليل أبو البراء قام بنشر يوليو 2, 2015 قام بنشر يوليو 2, 2015 أخي الكريم أبو حسنين لا داعي للاعتذار فكلنا ذو خطأ الحمد لله أن تم المطلوب على خير .. وطبعاً الكود ليس لي (لست من رجال المستحيل .. ولكننا على اتصال بهم ) بالنسبة لطلب الثاني سأحاول فيه إن شاء الله .. قم بإرفاق شكل النتائج المرجوة ؟ أين هو النطاق المراد إظهار النتائج فيه ؟كيف هي شكل النتائج؟
أ / محمد صالح قام بنشر يوليو 2, 2015 قام بنشر يوليو 2, 2015 (معدل) بعد إذن الحبيب ياسر يمكنك كتابة المسافة بين الدائرتين مثلا في الخلية A5 ثم في الخلية D5 نكتب هذه المعادلة =((2*22/7*D2/2)-(D3*D4))/D4 لتظهر لنا المسافة بين الدوائر الصغيرة الموجودة على محيط الدائرة الكبيرة الخارجية ويمكنك نسخ المعادلة أفقيا إلى الخلية E5 لتحسب للدائرة الصغيرة الداخلية تم تعديل يوليو 2, 2015 بواسطه أ / محمد صالح 2
ا بو سليمان قام بنشر يوليو 2, 2015 قام بنشر يوليو 2, 2015 بارك الله فيك اخي محمد صالح على حسن ا ادااااااائك
ياسر خليل أبو البراء قام بنشر يوليو 2, 2015 قام بنشر يوليو 2, 2015 بعد إذن الحبيب ياسر يمكنك كتابة المسافة بين الدائرتين مثلا في الخلية 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.