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

السلام عليكم احبائي ايه يا عم ياسر العزومة لناس وناس بس على العموم ملحوقة ----------------- وبعد اذن اخي رجب هنا كود اخر لاثراء الموضوع Dim SH As Worksheet Dim rng As Range, cell As Range Set rng = Range([E2], Cells([E10000].End(xlUp).Row, "E")) For Each cell In rng Set SH = Sheets(3) If cell.Value > 19 Then Set SH = Sheets(2) LR = SH.[B10000].End(xlUp).Row + 1 SH.Cells(LR, "B").Resize(1, 7).Value = cell.Offset(0, -3).Resize(1, 7).Value Next cell Range("B2:H" & [B10000].End(xlUp).Row).ClearContents

تفضل أخي هذا الكود عسى يفيدك هو غلق الفورم بعد 10 ثواني وبإمكانك التحكم في التوقيت ActiveWorkbook.close.rar

السلام عليكم اخي طالب العلم "و من طلب العلا سهر الليالي" اليك هذا الملف عن التاريخ و أظن ان الأخ ابو آلاء مهتم بهذا الموضوع عسى ان ينال اعجابك تاريخ مفصل.rar

مجرد الضرب في - 1 يعكس الاشارة دون معادل فقط اكتب في الخلية المقابلة b1 =A1*-1 اذا كانت سالب تتحول الى موجب و اذا كانت موجب تتحول الى سالب

السلام عليكم ورحمة الله وبركاته اخوتى واحبتى فى الله ارجو ان تتقبلو هذا الشرح البسيط من مبتدء يحاول التعلم وسطكم وجزاكم الله خيرا اساتذتى ومعلمينى الكرام حيث وانا اقوم بتطبيق برنامج لى احتجت لمعرفة اول يوم فى كل شهر وتثبيته فى حقل غير منضم لمقارنته مع تاريخ الجهاز لالحاق سجلات فى اول يوم فى الشهر فقط والحمد لله توصلت لها بعد عدة محاولات لمعرفة اول يوم فى الشهر الحالى نضع الكود التالى فى مصدر عنصر التحكم للحقل على ان يكون هناك حقل للتاريخ =DateSerial(Year(Date());Month(Date());1) لمعرفة اول يوم فى العام الجديد =DateSerial(Year(Date());12;31+1) لمعرفة اول يوم فى العام الحالى قد نحتاجها مثلا للاحاق رصيد الاجازات المتبقى من العام الفائت للعام الحالى =DateSerial(Year(Date());1;1) ياريت اكون عرفت اوضح واوصل المعلومه بشكل صحيح ومرفق مثال لزيدة الايضاح وفقكم الله لما يحبه ويرضاه dates.rar

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

الحل بين يديك mohamed.rar

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

جهودك مشكورة اكواد جميلة ومفيدة

تستطيع عمل ذلك وبكل سهولة في : دمج المراسلات في وورد ابحث في قسم الوورد وستجد طلبك بإذن الله

الحمد لله وشكرا لعرض الحل ولكن السؤال يسبب الحيرة : كيف يتم تحديد حجم النموذج المنبثق مع طريقة العرض (نماذج مستمرة ) ليظهر جميع السجلات ليظهر جميع السجلات ؟ هذه جعلتني اقف عندها لان السائل ذكر التحديد لان افضل عرض لاظهار جميع السجلات هو ان يكون النموذج بعرض الشاشة قصدت بتعليقي هذا عموم الفائدة وهو ان كلمة واحدة في السؤال قد تغير فهم المتلقي

حبذا لو تشارك اخوتك بالحل ..

'

تفضل اخى الكريم جرب المرفق هل هو ما تريد تقبل تحياتى ادخال صنف.zip

اخى الكريم تفضل المرفق هل هو طلبك تقبل تحياتى ادخال صنف.zip

رائع

لا يوجد تجاوب !!!!!!!

ممتاز

اخى الكريم على الرغم من صعوبة الاحتياج الى مثل هذا الشى انك تخلى رقم موجب سالب صراحه معرفش لها حل بالمعادلات لم تمر على ولكن باجتهاد بسيط منى فرضا الخلية A1 بها رقم موجب 1026 يمكن وضح بالخلية A2 المعادله التالية =0-A1 تقبل تحياتى

