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

اخى بدأ من A3 ضع المعادله التالية =IF(B2=B3;A2+1;1) شاهد المرفق الترقيم حسب التاريخ.xlsm

وعليكم السلام ...أعاده الله علينا بالخير واليمن والبركات استخدم المعادلة بدءاً من الخلية A2 =COUNTIF($B$2:B2;B2) تقبل تحياتي الترقيم حسب التاريخ.xlsx

السلام عليكم حذف سجل معين دون فقد البيانات وامكانية استرجاعه لاحقا New Microsoft Access Database.accdb

تم التعديل أخي kkhalifa1960 🙂 Dim rst As DAO.Recordset Dim i As Long Dim PP PP = Me.lstTables.Column(0) Set rst = CurrentDb.OpenRecordset("Select * From " & PP) rst.MoveLast: rst.MoveFirst For i = 1 To 10 Me("L" & i).Caption = rst(1) Me("T" & i) = rst(2) rst.MoveNext Next i rst.Close: Set rst = Nothing MahdiTest.accdb

احب الطمع كثيرا شاهد المرفق اخي برنامج محاسبه.xlsm

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

الاخ محمد حسن المحمد اسف اخي لم انتبة امشاركتك الا الان تقبل اعتذاري

تحت امرك اخي شاهد المرفق برنامج محاسبه.xlsm

شاهد المرفق اخي test01.xlsm

=IF(A2="غ";"غ";A2/2)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته بارك الله تعالى بكم إخوتي، وتقبّل طاعاتكم. وأستسمحكم؛ هذان موضوعان أحسبُ أن القصد منهما الإشهارُ، وهو أمر غير مسموح في (أوفسيتا)؛ كما أعهدُ. الموضوعان: https://www.officena.net/ib/topic/113829-تعرف-على-الموقع-الافضل-في-مجال-التقنية-داخل-الوطن-العربي/ https://www.officena.net/ib/topic/113798-صيانة-شفرولية-الرياض/ والله تعالى يُوفّقكمُ.

شاهد المرفق اخي برنامج محاسبه.xlsm

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

أهلا أخي kkhalifa1960 إذا كنت تقصد بـ مفرداته أي الحقول الخاصة به .. فهذا هو طلبك 🙂 MahdiTest.accdb

تفضل هذا التعديل testQ-2.zip

شكر وتقدير واحترام من اخيك

جزيتم خيرا

اخي omar elhosseini لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

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

اخي بعض السيرفرات تدعم قواعد بيانات الاكسس و البعض الآخر تجعلك اما قرار تحويل القاعدة الى SQL Server و انصحك و بشدة تحويل القاعدة الى SQL Server و ربطها بالأكسس فمستقبلا تحتاج ان يكون التطبيق يعمل على اكثر من نوع من التطبيقات مثلا ويب و تطبيقات الهواتف المحمولة القرار لك و في جميع الاحوال ستجدنا في خدمتك و مساعدتك

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

تفضل هذه المشاركة مع اخي @Moosak ايام دوام الموظفين.mdb

اخي محمد حسن لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

تفضل هذا التعديل orwahSch (1).mdb

شرح كيفية تلوين خلفية متعدد الصفحات MultiPageوربط ليبل بخلية معينة الملف شرح متعدد الصفحات وتلوين الخلفية.xlsm

جميل جداً .. شكرا جزيلا استاذ عبدالقدوس 👍

هذا مجرب عندي Sub V() Dim r As Integer Dim xnewr As Integer Application.ScreenUpdating = False Application.EnableEvents = False For r = 5 To 650 If IsEmpty(Cells(r, 1)) Then Exit Sub xnewr = Feuil5.Cells(1, 1).CurrentRegion.Rows.Count + 1 If Cells(r, 1).Value = "" Then Exit Sub For i = 1 To 28 Feuil5.Cells(xnewr, i) = Cells(r, i) If i >= 5 Then Cells(r, i) = "" Next Next Application.ScreenUpdating = True Application.EnableEvents = True MsgBox "Done" End Sub

شاهد المرفق اخي خلية.xlsb

View the full article

كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين واقضى حاجة المحتاج حتى لو كان اليك مسيئاً فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا فالسعد تارات واشكر فضائل صنع الله إذ جعلت إليك لا لك عند الناس حاجات مهما إختفت من حياتك أمور ظننت أنها سبب سعادتك ! تأكد أن اللـه صرفها عنك قبل ان تكون سبباً في تعاستك عليك بتقوي الله ان كنت غافلاً أنظر لحالك كيف تعصاه ويأتيك بالارزاق من حيث لا تدري فكيف تخاف الفقر والله رازقاً فقد رزق الطير و الحوت في البحر و من ظن ان الرزق يأتي بقوة ما اكل العصفور شيئاً مع النسر تزول عن الدنيا فانك لا تدري اذا جنّ عليك الليل هل تعيش الي الفجر فكم من صحيح مات من غير علة و كم من سقيم عاش حيناً من الدهر وكم من فتي امسي و اصبح ضاحكاً وأكفانه في الغيب تنسج وهو لا يدري فمن عاش الفاً و الفيـــــــــــــن فلا بد من يوم يسير الـــــي القبـــــــــــر صافح وسامح .. ودع الخلق للخالق .. {فأنت****** .. وهم****** ..ونحن****** .. كلنا راحلوون إفعل الخير مهما استصغرته .. فلآ تدري أي حسنة تدخلك الجنةView the full article

و عليكم السلام ورحمة الله وبركاته شكرا لك تم عمل اللازم

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

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

اتمني ذلك-شاهد المرفق اخي ( طباعة الفورم ) الان يمكنك طباعة الجدول او الفورم علي فكرة هذا اول مره فى المنتدى ما الخطأ في الكود.xlsm

تفضل بهذا الترتيب يكون التحكم اسهل Dim SetCoulmin() As String, SetWhere As String SetCoulmin = " TransID,TransType, TransTitle, " & _ " TransSubject,TransDescription,TransCreatedOn, " & _ " TransCreatedBy,TransStatus,TransUpdatedBy, " & _ " TransEnd,TransFromCity,TransFromDept,TransToDept,TransToEmp " Forms!DynamicForm!lstDynamic.RowSource = "SELECT " & SetCoulmin & " From TransactionsT " & _ " WHERE TransType is Not Null " & _ " and TransTitle is Not Null " & _ " and TransSubject is Not Null " & _ " and TransToDept Like '*' & Forms!MainScreen!txtDepartment & '*' " & _ " ORDER BY TransID DESC"

Option Explicit Private Sub CommandButton1_Click() Dim ws As Worksheet, i As Long, k As Long For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) Then k = k + 1 Set ws = Worksheets(Me.ListBox1.List(i, 0)) ws.Move Before:=ThisWorkbook.Worksheets(k) End If Next i End Sub Private Sub UserForm_Activate() Dim ws As Worksheet With Me.ListBox1 .Clear For Each ws In Worksheets .AddItem ws.Name Next ws End With End Sub

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

مع الشكر الجزيل لك أخي الكريم و الشكر لكل من يتعب في سبيل الآخرين

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

شاهد المرفق اخي برنامج محاسبه.xlsm

وعليكم السلام اجعل Field Size للحقل = Double

فورم اكسل لانبياء الله ورسله باستخدام ال MultiPage الصفحات المتعددة تحميل الملف قصص الانبياء.xlsm قصص الانبياء.rar

Sub Test() GenerateUniqueRandom ActiveSheet, "D3:F22", 1, 60 End Sub Sub GenerateUniqueRandom(ByVal shTarget As Worksheet, ByVal sRng As String, ByVal iStart As Long, iEnd As Long) Dim w, v, rng As Range, c As Range, n As Long, i As Long, ii As Long, r As Long Set rng = shTarget.Range(sRng) If iEnd - iStart + 1 > rng.Cells.Count Then MsgBox "Generated Numbers Greater Than Range Cell Count", vbExclamation: Exit Sub w = Evaluate("ROW(" & iStart & ":" & iEnd & ")") n = 0 ReDim v(1 To rng.Rows.Count, 1 To rng.Columns.Count) For i = LBound(v, 1) To UBound(v, 1) For ii = LBound(v, 2) To UBound(v, 2) r = Application.RandBetween(iStart, UBound(w) - n) v(i, ii) = w(r, 1) w(r, 1) = w(UBound(w) - n, 1) n = n + 1 Next ii Next i rng.Cells(1).Resize(UBound(v, 1), UBound(v, 2)).Value = v End Sub

