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

السلام عليكم و رحمة الله و بركاته هذا الموضوع كنت قد كتبته في نهاية شهر رمضان و رفعته على المنتدى و لكن بعد الظروف التي مر بها منتدنا و فقدان بعض المواضيع و كان هذا احد المواضيع التي فقدت رفعته لكم مجددا و هو استكمال لموضوع شرح الدالة SumProduct و الملف يحتوي شرح الجزء الأول مع الجزء الثاني الدالة SumProduct.pdf

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

يوجد بالمرفقات بروجرس بار مفيد جدا للاستاذ عبد الباري البنا رائع ولكن اريد التعديل عليه من فضلكم بحيث يعمل عند تنفيذ اكواد تانيه Progressbar.rar

ساجهز لك الان نسخه مكتمله ان شاء الله هذا للاطمئنان

كلمة مكرر تكتب لمجموعه الطلاب الحاصلين على مجموع واحد تخيل ان اربعه طلاب حاصلين على مجموع متساوي ضمن العشر رتب الاوائل الطالب الاول في نفس المجموعه يكتب الثامن مثلا وال3 طلاب الآخرين تضاف كلمة مكرر مع الثامن فتكون الثامن مكرر هذا هو الملف .. تفضل استخراج الاوائل 3.

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

ارجو ان يكون هذا هو المطلوب وشكرا مجموع المواد الداخلة والمباعة حسب اسم المادة والمنش المطلوب2.rar

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

أخي الكريم أين الملف المرفق الذي تتحدث عنه ويظهر فيه اسم أخونا عبد الباري ..قمت بتحميل الملفين في الموضوع ولم أجد ما تتحدث عنه ؟ مجرد احتمال أن يكون اسم عبد الباري موجود في أحد الليبلات الموجودة بالفورم ويكون مخفي ويظهر عند تشغيل الفورم !!

كلكم جدعان واحنا بنتعلم منكم مش بس الصعايدة وحدهم اللى جدعان

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 Private Sub Frame1_Click() End Sub Private Sub Im1_Click() End Sub Private Sub UserForm_Activate() Application.Visible = False Nour_A End Sub Sub Nour_A() On Error Resume Next secondes = 0.05 For a = 1 To 100 timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Me.Im1.Width = a + a + a / 2.2 Me.Nour1.Caption = a Loop Next 'Application.Visible = True 'Sheet1.Activate Me.Hide UserForm2.Show End Sub Private Sub UserForm_Initialize() dawenleod.Left = 0 dawenleod.Top = 0 Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) Me.Height = 210 End Sub ده الكود واثناء التشغيل يظهر اسم عبد الباري والكود لايوجد به الاسم دلوني حفظكم الله

تفضل جرب ووافنا بالنتائج ولا تنسانا من دعائك الأرشيف الالكترونى (1).rar

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

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

تفضل الكود Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Application.CutCopyMode = False Range("a2:f100000").ClearContents Sheets(1).Activate Application.ScreenUpdating = True End Sub تقبل تحياتى

السلام عليكم - مرحبا استاذ (الصقر) اشكرك - جزيت خيرا الحمد لله تم الترحيل ، فقط استاذنا : مسح البيانات عند الترحيل

اخى الكريم على حسب فهمى لطلبك ولو انك برأى مصعب الامور على نفسك المهم ادخل على الموديول رقم 3 استبدل الكود الموجود بالتالى Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتى

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

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

و عليكم السلام و رحمة الله و بركاته ... تفضل ...

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

وأخيرا سلمت يداك أخ عبدالسلام ،، الله يجزاك كل الخير أنت والقائمين على هذا الموقع.

انسخ هذه المعادلة الى الخلية A14 واسجب يساراً =SUM(IF($A$1:$K$1=A$13,$A$2:$K$9,""))

تفضل جرب ووافنا بالنتائج LibyaBank.rar

تفضل لعله قريب مما تريد Database1.rar

جيد بانتظارك ان شاء الله جميل هذا الاسم ولكن أقترح أن يكون الاسم مناسب لمضمون وهدف البرنامج - وفقا لقواعد المنتدى من جهة وحتى يكون الأمر واضح بالنسبة للأعضاء من جهة أخرى .

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

HYPERLINK.rar

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

السلام عليكم جزاكم الله خيرا على الاقتراحات و التشجيع و بارك الله فيكم تم مراجعة الاخطاء وتم الاصلاح و لله الحمد لكن لم أجد الرسالة و لم أتمكن من لتحويل الى أوفيس 2003 أعطتنى رسالة و الملف بعد التعديلاتVBALibrary.rar

