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



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





تمييز الخلية النشطة بأكثر من طريقة

بسم الله الرحمن الرحيم اليوم نقدم لكم طريقة تمييز الخلية النشطة بأكثر من طريقة المثال الاول تكبير حجم الخط للخلية النشط ..



11-01-2018 01:25 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 756
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5175
الاعجاب : 1343
موقعي : زيارة موقعي
 offline 
بسم الله الرحمن الرحيم

اليوم نقدم لكم طريقة تمييز الخلية النشطة بأكثر من طريقة
المثال الاول
تكبير حجم الخط للخلية النشطة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    FontSize = ActiveCell.Font.Size
    LargeSize = FontSize * 3
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
End Sub


المثال الثاني
عمل صورة مكبرة من الخلية المحددة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'حدد الزوم او عدد تكبير الخلية
    ZoomCell 2
End Sub
Private Sub ZoomCell(ZoomIn As Single)
    Dim s As Range
    Set s = Selection
    'Get rid of any existing zoom pictures
    For Each p In ActiveSheet.Pictures
        If p.Name = "ZoomCell" Then
            p.Delete
            Exit For
        End If
    Next
    'Create a zoom picture
    s.CopyPicture Appearance:=xlScreen, _
      Format:=xlPicture
    ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "ZoomCell"
        With .ShapeRange
            .ScaleWidth ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            .ScaleHeight ZoomIn, msoFalse, _
              msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 9
                .Visible = msoTrue
                .Solid
            End With
        End With
    End With
    s.Select
    Set s = Nothing
End Sub

المثال الثالث
تغيير لون الخلية النشطة ولكن يجعل الخلايا كلها بدون لون اي نستخدمه في حالة عدم تلوين اي خلية داخل الشيت
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 3
    Application.ScreenUpdating = True
End Sub



المثال الرابع
تغيير لون الخلية النشطة مع الحفاظ على الوان الخلايا الموجودة الملونة  مسبقا
Private objCurrentCell As Range
Private OrigColorIdx As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    On Error Resume Next
    If objCurrentCell Is Nothing Then
        Set objCurrentCell = Target
        OrigColorIdx = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
    Else
        objCurrentCell.Interior.ColorIndex = OrigColorIdx
        Set objCurrentCell = Target
        OrigColorIdx = Target.Interior.ColorIndex
        Target.Interior.ColorIndex = 3
    End If
    Application.EnableEvents = True
End Sub


تحياتي
 






أثارت هذه المشاركة إعجاب: hadjadj youcef، ناصر سعيد1، magdy abdelsalam، محمد أبو عبدو، ظفر الله عسكر، ابراهيم80،


توقيع :Yasser Elaraby
663013020




11-01-2018 01:41 مساء
مشاهدة مشاركة منفردة [1]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
اولا جزاك الله كل خير وبارك فيك استاذ ياسر العربي
جاري التجربه والافاده
والرد  ... ويارب يكون فيهم المطلوب --
والمطلوب هو تكبير مقاس الخط مع التلوين الخفيف اثناء الكتابه في الخليه النشطه وعند قراءه اي خليه
 
 

أثارت هذه المشاركة إعجاب: محمد حما،




11-01-2018 01:56 مساء
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 756
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5175
الاعجاب : 1343
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 »
اولا جزاك الله كل خير وبارك فيك استاذ ياسر العربي
جاري التجربه والافاده
والرد  ... ويارب يكون فيهم المطلوب --
والمطلوب هو تكبير مقاس الخط مع التلوين الخفيف اثناء الكتابه في الخليه النشطه وعند قراءه اي خليه
 
 


جرب الكوكتيل دا كدا
Private objCurrentCell As Range
Private OrigColorIdx As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    On Error Resume Next
    objCurrentCell.Interior.ColorIndex = OrigColorIdx
    Set objCurrentCell = Target
    OrigColorIdx = Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 3
    Cells.Font.Bold = False
    ActiveCell.Font.Bold = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ZoomCell 2