تفضل يمكنك استخدام هذه الدالة المعرفة =RandomNumbers(1,60,0) Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer) Application.Volatile Randomize If IsMissing(Decimals) Or Decimals = 0 Then RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1) Else RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals) End If End Function عدم التكرار.xlsm

فورم اكسل لتشغيل القران الكريم الجزء الثلاثون وعرض صورة السورة والتفسير كل عام وانتم بخير ورمضان كريم رابط على الميديا فاير رابط على 4 شير k

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

السلام عليكم ورحمة الله وبركاته .... رمضان مبارك إن شاء الله تعالى الله ينور....بالتوفيق إن شاء الله تعالى اللهم تقبل منا صالح أعمالنا واغفر لنا ما كان منا جزاكم الله خيراً ...والسلام عليكم ورحمة الله وبركاته. بانتظـــــــــــــــــــــــــــار الملف.....

حساب التأخير بمعناه الفعلي يحتاج إلى تحديد وقت الدخول لكل وظف ولأني لا أجد ذلك في ملفك فقمت بحسابه عن طريق المتبقي من ساعات العمل حتى 7 ساعات عمل والإضافي هو ما زاد عن 7 ساعات لاحظ تم تغيير تنسيق خلايا الوقت الفعلي والتاخير والاضافي بالتوفيق حساب التأخير والاضافي.xlsx

السلام علكيم. الاغلب يعاني من مشكلة تصدير البيانات كان تكون جداول او استعلامات او تقارير..الخ الى اكسل ولكن! مع بقاء مسميات الحقول العربية ( Caption ) الان لنفرض لدي الجدول اسمة Customers وهذه الاعمدة الخاصة به واما المسميات فهي هذه الان عند محاول تصدير هذا الجدول الى اكسل بإستخدام VBA يتم تصديره ولكن لا تظهر المسميات العربية مثل اسم الموظف, الرقم الوظيفي..الخ بل تظهر اسماء الحقول باللغة الانكليزية , وهذه مشكلة. الان قم بأنشاء ماكرو جديد ثم طبق كما موجود بالصورة, اختر نوع الكائن الذي تريد تصديره جدول استعلام ... الخ واسم الكائن ، واهم شي تنتبه للتنسيق اختار كما قمت انا بأختياره وسيتم تصدير الجدول بالمسميات العربية. ارفقت لكم قاعدة بيانات كـ مثال للشرح لمن واجه صعوبة في شيئ ما. حسنين export_to_excel_semo_pa3x.accdb

ما رأيكم أن نجرب اليوم تجربة جديدة ؟ أن نجعل حديث النبي صلى الله عليه وسلم : (من حسن إسلام المرء تركه مالا يعنيه ) شعارا لنا ، نتمثله في كل التفاصيل والمواقف .. سنجرب اليوم أن نركز فقط على الأمور التي تعنينا (تهمنا) وتكمل ديننا ودنيانا ، ونتجاهل مالا يعنينا ..الأحاديث الفارغة والتعرف على تفاصيل حياة الآخرين ، أين ذهبوا ، وماذا أكلوا ، ليس مما يعنينا بالطبع ..الضغط على الروابط المقترحة في اليوتيوب والانستجرام وتتبع أخبار المشاهير والتافهين ليس مما يعنينا بلاشك ، بل هو مما يسحبنا إلى دقائق من الغفلة والتفاهة .. قراءة كل ما يصلنا في شبكات التواصل الاجتماعي وخصوصا الواتساب مما لا يعنينا بالتأكيد ، والأفضل من ذلك قراءة كتاب نافع أو متابعة مقطع هادف . . التجول في الأسواق دون هدف محدد يهدر حياتنا وهو مما لا يعنينا حقا ، بل يقودنا إلى أن ننفق أموالنا فيما لا نحتاج .. وغير ذلك الكثير الكثير .. فلنجرب معا أن نركز فقط علي ما يمس حياتناعن قرب ، ويقربنا إلى الله تعالى وإلى تحقيق أهدافنا ، حتى نكون ممن حسن إسلامهم كما قال النبي صلى الله عليه وسلم،،View the full article