أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





وضع دوائر حول الحصص

السلام عليكم قام الفاضلان ابو البراء والاستاذ حسون بمساعدتى بكود لوضع دوائر حول الحصص الزائدة ولكنى لم استطع ان اشرح الم ..


موضوع مغلق


06-12-2021 09:14 مساء
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 

السلام عليكم
قام الفاضلان ابو البراء والاستاذ حسون بمساعدتى بكود لوضع دوائر حول الحصص الزائدة ولكنى لم استطع ان اشرح المطلوب بشكل جيد وهذا تقصير منى والملف المرفق ارجو ان اكون قد حلت عقدة لسانى وتيقظ عقلى لاوضح ما اريد ولا ارهق حضراتكم ولكم الشكر مقدماً لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  وضع دوائر حمراء على الحصص.xls   تحميل xls مرات التحميل :(9)
الحجم :(28.672) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمة الله وبركاته 
تفضل هذا الكود للاستاذ ابراهيم الحداد

Sub AddCircles2()
Dim Shp As Shape, ws As Worksheet
Dim i As Long, j As Long, p As Long
Dim C As Range, x As Integer, y As Integer
'DelShap
Set ws = Sheets("ورقة1")
x = ws.Range("W1").Value
i = 13
Do While i <= 20
j = 5
For Each C In ws.Range(Cells(j, i), Cells(13, i))
On Error Resume Next
y = InStr(C.Value, "/")
If C.Value <> "" And y > 0 Then

Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, _
C.Left, C.Top, C.Width, C.Height)
p = p + 1
Shp.Fill.Visible = msoFalse
Shp.Line.Weight = 1.5
Shp.Line.ForeColor.SchemeColor = 10
If p >= x Then Exit Sub
End If
Next
j = j + 2
i = i + 1
Loop

End Sub
 
عرض الإجابة




07-12-2021 03:43 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif وضع دوائر حول الحصص
السلام عليكم
تم تقديم كود من قبل للمشكلة واطلعت على الملف ووجدت أن فهمي للمطلوب هو نفسه المشكلة السابقة ، لذا وجب توضيح المشكلة بشكل أكبر لأن الموضوع بهذا الشكل مضيعة للوقت.

07-12-2021 02:06 مساء
مشاهدة مشاركة منفردة [2]
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 
look/images/icons/i1.gif وضع دوائر حول الحصص
الكود السابق يتعامل مع جدول واحد استطيع انا ان اضع عدد الحصص له وينفذ الكود المطلوب لكن الجدول الثانى الكود يضع الدوائر على الحصص حتى العمود السابع اياً كان عددها المطلوب حلية يوضع بها عدد الحصص للجدول الثانى لينفذ الكود وضع الدوائر بالعدد المحدد ارجو ان اكون اوضحت واسف على اضاعة اوقاتكم

07-12-2021 04:51 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif وضع دوائر حول الحصص
سأترك المشاركة للأخوة الأعضاء لأنني غير متاح لبعض الوقت كما أنني لم أفهم المطلوب ، وفقك الله للوصول للحل إن شاء الله.

07-12-2021 05:34 مساء
مشاهدة مشاركة منفردة [4]
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 
look/images/icons/i1.gif وضع دوائر حول الحصص
جزيل الشكر ابو البراء واسف على ازعاجك مجرد الاهتمام بالموضوع يشعرنى بالراحة 

18-12-2021 05:56 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif وضع دوائر حول الحصص
وعليكم السلام ورحمة الله وبركاته 
تفضل هذا الكود للاستاذ ابراهيم الحداد

Sub AddCircles2()
Dim Shp As Shape, ws As Worksheet
Dim i As Long, j As Long, p As Long
Dim C As Range, x As Integer, y As Integer
'DelShap
Set ws = Sheets("ورقة1")
x = ws.Range("W1").Value
i = 13
Do While i <= 20
j = 5
For Each C In ws.Range(Cells(j, i), Cells(13, i))
On Error Resume Next
y = InStr(C.Value, "/")
If C.Value <> "" And y > 0 Then

Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, _
C.Left, C.Top, C.Width, C.Height)
p = p + 1
Shp.Fill.Visible = msoFalse
Shp.Line.Weight = 1.5
Shp.Line.ForeColor.SchemeColor = 10
If p >= x Then Exit Sub
End If
Next
j = j + 2
i = i + 1
Loop

End Sub
 



الكلمات الدلالية
الحصص ، دوائر ،


 










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

الساعة الآن 01:54 مساء