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

بسم الله الرحمن الرحيم وجدت كثيرا من الاعضاء تطلب هذا الموضوع كثيرا وعندما وضعت مثال لشاشة دخول بكلمة مرورظهر ليا مشرف كدا كالعادة وقالي البوقين دول كنت أفضل يكون في موضوع مستقل لأن المشاركات الفرعية تندثر مع الوقت لما تلاقي نفسك عملت ملف مميز زي كدا .. افتح موضوع جديد واشرح بالتفصيل (مش ترمي الملف وتجري ..) وبعد كدا في المشاركة الفرعية تضع رابط للموضوع ليستفيد أكبر عدد من الأعضاء إذ أن المتابعين للمشاركات قلة .. ولكن هناك كثر في انتظار الموضوعات الجديدة للتعلم والاستفادة .. متنساش كلامي يا سكر زيادة وانا حبيت اوجه له رسالة من هنا واقول له انا بحب الشاي سكر خفيف المهم حبيبي الغالي فعلا صدق في كلامه فا نخش في الموضوع وبلاش رغي بقي اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد ونقوم بوضع عدد واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه اثنين تكست بوكس الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله GAME OVER بمعني انه استنفذ كل المحاولات وجاري اغلاق البرنامج وواحد كومند زرار يعني عشان ندوس عليه للدخول ز ما احنا شايفين وطبعا متنسوش تحطه خلفيه حلوة كدا للفورم دا اهم حاجه عندي اه كله الا الجماليات وموضوع الجماليات دا نعمله موضوع قريب ان شاء الله بس تكون عندكو لسعه فوتوشوب بس وطبعا نخلي الخلفية علي وضع الاسترتش اه يعني الصورة تبقي لازقه في الفورم كيبر تكبر معاه يصغر تصغر معاه تمام كلنا عارفين الاسترتش كويس زي ما احنا شايفين نيجي بقي للاكواد اول كود نحطه في الجينرال بقي اول حاجه 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 UserForm_Initialize() 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) End Sub toolwindowودول لزوم الفشخرة والمنظره وعشان نقصقص البتاعه دي ويضفي جمالا للفورمة هي الخيارات بتاعتها متاحه في الفيجوال بيسك عادي زي كدا ننفض للحته دي نخش علي الكود اثالث ودا هيبقي في تنشيط اليوزر فورم Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub ايه الكلام دا دا ياسيدي بنقوله كبر لنا البرنامج ملئ الشاشة Maximized لما تفتح اليوزر فورم زي الشاطر خلي مقاسات اليوزر فورم زي مقاسات البرنامج واحنا مكبرين شاشة البرنامج يبقي كدا اليوزر فورم هيبقى كبير زي البرنامج تمام كدا الكود الرابع Private Sub CommandButton1_Click() If TextBox1.Text = "123" Then Me.Hide Else am = am + 1 MsgBox " لقد استخدمت " & am & " محاولة من اصل 5 محاولات, vbCritical, "elmalak_elhazen_yasser@yahoo.com" If am = 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub اكيد دماغكو لفت معايا معلش انا شرحي علي قده استحملوني دا كود بيقول اذا كانت التكست بوكس واحد بتساوي 123 اذن ياعم اخفيني من وشك ويظهر معاك ملف الاكسيل عادي طيب اذا ما حصلشي بقي نعمل ايه تعالا بقي am دي اسم التكست بوكس اتنين بس انا غيرته الى am ندوس علي التكست بوكس اتنين ونغيره من هنا ومننساش نخفى التكست بوكس دا من هنا واحد فكيك بقي يقول ليه am اقوله ياناصح دول اول حرف من اسيل واول حرف من محمد ولادي تمام يامعلم محدش يشتم ولا يضرب المهم بقي ان am بتساوي نفسها + 1 تمام اه قبل ما انسى نخلي قيمة am دي بصفر نكتب جواها صفر عشان لما يعد يعد من بعد الصفر يعني كل ما المعلم يدوس غلط يزود رقم واحد وتطلع رسالة تقوله وصلت لكام محاولة ولما يوصل للمحاولة الخامسة يقوله بالسلامة ياحبي انا هقفل وانام وتمام كدا زي الفل والكلام خدنا والدرس خلص شفتوا انتو مش مصحصحين ازاي نسينا نحط كود فتح الفورم في حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub وبعدين انا مش هحط امثلة زي واحد صاحبي وحبيبي بيقول انكم لازم تتعبوا شوية وتعملوها بنفسكوا بدل ما تخدو كوبي وبست وخلاص للحديث بقية باذن الله لاستكمال اضافات تانيه اتمنى من الله ان ينفعكم هذا الشرح تقبلو تحياتي ياسر العربي قلت اضيف صورة الكود لكمعشان ميبقاش ليكو حجه

