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

السلام عليكم ورحمة الله وبركاته.. من خلا ل اطلاعي على بعض المواقع المتخصصة في الإكسيل ، وجدت هذه النماذج وأحببت أن أنقلها كما هي وإدراجها في هذا المنتدى علها أن تكون مصدر لاستلهام الأفكار في تصميم البرامج الخاصة في الإكسيل. الفورم الأول: المرفق1: http://www.excel-easy.com/vba/examples/excel-files/controls-collection.xls

تم

تم ولكم الشكر الجزيل IF(N(B4)>0;+MAX($A$3:A3)+1;"") ماذا تعني اضافه حرف n قبل المعادله ؟ تسلسل يتخطى الخلايا المكتوب بها صفر.rar

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

جرب هذا الماكرو أو بالأحرى (3 ماكرو) Sub AddValidationCirclesForPrinting() Dim My_cel As Range Dim My_rg As Range Dim My_Count As Integer Dim My_Shape As Shape On Error Resume Next '========================================= For Each My_Shape In Application.ActiveSheet.Shapes If My_Shape.Name Like "InvalidData_*" Then My_Shape.Delete End If Next '==================================== Set My_rg = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation) If My_rg Is Nothing Then Exit Sub My_Count = 0 For Each My_cel In My_rg If Not My_cel.Validation.Value Then Set My_Shape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, My_cel.Left - 1, My_cel.Top - 1, My_cel.Width - 1, My_cel.Height - 1) With My_Shape .Fill.Visible = msoFalse .Line.ForeColor.SchemeColor = 10 .Line.Weight = 1.25 My_Count = My_Count + 1 .Name = "InvalidData_" & My_Count End With End If Next End Sub Sub RemoveValidationCircles() Dim xShape As Shape For Each xShape In Application.ActiveSheet.Shapes If xShape.Name Like "InvalidData_*" Then xShape.Delete End If Next End Sub Sub print_for_me() Answer = InputBox("Do you want to print the red cerles press Y or N", "Salim You Ask", "Y/N") If UCase(Answer) = "N" Then RemoveValidationCircles ActiveSheet.PrintPreview ' ActiveSheet.PrinOut ElseIf UCase(Answer) = "Y" Then AddValidationCirclesForPrinting ActiveSheet.PrintPreview ' ActiveSheet.PrinOut Else MsgBox "Choose Y or N" End If End Sub مرفق ملف كمثال Add_remove_PrintPreview.rar

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

بسم الله الرحمن الرحيم اللهم صلي على حبيبك و نبيك و سلم و بارك عليه و على ال نبيك و على كل المسلمين عدد خلقك و رضا نفسك وزنة عرشك و مداد كلماتك حتى يوم الدين و في يوم الدين .......... اما بعد بحث من اعداد "سعيد محمد عبد المالك يونس علي بدر الدين" فانطلاقا من مبدأ زكاة العلم نشره و تعليمه وعتابي على المسؤلين عن المنتدى قمت بكتابة هذا الموضوع حيث الهدف من السؤال هو معرفة ادق التفاصيل وليس ارفاق الامثلة المحلولة فهي لا تحتاج الى اشتراك في المنتدى ... كل ما تحتاجه هو البحث في جوجل ولكن يبقى تفسير طلاسم المثال حتى نصبح في يوم ما محترفين مثلكم ......... دون الاطالة فهذا موضوع عن الصلاحيات و المستخدمين في البداية هذا الدرس او المبحث موجه لمن هم مبتدئين ولكن لمرحلة ما بعد الصفر وليس لمرحلة الصفر فهناك مباحث يجب قراتها قبل هذا المبحث كي تفهم ما هو المقصود من هذا المبحث و الموضوع في شكل ملف ورد وهو يحتوي على عدد 28 صفحة و حوالي 48 صورة وهذا هو الرابط http://www.4shared.com/rar/Zgexs_PPba/_online.html كما تم ارفاق مثل عملي يحتوي على الشرح وبه جزئيتين لم يتم شرحهم ساقوم بعون الله بشرحهم في درس اخر كي لا اثقل على المتلقي وهم في حالة ادخال كلمة السر خطا في نموذج تغير كلمة السر اكثر من ثلاثة مرات وفي حالة عدم وجود مستخدمين في البرنامج "اي استخدام البرنامج للمرة الاولى" ولا اريد الا الدعاء لي بظهر الغيب وبان يرزقني الله بزرية صالحة يحبها ويرضها ارجوا تثبيت الموضوع كي يكون سهل الوصول اليه و اعدكم بمواضيع مشابه في القريب جداً العاجل مثل الصلاحيات.rar

