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

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


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





قائمة بما قمت بتحديده

اذا كنت تريد ان يظهر لك ما يحتوي التحديد الذي قمت به (بدون الخلايا الفارغة) استعمل هذا الملف [code]PGJyIC8+DQpPcHRpb24 ..



01-08-2018 05:52 صباحا
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 

اذا كنت تريد ان يظهر لك ما يحتوي التحديد الذي قمت به (بدون الخلايا الفارغة)

استعمل هذا الملف


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells(1, 1).Column = 1 Then Exit Sub
    If Selection.Cells.Count > 50 Then
        MsgBox "Too Many Data"
        Exit Sub
    End If
    Dim lasteRow
    Dim x%, i%: i = 1
    lasteRow = Cells(Rows.Count, 1).End(3).Row
    If lasteRow = 1 Then lasteRow = 2
    If Application.CountA(Target) = 0 Then
   With Range("A1")
      .Value = Selection.Address
        With .Offset(1)
            .Resize(lasteRow, 1).Clear
            .Value = "Selection is Empty "
            .Interior.ColorIndex = 8
        End With
         With .Offset(2)
            .Value = "ActiveCell is : " & ActiveCell.Address
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 2
        End With
    End With
    
    Exit Sub
    End If
Dim arr()
Dim k%: k = 1

Dim cel As Range
  For Each cel In Selection
  If cel <> vbNullString Then
    ReDim Preserve arr(1 To k)
    arr(k) = cel.Value
    k = k + 1
    Else: x = x + 1
   End If
    i = i + 1
  Next
With Me.Range("a1")
.Value = Selection.Address
.Offset(1).Resize(lasteRow, 1).Clear
.Offset(1).Resize(k - 1, 1).Value = Application.Transpose(arr)
    With .Offset(k)
        .Value = "Active Cell is : " & ActiveCell.Address
        .Interior.ColorIndex = 3
        .Font.ColorIndex = 2
        With .Offset(1)
        .Value = "Items: " & Selection.Cells.Count - x
        .Interior.ColorIndex = 7
        .Font.ColorIndex = 2
        End With
    End With
End With
Me.Range("A:A").Columns.AutoFit
Range("B1") = "Selection Address"
Erase arr
End Sub


ما هو السطر الاخضر الذي يظهر في الكود
MzU4NDgxMQ8484salim
الملف مرفق

 
 
  GET adderss of selection.rar   تحميل rar مرات التحميل :(23)
الحجم :(17.794) KB


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

01-08-2018 08:32 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
جزاكم الله خيرا اخي الكريم أ سليم
تم حل المشكلة 
142

توقيع :Yasser Elaraby
663013020


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

01-08-2018 10:16 صباحا
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
الحل نهائي 
اخي ابوالبراء  المشكلة تتلخص في ان كود الاعلانات كان يظهر في وسط الموضوع فأحيانا يكون الكود في مرمى الاعلان فيظهر بهذا الشكل
تم الغاء الاعلان من وسط الموضوع الى اعلاه
تحياتي
 
توقيع :Yasser Elaraby
663013020


01-08-2018 10:28 صباحا
مشاهدة مشاركة منفردة [5]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده

جزاكم الله خيرا استاذ سليم 142


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


01-08-2018 11:13 صباحا
مشاهدة مشاركة منفردة [6]
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
فكرة جديدة 

بالتوفيق أستاذ / سليم




الكلمات الدلالية
بتحديده ، قائمة ،


 










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

الساعة الآن 01:38 صباحا