نجوم المشاركات

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

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

راجع المشاركة ستجدني قلت ضع موشر الماوس في آخر سطر ألا وهو End Sub تقبلوا تحياتي وكل عام وأنتم بخير وأراكم إن شاء الله بعد أجازة العيد في رعاية الله

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

أخي الحبيب إبراهيم وجب تصحيح نقط معينة وهو أنه لا يجوز الإعلان عن متغير وتعيين قيمة له في نفس السطر Dim H As Integer=10 يجوز ذلك في لغة الفيجوال بيزيك دوت نت أما في VBA سيعطيك خطأ نقطة أخرى بالنسبة للسطر Dim H,m As Integer هنا لم يتم الإعلان عن المتغيرين من النوع عدد ..فقط المتغير m هو المتغير العددي أما المتغير H في هذه الحالة يعتبر من النوع Variant للتأكد من صحة مقولي قم بنسخ الكود التالي في موديول Sub Test() Dim H, m As Integer End Sub قم بوضع مؤشر الماوس في سطر End Sub اضغط F9 لوضع نقطة وقوف BreakPoint سيكون لونها باللون الأحمر الغامق روح لقايمة View وأظهر نافذة Locals ثم قم بتنفيذ الكود ستجد في النافذة تفاصيل كل متغير أرجو أن أكون قد وفقت في توصيل المعلومة

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

اضف الكود التالي الى الزر الموجود في شيت البحث Worksheets("الاكواد").Rows(1).Find(Range("E2")).EntireColumn.Find(Range("A2")).Resize(, 2).Interior.Color = vbRed

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

السلام عليكم الاستاذ (( صقر )) فعلاً لقد قلت ما يجول في خاطري ....تعرفنا عليهم من خلال اعمالهم .. بارك الله لهم ... وعوداً حميداً استاذ عادل حنفي

الكود بالليبل و بحدث ال TextBox Exit لن يحقق المطلوب لأن حدث ال Exit لا يقع عند دخول اللييبل الكود التالي أسهل و أقصر و يشتغل بغض النظر عن عدد ال textboxes Private Sub Label1_Click() If TypeName(ActiveControl) = "TextBox" Then If Len(ActiveControl) = 0 Then ActiveControl = Date Else MsgBox "Date already entered in TextBox : '" & ActiveControl.Name & "'" End If Else MsgBox "You need to select a TextBox first" End If End Sub

وهذه اضافة أيضا قد تفيد بأن اسم الزر فى اليوز فورم يتغير مع تغير العملية الحسابية Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "جمع " Then Me.CommandButton1.Caption = "ضرب " Me.CommandButton1.BackColor = RGB(0, 255, 0) TextBox4 = Val(TextBox2) + Val(TextBox3) Else Me.CommandButton1.Caption = "جمع " Me.CommandButton1.BackColor = RGB(255, 0, 0) TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub مهمتين لزر واحد .rar

اخى واستاذى ياسر بالفعل كما قلت انه من الخطأ التعبير فى لغة vba عن المتغير واعطاءه قيمة فى نفس السطر ............................................................ اما بخصوص الإعلان عن المتغيرين من النوع عدد ..فقط المتغير m هو المتغير العددي أما المتغير H في هذه الحالة يعتبر من النوع Variant فقد حاولت التطبيق ولكنى فشلت فحينما وضع مؤشر الماوس فى سطر الكود وعند الضغط على f9 ظهرت لى هذه الرساله على العموم انا اسعدنى جدا متابعتك للموضوع علشان لو فيه توضيح او اخطاء تلحقنا فيها منتحرمش منك ياريس تقبل تحياتى

أخي الكريم جرب الملف التالي فيه حلين لإخفاء الصفر .. Hide Zero Values.rar

السلام عليكم و رحمة الله و بركاته أستاذنا الغالي محمد حسن المحمد .. أنت محق في كل ما قلته .. أما أيقونة تحديد أفضل إجابة سنخترع واحدة .. تفضّل .. كلامك دومًا الأفضل :

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

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

أستاذ عادل والله انت وحشنا واشتقنا لمساعداتك واعمالك واكوادك الجميله وفقك الله

