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

كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 1 Then If Target.Column = 4 Then Target.Offset(, -1).Value = Target.Value End If End If End Sub

اليك هذا الملف لعله المطلوب لائحة دون فراغات.rar

جرب الملف التالي أخي الفاضل Extract Non-Blank Cells.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم اليوم موضوعاً فيه الشرح بالتفصيل لعمل الدوائر الحمراء ، وهو فيديو للأستاذ الكبير / يحيى حسين ، جزاه الله عنا خير الجزاء وهذا هو رابط الفيديو وفيه شرح لعمل الدوائر الحمراء ... فقمت بتطبيق المثال في الملف المرفق مع إضافة بسيطة بعد إذن الأستاذ الكبير يحيى حسين وهو حذف هذه الدوائر Add-Remove Red Circles.rar

السلام عليكم المنتدى نايم بحاول أصحي الناس والناس بردو نايمه .. خير اللهم اجعله خير ... هو فيه مبارة كرة قدم ولا الناس كسلانة ولا تعبانة طيب للي مهتم بالأمر .. هل ترغب أن يقوم الإكسيل بالحفظ التلقائي كل 10 ثواني مثلا .. في حدث الورقة ضع الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer End Sub Private Sub Workbook_Open() StartTimer End Sub وفي موديول جديد ضع الكود التالي Public RunWhen As Double Public Const cRunIntervalSeconds = 10 Public Const cRunWhat = "The_Sub" Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _ schedule:=True End Sub Sub The_Sub() ActiveWorkbook.Save StartTimer End Sub Sub StopTimer() On Error Resume Next Application.OnTime earliesttime:=RunWhen, _ procedure:=cRunWhat, schedule:=False End Sub ويمكنك بالطبع تغيير الوقت المراد عمل الحفظ التلقائي على أساسه من خلال السطر الثاني Public Const cRunIntervalSeconds = 10 إليكم الملف المرفق Auto Save Every 10 Seconds.rar

السلام عليكم إخواني الكرام .. كلنا نعرف الدالة VLOOKUP جيداً ، ولكن غالباً ما تواجهنا مشكلة البحث عن قيمة إذا ما تكررت هذه القيمة الآن ............... وبعد طول انتظار جئت إليكم بدالة جديدة ............ دالة مميزة جدا تقوم بالبحث عن كل القيم الموجودة في نطاق ثم تقوم بإرجاع كل قيم البحث الير مكررة بكل بساطة واستخدامها مماثل لدالة VLOOKUP أرجو أن تفيدكم هذه الدالة البحث عن القيم المتعددة بدون تكرار.rar

اساتذتى الكرام اعضاء منتدانا الكبير اقدم اليكم اليوم ملف للعلامة عبد الله باقشير هذا الملف يقوم بالبحث فى شيت معين ويعرض البيانات الموجوده فى الصف التى ينطبق عليها البحث ويمكن تعديل البيانات مباشرة فى الخلايا بمجرد تعديلها فى الفورم وقد عرضت فكرة التطوير على الاستاذ الكبير واحد اعمدة المنتدى الباشمهندس احمد ( ابن مصر ) ibn_egypt وقام مشكورا بالتطوير والتطوير الاول : ان يكون البحث بمعيارين وقام بكل سهولة بالعمل واليكم الملف قبل التعديل ثم بعد التعديل البحث بمعيارواحد.rar Listbox Formالبحث بمعيارين.rar

اساتذتى الكرام اعضاء المنتدى الكبير وسبق وان تم عرض نفس الموضوع بتطوير قام به الاستاذ الكبير الباشمهندس احمد ( ابن مصر ) والرابط الخاص به هو http://www.officena.net/ib/index.php?showtopic=59342 وتطويراً للملف تم عمل البحث باستخدام كمبوبكس حتى لا يحدث اختلاف بين المدخل والموجود فعلاً فمصدر الكمبوبكس هو عمود البحث نفسه وفى راى ان هذه الطريقة ( استخدام الكمبوبكس ) افضل من الكتابة فى المربع النصى ثم البحث فورم البحث بمعيارين والبحث من خلال كمبوبكس.rar

تفضل جرب المرفق ayman#1.rar

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

السلام عليكم اخى الكريم جرب هذا الملف وضع هذه الصيغه فى التحقق من الصحه =OFFSET($A$1;;;COUNTA(A:A)) 1234.rar

السلام عليكم اخى الكريم هذه محاوله متواضعه منى حسب مافهمت ارجو ان تحقق مطلوبك تحياتى مثال.rar

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

جرب المرفق Pt.CasesLab Followup #1.rar

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

الملف يعمل لدي وقد تم انشاء فولدر وداخله ملف بصيغة PDF

رائعون حقا

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

