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

فورم اكسل تهنئة بعيد الفطر المبارك بكلمات متحركة الملف اسفل الفيديو

شاهد هذه المواضيع .....

وعليكم السلام-بسيطة كان عليك رفع الملف لتجربته ..فعموماً مخزى هذه الرسالة ان لديك معادلات طويلة جداً فعليك بتغيير حفظ امتداد ملف الإكسيل الى Xlsb

وعليكم السلام-يمكنك استخدام هذه المعادلة اذا كانت القيمة المراد البحث عنها بالخلية N4 مثلاً =IFERROR(IF($N$4=VLOOKUP(N4,$A$5:$A$95,1,0),"موجود"),"غير موجود") ثوابت الميزان الجانب الغربي .xlsx

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

تفضل تنازلي و تصاعدي (1).accdb

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية الرمضانية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأخيرا التحميل 😊 تحميل الملف الأصلي : >> حمل من هنا آخر إصدار للأداة << تحميل الملف بلمسات المهندس العزيز @د.كاف يار : د.كاف يار __Domain Functions Builder V1.0.accdb وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 ‏‏Domain Functions Builder V1.0.accdb

هذا هو طريقة اخرى Me.OrderBy = "val([barcode]) ASC" Me.OrderByOn = True

اعتقد الموضوع مختلف استاذ ناقل

Sub Test() Dim a, e, c As Range, sCols As String, m As Long Application.ScreenUpdating = False With ActiveSheet m = .Cells(Rows.Count, 1).End(xlUp).Row + 10 With .Range("A1").CurrentRegion For Each c In .Rows(1).Cells If c.EntireColumn.Hidden Then sCols = sCols & IIf(sCols = "", "", "|") & c.Column Next c .EntireColumn.Hidden = False .Offset(1).SpecialCells(xlCellTypeVisible).Copy .Parent.Range("A" & m) End With With .Range("A" & m).CurrentRegion a = .Value: .Clear End With For Each e In Split(sCols, "|") .Columns(Val(e)).Hidden = True Next e End With Application.ScreenUpdating = True End Sub

تسلم استاذي العزير اشتغلت و الحمد لله و كل عام و انت بخير

السلام عليكم اخى @ABOLO2 هى مثل النماذج فالحقل الذى تريده فالتقرير الرئيسى فمصدر عنص التحكم يساوى اسم التقرير الفرعى ! اسم الحقل بالتقرير الفرعى ده مثال على النماذج اطلع عليه وان شاء الله تفهم الطريقه بالتوفيق Database 3.accdb

ان اردت الضغط والاصلاح قبلها مع رسالة ضع هذا الحدث تحت الزر ...... If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If Utilities.Restart

شكراً @احمد الفلاحجيجزاك الله خيراً و ننتظر أستاذ @أبو عبدالله الحلوانىلحل مشكلة -1 لى زميل عمل على مثالك أستاذ أحمد و لكن به خطأ فى شهر 9-2016 finish (1).mdb

السلام عليكم اخى محمد @محمد احمد لطفى كل عام وانت طيب عيدك مبارك ولا يكون خاطرك الا طيب قمت بالتعديل على الوحده النمطيه لاخى ومعلمى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا وبعد اذنه طبعا ليتناسب معك كما تريد وهو ان تكون النتائج بالاستعلام ولكن وجدت اختلاف واحد فالنتائج فالتواريخ التاليه مابين الجدول والاستعلام وذلك فى معادله الشهر Table1 FromDate1 ToDate2 Weeks Month1 Month2 Descrp 01/10/2020 10/01/2021 0 0 3 عدد الشرائح 1 qry FromDate1 ToDate2 qw qm qm1 01/10/2020 10/01/2021 0 -1 3 ولا اعلم اين المشكله حاليا لعل اخى واستاذى العزيز محمد الحلوانى يطلع عليها ويفيدك تقبلوا تحياتى ومرورى وكل عام وانتم بخير عيدكم مبارك Database2.accdb

الحمد لله عدل مدى rang (MyStream) إلى 1012 وليس 2012 بالتوفيق إن شاء الله كل عام وانتم بخير

بسيطة وسهلة طبعاً غير بناءاً على الخلايا الموجود بالفعل البيانات بها وشكراً !!!! بمعنى ستصبح المعادلة هكذا , طبعاً بعد اذن استاذنا الكبير ابراهيم الحداد له منا كل الإحترام وبارك الله فىه =IF(COUNTIF($B2:$L2,"دون المستوي")=0,"منقول للصف السادس ",IF(B2="دون المستوي",$B$1&" - "&IF(E2="دون المستوي",$E$1&" - "&IF(G2="دون المستوي",$G$1&" - "&IF(J2="دون المستوي",$J$1&" - "&IF(K2="دون المستوي",$K$1&" - "&IF(L2="دون المستوي",$L$1,""))))))) test1.xlsx

السلام عليكم ورحمة الله استخدم المعادلة التالية =IF(COUNTIF($B2:$G2;"دون المستوي")=0;"منقول للصف السادس ";IF(B2="دون المستوي";$B$1&" - "&IF(C2="دون المستوي";$C$1&" - "&IF(D2="دون المستوي";$D$1&" - "&IF(E2="دون المستوي";$E$1&" - "&IF(F2="دون المستوي";$F$1&" - "&IF(G2="دون المستوي";$G$1;"")))))))

الانتقال من فورم الى فورم فى الاكسل مع التعرف على اسماء وانواع الملائكة الملف ملائكة الرحمن الافراد والطوائف.rar

تفضل اخي كنت ارسلت لك ملف ثاني سابقا هذا بسب تغير اسماء الحقول كود (1) (1).xlsb

كود (1) (1).xlsb اتفضل

السلام عليكم ورحمة الله .. .ربما تقصد ما في هذه التجربة المتواضعة 112.xlsm

You are asking for a complete program not for a solution of a specific problem so I think you will not find any help Be specific and ask for the solution of only one problem and explain it well

أخي الكريم أحمد أهلاً بك في المنتدى ونورت بين إخوانك .. يرجى تغيير اسم الظهور للغة العربية كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى يراعى عند طرح موضوع أن يكون مصحوب بملف مرفق لتتضح الصورة ولتسهل المساعدة على إخوانك بالمنتدى إليك مثال مبسط فيه خليتين أحدهما B5 خلية بها نص وليست معادلة ، والخلية الأخرى D5 هي معادلة يتم الترحيل للخليتين ثم بعد الترحيل يتم مسح الخلية التي بها نص أما الخلية التي بها معادلة فلا يتم مسح بياناتها أرجو أن يكون المطلوب Sub Tarhil() Dim WS As Worksheet, SH As Worksheet, LR As Integer, Cel As Range Set WS = Sheet1: Set SH = Sheet2 LR = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 SH.Cells(LR, "A").Value = WS.Cells(5, "B").Value SH.Cells(LR, "B").Value = WS.Cells(5, "D").Value For Each Cel In Range("B5,D5") If Not Cel.HasFormula Then Cel.ClearContents Next Cel End Sub تقبل تحياتي ClearContents For Constants Only YasserKhalil.rar