السلام عليكم ورحمة الله وبركاته الدرس الخامس 5-Colors الالوان وسوف نتناول فى هذه الدرس الاتى استخدام الخاصيه color استخدام الخاصيه ColorIndex استخدام الخاصيه Interior.Color استخدام الخاصيه borders.color استخدام الخاصيه Tab.Color ............................................................. استخدام الخاصيه color تستخدم الخاصيه COLOR فى تلوين الخطوط FONT يجب ان نشير الى اننا حينما نتعامل مع color فاننا نستخدم الخاصيه الخاصه بالالوان RGB سنجد ان قيمة RGB مكونه من ثلاث معطيات هى الاحمر -- الاخضر --الازرق .RGB(red_value, green_value, blue_value) وسوف نقدم بعض القيم والالوان الخاصه ب RGB الان نتعرف على كيفية استخدام هذه الخاصيه فى تلوين الخط نفترض اننا لدينا الاسم HIMA فى الخليه A17 ونريد تلوين الخط باللون الازرق سيكون شكل الكود كالاتى Sub colorfont() Range("a17").Font.Color = RGB(0, 0, 255) ' blue End Sub وطبعا لو عايز تغير اللون لاى لون انت عايزه كل الى عليك ان هتغير الارقام الخاصه بالخاصيه RGB استخدام الخاصيه ColorIndex تستخدم ايضا فى التعامل مع تلوين الخطوط ولكن يتم الاشاره هنا الى الالوان بالارقام العدديه من 1 الى 56 راجع الصوره فمثلا لو لدينا الاسم HIMA فى الخليه A21 ونريد تلوينه باللون الاحمر سيكون شكل الكود كالاتى Sub ColorIndexfont() Range("A25").Font.ColorIndex = 3 'red End Sub استخدام الخاصيه borders.color تستخدم هذه الخاصيه فى تلوين حدود الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزن نحدد الحليه B33:D33 باللون الازرق سيكون شكل الكود كالاتى Sub coloredborders() Range("b33:d33").Borders.Color = RGB(0, 0, 255) ' blue End Sub استخدام الخاصيه Interior.Color تستخدم هذه الخاصيه فى تلوين الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزين نلون الخلايا من B41:D41 باللون الاخضر سيكون شكل الكود كالاتى Sub backgroundcolor() Range("b41:d41").Interior.Color = RGB(0, 255, 0) ' green End Sub استخدام الخاصيه Tab.Color تستخدم هذه الخاصيه فى التعامل مع تبويب الشيتات Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub فلو احنا عايزين نلون تبويب الشيت المسمى ب 5-Colors باللون الازرق مثلا هيكون شكل الكود كالاتى Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

السلام عليكم ورحمة الله وبركاته بعد اذن الأستاذ أسامه وباقى الأساتذة الأخ KHMB هذا كود لتلوين مدى معين بعد تمام اكتمال بياناته اعتمادا على عدد الخلايا الفارغة فيه Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, Rownum As Integer, CountBlank As String LR = Cells(Rows.Count, 1).End(xlUp).Row For Rownum = 2 To LR CountBlank = Application.WorksheetFunction.CountBlank(Range(Cells(Rownum, "A"), Cells(Rownum, "H"))) If CountBlank = 0 Then Range(Cells(Rownum, "A"), Cells(Rownum, "H")).Interior.ColorIndex = 38 Next Rownum End Sub الكود يوضع فى حدث الورقة التلوين يعمل من الصف الثانى على الأعمدة من A الى H جرب المرفق التالى Color a row after entering the required information .rar