Sub Archiver() Dim DateEtHeure, Chemin, NomArchive, rep, Fichier, n& DateEtHeure = Format(Now(), "yyyymmdd") & Format(Time, "hhmmss") DateEtHeure = DateEtHeure & " le " & Format(Now(), "ddd dd-mmm-yyyy") DateEtHeure = DateEtHeure & " à " & Format(Time, "hh-mm-ss") rep = MsgBox("هل تريد نسخة من الملف", _ vbQuestion + vbDefaultButton1 + vbYesNo) If rep = vbYes Then Chemin = ThisWorkbook.Path If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\" NomArchive = "Archive " & DateEtHeure & ".xlsm" ThisWorkbook.SaveCopyAs Chemin & NomArchive ChDir Chemin Fichier = Dir("ارشيف " & Format(Now(), "yyyymmdd") & "*.xlsm") Do Until Len(Fichier) = 0 Or n = 10 If LCase(Fichier) <> LCase(NomArchive) Then Kill Chemin & Fichier Fichier = Dir("Archive " & Format(Now(), "yyyymmdd") & "*.xlsm") n = n + 1 Loop End If End Sub

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

الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو خاصة بتنظيم الوقت فاحببت ان اشارككم بها 1- اغلاق ملف الاكسل بعد وقت محدد : وهو ممتاز للملفات المشتركة والتي يتعامل بها اكثر من شخص او ان تحدد لنفسك وقت محدد للعمل على ايت حال يعتبر هذا المكرو ميزه جيدة يمكن اضافتها لعدة استخدامات المكرو : Private Sub Workbook_Open() Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes Application.DisplayAlerts = True TimeInMinutes = 180 'Timer is set for 180 minutes; change as needed. If TimeInMinutes > 5 Then TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60) Start = Timer Do While Timer < Start + TotalTimeInMinutes DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "This file has been open for " & TotalTime / 60 & " minutes. You have 5 minutes to save before Excel closes." End If Start = Timer Do While Timer < Start + (5 * 60) DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "Excel will now close." Application.Quit End Sub 2- تشغيل المكرو اتماتيكين لمدة ثواني - دقائق - ساعات بعد تشغيل ملف الاكسل, وهو مفيد جدأ عند الحاجة لربطة مع مكرو اخر يتم تشغلة بعد فترة من الزمن مثلاً أعداد قالب اختبارات ويتم التنبيه عن الوقت المتبقي لنتهاء فترة الاختبار ملاحضة يتم نسخ المكرو في ThisWorkbook لتفعيلة لا يستفاد من هذا المكرو على حدة - يجب ربطة بمكرو اخر للاستفادة من وذلك بتغير Name_of_Macro الى اسم المكرو المراد تفعيلة عند ربط وتفعيل المكرو يجب حفظ الملف واغلاقة ثم اعادة فتح الملف حيث انه سيبدء العد عند فتح الملف ان الوقت المحدد لهذا المكرو للبدء هو 10 ثواني ولتغيره قم بادخال الوقت المطلوب في خانة 00:00:10 المكرو: Private Sub Workbook_Open() 'Runs a macro 10 seconds after Excel is opened Application.OnTime Now + TimeValue("00:00:10"), "Name_of_Macro" End Sub 3- تشغيل المكرو في وقت محدد من اليوم مثلاً اساعة 4:43 عصراً وهو مقارب للمكرو السابق ولكن يعمل في وقت محدد من اليوم ملاحضة جميع الاعدادات السابقة لمكرو رقم 2 يجب تطبيقها لهذا المكرو بلأضافه الى انه سيعتمد على توقيت الساعة الموجودة في كمبيوترك المكرو : Private Sub Workbook_Open() 'Runs a macro at 4:30 PM Application.OnTime TimeValue("16:30:00"), "Name_of_Macro" End Sub مع تمنياتي للجميع بتوفيق اخوكم بوفيصل

الترحيل يتم ..ما المشكلة؟ يرجى دائما توضيح أوراق العمل المراد العمل عليها ، وإذا كانت هناك شكلة محددة فلتقم بتوضيحها .......

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

السلام عليكم تنشيط ممتاز وجميل جداً بارك الله فيك

أهلا بك أبا آدم و شكرا على مشاركتك طمئنا عنك و عن صحتك

أخي العزيز عذرا فانا حاليا لا استطيع الجلوس كثيرا خلف الحاسوب تصفح الرابط ... http://www.experts-exchange.com/Database/MS_Access/Q_27592109.html ووافنا بالنتيجة

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

إليك الملف الخاص بك تحويل.rar

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

السلام عليكم الخلل في علامة (=) الموجودة في المعادلة للمعدل الأول ( بين 0 و 3 ) COUNTIFS(aaa;">="&J$11;aaa;"<="&L$11) قم بإزالتها لتصبح كالآتي COUNTIFS(aaa;">"&J$11;aaa;"<="&L$11) تحياتي

لم تفتح القاعدة لدي نسخة الأكسس 2007 ,, حبذا اخي رمهان اضافتها بهذا التنسيق. شكرا مقدما.

