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

جرب هذا الكود Option Explicit Sub My_Ad_filter() Dim Rg As Range Dim Cret_rg As Range Dim arr, itm Application.ScreenUpdating = False arr = Array(1, 2, 3, 4) Set Rg = Sheets("g").Range("A14").CurrentRegion For Each itm In arr With Sheets(itm & "") .Range("A14").CurrentRegion.ClearContents .Range("MM1") = "القسم" .Range("MM2") = itm Set Cret_rg = .Range("MM1:MM2") Rg.AdvancedFilter 2, Cret_rg, .Range("A14") Cret_rg.ClearContents End With Next Application.ScreenUpdating = True End Sub الملف مرفق H_2610.xlsm

السلام عليكم طريقة الاعلان عن متغيير يكون بالطريقة التالية Dim اسم المتغير As نوع المتغير Dim a As String وان اردت عدم الاعلان عن المتغيير وكتابته مباشرة فاحذف السطر التالي من الوحدة النمطية او النموذج الذي تعمل عليه Option Explicit ويمكن استخدام set مباشرة اذا لم نعلن عن المتغير وحذفنا سطر Option Explicit كما اتفقنا تخياتي

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

السلام عليكم حساب اشتراكات تامينات المراكب.xlsm

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

اصدار جديد من برنامج الملاحظة وفق الضوابط والشروط المعمول بها عندنا في اليمن برنامج_الملاحظة5.xlsm التعريف ببرنامج الملاحظة.pdf

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

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

تفضل اخي الكريم APE - Copy.rar تحياتي

اليكم رابط برنامج عواصم العالم والدول كاملا اصدار رقم 1 https://top4top.io/downloadf-1654wznys1-rar.html ارجو ان ينال اعجابكم وهو يعتبر متكامل لجميع دول العالم وعواصمها واعلامها والقارة التى تقع فيها كل دولة ومستعد لتلقى اى ملاحظات للتعديل فى الاصدار الثانى واحب هنا ان اشكر مشرفين الموقع والاستاذ محمد طاهر للتشجيع المستمر وانا لم اتعلم شيئ الا من هذا الموقع الرائع وهذا رابط اخر علــى الميديا فاير اطلس العالم 1

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

ويمكن عن طريق الكود DoCmd.OpenReport Me.Name, acViewNormal مع ذلك يفضل عدم وضع زر امر في التقرير مجموعة من النصائح لعمل يتلافى المشاكل الشائعة 👇

هاي بسيطة نفس اجراء وضع زر امر في النموذج تكبس على زر امر وتضعه في رأس التقرير وتسميه طباعة تدخل على المايكرو وتكتب Printobject وسلامتك

ما عليك امر نبي شرح كيف اضافة زر امر في التقرير مثل اللي انت عامله زر الطباعه وشكرا

جرب هذا الحل للاستاذ ياسر خليل ياسر خليل أبو البراء له التحية احترامى med.mashroo3.xlsm

التنسيقات بهذا الشكل و الألوان الباهرة تثقل الملف دون حاجة لها الكود Option Explicit Sub Tansfer_data() Dim Tabl As Range Dim m%, Ro%, x%, k%, LA% Dim B_rg As Range Set Tabl = Source.Range("A5").CurrentRegion Ro = Tabl.Rows.Count If Ro = 1 Then Exit Sub Set B_rg = But.Range("A1").CurrentRegion If B_rg.Rows.Count > 1 Then B_rg.Offset(1).Resize(B_rg.Rows.Count - 1) _ .Interior.ColorIndex = xlNone End If Set Tabl = Tabl.Offset(1).Resize(Ro - 1) x = But.Cells(Rows.Count, 4).End(3).Row + 1 But.Range("D" & x).Resize(Ro - 1, Tabl.Columns.Count).Value = _ Tabl.Value m = Application.CountA(But.Range("D:D")) m = But.Cells(m, 1).Offset(-Ro + 1).Row + 1 For k = 1 To 3 But.Cells(m, k) = Source.Cells(k, 2) Next LA = But.Cells(Rows.Count, 1).End(3).Row If LA > 2 Then But.Range("A2:C" & LA).Resize(, 3) _ .SpecialCells(2).Interior.ColorIndex = 35 End If Tabl.ClearContents End Sub الملف مرفق Azhar.xlsm

