الصـقر

اخى الحبيب والغالى ابوالبراء

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

لكن والله العظيم لم ارى موضوعك اعذرنى لضيق وقتى

والشرف لى بس الدخول لموضوع من موضوعاتك فأنا بقف مثل التلميذ قدام شرح استاذه هذه حقيقه والله

ارجوا منك السماح والمعذره

تقبل تحياتى

 

--------------------------

وعليكم السلام استاذ محمد عبدالسلام وفيك بارك اخى الكريم وجزيت خيرا على دعائك المبارك

اسال الله لى ولك التوفيق والسداد

تقبل تحياتى

 

استاذى الحبيب ابوالبراء

وما العبد الا قطره فى بحر علمكم 

جزاكم الله خيرا على مرورك العطر 

تقبل تحياتى

وعليكم السلام ورحمة الله استاذ / زيزو العجوز

وفيك بارك استاذى الحبيب 

شاكر مرورك العطر

تقبل تحياتى

وفيك بارك اخى عبدالواجد 

شاكر مرورك

تقبل تحياتى

اخى الفاضل جلال الجمال

وفيك بارك اخى الكريم وجزاكم الله خيرا على مروركم العطر

تقبل تحياتى

-------------------------------------

استاذى الحبيب ابويوسف 

الاروع من الموضوع هو مرورك وتزينك للموضوع بمشاركتك

تقبل تحياتى 

-------------------------------------

اخى الحبيب والغالى عبدالعزيز

والله لك وحشه ادام الله محبتنا فى الله

وشاكر مرورك العطر وثناءك على الموضوع 

فأنتم مصدر الهامنا وتشجيعنا للوصول الى الافضل

بارك الله فيك وفى صحتك واهلك 

تقبل تحياتى

 

استاذى الحبيب / ابويوسف

جزاكم الله خيرا ونفع بكم

الى الامام دائما وننتظر ابداع جديد 

تقبل تحياتى

 

الاخوة الكرام واساتذتى فى هذا الصرح العلمى

أستكمالا لهذا الموضوع على الرابط التالى

أقدم لكم اليوم  ثلاث اكواد تقوم بعمل مؤثرات حركيه عند فتح أو اغلاق الفورم

أعتقد هذا الموضوع جديد فى المنتديات العربيه والاجنبيه

وأن كان موجود فأشهد الله انى لم اصادف موضوع أو كود مثل هذا

وأن هذا العمل خالص من اجتهادى

الميزه فى الاكواد انها تناسب جميع نسخ اصدارات الاوفيس 

ارجوا ان ينال اعجابكم

جارى تطوير الموضوع للوصول الى ما هو افضل

وانتظر اقتراحاتكم ونقدكم ومشاركاتكم 

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

اخوكم وتلميذكم / حسام

لا تنسونا من صالح دعائكم ولا تنسوا الدعاء للفقيد استاذنا / عماد الحسامى

 

 

مؤثرات على فتح الفورم.zip

الاخ والاستاذى الحبيب / ياسر خليل

جزاكم الله خير على كل ما تقدمه خدمه لاخوانك فى المنتدى

موضوع رائع جدا ويستحق ان نشكرك عليه 

طبعا الكود كما قال الاخ والاستاذ الفاضل محمد ابوصهيب محتاج وقفه لفهمه والتمعن فىه بدقه 

ان شاء الله احاول ان اجد الوقت لفهمه بأذن الله

وكان لى محاوله بسيطه من سنه تقريبا على الرابط التالى

 

تشبه كثيرا فكرة الكود تقريبا ولكن انا وقتها خليته يغلق الملف وليس حذف الاكواد

ويمكن الوصول الى المحرر لو كتبت فى الخليه A1  بشيت رقم 3  رقم 1 ستخدل محرر الاكواد بدون اغلاق الملف

اشكرك كل شكر واسال الله تعالى ان يجعل كل ما تقدمه فى ميزان حسناتكم

ملحوظه بخصوص تفعيل الماكرو فى كود يقوم بذالك وايضا لو تم تحويل الملف الى تنفيذى لا يحتاج الى تفعيل الماكرو وبكدا اعتقد انها حمايه الى حد ما ومقدرش اقول 100

لانى اجهل تمام امور الهكر 

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