أخي الكريم يرجى تغيير اسم الظهور ليعبر عن شخصكم الكريم فيما يخص طلبك يوجد بالمنتدى العديد من الدورات والدروس في البرمجة VBA ... على سبيل المثال لا الحصر دروس فى VBA Excel _ نتعلم معا برمجه اكسل محمود الشريف كما يوجد موضوع مهم جداً أنصحك بالبدء به لمعرفة بداية الطريق بداية الطريق لإنقاذ الغريق كما توجد دورة قمت بها من فترة وهي دورة ستجدها ممتعة ومفيدة في نفس الوقت افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب)

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

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

السلام عليكم جرب أخى هذا الكود يقوم بالترحيل مع انشاء الصفحات مع نسخ التنسيقات لعله يكون كما يريد Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "البيانات" Then sh.Range("A1:J1000").ClearContents End If Next LR1 = Cells(Rows.Count, 6).End(xlUp).Row LR2 = Cells(Rows.Count, 8).End(xlUp).Row Set Rng1 = Range("F2:F" & LR1) Set Rng2 = Range("H2:H" & LR2) Set Rng = Union(Rng1, Rng2) For Each cl In Rng x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("البيانات").Range("A1:J1").Copy Sheets(x).Range("A1").PasteSpecial xlPasteValues Sheets(x).Range("A1").PasteSpecial xlPasteFormats Sheets("البيانات").Cells(cl.Row, 1).Resize(1, 10).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("البيانات").Select Application.ScreenUpdating = False End Sub 2متابعة .rar

تفضل أخى علما بان اسم المستخدم ragab وكلمة المرور 123 ويمكنك تغيرهما من الخلايا AZ1 و AZ2 من الصفحة الأولى prchi Raspi Food Cost 1.rar

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير لأخي الفاضل وأستاذنا أبوعبدالله اقترح الاخ ابو شرف في مشاركته في موضوع برنامج الوثائق مع التقدم الرقمي باضافة صور الوثائق مع الفورم لذلك وبعد اذن اخي ابوعبدالله صاحب الموضوع الاصلي قمت بتعديل بسيط علي برنامج نظام الوثائق ليشمل صور الوثائق الحماية (( 123)) بناء علي طلب بعض الاخوة الذين يستخدمون التقويم الهجري تم اضافة نسخة للتعامل بالتاريخ الهجري بالمشاركة رقم 18 برنامج الوثائق مع الصور.rar

رجاء كود او برنامج لتحويل الاسماء باللغة الانجليزية فى حقل الى اسماء باللغة العربية فى حقل اخر مثال Ahmed mohamed الى احمد محمد

جزاك الله خيرا أخى الفاضل ابو حمادة شكرا جزيلا على هذا الدعاء الطيب

تفضل أخى الدوائر الحمراء.rar

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

تفضل أخى جرب المرفق تم تظبيط كود الدوائر فى صفحة AA جرب وأخبرنى بالنتيجة الدوائر الحمراء.rar

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

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

وحياتك اخى ياسر العجلتين مهويين جزاكم الله خيرا

تفضل أخى تم وضع تاريخ الشهر فى الصفحة D فى العمود A بالمثل كما فى صفحة الارشيف ترحيل بيانات.rar

ولاثراء الموضوع هذا كود آخر Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long, x As Long, i As Integer, D As Boolean Dim ws As Worksheet, cl As Range '================================================== If Target.Address = [A3].Address Then x = Val([A3]) For i = 1 To 3 LR = Sheets(i).Range("A10000").End(xlUp).Row For Each cl In Sheets(i).Range("A1:A" & LR) If cl = x Then [B3] = Sheets(i).Name [C3] = cl.Address(0, 0) D = True Exit For End If Next Next If Not D Then Range("B3:C3") = "رقم غير موجود" End If End Sub مثال2.rar