شكرا للفكرة الحلوة بس إذا ممكن كيف استطيع أن أجعل الرسالة التلميحية تعطي قيمة الخلية التي أقف عليها استفيد هنا في حالة كانت الداتا في الخلية كبيرة

السلام عليكم إخواني مع حلقة جديدة من حلقات افتح الباب وكل فطير من أم محمد http://www.officena.net/ib/index.php?showtopic=57094&page=11#entry374440 يرجى عدم الردود هنا .. الموضوع للتنويه فقط ولو حابب ترد رد في المكان المناسب في الردود على الموضوع http://www.officena.net/ib/index.php?showtopic=57094 تقبلوا تحياتي يرجى من المشرفين حذف الموضوع بعد مرور أسبوع على الأقل لأن فيه ناس بتتأخر في الدخول .. بالنسبة للواجب : قم بإنشاء قاعدة بيانات مكونة من الاسم والنوع والجنسية (مصري ويمني فقط )والسن ، ورتب بحيث يكون الإناث أولا ثم الذكور ، ثم رتب حسب الجنسية يمني أولا (عشان خاطر عيون العلامة عبد الله باقشير) ثم مصري ، وأخيرا حسب الأسماء قاعدة البيانات لا تقل عن 100 صف (ههههههههه ) لا دي براحتكم المهم أشوف الواجب الليلة عشان أنا مسافر أجازة وهتترحموا من الرغي لمدة 10 أيام تقريبا إلى أن القاكم دمتم بود

أخي الحبيب أخي في الله أخي الغالي عماد الحسامي (شفت القافية دي : غالي وحسامي ).. والله الذي لا إله إلا هو .. والله الذي لا إله إلا هو .. والله الذي لا إله إلا هو ..أفتقدك بشدة ، ودائما ببالي ولم تغيب عن بالي ، وسألت عليك الأستاذ يحيى حسين ، وطمني عليك فينك يا حبيب !!؟؟؟!!!! ليه الغيبة الطويلة دي ... الحمد لله إني اطمنت عليك ..عايزينك معانا يا كبير ..مفتقدينك والله تقبل تحياتي وودي وأشواقي وحبي في الله

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

أخى الفاضل / ياسر خليل تشرف وتنور بلشاى كلها ونفرشلك الأرض ( 000000 ) ولا خليها ورد وبلاش اللى انت عارفه أخى الفاضل / ابو سليمان شكرا جزيلا أخى الكريم على هذه المشاعر الطيبة ولكن تكرم أنت وأخى الفاضل ياسر على أرض بلشاى أولا وبعدين لينا زيارك عندك ان شاء الله

السلام عليكم ورحمة الله اعجبني اسلوبك وتعاملك مع الموضوع جزاك الله خير

بعد اذن أخى الحبيب ياسر خليل تفضل أخى جرب الكود التالى Sub ragab() Dim sh As String Application.ScreenUpdating = False On Error Resume Next '====================================================== For ii = 1 To Sheets.Count If Sheets(ii).Name <> "ورقة1" Then Sheets(ii).Range("A2:H1000").ClearContents End If Next '====================================================== For i = 2 To Cells(10000, "H").End(xlUp).Row sh = Cells(i, "H").Value T = Sheets(sh).Cells(10000, 2).End(xlUp).Row + 1 Range(Cells(i, "B"), Cells(i, "H")).Copy Sheets(sh).Range("B" & T).PasteSpecial xlPasteValues Sheets(sh).Range("A" & T) = T - 1 Application.CutCopyMode = False Next i '====================================================== Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub malade.rar

لك ما تريد اخي ابو سليمان الدرجات في الصفحة رقم 2 و يمكنك الاضافة عليها و تعديل المعادلات بموجبها ابو سليمان ومقياس الطالب salim.rar

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