اخوكم حسام

اساتذتى الافاضل

الاستاذ / محى الدين ابوالبشر

الاروع هو مرورك اخى الحبيب وجزيت خير على دعائك

-----------------------------------------------------------------------------

الاستاذ / ماكس

شاكر مرورك العطر

-----------------------------------------------------------------------------

الاستاذ / عبدالعزيز البسكرى

الحبيب والغالى زيزو والله انت وحشتنى جدا 

ربنا يديم بنا المحبه

-----------------------------------------------------------------------------

الاستاذ / احمد الفلاحجى

يا ابو بسمله انت خلاص هضمت كل الدروس فى الجزء الاول ؟

استعد للجزء الثانى واحجز مقعدك 

ان شاء الله نكمل ما بدأناه بمساعدتكم ودعواتكم فأنتم خير صحبه وخير جليس

-----------------------------------------------------------------------------

الاستاذ / سعد عابد

الاجمل والاروع مرورك العطر

-----------------------------------------------------------------------------

الاستاذ / محمود الشريف

الاخ الحبيب والغالى استاذى محمود لا تتصور مدى سعادتى بدعائك 

وبخصوص طلباتك انت بس تامر وانا انفذ ان شاء الله سيتم مراعة ذالك فى المرات القادمه بأذن الله

وانا ايضا اوافقك الرأى فى ان المنتدى فى المقام الاول تعليمى وهذا احلى شئ يميزه ثم تاتى بعد ذالك المساعدات

لذالك انا حريص كل الحرص على تقديم شروحات اكتر من المساعدات 

لان الشروحات هيستفيد منها اكبر عدد ممكن أما المساعدات فلا يستفيد منها الا صاحب الموضوع ويمكن لا كمان

-----------------------------------------------------------------------------

الاستاذ / ياسر خليل

انا تلميذك يا ابوالبراء وهذا ما تعلمناه منكم وجزاكم الله خيرا على دعائكم الطيب

-----------------------------------------------------------------------------

الاستاذ / ياسر البنا

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

-----------------------------------------------------------------------------

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

 

لا يا حلو انا مش عايزك تشكرنى انا عايزك تتعلم ازاى المعادله اتعملت   

ولما تتعلم ازاى المعادله انا اللى هشكرك وقتها

واى استفسار انا موجود بأذن الله

تقبل تحياتى

 

جزاكم الله خيرا يا ابويوسف

ان شاء الله نواصل ونكمل ما بدأناه فى القريب العاجل

تقبل تحياتى

 

الاستاذ عمر

على حسب ما فهمت من طلبك

فى شيت الاجمالى وفى الخلية C7  الصق المعادله التالية

=SUMIFS(تسجيل!$D$3:$D$15;تسجيل!$C$3:$C$15;B7;تسجيل!$B$3:$B$15;">="&$C$2;تسجيل!$B$3:$B$15;"<="&$C$3)

ثم اسحبها نزولا لاسفل

تقبل تحياتى

استاذى الحبيب ابويوسف لما يشغلنى عنكم الى الشدائد

شاكر لك كلماتك الطيبه والكل بالمنتدى خير وبركه فانا تلميذ من تلامذه هذا الصرح

الاستاذى الفاضل احمد الفلاحجى مشكور يا غالى على دعائكم وفقكم الله وجزاكم الله خيرا

تقبلوا تحياتى

الاخوه فى هذا الصرح العلمى الكبير

اعتذر عن قلة تواجدى فى الاونه الاخيره ولكن يعلم الله انى مشغول جدا هذه الايام

اسالكم الدعاء لى بالتوفيق والسداد

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

هنعرف 1 - أزاى نعمل ده بدون اكواد من خلال التعامل مع الشيت مباشرة

     2- أزاى نعمل ده بالاكواد

نبدأ بسم الله

عايزك تفتح شيت اكسيل وتكتب فى الخليه A1  مثلا اى شئ  مثلا اكتب " اوفيسنا "

المطلوب بعد ما تكتب فى الخليه A1  نقوم بنسخها الى اى خليه اخرى 

طبعا زى ما حضراتكم عارفين  بيكون من خلال تحديد الخليه المطلوب نسخها وهى A1  تم نعمل  Ctrl+C ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها

وليكن الخلية D1 ثم نعمل  Ctrl+V   

وفى طريقه تانية وهى الوقوف على الخليه A1  وكليك يمين بالماوس واختيار نسخ ثم تحديد الخليه D1 وكليك يمين ونعمل لصق

لكن اليوم هنعمل عملية النسخ بطريقه Destination   طيب ازاى ؟؟؟

حدد الخليه A1  ثم حرك الماوس الى اى ضلع من اضلاع الخليه  ستجد فى سهم  مثل هذا السهم دا صوره مكبره منه 

عندما يظهر هذا السهم على ضلع من اضلاع الخلية اضغط من الكيبورد على زر  Ctrl  ومع الاستمرار بالضغط على الزر اضغط على زر الماوس الايسر واسحب الماوس الى الخليه D1

مكان اللصق اللى احنا عايزينه

طيب ده بالنسبه لعملية النسخ طيب عملية القص ؟؟

الطريقه الاولى تحديد الخليه المطلوب قصها وهى A1  تم نعمل  Ctrl + X ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها

وليكن الخلية D1 ثم نعمل  Ctrl+V   

الطريقه التانية وهى الوقوف على الخليه A1  وكليك يمين بالماوس واختيار قص ثم تحديد الخليه D1 وكليك يمين ونعمل لصق

الطريقه الثالثه اللى هى اساس موضوعنا هنعمل عملية القص بطريقه Destination   طيب ازاى ؟؟؟

حدد الخليه A1  ثم حرك الماوس الى اى ضلع من اضلاع الخليه  ستجد فى سهم  عند ظهوره يمكنك الضغط على زر الماوس الايسر والسحب الى المكان المراد اللصق فيه

الخلاصه

        الطريقه                           عملية النسخ                         عملية القص

1- من خلال الكيبور                      اضغط Ctrl+C  ثم انتقل الى الخلية                               اضغط Ctrl+X  ثم انتقل الى الخلية

                                              المراد النسخ بها واعمل Ctrl+V                                  المراد اللصق بها واعمل Ctrl+V

---------------------------------------------------------------------------------------------------------------------------------------------

2- من خلال الماوس                  قم بتحديد الخلية وكليك يمين بالماوس                              قم بتحديد الخلية وكليك يمين بالماوس

                                          واختار نسخ ثم انتقل الى الخليه المراد                              واختار قص ثم انتقل الى الخليه المراد

                                         اللصق بها واعمل كليك يمين بالماوس                               اللصق بها واعمل كليك يمين بالماوس

                                          واختار لصق                                                           واختار لصق

---------------------------------------------------------------------------------------------------------------------------------------------

3-Destination                    حدد الخلية المطلوب نسخها واتجه بالماوس                            حدد الخلية المطلوب نسخها واتجه بالماوس

( المكان المقصود)                    الى اى ضلع من اضلاع الخليه هيظهر سهم                              الى اى ضلع من اضلاع الخليه هيظهر سهم

                                          اضغط من الكيبورد على زر Ctrl ومع الاستمرار                      اسحب الماوس الى المكان المطلوب اللصق به

                                          بالضغط اسحب الماوس الى المكان المطلوب اللصق به

-----------------------------------------------------------------------------------------------------------------------------------------------------

طيب ازاى نعمل الطريقه رقم 3  Destination    ( المكان المقصود)  بالاكواد

Sub Alsaqer1()
    Range("A1").Copy Destination:=Range("d1")
End Sub

طبعا السطر الاول والثالث معروف وهو الاعلان عن بداية الكود ونهايته

السطر اللى فى المنتصف بقى هو اللى هنوضحه