بس دا كدا بيزعل الناس اللي بيحبوا 2003 خصوصاً .. ولازم نتعامل مع أي أوفيس وكل أوفيس ، وإن كنت أفضل شخصياً مواكبة التطور .. الناس في دول العالم راكبين صواريخ وإحنا لسه راكبين عجل .. ويا ريت محصل عجل سباق ( دا يدوب عجلة بعجلتين واحدة منفوخة وواحدة مهوية) تقبل تحياتي أخي الغالي مختار

وعليكم السلام اليك الطريقة بالصور: آخر سجل في الجدول ، والمطلوب طباعته . في الاستعلام ، يجب ان نفرز بحقل يحتوي على آخر معلومة ، ممكن ان نستخدم Descending ، او DLast او DMax ، او اي فرز يوصلنا لعرض النتائج ، بحيث يصبح السجل الذي نريده اول سجل . هنا نرى ان السجل المطلوب اصبح اول سجل . في اعدادات الاستعلام ، نقول له ان يعطينا سجل واحد في الاستعلام فقط . والنتيجة . والتقرير الذي على اساس الاستعلام . جعفر 249.Seq.mdb.zip

عذرا أخى الفاضل أقصد بان تضع السطر الخاص بالحماية بعد هذا السطر Set Sh = ورقة3

وعليكم السلام ورحمه الله وبركاته ارفق مثال وان شاء الله يُلبى طلبك

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

تفضل أخى ترحيل بيانات.rar

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

السلام عليكم والله يا أخوي حربي ، انا ضايع في البرنامج بس اعمل هذه الملاحظات ، وان شاء الله يتم الازم: جدول "ترميز_استقطاعات" ، يجب ان: 1. تعمل صح في حقل "كل الموظفين" ، 2. النوع "1" ، 3. وتضع النسبة "3" ، للسجل "رعاية القاصرين": . وهذا هو كود الحدثين: الكود للحدث 1 If قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 End If الكود للحدث 2 ElseIf قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 . ثم شغل البرنامج بالطريقة العادية ، وان شاء الله تلقى النتيجة المطلوبة جعفر

جزاكم الله خيرا اخى رجب واخى ياسر تمنياتى لكم بالتوفيق

السلام عليكم تفضل أخى كود الاخفاء Sub ragab() Dim rng As Range Dim cl As Range Dim LC As Integer Application.ScreenUpdating = False LC = Range("A1").End(xlToRight).Column Set rng = Range(Cells(11, 2), Cells(11, LC)) For Each cl In rng If cl.Value = 0 Then cl.EntireColumn.Hidden = True End If Next Application.ScreenUpdating = True End Sub وهذا كود الاظهار Sub ragab1() Dim rng As Range Dim LC As Integer Application.ScreenUpdating = False LC = Range("A1").End(xlToRight).Column Set rng = Range(Cells(11, 2), Cells(11, LC)) rng.EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub Book2.rar

وعليكم السلام الطريقة الصحيحة لوضع قاعدة البيانات على الشبكة ، هي ان تعملها جزئين ، جزء للجداول (وتسمى BE) ، وجزء لباقي كائنات البرنامج (وتسمى FE)، جزء الجداول يكون على مجلد على الشبكة ، ويكون لجميع المستخدمين صلاحيات القراءة/التغيير ، جزء بقية الكائنات ، يكون على كمبيوتر كل مستخدم ، وتكون جداول الجزء الاول مرتبطة مع هذا الجزء. هناك عدة طرق لعمل تحديث لجزء الكائنات ، بحيث يقوم المبرمج بوضع النسخة الجديدة في نفس مجلد جزء الجداول على الشبكة (لأن جميع المستخدمين عندهم صلاحيات القراءة/التغيير للمجلد هذا ، مما يجعل هذا المجلد هو المجلد الاسهل للإستعمال)، احد طرق التحديث: 1. ان تعمل جدول في جزء الجداول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم التحديث ، وطبعا هذا الجدول سيكون مربوط مثل بقية الجداول ، بالجزء الثاني ، 2. وفي جزء بقية الكائنات ، تعمل جدول محلّي ، اي غير مرتبط مع الجزء الاول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم النسخة الحالية للجزء الثاني ، 3. عند تشغيل الجزء الثاني ، فسيعمل مقارنة بين رقم نسخته (من الجدول المحلي) ، ورقم نسخة التحديث (من الجدول المرتبط) ، فاذا تطابقت الارقام ، فمعناه انه لا يوجد نسخة جديدة ، اما اذا لم تتطابق الارقام ، فمعناه ان هناك نسخة جديدة موجودة ، ويجب ان يتم استبدال نسخته (التي على كمبيوتره ، بتلك التي في الشبكة) هذه صلب الفكرة جعفر

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

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