وعليكم السلام 🙂 هناك امر لكل جقل اسمه "القيمة القديمة/السابقة" ، هكذا: me.ABC = me.ABC.oldvalue او me.ABC.value = me.ABC.oldvalue والشرط الوحيد في توفر القيمة السابقة هي انك لم تقم بحفظ السجل بعد (او تنتقل الى سجل آخر). جعفر

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

تم التغيير في تصميم الأوراق لانها كانت تحتوى على خلايا مدمجة تعيق عمل الكود

هذا برنامج الملاحظة1 وهو يرنامج صمم خصيصا لمساعدة الإدارات المدرسية في عمل حصص المراقبة على الامتحانات , والمساواة بين المعلمين بقدر الأمكان في حصص المراقبة التعليمات والشرح داخل الملف برنامج الملاحظة1.rar

ما شاء الله تبارك الله جميل بس يستنزف حبر الطابعه بسرعه

تفصيل اكثر

لا ضرورة لهذه الأكواد المعقدة للفورم (انظر الى الكود داخل اليوزر) 3 أكواد بسيطة جداً يكفي اكواد بسيطة وسلسلة كما في هذا الملف 1-اضغط على الزر الازرق يطهر لك اليورز 2- أحتر اسم الورقة من الكومبوبوكس 3-اضغط الزر المناسب Jamal.xlsm

اخي الكريم توجد دالة تقوم بهذا الاجراء و تفي بالغرض DatePart("q"[Date])

تفضل اخي الكريم 11111.rar تحياتي

جرب هذه الفكرة ربما تفي الغرض Copie de الجمع بشرطين1-2.xlsm