كتبت اسم الخلية A1  المطلوب نسخها  من خلال الخاصيه Range  كالتالى ("Range("A1

وبعدين كتبت . اللى هى الضغط على حرف ز بالعربى من الكيبور 

ثم Copy   وتعنى نسخ 

وبعدين مسافه وكتبة  Destination     متبوعه =: 

ثم الخلية المراد اللصق بها   ("Range("D1

 

طيب الكود هيكون ازاى لو عايز اعمل قص وليس نسخ

بسيطه جدا نفس الكود مع استبدال  Copy   

Sub Alsaqer2()
    Range("A1").Cut Destination:=Range("d1")
End Sub

 

طيب الكلام كله عن نسخ او قص خليه واحده ماذا لو كان المطلوب نسخ نطاق من الخلايا مثلا من A1:C5  الى الخلايا H1:J5

اولا من خلال شيت الاكسل حدد الخلايا من A1:C5 وحرك الماوس الى اى ضلع من اضلاع التحديد سيظهر امامك السهم عند ظهوره

اضغط على زر Ctrl  ومع الاستمرار بالضغط حرك الماوس الى الى الخلية H1   ستجد تم نسخ الخلايا

طيب ولو عملية القص هيكون نفس الخطوات ولكن بدون الضغط على زر  Ctrl   يعنى عند ظهور السهم اسحب الماوس الى الخليه H1

 

طيب ومن خلال الكود

لو نسخ شاهد الكود

Sub Alsaqer3()
    Range("A1:C5").Copy Destination:=Range("h1")
End Sub

نفس الاكواد السابقه الفرق فقط هو  بدل ("Range("A1  جعلتها ("Range("A1:C5

 

ولو قص الخلايا يبقى الكود كالتالى استبدل Copy بــ Cut

Sub Alsaqer4()
    Range("A1:C5").Cut Destination:=Range("h1")
End Sub

 

ماذا لو كان المطلوب نسخ الخلايا الى شيت اخر

شاهد الكود نفس السابق ولاحظ انت الفرق

Sub Alsaqer5()
    Range("A1:C5").Cut Destination:=Sheet2.Range("h1")
End Sub

استبدلت ("Range("h1  بــ  ("Sheet2.Range("h1 

 

لو احنا عايزين ننسخ عمود A  كله مثلا الى العمود F

طبعا من خلال الشيت يبقى تحدد العمود كله واذهب الى اى ضلع من العمود هيظهر السهم اضغط على زر Ctrl  ومع استمرار الضغط اسحب الماوس الى العمود المطلوب وهو F

ولو قص يبقى نفس الخطوات بدون الضغط على زر  Ctrl  

 

ولو عايزين نعمله بالكود

شاهد الكود

Sub Alsaqer6()
   Columns("a:a").Copy Destination:=Columns("f:f")
End Sub

 

 

------

ماذا لو كان عندى نطاق متغير مثلا من جدول  من العمود A الى C  ولكن عدد صفوف الادخال غير محدد فى زياده او نقصان

فى الحاله دى هعمل سطر لتحديد اخر صف به بيانات فى العمود A 

شاهد الكود

Sub Alsaqer7()
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:C" & lr).Copy Destination:=Range("h1")
End Sub

واخيرا الفائده من هذه الطريقه هى افضل بالاكواد نظرا لسرعه تنفيذ الكود وبساطه كتابته وفهمه 

كدا انا خصلت كل الامثله باقى انك بس تجرب بنفسك اسال الله تعالى لى ولكم التوفيق والسداد

تقبلوا تحياتى

 

تفضل استاذى الفاضل وائل

استبدل الجزء الخاص بالخليه A4  بالتالى 

اذا كنت عايز تستخدم اسم الشيت يبقى لازم تكتب  ("اسم الشيت")  Sheets 

If x = Sheets("users").Range("a4") Then

او السطر التالى بفرض ان الشيت المسمى Users  هو شيت رقم 3 ( وعلشان تعرف رقمه ممكن من محرر الاكواد شوف الشيت users بجوارة رقم الشيت 

If x = Sheet3.Range("a4") Then

كلا السطرين يؤدو نفس الغرض

اعتذر للجميع لقلة تواجدى هذه الايام نظرا لانشغالى واسالكم الدعاء

اعتذر ابوالبراء لم ارى مشاركتك الا بعد ما عملت حفظ لا يفتى ومالك بالمدينة

تقبل تحياتى

إنا لله وإنا إليه راجعون

لله ماأخذ وله ماأعطى،وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب

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

 

اخى الكريم

المرفق تم حذف الكود من حدث المصنف ThisWorkbook

ووضع الكود فى حدث الشيت 1

بامكانك نسخه ووضع فى حدث اى شيت اخر 

تقبل تحياتى

التكملة التلقائيه.zip

نفضل اخى الكريم

شاهد المرفق هل هو ما تريد

تقبل تحياتى

التكملة التلقائيه.zip

استاذى الحبيب ابوالبراء

انا متعود على دروسك بالشتاء لكن بالصيف جديده دى

براك الله فيك وزادك من علمه وفضله 

اتمنى تذهب بالشرح الى ابعد مدى لان هذا الموضوع من المواضيع الهامه بال VbA  

تقبل تحياتى اخوك و تلميذك / حسام

بعد اذن استاذى ابوحنين

استاذى الكريم عبدالرحمن بدوى

فى هذا الكود

Private Sub TextBox1_Change()
With Me
.Height = 125
.Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With
If TextBox1 = "" Then UserForm1.Height = 25.5
With Sheets("ÈíÇäÇÊ")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR
If .Cells(j, 2) Like TextBox1 & "*" Then
UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2)
End If: Next: End With
If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5
If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If
End Sub

احذف الاربع اسطر التاليه

If TextBox1 <> "" And ListBox1.ListCount = 1 Then
ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit
Unload Me
End If

تقبل تحياتى

استاذى الحبيب / خالد الرشيدى

ما شاء الله روعه بل قمة الروعه طريقة الشرح والتصميم وكل شئ روعه

بارك الله فيك وزادك من علمه وحلمه وفضله

قبل سنه ونصف تقريبا كنت محتاج انى اعمل شئ معين بالاكسيل وكان انسب حل له هو استخدام الداله Find  

شهر كامل وانا ابحث هنا وهناك عن كل شئ يخص هذه الداله كنت بسرق فهم المعلومه من بين السطور بعناءالى  ان جمعت كل شئ عنها 

وتعلمتها وبقيت استخدمها فى كثير من الاكواد الخاصه بى وان شئت قل استخدمها باحترافيه عاليه

ياباشا مكنتش تنزل الشرح ده من سنه ونصف كنت وفرت عليا وقت شهر فى البحث هههههههههههههه 

انا بقالى فتره مش متواجد بالمنتدى نظرا لانشغالى بشكل غير عادى ولكن لما دخلت اليوم اشوف المنتدى 

وعند دخولى لمنتدى الاكسيل وقعت عينى على موضوعك المميز

حظى انى اتطلع على هذا الكنز الثمين واقوم باضافته للمكتبه عندى 

ارجوا منك ان تواصل باسلوبك شرحك المميز 

جزاكم الله خيرا

تقبل تحياتى تلميذك / حسام

 

استاذى الفاضل / عبدالله

تفضل المرفق هل هو طلبك

تقبل تحياتى

 

example.zip

استاذى الحبيب / هانى بدر

حضرتك عملت تعديل للمشاركه السابقه وطلبت وعمل سكرول بار

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

تقبل تحياتى

استاذى الفاضل / احمد الفلاحجى جزاكم الله خيرا لمروركم الكريم

 

استاذى الفاضل هانى

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

اسال الله ان يديم محبتنا فى الله

جرب المرفق على الكود الاول تم تفعيل الاسكرول وتفعيل مؤشر الماوس 

تقبل تحياتى

Rooms.zip

استاذى الحبيب / هانى بدر

جرب  المرفق التالى ان شاء الله هو طلبك 

تم العمل بكود اخر طبقا للملف المرفق فى المشاركة الاولى لحضرتك 

سوف يتم اظهار الفريمات طبقا لعدد الاسطر وسوف يتم التمييز باللون لكل ليبل حسب المحتوى كما طلبت

وسوف يظهر عنوان عند وضع مؤشر الماوس على اى لليبل

ويمكن حضرتك تعمل اى كود عند الضغط على اى ليبل

فى حل اخر براسى ممكن اعمله ان شاء الله واذا توصلت لشئ سوف ارفق الملف لحضرتك

تقبل تحياتى

Rooms - 2.zip

استاذى الفاضل / ابويوسف

جزاكم الله خيرا على دعائكم الطيب

استاذى الفاضل / هانى بدر 

لا داعى للاعتذار فانا تحت امرك فى اى وقت

جرب المرفق تم عمل المطلوب الثانى

وان شاء الله بحاول اعمل لحضرتك المطلوب الثالث وان توصلت للحل سارفقه لك

تقبل تحياتى

 

Rooms.zip