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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





هل تحب منتدى أكاديمية الصقر للتدريب؟

السلام عليكم ورحمة الله وبركاته أهلاً بكم إخواني وأحبابي في الله سؤال مطروح عليكم : هل تحبون منتدى أكاديمية الصقر للتدر ..



12-09-2017 07:24 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

السلام عليكم ورحمة الله وبركاته

أهلاً بكم إخواني وأحبابي في الله
سؤال مطروح عليكم : هل تحبون منتدى أكاديمية الصقر للتدريب؟
لا أطلب منكم الإجابة بنعم أو بلا .. ولا أريد ردود تقليدية !! 

ماذا تريد إذاً يا ابن أبي خليل ..؟! يومك مش معدي يا جميل !! blink

ستكون الإجابة لمن يريد المشاركة .. الإجابة ستكون من خلال الأكواد .. أينعم من خلال الأكواد أو المعادلات ، كما تريد
وأبدأ بأولى المشاركات في الموضوع وإليكم الكود التالي .. 

ولكن قبل نسخ الكود قم بضبط ورقة العمل بشكل معين .. اجعل ارتفاع الصف 50 وعرض العمود 100 وحجم الخط 40
ثم انسخ الكود التالي في موديول عادي ثم ارجع لورقة العمل ، واضغط Alt + F8 واختر اسم الماكرو Test ثم انقر Run لتنفيذ الكود
Sub Test()
    Dim x       As Variant
    Dim s       As String
    Dim i       As Long

    x = Array(70, 65, 76, 67, 79, 78, 32, 65, 67, 65, 68, 69, 77, 89)
    For i = LBound(x) To UBound(x)
        s = s & Chr(x(i))
    Next i

    With Range("A1")
        .Value = "I Y " & s
        With .Characters(Start:=3, Length:=1).Font
            .Name = "Webdings": .Color = 255
        End With
    End With
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

كان معكم أخوكم في الله / ياسر خليل أبو البراء

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





12-09-2017 07:47 مساء
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8654
الاعجاب : 464
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟


MsgBox "أنا بحب أكاديمية الصقر للتدريب"


12599122_1119404871412422_1403189072_a
الحب في القلب مش الكلام
121




توقيع :Yasser Elaraby
663013020



12-09-2017 09:09 مساء
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
انا جد بحبكم 
بس مبدئيا ما رح اعرف اعملها بالاكسل 
ممكن استاذ ياسر تشرحلنا الكود الي عملته





12-09-2017 10:55 مساء
مشاهدة مشاركة منفردة [3]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 286
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 547
الاعجاب : 20
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
MzMyMzIx%D8%A7%D9%83%D8%A7%D8%AF%D9%8A%D9%85%D9%8A%D8%A9%20%D8%A7%D9%84%D8%B5%D9%82%D8%B1





13-09-2017 12:44 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
بارك الله فيكم إخواني ..
كروت يا عربي بدالة MsgBox ... smile
أخي الكريم خالد الكود يحتوي في جزء منه على الحلقات التكرارية داخل المصفوفات وإن شاء الله يتم شرحها في حلقات قادمة ..
تقبلوا تحياتي





13-09-2017 07:45 صباحا
مشاهدة مشاركة منفردة [5]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟

جزاكم الله خيرا يابوبراء
ما شاء الله ابداع جديد وفن استخدام الاكواد
تحياتى 
I 58 FALCON ACADEMY




توقيع :الصقر

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



13-09-2017 09:13 صباحا
مشاهدة مشاركة منفردة [6]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/wub.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
السلام عليكم ورحمة الله وبركاته
أحب أكاديمية الصقر للتدريب
لأنني أحبكم في الله إخوتي الكرام
جزاكم الله خيراً
 



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



13-09-2017 09:17 صباحا
مشاهدة مشاركة منفردة [7]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
جزاكم الله خيرا ابو يوسف



توقيع :الصقر

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



13-09-2017 01:37 مساء
مشاهدة مشاركة منفردة [8]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 598
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3134
الاعجاب : 220
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
وإياكم أخي الكريم حسام
بارك الله بكم
 



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



17-09-2017 11:12 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
جزاك الله خيراً أخي الغالي أبو يوسف ومشكور على مشاركتك الفعالة
أما أخونا حسام فمشاركته لم تكن فعالة بالقدر الكافي .. ارجع للموضوع وشوف أنا قلت ايه؟ smile





01-11-2017 05:46 مساء
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
الكود التالى لاخفاء شريط المهام وايضا اسماء العمدان وايضاء ارقام الصفوف وايضا اخفاء شريط التمرير الافقي والرئسي وايضا اخفاء اسماء الشيات وايضا اخفاء شريط الصيغ وتحديد فتح الملف على الشيت الاول 

يوضع في حدث thisworkbook


Application.ScreenUpdating = False
sheet1.Select
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = True
Application.DisplayStatusBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True


وفي نفس الحدث يتم وضع الكود الاتى لاظهارهم جميعا عند  اغلاق الملف 


Application.ScreenUpdating = False
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",true)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
Application.DisplayScrollBars = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayWorkbookTabs = True


والدليل على حبنا للموقع هو قرائة جميع موضوعاته حتى لو لم يكن به ما يخصنا 
وانا احب الموقع لاحب اعضائه لنا ووجودهم من اجلنا 



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

تحياتى وتقدير للجميع  محمود ابوالدهب


01-11-2017 08:50 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
بارك الله فيك أخي العزيز محمود ومشكور على مشاركاتك الفعالة 
أحبك الله الذي أحببتنا فيه .. نسأل الله أن يجمع بيننا في الآخرة في مستقر رحمته





26-08-2019 11:20 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif هل تحب منتدى أكاديمية الصقر للتدريب؟
أين تفاعل المحبين للمنتدى؟
ننتظر مشاركاتكم الفعالة وإبداعاتكم المتميزة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر YasserKhalil
121 4642 YasserKhalil
برنامج جيم البطل نسخه اولى 2019 هدية للمنتدى عبدالرحمن صبحى
7 293 الصقر
التعامل مع منتدى أكاديمية الصقر للتدريب Eslam Abdullah
40 4342 seba
الأفاضل الكرام الاعزاء الاحباب جميع اعضاء المنتدى والقائمين عليه عبدالله فتحى
2 125 عبدالله فتحى
اضافة مربع بحث على المنتدى بالكامل عبدالرحمن صبحى
1 440 عبدالرحمن صبحى

الكلمات الدلالية
منتدى ، أكاديمية ، الصقر ، للتدريب؟ ،


 







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



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

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