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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )

السلام عليكم ورحمه الله لو سمحتوا اخواني عاوز اعمل خط مائل متحرك يكون بعد اخر صف به بيانات مثل ما في الصوره كل لما ي ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


22-12-2021 07:37 مساء
mahmoudabdelshaf
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 28-07-2021
رقم العضوية : 22658
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 30-8-1994
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
 offline 

السلام عليكم ورحمه الله 



لو سمحتوا اخواني عاوز اعمل خط مائل متحرك يكون بعد اخر صف به بيانات مثل ما في الصوره 



كل لما يتم ادخال بيانات في صف فارغ يتحرك الخط للصف الفارغ التالي تلقائي 



ارجو شرح الطريقه للضروره لانه المدير محتاجها وانا مش عارف اعملها مطلوبه مني غدا بإذن الله

 
  IMG_٢٠٢١١٢٢٢_٢٠٠٢٠٠.jpg   تحميل jpg IMG_٢٠٢١١٢٢٢_٢٠٠٢٠٠.jpg مرات التحميل :(2)
الحجم :(41.871) KB
 



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

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

بفرض أن لديك ورقة عمل اسمها البرمجي Sheet1 (والاسم البرمجي غير الاسم الظاهر في تبويبات أوراق العمل) ، ولديك نطاق البيانات يبدأ من الخلية A1 وينتهي في العمود الخامس العمود E ، وبفرض أن لديك صف عناوين وهو الصف الأول ، والمطلوب أن ترسم خط بعد صف العناوين أي بدايةً من الصف الثاني وتحديداً الخلية A2 ويمكنك تغيير خلية البداية في الكود

أولاً ضع الكود التالي في موديول عادي (اضغط على Alt + F11) للدخول لمحرر الأكواد ثم من قائمة Insert اختر Module والصق الكود التالي

Sub DrawLineBetweenCells(ByVal r1 As Range, ByVal r2 As Range)
    Dim ws As Worksheet, shp As Shape, x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Set ws = r1.Parent
    x1 = r1.Left
    y1 = r1.Top
    x2 = r2.Left + r2.Width
    y2 = r2.Top + r1.Height
    Set shp = ws.Shapes.AddLine(x1, y1, x2, y2)
    With shp
        .Name = "MyLine"
        With .Line
            .ForeColor.RGB = RGB(0, 0, 0)
            .Weight = 1.25
            .EndArrowheadStyle = msoArrowheadNone
            .DashStyle = msoLineSolid
        End With
    End With
End Sub


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