الدرس الرابع الرسائل نتحدث هنا عن استخدام بعض التقنيات التى تجعل استخدامنا للماكرو _ ( برمجه اكسل ) _ أكثر مرونه .. وذات طابع احترافى وأكثر جمالا وذلك من خلال استخدام الرسائل من خلال كتابة بعض الأكواد البسيطه السؤال ؟ أين تكتب تلك الأكواد ؟ تكتب تلك الأكواد داخل حدث الشيت تكتب داخل حدث المصنف تكتب داخل موديول تكتب داخل أكواد اليوزر فورم أى تكتب حسب الحاجه لها على أن تكون داله على الهدف منها سواء كان تحذير من شىء أو طرح سؤال بسيط مثال ( 1 ) نريد أن نتأكد من أن الطابعه فى وضع التشغيل وإعطاء المستخدم فرصة للتأكد من ذلك مع توقف الماكرو عن العمل الى أن يقرر المستخدم الضغط على زر موافق أو OK التالى نص الرساله التى ستظهر كما بالصورة MsgBox “Please make sure that the printer is switched on” جدير بالذكر عند الملاحظة الأولى لشكل الرساله كما بالصورة السابقة نجد نص الرساله ثم زر OK اذا الإستنتاج هنا يدفعنا الى ذكر سؤال هام لمعرفة كيفية ظهورها بهذا الشكل س : مما تتكون الرساله ؟ وكيف تكتب ؟ ج : تتكون الرساله من هذه التركيبة التالية MsgBox (prompt [, buttons] [, title] [, helpfile, context]) السؤال الذى يطرح نفسه هنا س : ماذا تعنى هذه التركيبة ؟ ج : كالتالى كلمة Prompt تعنى ان تكون الرساله سريعه أى عند حدوث أمر ما تظهر الرساله سريعا هناك أيضا أمور يجب ذكرها : 1 - طول الرساله يتكون من 1024 حرف 2 - واذا كانت الرساله تتكون من عده أسطر يجب الفصل بين كل سطر بعلامه (& _ ) 3 – هناك معيار هام فى الرسائل عندما مثلا تريد تحذير المستخدم الى ان الطابعه تعمل مع التأكيد على ذلك بزر OK هنا نستخدم الفواصل وهو امر ضرورى كمثل الرساله التالية MsgBox “Is the printer on?”, , “Caution!” وكما الصورة نأتى الى القيم الرقمية التى سبق الإشارة عنها وبشىء من التفصيل فمثلا إذا كنت تريد القيمة 4 والقيمة 32 يكون النص الذى يكتب فى الكود هكذا MsgBox Prompt:=”Delete this record?”, Buttons:=36 وتظهر الرساله كما بالصورة التالية أو يكتب النص هكذا MsgBox (Prompt:=”Delete this record?”, Buttons:=vbYesNo + vbQuestion) وإذا أردنا كتابة الرسالة بالترتيب الخاص بها كما ذكرنا بكيفية كتابة الرساله فتكون هكذا MsgBox("Text", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Title") فتظهر الرساله كما بالصورة التالية هنا السؤال يطرح نفسه هل يمكن كتابة كل هذه الأزرار فى الرساله ؟ الإجابة بالقطع (( لا )) · فمجموعة القيم من ( 1:5 ) تمثل الأزرار التى ستظهر فى الرساله وعلى حسب ما تريد وتختار · ومجموعة القيم ( 16,32,48,64 ) تمثل نوع الرساله من كونها استفهام أو تعجب .. الخ وعلى حسب ما تختار · ومجموعة القيم ( 0,256,512,768 ) تعنى أى الأزرار YES أو NO أو CANCEL تريدها أن تكون الإفتراضية للمستخدم أى المضيئة يمكن التعبير عن الرساله فى الكود بالقيمة مثل وتظهر الرساله كما بالصورة السابقة MsgBox("Text", 3 + 48 + 256, "Title") مرفق ملف به كامل الدرس الرابع وتقبلوا منى وافر الاحترام والتقدير الدرس 4.rar

السلام عليكم تفضل التعديل Sub kh_Merge() Dim LR As Long, i As Long, ii As Long, iii As Long LR = Range("A" & Rows.Count).End(xlUp).Row On Error GoTo 1 Application.ScreenUpdating = False Range("A1:E" & LR).Sort Columns(1), xlAscending For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, "a")) > 1 Then Range("A" & i) = "" ii = ii + 1 Else If ii Then With Range("A" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With With Range("E" & i) .Resize(ii + 1, 1).Merge .VerticalAlignment = 2 End With End If ii = 0 End If Next For i = 1 To LR If Len(Range("A" & i)) Then iii = iii + 1 Range("E" & i).Value = iii End If Next 1: Application.ScreenUpdating = True End Sub في امان الله