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

بسم الله الرحمن الرحيم وجدت كثيرا من الاعضاء تطلب هذا الموضوع كثيرا وعندما وضعت مثال لشاشة دخول بكلمة مرورظهر ليا مشرف كدا كالعادة وقالي البوقين دول كنت أفضل يكون في موضوع مستقل لأن المشاركات الفرعية تندثر مع الوقت لما تلاقي نفسك عملت ملف مميز زي كدا .. افتح موضوع جديد واشرح بالتفصيل (مش ترمي الملف وتجري ..) وبعد كدا في المشاركة الفرعية تضع رابط للموضوع ليستفيد أكبر عدد من الأعضاء إذ أن المتابعين للمشاركات قلة .. ولكن هناك كثر في انتظار الموضوعات الجديدة للتعلم والاستفادة .. متنساش كلامي يا سكر زيادة وانا حبيت اوجه له رسالة من هنا واقول له انا بحب الشاي سكر خفيف المهم حبيبي الغالي فعلا صدق في كلامه فا نخش في الموضوع وبلاش رغي بقي اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد ونقوم بوضع عدد واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه اثنين تكست بوكس الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله 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

اليوم أقدم لكم موضوع يبحث عنة الكثيرين الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE و هو الباركود الثنائى الابعاد 1 - مرفق مجلد مضغوط به ملفين DLL احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32 2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts 3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به Option Compare Database Private Declare Sub QRCodeEncode Lib "QRCodeFont.dll" _ (ByVal Message As String, ByVal Version As Integer, ByVal Level As Integer, ByVal Mask As Integer) Private Declare Function QRCodeGetRows Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer Private Const Version = 0 Private Const Level = 0 Private Const Mask = 0 ------------------------------------------------------------------ Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim RowCount As Long Dim ColCount As Long Dim Message As String Dim EncodedMsg As String Message = Field1.Text Message = Message & vbCrLf & Field2.Text Message = Message & vbCrLf & "________" Message = Message & vbCrLf & " " Call QRCodeEncode(Message, Version, Level, Mask) RowCount = QRCodeGetRows() ColCount = QRCodeGetCols() EncodedMsg = vbCrLf For I = 1 To RowCount For J = 1 To ColCount EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1)) Next J EncodedMsg = EncodedMsg & vbCrLf Next I Text0.Value = EncodedMsg End Sub 4 - هذان السطران Message = Field1.Text Message = Message & vbCrLf & Field2.Text هما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE الحقل Field1 و الحقل Field2 5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى Message = Message & vbCrLf & -----------.Text و يوضع اسم الحقل المراد إظهارة بدلا من ----------- 6 - فى السطر قبل الاخير فى الكود Text0.Value = EncodedMsg Text0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة 7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا و شكرا لكم Desktop.rar

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

تفضل أخى الدوائر الحمراء.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

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

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

أخى ياسر بارك الله فيك وجزاك خيرا الى كل الأخوة بالمنتدى رجاء لابد من ارفاق ملف للعمل عليه لنتجنب البعد عن الفرضيات والتخمينات تحديث الأوفيس لديكم على الأقل 2010 للحصول على أفضل الامكانات فى الأوفيس وحتى لا تحدث لدينا مثل هذه الاشكاليات ونوفر وقتنا وجهدنا وشخصيا أعجبنى الكود الأول لأنه أبسط و أسهل وأستاذن أستاذى ياسر فى هذه الصورة الجديدة للكود : تم الاستغناء عن الدالة GetCellColorForReals و الرقم 65535 الذى يمثل اللون الأصفر والتعويض عنه بـ ColorIndex = 6 Option Explicit Sub CountCellsByColorIndex() Dim Ws As Worksheet, Cel As Range, i As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets For Each Cel In Ws.Range("I7:I" & Ws.Cells(Rows.Count, "I").End(xlUp).Row) If Cel.DisplayFormat.Interior.ColorIndex = 6 Then i = i + 1 ' ColorIndex =6 هو اللون الأصفر Next Cel Next Ws If i = 0 Then MsgBox "لا يوجد خلايا ملونة ", 64 Else MsgBox "عدد الخلايا الملونة يساوي " & i End If Application.ScreenUpdating = True End Sub تحياتى

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

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

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