End Sub
Private Sub ZoomCell(ZoomIn As Single)
    Dim s As Range
    Set s = Selection
    For Each p In ActiveSheet.Pictures
        If p.Name = "ZoomCell" Then
            p.Delete
            Exit For
        End If
    Next
    s.CopyPicture Appearance:=xlScreen, _
                  Format:=xlPicture
    ActiveSheet.Pictures.Paste.Select
    With Selection
        .Name = "ZoomCell"
        With .ShapeRange
            .ScaleWidth ZoomIn, msoFalse, _
                        msoScaleFromTopLeft
            .ScaleHeight ZoomIn, msoFalse, _
                         msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 9
                .Visible = msoTrue
                .Solid
            End With
        End With
    End With
    s.Select
    Set s = Nothing
End Sub


أثارت هذه المشاركة إعجاب: ظفر الله عسكر،


توقيع :Yasser Elaraby
663013020



11-01-2018 01:56 مساء
مشاهدة مشاركة منفردة [3]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
انا الاحظ انك تفضل المثال التاني
ربما يكون لسبب برمجي انا لااعرفه ولذلك سأركز على المثال 2
المثال 2
لايمكن اللصق في الصفحه
ومقاس الخط اثناء الكتابه مازال ضغيرا
بارك الله فيك





11-01-2018 01:57 مساء
مشاهدة مشاركة منفردة [4]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
===
لم ار مشاركتك الاخيره ... جاري التجريب





11-01-2018 02:02 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
اقتبـاس ،،
جرب الكوكتيل دا كدا

جزاك الله كل خير وبعد
تمت اضافه اللون ولم تضاف ميزه تكبير الخط اثناء الكتابه

مثل التكبير عند الوقوف مره اخرى بعد الكتابه على الخليه





11-01-2018 02:19 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
 
 
  تكبير الخط بعده طرق في الخليه النشطه.rar   تحميل rar مرات التحميل :(12)
الحجم :(15.356) KB






11-01-2018 02:56 مساء
مشاهدة مشاركة منفردة [7]
hadjadj youcef
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 333
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 21-10-1978
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
جزاك الله خيرا ونفع بك لكن هل يمكن تلوين العمود والصف معا في حالة تحديد الخلية النشطة .





11-01-2018 03:21 مساء
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 756
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 405
قوة السمعة : 5175
الاعجاب : 1343
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
المشاركة الأصلية كتبت بواسطة: hadjadj youcef »
جزاك الله خيرا ونفع بك لكن هل يمكن تلوين العمود والصف معا في حالة تحديد الخلية النشطة .


تفضل هذا المثال عملي ومميز عن الاخرين في التلوين لانه بالتنسيق الشرطي تفضل الملف على ما اعتقد للاخ الغالي ياسر خليل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  Highlight Activecells Row And Column V2.zip   تحميل zip مرات التحميل :(14)
الحجم :(11.811) KB




توقيع :Yasser Elaraby
663013020



11-01-2018 04:49 مساء
مشاهدة مشاركة منفردة [9]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        Range("P1").Value = Target.Address
    Application.ScreenUpdating = True
End Sub



=COLUMN()=COLUMN(INDIRECT($P$1))


=ROW()=ROW(INDIRECT($P$1))

جزاكم الله خيرا .. هذه اكواد الملف السابق مباشره





11-01-2018 04:52 مساء
مشاهدة مشاركة منفردة [10]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
هل يمكن دمج هذه المزايا في كود تكبير خط الخليه النشطه اثناء الكتابه
واختر الكود الذي يعجبك يا استاذ ياسر العربي لانك ادرى بايهم افضل وليس له مشاكل مع الصفحه





13-01-2018 01:09 مساء
مشاهدة مشاركة منفردة [11]
محمد أبو عبدو
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 97
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 293
الاعجاب : 140
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
السلام عليكم ورحمة الله نعالى وبركاته

بارك الله فيك أستاذنا الفاضل وجزاك الله عنا خير الجزاء

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




14-01-2018 04:26 مساء
مشاهدة مشاركة منفردة [12]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 449
الاعجاب : 170
 offline 
look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 »
هل يمكن دمج هذه المزايا في كود تكبير خط الخليه النشطه اثناء الكتابه
واختر الكود الذي يعجبك يا استاذ ياسر العربي لانك ادرى بايهم افضل وليس له مشاكل مع الصفحه

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







الكلمات الدلالية
تمييز ، الخلية ، النشطة ، بأكثر ، طريقة ،


 







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



الساعة الآن 10:32 مساء

أعلن هنا
أعلن هنا
أعلن هنا