السلام عليكم عندما بدأت فى رفع هذا الفديو - بعد أن اقتصصت منه بضع دقائق - كى لا يزيد عن 15 دقيقة هى المدة المسموح بها فى موقع يوتيوب و عندما بدأت الرفع جاءتنى رسالة تهنئة من الموقع بأن حسابى قد تم اختياره ليتمكن من رفع فديوهات بأى طول أكثر من 15 دقيقة يبدو أن هذا للمستخدمين الذين يتبعون تعليمات يوتيوب و قواعدهم بدقة الحمد لله يعنى يمكننا مثلا رفع فديو ساعة نشرح فيها عظيم جدا ترحيل البيانات أمر مهم جدا فى عالم الأكواد الترحيل بطريقة حلقات التكرار يسبب بطء الكود لأنك تتفحص الشرط فى كل خلية قبل أن تقر هل ترحل هذا الصف أم لا و ذلك مثلا عند ترحيل الناجحين الطريقة الجديدة - الجديدة على طبعا - توفر سرعة لا تقل عن 80% وتلاحظون ذلك فى الملف المرفق الآن إلى الفديو سنتعلم أيضا كيف نجمع بين الماكرو المسجل والماكرو المكتوب يدويا وهذه مهارة ضرورية جدا للمبرمج إلى الفديو الترحيل بالفلترة.zip

أخي الكريم إيهاب الغريب طبعاً الملفات بهذا الشكل لا تعجبني (دا مجرد رأيي الشخصي ) ..اسألني ليه ؟ بقولك اسألني ليه؟ مش سامعك كويس بص يا أخ إيهاب لما تيجي تنسق ورقة عمل تنسق الجزء اللي فيه بيانات بس مش تنسق ورقة العمل بالكامل لأن دا هيخلي الملف تقيل جداً من غير داعي لاحظت إنك مثلاً مسطر لحد آخر عمود في الشيت ..طيب ليه ؟ هل التنسيق غير مقصود أم مقصود؟ طبعاً دا ممكن يكون سبب في عدم استجابة الأعضاء للموضوع سيبك من الرغي اللي ملوش لازمة (بكلم نفسي) بص يا سيدي ..طبعاً تم تحويل المصنف المسمى 2 إلى امتداد xlsm ليقبل الأكواد (دي اول نقطة) في الكود عملت إبطال لتحديث الروابط عشان كل شوية تيجي رسالة عايز تحدث البيانات ولا لا ... !! في الخلية A9 في المصنف المسمى 2 حضرتك طلبت وضع رقم الإدارة ... ضع رقم الإدارة وانقر على زر الأمر Import Data (دا كان الجزء الأول من طلبك) أما الجزء الثاني من طلبك فلم أفهمه بشكل جيد ..يرجى ضرب مثال بشكل النتيجة المتوقعة لتتضح الصورة (اعمل زوووووم على الطلب ZOOM IN مش ZOOM OUT) إليك الكود وأرجو أن يفي بالغرض Sub ImportData() Dim WB As Workbook, AB As Workbook Dim Rng As Range, RngFiltered As Range, R As Range, Area As Range Dim vArray, I As Long Application.DisplayAlerts = False Application.AskToUpdateLinks = False Application.ScreenUpdating = False Set AB = ActiveWorkbook Set WB = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx", UpdateLinks:=False) With AB.Sheets("اطباءوتمريض") .Range("C10:C1000").ClearContents Set Rng = WB.Sheets("بيانات").Range("A1:D" & Sheets("بيانات").Cells(Rows.Count, "D").End(xlUp).Row) Rng.AutoFilter Field:=2, Criteria1:=.Range("A9") On Error Resume Next Set RngFiltered = Rng.Offset(1).Resize(Rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 If Not RngFiltered Is Nothing Then ReDim vArray(2 To Rng.Rows.Count, 1 To 1) I = 1 For Each Area In RngFiltered.Areas For Each R In Area.Rows I = I + 1 vArray(I, 1) = R.Cells(4).Value Next R Next Area .Range("C10").Resize(I, 1).Value = vArray End If WB.Close False End With Application.ScreenUpdating = True Application.AskToUpdateLinks = True Application.DisplayAlerts = True End Sub طبعاً الكود خد مني حوالي ساعة عشان أقدر ألبي الجزء الأول من طلبك فمتنسناش بدعوة بظهر الغيب (لا تبخل علينا) Import Data YK.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

الملف فى المرفقات بالتوفيق ان شاء الله الملاحظين.rar

أخي يوسف في بداية محرر الفيجوال للنموذج نعرف المتغيرات التالية : Private m_strNOM, m_strNAM, m_strAGE As String خلف زر أمر ولنقل Command_NewRecord نضع الكود التالي : Private Sub Command_NewRecord_Click() m_strNOM = Nz(Me.NOM.Value, "") m_strNAM = Nz(Me.NAM.Value, "") m_strAGE = Nz(Me.AGE.Value, "") DoCmd.GoToRecord acDataForm, Me.Name, acNewRec Me.NOM = m_strNOM Me.NAM = m_strNAM Me.AGE = m_strAGE End Sub وقم باختيار ما تشاء من الحقول واترك ما تشاء ما كنت تقوم به نسخ ولصق لكامل السجل جرب ووافني بالنتيجة واليك التعديل .... NA_TRT_UP.rar