شكرا الاستاذ رجب جاويش ولاثراء الموضوع وللتعلم تفضل بعض طرق التصميم http://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ وبعدين http://www.officena.net/ib/topic/65092-شرح-عمل-صلاحيات-للدخول-على-شيتات-داخل-ملف-الاكسيل/ وشكرا

سبق ان رأيت مثل هذه الفكرة ولكن في ملف للاكسيل .. نتمنى ان نرى مثلها في الاكسس

السلام عليكم . . . . والنتيجة: جعفر

مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 2015 . نسال الله ان يتقبل منا ومنكم صالح الاعمال . تقبلوا تحياتى Mohamed Elrify . ----------------------------------------------------------------------- مكتبة اكسيل باللغه العربيه http://download-pdf-ebooks.net/49-1-library-books برامج مصممة بالاكسيل ------------------------------------------------------------------------ برنامج المصروفات الاصدار الثالث http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… ملف اكسيل حسابات عامه من قيود اليومية وحتى الميزانية http://www.mediafire.com/…/%D9%85%D9%84%D9%81+%D8%A7%D9%84%… اداره حسابات تكاليف مشاريع المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد المقايسة التقديرية لعملية مقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… برنامج احتساب اجور العماله في شركات المقاولات (احمد هلال) http://www.mediafire.com/…/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D… اعداد قائمة التدفقات النقدية بالطريقة الغير مباشره ل 4 فترات او سنوات بالاكسيل http://www.mediafire.com/…/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF_%… برنامج توزيع فئات النقديه http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx جدول اعمار الديون http://www.mediafire.com/…/%D8%AC%D8%AF%D9%88%D9%84+%D8%A7%… دفتر الحضور بالاكسيل http://www.mediafire.com/…/%D8%AF%D9%81%D8%AA%D8%B1+%D8%A7%… صيغ متقدمة ------------------------------------------------------------------------ ابجدة الاسماء بالمعادلات http://www.mediafire.com/…/%D8%A7%D8%A8%D8%AC%D8%AF%D8%A9+%… الداله FORCAST والداله TREND http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D8%A8%D8%A4%D… دالة عد الاسماء بدون تكرار http://www.mediafire.com/…/%D8%B9%D8%AF+%D8%A7%D9%84%D8%A7%… دالة HYPERLINK http://www.mediafire.com/…/%D8%AA%D8%B9%D9%84%D9%85+%D8%AF%… انشاء مخطط تكرارى بالمعادلات. بدون انشاء رسم بيانى http://www.mediafire.com/…/%D8%A7%D9%86%D8%B4%D8%A7%D8%A1+%… دالة VLOOKUP بشرطين http://www.mediafire.com/…/%D8%AF%D8%A7%D9%84%D8%A9+VLOOKUP… الترقيم التلقائى بالاكسيل http://www.mediafire.com/…/%D8%AA%D8%B1%D9%82%D9%8A%D9%85+%… القيمة المستقبلية fv http://www.mediafire.com/download/14it43a76cnc7qj/fv.rar الداله LARGE و SMALL http://www.mediafire.com/…/%D8%A7%D9%84%D8%AF%D8%A7%D9%84%D… صيغه تقريب الربع الى اقرب واحد صحيح http://www.mediafire.com/…/%D8%AA%D9%82%D8%B1%D9%8A%D8%A8+%… دالة TRUNK http://www.mediafire.com/download/r07i8zmae6hu67c/TRUNK.xlsx الرصيد التراكمى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D8%B1%D8%B5%D9%8A%D… استخراج البيانات او القيم بدون تكرار بخمس طرق مختلفه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… توليد سلسلة تواريخ http://www.mediafire.com/…/%D8%AA%D9%88%D9%84%D9%8A%D8%AF+%… استخدام دالة VLOOKUP , INDIRECT فى البحث فى العديد من الصفحات http://www.mediafire.com/downl…/oq5dho0m1ykq85o/vlookp_2.rar استخراج بيانات بشروط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D… دالة الجمع الشرطى من صفحات متعدده http://www.mediafire.com/…/%D8%A7%D9%84%D8%AC%D9%85%D8%B9+%… المجموع الفرعى بشرط http://www.mediafire.com/…/%D8%A7%D9%84%D9%85%D8%AC%D9%85%D… استخراج اى رقم سواء فى بداية او وسط او نهاية سلسله نصيه http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%B1%D… التقريب لاقرب 10 جنيها http://www.mediafire.com/…/%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D… حالة عملية لدالة VLOOKUP فى تحديد سعر صنف ضمن مجموعة اسعار لهذا الصنف http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… البحث عن اخر قيمة او نص فى عمود او فى صف حتى مع وجود فراغات http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D9%82%D9%8A%… استخدام الداله max , min بشرط http://www.mediafire.com/…/%D8%AF%D9%88%D8%A7%D9%84+MAX+%2C… البحث عن اخر سعر بناء على شروط كاسم الصنف او المنتج والعميل http://www.mediafire.com/…/%D8%A7%D8%AE%D8%B1+%D8%B3%D8%B9%… تنسيق الارقام السالبة باللون الاحمر ووضعها بين قوسين http://www.mediafire.com/…/%D8%AA%D9%86%D8%B3%D9%8A%D9%82+%… حالة عملية متقدمه باستخدام الدالة VLOOKUP , MATCH , IFERROR https://www.youtube.com/watch?v=G5QV4V3OOt0 معامل الارتباط http://www.mediafire.com/…/%D9%85%D8%B9%D8%A7%D9%85%D9%84+%… دالة عد الالوان https://www.facebook.com/…/61…/%D8%A7%D9%8A%D9%85%D9%86.xlsm معادلة للتعامل مع التواريخ الهجريه http://www.mediafire.com/…/7e…/%D9%87%D8%AC%D8%B1%D9%89.xlsx المعادلة frequency https://www.facebook.com/download/441176896082998/aaa.xlsx مخططات استخدام الصور فى الرسم البيانى http://www.mediafire.com/…/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D… مخطط بيانى لعرض البيانات الربع سنوية http://www.mediafire.com/download/39owukjsxx4nz41/CHART.xlsx موضوعات ------------------------------------------------------------------------ طريقة عمل نسخه احتياطية من ملف اكسيل https://www.youtube.com/watch?v=1xHS1snXRKs تحليل التعادل بالاكسيل 4 http://www.mediafire.com/…/%D8%AA%D8%AD%D9%84%D9%8A%D9%84+%… تحديد نقطة التعادل في حالة تعدد المنتجات http://www.mediafire.com/…/%D8%AA%D8%AD%D8%AF%D9%8A%D8%AF-%… أدوات التحليل ماذا لو ؟ pdf http://www.mediafire.com/…/%D8%A7%D8%AF%D9%88%D8%A7%D8%AA+%… أدوات التحليل ماذا لو ؟ excel file http://www.mediafire.com/…/%D9%85%D9%84%D9%81%D8%A7%D8%AA+%… فنون وأساليب التنبؤ بالاكسيل فيديو + pdf +excel files https://www.youtube.com/watch… ميزه وخاصية ممتازه وهى Flash Fill (تعبئة سريعة) https://www.youtube.com/watch?v=OZyrmcInZLU الجديد فى اكسيل 2016 http://www.mediafire.com/…/6vda4ed2a27qf…/New+EXCEL+2016.rar وفى النهاية نسال الله ان يعيننا على الاستمرار وان يوفقنا للخير صفحة خبير اكسيل صفحتى على الفيس بوك

