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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر اكسيل اسئله واجابات




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





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

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



01-08-2018 05:52 صباحا
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 267
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 9
قوة السمعة : 2515
الاعجاب : 589
 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
الملف مرفق





لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby، Excelawy، ali mohamed ali، مهند محسن،





01-08-2018 07:35 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5586
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 362
قوة السمعة : 15692
الاعجاب : 5897
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
تسلم أخي الحبيب سليم على الأفكار الجديدة الرائعة .. كود جميل جداً

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




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

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


توقيع :Yasser Elaraby
663013020



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

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




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

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


توقيع :Yasser Elaraby
663013020



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

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



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


توقيع :الصقر

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



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

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





01-08-2018 12:59 مساء
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 792
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 40
قوة السمعة : 3687
الاعجاب : 1216
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
بارك الله فيك استاذ سليم بالتوفيق والى الأمام دائما-جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


01-08-2018 07:05 مساء
مشاهدة مشاركة منفردة [8]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1328
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 70
قوة السمعة : 8213
الاعجاب : 2324
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
بالنسبة لظهور الكود قد يكون من كود الاعلانات كما قال استاذ ياسر العربى وايضا هو نسخ للتنسيق من اماكن اخرى مثل المواقع وغيرها
ويمكن تخطى الامر بحيث بعد ادخال الكود...
قم بتحديد نص الكود ومن ثم قم بازالة كل التنسيقات من الاداة الموجوده أعلى يمين القائمة
كما موضح بالصورة التالية ، تحياتى 81
MTIxMjMzMQ5858001




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




01-08-2018 09:49 مساء
مشاهدة مشاركة منفردة [9]
مهند محسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 256
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 6
قوة السمعة : 413
الاعجاب : 179
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
مبدع دائما استاذ سليم جزاك الله كل خير

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




31-12-2018 09:30 مساء
مشاهدة مشاركة منفردة [10]
خالد عيسى
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 19
المشاركات : 26
الجنس : ذكر
تاريخ الميلاد : 9-9-1969
الدعوات : 1
يتابعهم : 1
يتابعونه : 7
قوة السمعة : 228
الاعجاب : 48
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
بارك الله فيك





01-01-2019 01:03 مساء
مشاهدة مشاركة منفردة [11]
yousef_kaf
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-11-2017
رقم العضوية : 1908
المشاركات : 75
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 2-9-1989
يتابعهم : 9
يتابعونه : 2
قوة السمعة : 96
الاعجاب : 35
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
جزلك الله خيرا





30-01-2019 08:17 مساء
مشاهدة مشاركة منفردة [12]
خالد تبن ابورتاج
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-04-2018
رقم العضوية : 5841
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 5-4-1970
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 4
 offline 
look/images/icons/i1.gif قائمة بما قمت بتحديده
جزاك الله خير







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


 







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



الساعة الآن 09:50 مساء

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