جرب الملف التالي أخي الفاضل Insert Picture UDF Function YasserKhalil.rar

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

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

السلام عليكم الأخ الكريم / أحمد مرجان بارك الله فيك سيتم احتساب صوتك لـ 2010 كما فهمت من ردك تقبل خالص تحياتي

اخى الفاضل نعم تستطيع تنفيذ أكثر من 1000 ماكرو بضغطة زر واحدة .. كل ما عليك هو انشاء موديول جديد وليكن باسم ExecuteMacros وبداخله فقط اسطر استدعاء ما تريد من ماكرو Call Tarheel Call GetData Call Tarheel2 وهكذا ... ثم اضف زر واجعل ال Assign Macro الخاص به هو هذا الماكرو ExecuteMacro سيتم تنفيذ الماكرو واحدا تلو الآخر حسب الترتيب الذي وضعت تحياتي

ماشاء الله المبدعون انتم

اليك هذا الملف لعله المطلوب الفلتر يعمل على عامود الاسماء في الصفحة 1 و النتيجة في الصفحة 2 الاسماء المكررة لا تحسب في القائمة المنسدلة الا مرة واحدة و تظهر النتيجة حسب عدد التكرار FILTER.rar

جرب من التبوبيب Formulas اختر الأمر Calculation Options واختر منه Automatic..ثم احفظ الملف وأعد فتحه من جديد. سؤال هل هناك دوال جاهزة من النوع UDF في ملفك؟

السلام عليكم ورحمة الله وبركاته دالة لاستخراج اسم واحد او عدة اسماء من اسم كامل kh_Names هي دالة مطورة من الدالة kh_Name والتي تستخرج اسم واحد حسب التعيين من اسم مركب تجدها في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=33289 اما هذه الدالة تستطيع من خلالها استخراج اكثر من اسم وباي ترتيب تريده (فكرة الدالة مستوحاه من مشاركة لاختي الفاضلة ام عبدالله حفظها الله حيث استخدمت الدالة السابقة kh_Name ثلات مرات لاستخراج الاسم الثلاثي ) كود الدالة: Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' iNdex1 بدلالة ترتيب الاسم '======================================" ' iNdex1 ' اختيار موقع الاسماء التي تريدها ' FullName حسب ترتبها في ' (اسم واحد او عدة اسماء) '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function المرفق 2003 استخراج عدة اسماء من اسم كامل.rar

تفضل أخي Sub AddRedCircle() Dim c As Range Dim ws As Worksheet Dim Shp As Shape Set ws = ActiveSheet For Each c In Range("B2:E9") If c.Value <= 40 And c.Value >= 30 Then c.Select Set Shp = ws.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) With Shp .Fill.Visible = msoFalse .Line.ForeColor.RGB = RGB(255, 0, 0) .Line.Weight = 2 End With End If Next c End Sub

بارك الله بك استاذ ياسر و لكن هل تعلم انه بتعديل بسيط على الكود يمكن تحويله الى دالة اخرى انظر المرفق البحث عن القيم المتعددة بدون تكرار و جمعها.rar

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

السلام عليكم تفضل اخى الكريم ارجو ان يكون المطلوب 5555.rar

السلام عليكم اليك الحل يا صديقي بحث عن موظف.rar

اخي العزيز لاتتعب نفسك انا بحثت في الانترنيت كثيرا ودائما يعطونني كتاب vba lessons تحت مسميات عديدة ولكنه كتاب شرحه ناقص اي لايوصلك الى الاحتراف انه يرشدك الى الفكرة ولايستزيد في الفكرة لحين وصولك الى الاحتراف لاتتعب نفسك بالبحث فلا يوجد مرجع شامل عربي لذلك أحبتي في الله لست أكاديميا لاجيب عن هذا السؤال تعلمت كتابه الكود (صدقا بالحوار معه) اطرح له حاجتي و احولها لما اعرف والتجربة خير برهان كنت اتمنى من فترة ان اجيب على هذا السؤال بما ينتفع به ، ولكنني لم افلح قد اكون ممن تعلم بطريقة غريبة ، ولكن المسألة ليس لها ( كتالوج) او دليل مستخدم او وصفة سحرية فهي معلومات متراكمة و تعلم مترابط مستمر هو علم ( متفلت ) اذا ابتعدت عنه قليلا هجرك ، وان استمر بك الوصل اقترب منك وزادك قربا ويسرا أعذروني على الانشاء في القول ولكنه جلّ الردّ لدّي و دمتم ..................

انا افضل اكسل 2007 واكسس 2003

بسم الله الرحمن الر حيم السلام علكيم وحمة الله وبركاته لم أتمكن من أرفاق الملف المرة السابقة وقد أرفقته هذه المرة المسقط الأفقي والقطاع الطولى للشبكة آخر تعديل.rar