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

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

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



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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمد حسن المحمد
عدد النتائج (176) نتيجة
20-02-2019 01:00 مساء
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 السلام عليكم ورحمة الله وبركاته
جزاكم الله خيراً إخوتي الكرام على تشريفكم موضوعي هذا 
أسعدني مروركم وتعليقاتكم ودعاؤكم الطيب
بارك الله بكم والسلام عليكم ورحمة الله وبركاته
 
20-02-2019 09:02 صباحا
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby »
بارك الله فيك اخي الكريم ابو يوسف وجزاكم الله خيرا على موضوعاتك المميزة
تحياتي لك
123
أخي الحبيب أبو أسيل عطرتم موضوعي هذا بكلماتكم المشجعة .., لكم مني كل الشكر والتقدير ...
والسلام عليكم
111
 
20-02-2019 07:03 صباحا
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بسم الله ما شاء الله .. خايف إني أحسدك ، لكني بحق أغبطك بشدة
بارك الله فيك وجزاك الله خيراً

أحبك في الله أخي الحبيب و أستاذي الفاضل أبو البراء 
لكم الفضل السابق ..عطرتم بمروركم الطيب موضوعي هذا. 
142  
19-02-2019 04:44 مساء
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: مالك ماريه »
رائع استاذنا الفاضل وموضوع مميز جزاكم الله خير

جزاكم الله خيراً أخي الكريم مالك ماريه
19-02-2019 04:43 مساء
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 بناء على طلب الأخ  yousifaziz  في حدث الورقة

Private Sub ContactHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'تأرجح شريحة Contact مع حركة الماوس
SlideOut_Contacts 'شريحة Contacts تنزلق خارجاً
SlideIn_Schedule 'شريحة Schedule تنزلق داخلاً
End Sub
Private Sub EmailsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Schedule 'شريحة Schedule  تنزلق داخلاً
SlideIn_Reports 'شريحة Schedule  تنزلق داخلاً
SlideOut_Emails 'شريحة Contacts تنزلق خارجاً
End Sub
Private Sub GraphsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Reports 'شريحة Reports  تنزلق داخلاً
SlideOut_Graphs 'شريحة Graphs تنزلق خارجاً
End Sub
Private Sub MinAll_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts 'شريحة Contacts  تنزلق داخلاً
SlideIn_Schedule 'شريحة Schedule  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideIn_Reports 'شريحة Reports  تنزلق داخلاً
SlideIn_Graphs 'شريحة Graphs  تنزلق داخلاً
End Sub

Private Sub ReportsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Graphs 'شريحة Graphs  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideOut_Reports 'شريحة Reports تنزلق خارجاً
End Sub
Private Sub ScheduleHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts 'شريحة Contacts  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideOut_Schedule 'شريحة Schedule تنزلق خارجاً
End Sub



وفي الموديول:

Dim Wdth As Long 'تم وضع هذا التعريف ليكون شاملاً للأكواد دونه
Sub SlideOut_Contacts() 'انزلاق شريحة Contacts خارجاً

With ActiveSheet.Shapes("ContactsBtn") 'في الشيت المفعل.أشكال. زرContacts
For Wdth = 32 To 105 'يزداد العرض من 32 إلى 105
.Height = Wdth 'الارتفاع = العرض
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32 'الشيت المفعل.أشكال.أيقونة Contacts محاذاة إلى اليسار =عرض -32
Next Wdth 'العرض التالي:
.TextFrame2.TextRange.Characters.Text = "Contacts" 'يكتب على الشكل كلمة Contacts
End With 'انتهاء With
End Sub
Sub SlideIn_Contacts() 'انزلاق شريحة Contacts داخلاً
With ActiveSheet.Shapes("ContactsBtn") 'في الشيت المفعل.أشكال. زرContacts
For Wdth = 105 To 32 Step -1 'يتناقص العرض من 105 إلى 32
.Height = Wdth 'الارتفاع = العرض
.Left = Wdth - 32 'محاذاة إلى اليسار = العرض -32
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32 'الشيت المفعل.أشكال.أيقونة Contacts محاذاة إلى اليسار =عرض -32
Next Wdth 'العرض التالي
ActiveSheet.Shapes("ContactsBtn").TextFrame2.TextRange.Characters.Text = "" 'يكتب على الشكل كلمة فاغة
End With
End Sub

أما بقية الأكواد فهي مشابهة مع اختلاف التسميات
والسلام عليكم
19-02-2019 04:02 مساء
icon القوائم منزلقة على شكل شرائح | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: الصقر »

الله الله على الشغل العالى يابويوسف 
جزاكم الله خيرا
142


جزاكم الله خيراً على هذا الإطراء أخي الحبيب حسام
كما أشكر إخوتي الكرام على مروركم العطر الطيب  abdulwahed catran و yousifaziz
يرجى التحقق من صلاحية الملف ولكم جزيل الشكر
والسلام عليكم
19-02-2019 02:34 مساء
icon توجيهات لأعضاء الأكاديمية الكرام | الكاتب :محمد حسن المحمد |المنتدى: المنتدى العام
 

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

111111
19-02-2019 02:28 مساء
icon سجل الهاتف (الأجندة) | الكاتب :محمد حسن المحمد |المنتدى: اكسيل مشاريع جاهزه
 
المشاركة الأصلية كتبت بواسطة: yousifaziz »
عزرا استاذ حسام ملف الرار الذي حملت فيه البرنامج تالف
ارجو منك اعادة رفعه الي المنتدي مرة اخري
ولك جزيل الشكر

 
18-02-2019 10:36 صباحا
icon واجهة برنامج إكسيل بكلمة مرور واسم مستخدم : | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
أخي الحبيب أبو البراء إنما هي كلمة إن نبست بها شفتاك فلن تعود إلى يوم القيامة 
وهذا حديث رسول الله الذي لنا به جميعاً أسوة حسنة لمن كان يرجو الله واليوم الآخر
                     c-mnkany2mn001
جزاكم الله خيراً وأحسن إليكم..أخي الحبيب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
18-02-2019 09:24 صباحا
icon تصميم تبويبات عمودية في شيت إكسيل | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
إلى كل من مر على موضوعي هذا وعلق بكلمة عطرة ودعاء طيب أقول:


post-310

18-02-2019 09:20 صباحا
icon تصميم تبويبات أفقية في شيت إكسيل | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
إلى كل من مر على موضوعي هذا وعلق بكلمة عطرة ودعاء طيب أقول:
post-310
18-02-2019 09:13 صباحا
icon تصميم تبويبات أفقية في شيت إكسيل | الكاتب :محمد حسن المحمد |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: teguera »
نعم الصحبة هذا المنتدى
استفدت كثيرا

حياكم الله أخي الكريم
على الرحب والسعة

الصفحة 1 من 15 < 1 2 3 4 15 > الأخيرة »





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

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