عليكم السلام ورحمة الله وبركاته قم بالذهاب إلى pirnters and faxs وقم بالوقوف على طابعة قد أضفتها لجهاز الكمبيوتر واضعط كليك يمن واختر set as defult pirnter إن لم تكن هناك طابعة مضافة للجهاز قم بإضافة طابعة واتبع التعليمات السابقة

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر11_Click() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[no_m]=""" & Me.نص9 & """" Me.Bookmark = rs.Bookmark End Sub Private Sub أمر13_Click() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[name]=""" & Me.نص12 & """" Me.Bookmark = rs.Bookmark End Sub تجريبي1.rar تحياتي

السلام عليكم اريد معرفة طريقة تشغيل ميكرو الترتيب علي اكثر من عمود اي عند التوجة للمسلسل يرتب المسلسل وعند التوجه لعمود الاسم يرتب الاسم وعند التوجة لعمود المستوي يرتب المستوي الضغطة الاولي تصاعدي والضغطة الثانية تنازلي agh.xlsm

تفضل لو حابب الحل بالأكواد 1ترتيب ابجدى.xlsm

هذا رابط الموضوع السابق المختصر الفكرة هي تأسيس لعملية البيع والشراء لعملاء معتمدين باقل قدر من الكائنات ، والفكرة تم تنفيذها بــ 3 جداول أساسية فقط : راس الفاتورة _ التفاصيل _ المدفوعات . كثير منكم سيقول نعلم هذا ولم تأت بجديد ، وأعلم ذلك ولكن الحال في غالب الامثلة والمواضيع المنتشرة في هذا المنتدى وغيره تختلف وفيها الإلزام بما لا يلزم . وموضوعي هنا نسخة مطابقة من الرابط السابق ولكني احببت افراده بموضوع وعنوان مستقل لعدة اسباب : 1- وجود فكرة جديدة من بنات افكاري تساعد عند عمليات الادخال ، ومن الممكن وجود احد سبقني الى هذه الفكرة في هذا المنتدى او غيره فهنا اقدم اعتذاري له ابتداءً ولتعلموا انما هو توارد خواطر . 2- جميع من مر على الموضوع السابق وفهم الفكرة لن يتوقع تغير متميز لذا لن ينشط في المتابعة وفي تصفح المثال الجديد 3- تلافي جميع المشكلات في الملاحظات السابقة خاصة التي يستعصي او يصعب حلها الفكرة هي جعل جميع النماذج غير منضمة والحاق البيانات باستخدام الكود ، وهذه ليست جديدة ولكن الجديد هو استخدام جدول وسيط مؤقت لرصد تفاصيل الفاتورة buySel.rar

حرب هذا الملف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim lr As Long If Target.Column = 1 And Target.Cells.Count = 1 Then lr = Cells(Rows.Count, 1).End(3).Row Range("a1:a" & lr).SortSpecial End If Application.EnableEvents = True End Sub الملف مرفق autu_sort.xlsm

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

أخي الكريم (اللي مش عارف اسمه) وقلت له يغير اسمه لاسم يعبر عن شخصه الكريم إليك الكود التالي عله يعمل على 2007 Sub CountColoredCellsCF() Dim Ws As Worksheet, I& For Each Ws In ThisWorkbook.Worksheets I = I + CountCFCells(Ws.Range("I6").CurrentRegion, 6) Next Ws MsgBox "عدد الخلايا الصفراء يساوي = " & I End Sub Function CountCFCells(Rng As Range, ColorIndex As Long) As Long Dim I&, J&, Tmp$, Str1$ Dim CfCell As Range Dim FC As FormatCondition, IIFlg As Boolean For Each FC In Rng.FormatConditions If FC.Interior.ColorIndex = ColorIndex Then Exit For Next FC If FC Is Nothing Then Exit Function Str1 = FC.Formula1 For I = 1 To Len(Str1) Tmp = Mid(Str1, I, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If IIFlg Then Exit For End If Next I Tmp = Right(Str1, Len(Str1) - I + 1) For Each CfCell In Rng Str1 = "=" & CfCell.Address & Tmp If Rng.Worksheet.Evaluate(Str1) = True Then J = J + 1 Next CfCell CountCFCells = J End Function تقبل تحياتي

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

السلام عليكم الأفضل عملها نصف يدويا كالتالي مثلا إسم محمد إستخدم خاصية الاستبدال Ctrl-H مرتين المرة الأولي لاستبدال "محمد" بـ " محمد " أي تستبدله بما يزيد عليه بمسافة قبله ومسافة بعده وتكرر ذلك مثلا لكلمة "عبد" وأي إسم آخر تشتبه في أن به خطأ ثم المرة الثانية لاستبدال مسافتين متتابعتين" " بـمسافة واحدة" " أي تستبدل أي مسافتين متتابعتين في الشيت بمسافة واحدة =============== لاحظ أن عند استخدام المرة الأولي سينتج كثيرا من المسافتين المتتابعتين

السلام عليكم ورحمه الله وبركاته الأخ العزيز / هشام فعلاً مشكلة كبيرة تواجه الكثير منا ونريد لها حل ؟؟ وفكرتك جميلة ولكن تواجهنا مشكلة وهى عندما يوجد أسماء مركبة مثلاً ( نور محمد صالح ) و ( نور الهدى محمد صالح ) مع تطبيق الكود نلاحظ أن الاسم ( نور الهدى ) تأتى قبل ( نور ) وهذا غير أبجدي حيث يجب أن يكون الترتيب حسب الاسم الأول أولاُ تم الثاني أرجو أن تكون وضحت فكرتي وتقوم بالتعديل على الكود للتغلب على هذه المشكلة تقبل خالص تحياتي

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

السلام عليكم ترتيب المراكز العشر الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "C7" '''''''' (نطاق الاعدادات (اسماء الفصول والمواد Private Const kh_Stg As String = "MySeting" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== وايضا في النطاق المسمى MySeting في ورقة الاوائل اعمل تنسيقاتك في الصف الاول من جدول الاوائل وهي تنسخ اتوماتيكيا الى باقي الصفوف مع العلم ان التسلسل ايضا تلقائي المرفق اكسل 2003-2010 ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ======================================= هذا المرفق مع بعض التحسينات وجلب المادة المختارة والفصل المختار في الخلايا الاعلى للجدول ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ================================================ السلام عليكم جعلت مخرجات الكود يالنسبة للمادة والفصل في الخلايا K2:K3 يعني خارجة عن نطاق الطباعة علشان الواحد يعمل عناوين الجدول حسب مايريد انا عملت معادلة حسب طلبك ممكن تحولها في اي موضع تريده المرفق 2003 ترتيب المراكز العشر الاوائل حسب المجموع والعمر1.rar ============================================== تفضل المرفق 2003 ترتيب العشرة الاوائل حسب المجموع والعمر2.rar

السلام عليكم ورحمة الله وبركاته ترتيب العشرة الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=49092 لتجميع الموضوع

نعم يا سيدي الفاضل سيتم التحديد

هل ستحدد نوع الجنس ام ماذا