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

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


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





طلب المساعدة فى ماكرو Activate & Speak

طلب المساعدة فى ماكرو Activate amp; Speak


موضوع مغلق


31-10-2020 03:14 مساء
Ahmed.Fouad.Eg
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 31-10-2020
رقم العضوية : 20666
المشاركات : 3
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 17
 offline 

طلب المساعدة فى ماكرو Activate & Speak
 
 
  names.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(17.318) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم بها نبدأ أخي الكريم
يرجى عند طرح مشكلة او سؤال أن يكون هناك وصف مفصل للمشكلة ..
عمومأ تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim m As Long, i As Long
    m = Cells(Rows.Count, 1).End(xlUp).Row
    If ActiveCell.Row > m Or ActiveCell.Column <> 1 Then MsgBox "Activate Cell In Column A", vbExclamation
    For i = ActiveCell.Row To m
        With Cells(i, 1)
            .Activate: .Speak
        End With
    Next i
End Sub
عرض الإجابة




31-10-2020 03:19 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طلب المساعدة فى ماكرو Activate & Speak
السلام عليكم بها نبدأ أخي الكريم
يرجى عند طرح مشكلة او سؤال أن يكون هناك وصف مفصل للمشكلة ..
عمومأ تفضل الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim m As Long, i As Long
    m = Cells(Rows.Count, 1).End(xlUp).Row
    If ActiveCell.Row > m Or ActiveCell.Column <> 1 Then MsgBox "Activate Cell In Column A", vbExclamation
    For i = ActiveCell.Row To m
        With Cells(i, 1)
            .Activate: .Speak
        End With
    Next i
End Sub

31-10-2020 04:05 مساء
مشاهدة مشاركة منفردة [2]
Ahmed.Fouad.Eg
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 31-10-2020
رقم العضوية : 20666
المشاركات : 3
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 17
 offline 
look/images/icons/i1.gif طلب المساعدة فى ماكرو Activate & Speak
وعليكم السلام ورحمة الله وبركاته الأستاذ الفاضل
فعلا الكود هو المطلوب
جزاك الله تعالى خيرا 

31-10-2020 04:33 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طلب المساعدة فى ماكرو Activate & Speak
وجزيت خيراً أخي الكريم بمثل ما دعوت لي
والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
المساعدة ، ماكرو ، Activate ، & ، Speak ،


 










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

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