بسم الله الرحمن الرحيم اليوم سنشرح عمل شاشة دخول ولكن باسم مستخدم وكلمة مرور بسم الله نبدأ بالشكل الموضح يوجد المشار لهم بالسهم الأخضر 7 label السهم الأحمر 1 textbox السهم الأسود 1 combobox وزر دخول وزر خروج وطبعا اتنين image لشعار الشركة بعد تصميم نفس الشكل السابق نقوم بعمل شيت جديد اسمه users كما بالصورة بعد تسمية الشيت وخصوصا برمجيا مثل التحديد الأحمر نضيف البيانات كالأتي نيجي بقي للاكواد اولا كما تعلمنا في الدرس السابق نقوم بوضع هذه الاكواد في اليوزرفورم في general)) 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 UserForm_Initialize() 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) End Sub في حدث الاغلا ق Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If unloadmode = vbFormControlMenu Then Cancel = True MsgBox "غير مسموح" End If End Sub اما في حدث تنشيط الفورم فنقوم باضافة اكواد ربط الليبل الخاصة ببيانات الشركة بالخلايا التي تحتوي علي البيانات Private Sub UserForm_Activate() Application.WindowState = xlMaximized Application.Visible = False Label1.Caption = users.[e1] Label2.Caption = users.[e2] Label3.Caption = users.[e3] With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub وفي زر الخروج Private Sub CommandButton2_Click() ActiveWorkbook.Save ActiveWorkbook.Close End Sub تبقي لنا الكود الاهم وهو زر الادخال Private Sub CommandButton1_Click() On Error GoTo 86 If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l0"), 2, 0) = TextBox1.Text Then Me.Hide Application.Visible = True MsgBox ComboBox1.Value & " مرحبا بك/ ", , "elmalak_elhazen_yasser@yahoo.com" Else 86 Label7= Label7+ 1 MsgBox " لقد استخدمت " & Label7 & " محاولة من اصل 5 محاولات" ,vbCritical, "elmalak_elhazen_yasser@yahoo.com" If Label7= 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub استخدمنا هنا دالة vlookup للبحث والمقارنة عن المستخدم وكلمة المرور ان لم يحقق الشرط يتم التحويل الى عدد المحاولات ومنها الى اغلاق البرنامج وطبعا زي كل مره ننسى نحط كود في حدث فتح الملف Private Sub Workbook_Open() Userform1.Show End Sub وطبعا لسه مش ربطنا الكمبوكس اللي فيها اسم المستخدم عشان نسهل عليكم نعملها بالطريقة التقليدية وبعدين نبقي نعملها باحترافيه شوية نحدد الكمبوكس ونكتب اسم الشت والرينج اللي فيه اسم المستخدم كما موضح بالصورة المظلل بالاحمر الى شاشة دخول اخرى باذن الله مع تحياتي ياسر العربي اي مشاكل تواجهكم يرجى ابلاغنا لحلها