السلام عليكم ورحمة الله وبركاته الدرس الثالث 3-selection عمل تحديد للخلايا وسوف نتناول فى هذه الدرس الاتى كيفيةالدخول الى محرر الاكواد كيفية تسمية الماكرو تحديد خليه واحده تحديد اكثر من خليه تحديد نطاق من الخلايا تحديد نطاق من الخلاياالتى تم اعطائها اسم تحديد خليه بواسطه السطر والعمود تحديد خليه تقع ضمن نطاق الخلايا تحديد خليه بواسطة التحرك تحديد الاسطر تحديد الاعمده تحديد اخر خليه تحديد الخلايا التى بها بيانات نسخ البيانات المحدده ........................................... كيفية الدخول الى محرر الاكواد وذلك من اجل اضافة كود معين اتبع الصوره 1 ستفتح لك نافذه بيضاء فارغه كما فى الصوره رقم 2 كيفية تسمية الماكرو لابد ان يبدأ اسم الماكرو ب Sub وينتهى ب end sub نقوم باعطاء الماكرو اسم معين وليكن selection بالتالى ستجد ان الماكرو المنشأ يكون بهذا الشكل كما يتضح من الصوره تحديد خليه واحده نفترض اننا نريد تحديد الخليه A23 سيكون شكل الكود كالاتى Sub selection_a23() 'تحديد الخليه A23 Range("A23").Select End Sub تحديد اكثر من خليه نفترض اننا نريد تحديد الخليهa25 وb25 سيكون شكل الكود كالاتى Sub selection_a25_b25() 'تحديد الخليه a25,b25 Range("A25,B25").Select End Sub تحديد نطاق من الخلايا نفترض اننا نريد تحديد تحديد الخلايا من a27 الى g28 سيكون شكل الكود كالاتى Sub selection_a27tog28() 'تحديد نطاق من الخلايا Range("A27:g28").Select End Sub تحديد نطاق من الخلاياالتى تم اعطائها اسم نفترض اننا نريد تحديد الخلايا من a29:g30 سوف نقوم بعمل ذلك من خلال تسمية النطاقات اتبع الصوره سيكون شكل الكود كالاتى Sub select_a29tog30() ' تحديد نطاق من الخلاياالتى تم اعطائها اسم ' من a29 الى g41 Range("select_a29tog30").Select End Sub تحديد خليه بواسطه السطر والعمود نفترض اننا نريد تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44 وسيكون شكل الكود كالاتى Sub selection_cells_r_c() ' تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44 Cells(44, 4).Select End Sub ملحوظه بما اننا لم نتطرق الى التعرف على cells فنعدى عليها نتعرف عليها ببساطه cells زيها زى range الفرق بينها وبين range انها تستخدم للاشاره الى خليه واحده فقط ويكون شكلها الافتراضى كالاتى Cells(row, Columns).Select تحديد خليه تقع ضمن نطاق من الخلايا هنا نفترض اننا لدينا نطاق مكون من مجموعه من الخلايا من a47:g47 ونريد عند كل مره يتم الظغط على الزر يتم تحديد خليه مختلفه من خلايا النطاق سيكون شكل الكود كالاتى Sub selection_rnd() 'تحديد نطاق من الخلايا التى تقع فى النطاق من a47 الى a57 'Cells(Int(Rnd * 10) + 47, 1).Select ' تحديد خليه تقع ضمن نطاق الخلايا من a47 الى g47 Cells(47, Int(Rnd * 7) + 1).Select End Sub لاحظ ان عدد الاعمده 10 اعمده هى من a الى g تحديد خليه بواسطة التحرك نفترض اننا نريد تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود سوف نستخدم هنا offset سيكون شكل الكود كالاتى Sub selection_move() ' تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود Cells(51, 1).Offset(2, 1).Select End Sub ملاحظه بما اننا لم نتطرق الى offset فنتعرف سريعا على كيفيه استخدامها offset هى عباره عن التحرك لاتجاه معين الشكل الافتراضى ل offset Offset(row,columns) فلو كتب هكذا Offset(1,2) فهذا يعنى اننا سوف ننتقل الى الخلية فى السطر التالى وفى العمود الذى يليها بعمودين وهكذا فمثلا فى مثالنا هنا Cells(51, 1).Offset(2, 1).Select فلو حزفنا offset واصبح الكود بهذا الشكل Cells(51, 1).Select فهذا يعنى اننا سوف نقوم بتحديد الخليه a51 ثم حينما نضيف offset ليصبح الكود بهذا الشكل Cells(51, 1).Offset(2, 1).Select فهذا يعنى اننا سوف نقوم بتحديد الخليه a51 ثم نتحرك بمقدار سطرين لاسفل اى اننا اصبحنا الان فى السطر 53 ثم التحرك بمقدار عمود واحد لنصبح فى العمود الثانى وبما اننا اصبحنا فى السطر 53 والعمود 2 سنجد ان الخليه التى تقع فيهما هى الخليه b53 تحديد الاسطر نفترض اننا نريد تحديد الاسطر من 53 الى 54 سيكون شكل الكود كالاتى Sub selection_row() ' تحديد الاسطر من 53 الى 54 Rows("53:54").Select End Sub تحديد الاعمده نفترض اننا نريد تحديد الاعمده من العمود a الى العمودG سيكون شكل الكود كالاتى Sub selection_COL() ' تحديد الاعمده Columns("A:G").Select End Sub تحديد اخر خليه نفترض اننا لدينا مجموعه من الخلايا فى السطر الاول مملوؤه بالبيانات وان اول خليه بها بيانات هى الخليه a58 ونريد الوصول الى اخر خليه بها بيانات بعد الخليه a58 سيكون شكل الكود كالاتى Sub SELECTLASTCELLS() ' تحديد اخر خليه بها بيانات Range("A58").End(xlDown).Select End Sub تحديد الخلايا التى بها بيانات بداية من خليه معينه نفترض اننا نريد تحديد الخلايا التى بها بيانات بداية من الخليه a62 سيكون شكل الكود كالاتى Sub SELECTCELLSDATA() ' تحديد الخلايا التى بها بيانات بداية من Range("A62", Range("A62").End(xlDown)).Select End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى

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

