logo

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



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





11-01-2018 01:25 مساءً
بسم الله الرحمن الرحيم

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

CODE
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



المثال الثاني
عمل صورة مكبرة من الخلية المحددة
CODE
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


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




المثال الرابع
تغيير لون الخلية النشطة مع الحفاظ على الوان الخلايا الموجودة الملونة مسبقا
CODE
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



تحياتي

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


توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
  11-01-2018 01:56 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: ناصر سعيد1 اولا جزاك الله كل خير وبارك فيك استاذ ياسر العربي
جاري التجربه والافاده
والرد ... ويارب يكون فيهم المطلوب --
والمطلوب هو تكبير مقاس الخط مع التلوين الخفيف اثناء الكتابه في الخليه النشطه وعند قراءه اي خليه
جرب الكوكتيل دا كدا
CODE
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

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




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




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




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





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




look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
  11-01-2018 03:21 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: hadjadj youcef جزاك الله خيرا ونفع بك لكن هل يمكن تلوين العمود والصف معا في حالة تحديد الخلية النشطة .
تفضل هذا المثال عملي ومميز عن الاخرين في التلوين لانه بالتنسيق الشرطي تفضل الملف على ما اعتقد للاخ الغالي ياسر خليل
attachHighlight Activecells Row And Column V2.zip
 
 
  Highlight Activecells Row And Column V2.zip   تحميل zip مرات التحميل :(27)
الحجم :(11.811) KB




توقيع :Yasser Elaraby
663013020

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




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


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

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




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




look/images/icons/i1.gif تمييز الخلية النشطة بأكثر من طريقة
  13-01-2018 01:09 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 202
الجنس :
تاريخ الميلاد : 13-4-1966
قوة السمعة : 613
الاعجاب : 0
السلام عليكم ورحمة الله نعالى وبركاته

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




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




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل كود تلوين الخلية النشطة في جدول متغير النطاق ahmed.eg
1 920 ahmed.eg
فورم به نتيجة احتاج تعديله ليدرج التاريخ بالخلية النشطة او المختارة ويختفى omhamzh
5 777 YasserKhalil
تظليل الخلية النشطة فقط باستخدام التنسيق الشرطي Highlight ActiveCell Only Using Conditional Formatt YasserKhalil
8 2215 YasserKhalil
تحديد خلايا معينة فى نفس صف الخلية النشطة OmarGad
3 1819 YasserKhalil
تلوين الخلية النشطة بكود VBA Eslam Abdullah
25 5325 محمد النيل

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









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

الساعة الآن 03:49 PM