أستاذى الفاضل رجب كود رائع بارك الله فيك ملحوظة صغيرة و ليس تعديلا : كما قال أخونا وأستاذنا ياسر خليل لا تنسى الاعلان عن كل المتغيرات فى أكوادك اجعل السطر التالى : Option Explicit على رأس أكوادك فهو لن يتركك الا اذا أعلنت عن كل المتغيرات و كفيل بتذكيرك بذلك تحياتى

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

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

أخى الفاضل برجاء مزيد من التوضيح

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

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

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

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

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

أخي الكريم يرجى تغيير اسم الظهور ليعبر عن شخصكم الكريم إليك الكود التالي عله يفي بالغرض Sub CountCells() Dim Ws As Worksheet, Cel As Range, I As Integer Set Ws = ActiveSheet Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets For Each Cel In Ws.Range("I7:I" & Ws.Cells(Rows.Count, "I").End(xlUp).Row) If GetCellColorForReals(Cel) = 65535 Then I = I + 1 Next Cel Next Ws If I = 0 Then MsgBox "لا يوجد خلايا ملونة", 64 Else MsgBox "عدد الخلايا الملونة يساوي " & I End If Application.ScreenUpdating = False End Sub Function GetCellColorForReals(R As Range) As Long GetCellColorForReals = R.DisplayFormat.Interior.Color End Function تقبل تحياتي

يمكن استحدام هذا الماكرو Sub select_last_cell() Dim UR As Range Dim LastCell As Range Set UR = ActiveSheet.UsedRange Set LastCell = UR(UR.Cells.Count) LastCell.Select End Sub

يمكن استخدام مفتاح الاختصار Ctrl + End للوصول آخر النطاق المستخدم

أخى الكريم بداية أهلا بك فى منتديات أوفيسنا التعليمية رجاء تعديل اسم الظهور الى اللغة العربية التزاما بقوانين المنتدى ولكى يسهل التواصل فيما بينكم وبين السادة الأعضاء اما فيما يختص بسؤالك فعند الضغط على مفتاحى ( CTRL + السهم الذى يشير الى الأسفل ) تصل الى آخر صف به بيانات واليكم رابط به معظم اختصارات الاكسل اتمنى ان تستفيد منها أما فيما يختص بالدورات التعليمية والتدريبية فالمنتدى ملىء بالدورات والدروس وأى استفسار فقط قم بعمل موضوع أو قم بالتعليق على أى موضوع به درس أو خلافه وأستفسر عن ماذا تريد وستجد الجميع هنا لن يبخل على أى عضو بمعلومة أو علم فزكاة العلم تعليمه للآخرين وتقبل منى وافر الاحترام والتقدير

اخي العزيز angel eyes نرجوا تغيير اسم الظهور للغة العربية ويرجى قراءة توجيهات المنتدى جيدا واذا اردت مساعدة من الاخوة فيجب التسهيل عليهم بالشرح وارفاق مثال لما ترغب بعمله وشكرا

مجموعه من اعمال الاكسيل التى وفقنى الله فى تقديمها عام 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 وطبعا لسه مش ربطنا الكمبوكس اللي فيها اسم المستخدم عشان نسهل عليكم نعملها بالطريقة التقليدية وبعدين نبقي نعملها باحترافيه شوية نحدد الكمبوكس ونكتب اسم الشت والرينج اللي فيه اسم المستخدم كما موضح بالصورة المظلل بالاحمر الى شاشة دخول اخرى باذن الله مع تحياتي ياسر العربي اي مشاكل تواجهكم يرجى ابلاغنا لحلها

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

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-tables-data-macro/ القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) فصل الارقام مثل (الرقم القومى/الهوية) - الرقم التآمينى .. الخ القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" إصدار-جديد-فكرة-بسيطة-لطباعة-أو-إظهار-رسائل-بنتائج-الأكواد-مع-إمكانية-التفعيل-والتعطيل/? التحكم-الكامل-فى-واجهة-اكسس-تصغير-بجوار-الساعة-توسيط-اخفاء-تغيير-أيقونة-شعار-أكسس/ متعقب-التغييرات-الذكي-2024 اداة البحث المتعددة الوظائف مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ الاصدار 2 ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) أتمتة عمليات الضغط وفك الضغط للملفات و المجلدات (WinRAR / Seven Zip ) تنفيذ الأوامر والملفات في بيئة Windows مع تحكم دقيق في العمليات القسم الخامس : قواعد البيانات 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 ⭐ كيف تغير اللغة في برامجك ⭐ اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها طريقة ابداعية للتحديث من خلال الانترنت تغيير لغة النظام في Unicode القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان 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