أشكرك أخى العزيز الى قلبى زيزو البسكرى أشكرك على كلامك الطيب بحقى ان طال الغياب فالشوق غلاب الى منتدى الاحباب نعمل ايه فى الدنيا ومشاغلها !!!!

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

السلام عليكم و رحمة الله و بركاته " ... ولا يظهر نور الفجر إلا بعد الظلام الحالك " ظلام غير الفاهمين أمثالي .. وَ رُبَّ ضارّة نافعة لولا الهفوة البسيطة لأستاذنا الفاضل ابراهيم أبو ليلة ما كنّا لنتعلم و نفهم تفاصيل أخرى من أستاذنا الغالي ياسر خليل أبو البراء بارك الله فيكم جميعًا .. جزاكم الله خيرًا و زادها بميزان حسناتكم خالص احتراماتي

السلام عليكم و رحمة الله و بركاته أهلا و سهلا بالأستاذ الغالي .. الأفضل من كل هذه الأكواد وهذا الملف المميّز هي .. عودتك الميمونة .. بإذن الله تعالى الحمد لله و أخيرًا ظهر الأخ و الأستاذ العزيز و الله على قلوبنا " مختار حسين محمود " بعد غياب أراه طويلاً خالص احتراماتي

تعبتكم بطلباتي - شكراً للأخ ياسر والأخ جعفر طبقت تعليمات الأخ ياسر ووضعت كود الأخ جعفر ونجحت الخطوة جزيتم خيرا ومبارك عليكم الشهر

أشكرك أخى الفاضل أبا الحسن والحسين

أخي الحبيب جعفر هو دا الشغل ..اللي أقدمه في 100 سطر تقدمه إنت في سطر واحد قمة في الإبداع أخي أبو عبد الرحمن الكودين يعملان بشكل جيد جرب الكود الخاص بالأخ جعفر فهو أفضل بكثير ليس لكونه سطر واحد فقط ولكن لكونه لم يستخدم الحلقات التكرارية مما يجعل الكود أسرع في حالة التعامل مع بيانات كثيرة بالنسبة للكود الذي قدمته قم بوضعه في موديول ثم على الزر الموجود كليك يمين ثم Assign Macro واختار اسم الماكرو ونفذ الأمر تقبل تحياتي

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

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

نعم كل شىء فى الاكسل له حل فى ملفك تم اضافة معادلة للتسلسل اعتمادا على رقم صف الخلية وتم تعديل معادلة خلية الاجمالى بحيث تتغير لتحسب اجمالى الخلايا من E2 الى الخلية اللى فوقها مباشرةً جرب اضافة أى عدد من الصفوف وادخال بيانات فى المرفق Add Rows mokhtar .rar

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

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

بسم والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه -السلام عليكم أحبتي الكرام - الحمد لله الذي بنعمته تتم الصالحات بما أنني من طلب المساعدة وبعد إذن أخي يوسف الذي استشارني بشأن أفضل إجابة برسالة خاصة أقول:كلكم أحسنتم ولكن أفضل إجابة هي التي أوصلته للحل وإغلاق الموضوع أفضل إجابة:

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

لا أعتقد أنه ممكن التمييز بين الملف الأصلي و النسخة الكوبي ... و ما يجعل الأمر أكثر صعوبة هو امكانية عمل كوبي لملف الاكسيل بدون فتح الاكسيل أي مباشر عبر ال Shell ... الحل الوحيد الدي يخطر ببالي هو عمل برنامج VBScript او VB6 يشتغل تلقائيا عند تشغيل الجهاز StartUp و هدا البرنامج وظيفته هي مراقبة حدث ال File Copy وراء الكواليس بحيث عند عمل كوبي للملف يتم تحديد و تخزين أسماء الملفين الأصلي و النسخة و بالتالي التمييز بينهما .. للأسف هده الفكرة شوية معقدة أكثر من اللازم