ثانياً ضع الكود التالي في حدث ورقة العمل Sheet1 (كليك يمين على اسم ورقة العمل ثم اختر View Code) ثم الصق الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 Then
        With Sheet1
            On Error Resume Next
                .Shapes("MyLine").Delete
            On Error GoTo 0
            Set r1 = .Range("A2")
            Set r2 = .Range("E" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
        End With
        DrawLineBetweenCells r1, r2
    End If
End Sub


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






 
عرض الإجابة




23-12-2021 04:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
وعليكم السلام أخي الكريم محمود عبد الشافي
أهلاً بك في المنتدى ونورت بين إخوانك

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

بفرض أن لديك ورقة عمل اسمها البرمجي Sheet1 (والاسم البرمجي غير الاسم الظاهر في تبويبات أوراق العمل) ، ولديك نطاق البيانات يبدأ من الخلية A1 وينتهي في العمود الخامس العمود E ، وبفرض أن لديك صف عناوين وهو الصف الأول ، والمطلوب أن ترسم خط بعد صف العناوين أي بدايةً من الصف الثاني وتحديداً الخلية A2 ويمكنك تغيير خلية البداية في الكود

أولاً ضع الكود التالي في موديول عادي (اضغط على Alt + F11) للدخول لمحرر الأكواد ثم من قائمة Insert اختر Module والصق الكود التالي

Sub DrawLineBetweenCells(ByVal r1 As Range, ByVal r2 As Range)
    Dim ws As Worksheet, shp As Shape, x1 As Single, y1 As Single, x2 As Single, y2 As Single
    Set ws = r1.Parent
    x1 = r1.Left
    y1 = r1.Top
    x2 = r2.Left + r2.Width
    y2 = r2.Top + r1.Height
    Set shp = ws.Shapes.AddLine(x1, y1, x2, y2)
    With shp
        .Name = "MyLine"
        With .Line
            .ForeColor.RGB = RGB(0, 0, 0)
            .Weight = 1.25
            .EndArrowheadStyle = msoArrowheadNone
            .DashStyle = msoLineSolid
        End With
    End With
End Sub


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

ثانياً ضع الكود التالي في حدث ورقة العمل Sheet1 (كليك يمين على اسم ورقة العمل ثم اختر View Code) ثم الصق الكود التالي
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 1 Then
        With Sheet1
            On Error Resume Next
                .Shapes("MyLine").Delete
            On Error GoTo 0
            Set r1 = .Range("A2")
            Set r2 = .Range("E" & .Cells(Rows.Count, 1).End(xlUp).Row + 1)
        End With
        DrawLineBetweenCells r1, r2
    End If
End Sub


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






 

23-12-2021 10:29 صباحا
مشاهدة مشاركة منفردة [2]
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3995
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
السلام عليكم ورحمة الله وبركاته
أخي الحبيب أبو البراء جزاكم الله خيراً على هذا العمل الرائع
لكن أحب التوضيح نيابة عن الأخ السائل إن أذن لي:
في المعاملات الورقية في الدوائر الحكومية وغيرها يقوم بوضع خطين متلاصقين من أحد طرفيهما الأول تحت البيانات المكتوبة على شكل خط مستقيم (تحت آخر صف بيانات) فمثلاً ملأت خمس بيانات كاملة ولم يعد هناك بيان سادس يوضع الخط المذكور في مجال البيان السادس 
ثم يتم رسم خط آخر متصلاً به حتى قبل نهاية الورقة التي بها ختم وتوقيع للدلالة على أن هذه البيانات فارغة حيث لا يتمكن أحد من كتابة أي بيان جديد تحتها أو بينها بما فيهم من رسم الخط وبذلك يمنع الإضافة أو التزوير
طبعاً لاينطبق هذا السؤال على البيانات المطبوعة بنظري لأنه لا يمكن أن يعيد طباعة سطرآخر أو أكثر في ورقة ما دون تغييرها ....بمعنى آخر كان هذا الأسلوب متبعاً في الكتابة بخط اليد حصراً..
والله أعلم
ما أودّ قوله أنك - أخي الحبيب أبو البراء -  بدلاً من أن تجعل نقطة بداية الخط في الخلية A2 يمكنك وضعها في أول خلية في الصف الخالي من البيانات أما نقطة نهاية الخط يمكنك سؤاله عنها أو تقدير عدد صفوف البيانات ووضعها في آخر صف منها تاركاً المجال للخاتم والتوقيع ..
والسلام عليكم ورحمة الله وبركاته
ملاحظة: في حالة الأخ السائل وحسب البلد الذي يقطنه يريد خطاً مائلاً بنظري ليس كافياً دون الخط الآخر ولكن هكذا لديهم في بلدهم .
توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


23-12-2021 03:09 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
أخي الحبيب أبو يوسف
نورت الموضوع بردك الرائع ومشكور على هذا الشرح المستفيض ، لا حرمنا الله منك وجزاك الله خير الجزاء.

23-12-2021 03:46 مساء
مشاهدة مشاركة منفردة [4]
mahmoudabdelshaf
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 28-07-2021
رقم العضوية : 22658
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 30-8-1994
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
شكرا لكم جدا علي الاهتمام بالموضوع وهذا ما كنت اريده فعلا  هو خط مائل في البيانات الفارغه وليس من بدايه a2 ما كنت اريده هو هذا بالفعل لكن اريد ان يكون الخط مثلا من اول خليه فارغه حتي الخليه e30 مثلا وشكرا جدا علي الاهتمام بسؤالي وربنا يجعله في ميزان حسناتكم  ❤

23-12-2021 04:42 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
بارك الله فيك أخي الكريم
الكود لديك قم بدراسته جيداً وطوعه ليتناسب مع ملفك ، كل ما عليك هو تحديد نقطة البداية ونقطة النهاية وطالما أن نقطة النهاية ثابتة فقم بتثبيت خلية النهاية ، أما خلية البداية ستكون فس الفكرة التي قدمتها.

23-12-2021 07:04 مساء
مشاهدة مشاركة منفردة [6]
mahmoudabdelshaf
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 28-07-2021
رقم العضوية : 22658
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 30-8-1994
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
 offline 
look/images/icons/i1.gif خط مائل متحرك مع الخانات الفارغه ( ضروري جدا لو سمحتوا )
شكرا استاذ ياسر انا فعلتها بالفعل 
وشكرا جدا لك علي الاهتمام بارك الله فيك 😊❤
 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
مائل ، متحرك ، الخانات ، الفارغه ، ضروري ، سمحتوا ،


 










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

الساعة الآن 06:56 صباحا