استكشف ايضاً الدالتين T & SIGN

بارك الله فيكم با فرسان اسأل ربى أن يزيكم علما وأن ينفع بعلمك يا أساتذة جزاكم الله خيراً

N هي دالة في الكسل تعمل كما يلي: اذا كانت الخلية الهدف رقماُ تعطينا هذا الرقم اما اذا كانت الخلية الهدف نصاً أو فارغة تعطينا صفر

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

IF((C4)>0;+MAX($B$3:B3)+1;"")+ يجب اولا تنسيق العمود b كرقم اقتباس من رد استاذنا / الفاضل سليم حاصبيا تسلسل يتخطى الخلايا المكتوب بها صفر.rar

انسخ هذه المعدلة الى الخلية B4 (واسحب نزولاً) انها تعمل تسلسل اذا كنت الخلية المقابلة رقماً اكبر من 0 =IF(N($C4)>0,MAX($B$3:B3)+1,"")

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

جرب هذا الملف Book salim.rar

الفورم الثاني: لا تنس بأن تنشئ مجلد اسمه test داخل المسار c وضع الصور التالية بداخله: المرفق: http://www.excel-easy.com/vba/examples/excel-files/userform-with-multiple-pages.xls

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

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

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

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

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

اخي ياسر صياج الخير والورد والياسمين اعتقد انه هناك طريقة ما للتحكم بحجم هذه الدوائر لجعلها ضمن حدود الخلية Parent (فقد مررت على فيديو بهذا الشأن - لا اذكر العنوان) ما بموضوع الطباعة اعتقد ان هناك خيارات لطباعتها او لا

هذا خيار لتستطيع اختيار شكل التقرير أفقي أم عمودي من جدول اسمه tblreport و من عمود اسمه check فإن كان قيمة Check = 1 فالتقرير افقي واذا كانت 2 فالتقرير عامودي

ارفق المرفق لتسهل عليك الفكرة اخى الحبيب

جرب هذا الملف دون الحاجة الى الضفط على زر بحث يكفي ان تكتب الاسم في الخلية E1 ليقوم اكسل بتحديده(اذا كان الاسم صحيحاً) Private Sub Worksheet_Change(ByVal Target As Range) Range("a5:f100").Interior.ColorIndex = xlNone If Target.Address(0, 0) <> "E1" Then Exit Sub On Error GoTo 1 Range("z1").FormulaArray = "=MATCH(TRIM(E1),TRIM(B5:B100),0)+4" t = Range("z1").Value Range("z1").Clear Cells(t, 1).Resize(1, 6).Interior.ColorIndex = 6 Exit Sub 1: MsgBox "This Name Doesn't Exits" Range("z1").Clear End Sub

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة dateserial دالة mod حلقة التكرار for...next رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing الكود Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo 1 Dim i As Integer For i = 1 To 31 Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 29 Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd") Next i Dim ss As Integer ss = [Forms]![mf1]![mmm] Mod 4 Me.f29.Visible = ss = 0 For i = 1 To 31 Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd") Next i 1: End Subالفيديو https://www.youtube.com/watch?v=xwpO5KD-8wc

السلام عليكم اخي الكريم شاهد المرفق لعلة يكون النتيجة المطلوبة ولكن بعد ادخال الرقم(الوزن) اضغط على انتر او Tab من لوحة المفاتيح اقبل تحياتي واحترامي Book1.rar

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

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

مرحبا بك أستاذي العزيز أبا جودي تفضل التعديل المطلوب و وافني بالنتيجة فأنا أتعلم و أستفيد من نصائحكم السديدة. test.rar

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الثالث )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل استعلام في نفس الفورم الذي قمنا بتصميمه عن البيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام كومبوبكس لعمل ذلك ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري في الدرس القادم سنتعرف الطريقة لعمل التعديل في البيانات السابق تسجيلها وذلك عن طريق نفس الفورم ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 1 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام 3.rar طريقة عمل استعلام في الشاشة عن طريق كومبوبكس3.rar