أخي الكريم أبو عبد الرحمن إليك الكود التالي عله يفي بالغرض Sub ColorIt() Dim WS As Worksheet, SH As Worksheet Dim lCol As Long, X Dim I As Long, J As Long Set WS = Sheets("البحث"): Set SH = Sheets("الاكواد") For I = 1 To 16 Step 3 If InStr(SH.Cells(1, I), WS.Range("E2").Value) > 0 Then lCol = SH.Cells(1, I).Column For J = 3 To SH.Cells(Rows.Count, lCol + 1).End(xlUp).Row If WS.Range("A2") = SH.Cells(J, lCol) And WS.Range("B2") = SH.Cells(J, lCol + 1) Then SH.Cells(J, lCol).Resize(1, 2).Interior.Color = vbRed Next J End If Next I End Sub

وعليكم السلام ورحمة الله توجد أمثلة كثيرة ومتنوعة يحتويها المنتدى هنا بفضل الله تعالى بطلبك لنموذج البحث قم فقط بإنشاء قاعدة لما تريد تطبيق عليها مبتغاك وستجد بإذن الله التطبيق عليه - ملحوظة: تم تغيير العنوان طبقا لنوع المشاركة

اخي الحبيب عبد العزيز ممكن إضافة بسيطة لكي لا يتوقف الماوس Private Sub CommandButton1_Click() If TextBox4 = "" Or TextBox4 = Val(TextBox2) * Val(TextBox3) Then TextBox4 = Val(TextBox2) + Val(TextBox3) Else TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub يعني افضل اعمل كليك مرة يجمع ومرة يضرب ..

اكتب في الخلية A1 اي عدد لا يقيل القسمة على 3 و نفذ هذا الكود و لا حظ الفرق Sub xx() Range("b1") = Range("a1") / 3 Range("c1") = Range("a1") \ 3 End Sub

اخى محمد طلبك عزيز عليا ولكن اسمح لى ان اصر على نفس نوع الخط مش عارف ليه يا اخى انا بحب الخط ده اوى بس علشان انا مقدرش على زعلك فخليت حجم الخط 22 وسمكله كمان ياعم تخين وبكده تبقى انت الكسبان انت اخد اتنين وانا اخدت واحده بس وخلينا حبايب ولا ايه .................................................. وعلى العموم نطلب من اخوانا ياسر يظبطلنا الحتى دى علشان يبقى حجم الخط واحد فى جميع المشاركات تقبل تحياتى

انا لله و انا اليه لراجعون لاحول ولا قوة الا بالله العلي العظيم اللهم اغفر له و ارحمه واعفو عنه و اكرم نزله اللهم انا نسألك ان تحسن اليه فلقد احسن الينا كثيرا

السلام عليكم ورحمة الله اخي الفاضل مختار كود رائع وتمت التجربة بارك الله فيك وجزاك الله خير اخيك / أبو الحسن والحسين

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

اخى الصقر جزاك الله خيرا والله صقر في البرمجه

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

السلام عليكم اخي arabys شكرا على المعلومة انا لم يسبق لي استخدام هذه الطريقة من قبل بارك الله فيك ولكن استخدم طريقة اخرى مختصرة وهي اضغط Ctrl+حرف"ذ" جزاك الله كل خير وبارك فيك

السلام عليكم اخي الفاضل اردت توجيه انتباهك للموضوع في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=28127 وهو احد طلباتك في موضوع استيراد بيانات من ملف وقد لا تنتبه لذلك لانه في قسم غير الاكسل اخوك خبور خير

وعليكم السلام ورحمة الله وبركاته .. وكل عام والجيمع بخير وعافية اخي / المسلم لعمل ذلك اتبع الآتي : من مربع الادوات اضف مستطيل الى النموذج واجعل حجمه يساوي تماما المربع الخاص بالسهم لمربع التحرير والسرد وضعه فوق مربع السهم ليغطيه تماماً واضبط خصائص المستطيل كما يلي:- ــ لون الخلفية او ( BackColor ) غيره ليصبح مثل لون خلفية النموذج. ــ نمط الخلفية او ( BackStyle ) اجعله عادي ( Normal ) وهذه هي القيمة الافتراضية لهذه الخاصية .... اتركها كما هي. ــ نمط الحدود او ( BorderStyle ) اجعله شفاف ( Transparent ). بهذا فان سهم مربع التحرير والسرد لن يظهر سوى عند التركيز عليه فقط وغير ذلك سيظهر كمربع نص. واليك مثال على ذلك بالتوفيق dbHideComboboxArrow.rar

اخي الفاضل السلام عليكم ورحمه الله وبركاته انظـر للمرفق ونأمل الافادة ان كان التعديل المرفق هو المطلوب حتى تعم الفائدة للجميع . اخوك عبدالله العماني ابومشاري _______________.rar