تحياتي للأستاذ ياسر ، صاحب الاعمال المتميزة الرائعة ( سلسلة الانفجارات ) فكرة الاستاذ سليم ، وهي تنفيذ الكود من خلال القائمة المنسدلة ..( لعناوين الاعمدة ). فكرة عملية جداً وقد تناولها الاستاذ : عبد الله باقشير ، وزاد عليها زر .. خذف اوراق الفلترة انقلها ليستفاد منها All-Items.rar

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

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

السلام عليكم بورك فيكم و الكل يتعلم ممكن استخدام Value لاستخدام الارقام المخزنه كنص(قد تشذ القاعدة احيانا) =SUM(VALUE(B2),VALUE(B1)) وهي تعمل

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

حقاً والله فأنا أشعر أني في بيتي عندما أتصفح هذا المنتدى ، وأشعر بالاختناق عندما أبتعد عنه وكلنا نتعلم الكثير والكثير عاشق الإكسيل

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

السلام عليكم أستاذ طارق المبدع أستاذ نزار المخضرم العبقري سلمت أيديكم بارك الله فيكم بالنسبة لإجراء العمليات الحسابية على الناتج ، فقد قمت بتجربة ذلك وكانت النتيجة إذا استخدمت دالة Sum فإنه لا يقوم بإجراء العمليات الحسابية ، أما إذا قمت بإدخال B1+B2 فإنه يقوم بذك...!!!! عاشق الإكسيل

ممكن استاذي ان تنظر للمرفق حيث ان هذه الخاصية مثبتة على انها نص Text وليست رقم Number فضلا انظر للمرفق مع الشكر ابو خالد fixed.rar

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

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

السلام عليكم الدالة FIXED تفيد تثبيت عدد الأرقام العشرية بمعني أن لو ناتج العملية مثلا 10.33354 ثم طبقت عليه هذه الدالة =FIXED(A1,2) فإن الناتج سيكون 10.33 أو =FIXED(A1,3) فإن الناتج سيكون 10.334 وإذا لم تذكر المعرف أي فقط =FIXED(A1) فإنه =2 أي أن الناتج سيكون 10.33 أيضا

السلام عليكم أختي الفاضلة البرامج تعمل بشكل جيد وجربتها مراراً ما المشكلة عندك بالضبط؟ *** أبشري سأعطيك برنامج آخر حملي البرنامج من هنا http://www.officena.net/team/hs889/DownLoa.../Protection.rar وهذا رقم التسجيل الخاص به AOXPPR-PRO-LWXFW-46678-FTDBV-66344 طريقة استخدامه: بعد تنصيب البرنامج نقوم بتسجيله من help نختار enter.... ومن ثم ندخل مفتاح التسجيل الآن نذهب إلى file ومن open نختار ملف الوور ستخرج لي رسالة أضغط ok الآن سيعطيك لوحة فيها خانتان ضعي في الأولى أي كلمة مرور ؛ مثلا بسم الله وفي الثانية أعيد كتابة الكلمة نفسها ومن ثم موافق نغلق البرنامج ونذهب لملف الوورد سنجد أن كلمة الحماية أصبحت بسم الله نضعها وسيتم فك الملف أي استفسار أنا بالخدمة على فكرة: قمت بفك الملف 4،5 وهم بالمرفق abo_akram_4_5.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذه هي النسخة المعدلة من برنامج المخازن ولقد قمت بتجارب كثيرة عليه وانشا الله لا تحتوي على اية خطأ كما قمت بتعديل بسيط على القوائم واظهار واخفاء اشرطة الادوات ارجو ان تنال اعجابكم طريقة تشغيل البرنامج اولا فك االملف المضغوط باستخدام برنامج وين رار ثم شغل الملف المسمى المخازن اذا كانت بعض المراجع لديك غير معرفة سوف تظهر لك رسالة خطأ اضغط على زر debug ستفتح لك قائمة هي قائمة refrences والتي من خلالها يتم اضافة المراجع وهي على الشكل التالي اولا قم بازالة جميع المراجع الموجود عندك في الجهاز هناك بعض المراجع التي لايمكن ازالتها لانها قيد التشغيل ثم اضف المراجع كما هي بالصورة المرفقة اعلاه ملاحظة قد لا تحتاج الى كل المراجع الموضحة بالصورة ولكنني اضفت بعضها تحسبا ملاحظة اذا لم تفتح شاشة ال refrences تلقائيا يمكن فتحها عن طرق التالي اضغط alt +f11 يفتح مشروع فيجوال بيسك ثم من القائمة tools اختر refrences ثم قم باضافة المراجع حسب الشرح ملاحظة بالنسبةللطباعة اذا لم يكن لديك طابعة مثبة على الجهاز قد تظهر رسالة خطأ للحيلولة دون ظهورها عليك ان تثبت طابعة على الجهاز حتى لو لم يكن عندك طابعة تستطيع ذلك عن طريقة اضافة طابعة من لوحة التحكم بالنسبة لاستخدام البرنامج الافضل استخدام الارقام العربية وهي على الشكل التالي بالنسبة لارقام الاصناف يفضل استخدام الحروف الانجليزية مع الارقام العربية على الشكل ارجو ان ينال البرنامج اعجابكم واذا كان لديكم اية ملاحظات او استفسارات لا تترددو في طرحها هنا almakhazn.rar