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

الملف يجب ان يكون هكذا (75 كيلو بايت لا أكثر) Hisabat.xlsx

المشكلة كانت هنا (الصورة) النطاق من E3 الى Z3 لا يجب ان بكون فارغاً (للمحافظة على تنسيق الحدول) ضع فيه أي شيء (مثلاً انا وصعت الاعداد من 1 الى 22 بتنسيق احفاء) الملف مرفق من جدبد Moustsfa_New.xlsm

للمرة الألف (اختصار البيانات للتحقق من عمل الكود) الكود الي يعمل على صف واحد يمكنه العمل على الالوف منها هذا الماكرو Option Explicit Sub Merged_Sum() Dim ro, i% ro = Cells(Rows.Count, 2).End(3).Row Dim n% With Range("D6:D" & ro) .ClearContents .Interior.ColorIndex = xlNone End With For i = 6 To ro If Val(Cells(i, 3)) <> 0 Then n = Cells(i, 2).MergeArea.Rows.Count With Cells(i, 4) .Value = Application.Sum(Cells(i, 3).Resize(n)) .Interior.ColorIndex = 6 End With i = i + n - 1 End If Next End Sub الملف مرفق Naser.xlsm

كـ بداية أولى: tbl_Category: جدول التصنيف، وفيه يذكر صنف المادة مثلا ( أجهزة كهربائية، مفروشات.. الخ ) ويتضمن الاعمدة التالية: * معرف التصنيف * اسم التصنيف tbl_Product: جدول الاصناف، وفيه يذكر تفاصيل المواد مثلا ( ثلاجة، مدفئة.. الخ ) ويتضمن الاعمدة التالية: * معرف الصنف * معرف التصنيف * اسم الصنف * رصيد أولي للصنف tbl_Customer: جدول العملاء، وفيه يذكر تفاصيل العملاء مثلا ( الاسم، العنوان.. الخ ) ويتضمن الاعمدة التالية: * معرف العميل * اسم العميل * الموبايل * العنوان tbl_Supplier: جدول الموردين، وفيه يذكر تفاصيل الموردين مثلا ( الاسم، العنوان.. الخ ) ويتضمن الاعمدة التالية: * معرف المورد * اسم المورد * الموبايل * العنوان tbl_Movement: جدول الحركات، وفيه يذكر اسماء الحركات مثلا ( مشتريات، مبيعات، مرتجع مشتريات، مرتجع مبيعات.. الخ ) ويتضمن الاعمدة التالية: * معرف الحركة * اسم الحركة tbl_Invoice: جدول رأس الفاتورة، وفيه يذكر تفاصيل الفاتورة ويتضمن الاعمدة التالية: * معرف الفاتورة * معرف الحركة ( بيع, شراء .. الخ ) * طريقة الدفع ( نقدي، اجل ) * نوع العملة ( دينار, دولار ) * معرف العميل ( في حال كانت الفاتورة مبيعات أو مرتجع مبيعات ) * معرف المورد ( في حال كانت الفاتورة مشتريات او مرتجع مشتريات ) tbl_Invoice_Sub: جدول ذيل الفاتورة، وفيه يذكر تفاصيل ذيل الفاتورة مثلا ( الكمية , السعر .. الخ) ويتضمن الاعمدة التالية: * معرف رأس الفاتورة * معرف العميل * معرف المورد * معرف الصنف * الكمية ( المباعة او المشتراة أو المسترجعة ) * السعر ( للصنف ) * السعر الاجمالي ( حقل محسوب ضرب الكمية * السعر ) والعلاقات كما واضحة امامكم.. الان انتضر رأيكم هل عملي في السليم، ام خطأ ؟ @jjafferr 🥺

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

جرب هذا الماكرو لعله يكون المطلوب (فقط اصغط الزر Run ) Option Explicit Sub Text_to_date() Dim st, i%, m%, k%, ro Dim arr() Dim My_dat As Date Dim stg ro = Cells(Rows.Count, 1).End(3).Row If ro < 2 Then Exit Sub Range("C2:C" & ro).ClearContents For i = 2 To ro st = Split(Cells(i, 1)) For k = LBound(st) To UBound(st) If st(k) <> "" Then ReDim Preserve arr(m) arr(m) = st(k) m = m + 1 End If Next k On Error Resume Next stg = """" & arr(2) * 1 & " " & arr(0) & " " & arr(1) * 1 & """" If Err.Number > 0 Then GoTo Next_I If IsDate(Evaluate(stg)) Then My_dat = Evaluate(stg) Cells(i, 3) = My_dat End If Next_I: Erase arr: m = 0: On Error GoTo 0 Next i End Sub الملف مرفق Text_to dat.xlsm

هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات لاتنسونا من صالح الدعاء ECO2_DuClick_store اضافة قيمه و سعر.xlsm ECO2_DuClick_store.xlsm

تفضل يا سيدي ، الكود السابق بواجهه : . جعفر Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip

الله اكبر ولله الحمد

Payments!$B$1:$B$65536 كيف تريد ان لا يكون الملف ثقيلاُ وانت تستعمل في 6 صفجات في كل منها حوالي 100 معادلة وكل معادلة تبحث في 65536 صف اي ما مجموعه 65556×100×6 = اكثر من 40 مليون معادلة (مضروبة بــ 2 لأن البرنامج يعطي نتيجتين لكل معادلة أو الجواب صجيجاً او فراغ اذا كانت النتيجة خطأ) و هكذا الاكسل يقوم بأكثر من 80 مليون عملية حسابية مع كل ضغطة زر من الكيبورد او نقرة من الماوس كل هذا بالاضافة الى التنسيقات التي تقوم لها من تلوين بألوان مختلفة يزيد من ثقل الملف على الرغم من قلة البيانات فيه (الاكسل معذور في هذه الحالة) خفف المعادلات من حيث عدد الصفوف (اجعلها مثلاُ 1500 بدل 65536)

المنتدى مليء بالمواضيع التي تتحدث عن هذا فقط ابحث وهذا واحد منها

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

أخي الغالي بارك الله فيك وجزاك الله خير الجزاء

الحمد لله وبنعمته تتم الصالحات اكرمك الله ورعاك اخي الكريم

ربما يكون حل

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

ربما يكون ما نقصد ترحيل مدين ودائن (1).xlsb

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

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

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

السلام عليكم ورحمة الله يمكنك الغاء (مسح) هذا السطر بالكود و جميع الاسطر المشابهة له فى نفس الكود المدرج بالمشاركة الاولى .Range("A" & M) = M - 3

جر ب هذا الماكرو (الترقيم يتم دون زيادة أو نقصان) اذا اردت الغاء الترقيم احذف السطر داخل المربع الأحمر من الكود (الصورة) Option Explicit Sub my_Macro() Dim D As Worksheet Dim i%, x%, ky, ro% Dim Rg As Range Dim Dic As Object With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Set D = Sheets("Data") Set Rg = D.Range("A3").CurrentRegion If Rg.Rows.Count = 1 Then GoTo Bay_Bay Set Dic = CreateObject("Scripting.Dictionary") For i = 4 To Rg.Rows.Count + 2 Dic(D.Cells(i, "AA").Value) = "" Next x = 1 If Dic.Count Then For Each ky In Dic.keys ro = Sheets(CStr(x)).Range("A3").CurrentRegion.Rows.Count If ro > 1 Then Sheets(CStr(x)).Range("A3").CurrentRegion. _ Offset(1).Resize(ro - 1).Clear End If Rg.AutoFilter 27, ky D.Range("B4").Resize(Rg.Rows.Count - 1, 3) _ .SpecialCells(12).Copy Sheets(CStr(x)).Range("B4").PasteSpecial (12) D.Range("AA4").Resize(Rg.Rows.Count - 1) _ .SpecialCells(12).Copy Sheets(CStr(x)).Range("E4").PasteSpecial (12) ro = Sheets(CStr(x)).Range("A3").CurrentRegion.Rows.Count If ro > 1 Then With Sheets(CStr(x)).Range("A3").CurrentRegion. _ Offset(1).Resize(ro - 1) .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14 .Font.Bold = True .Cells(1, 1).Resize(ro - 1) = _ Evaluate("row(1:" & ro - 1 & ")") End With End If x = x + 1 Next End If Bay_Bay: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With D.AutoFilterMode = False End Sub الملف مرفق Moustsfa.xlsm

التطبيق call Sub Routine.mdb

السلام عليكم ورحمة الله وبركاته حياك الله وبياك دكتور اذا اردنا ان نتكلم على برنامج ادارة مخازن يتضمن عمليات البيع والشراء والدفع كما هو مذكور في الفيديو فنحن في صدد عمل برنامج محاسبة وانا سأقوم بذكر اسماء الجداول اللازمة لتصميم قاعدة بيانات لبرنامج محاسبة 1- جدول شجرة الحسابات (نظام شجري) 2- جدولي الفواتير (راس الفاتورة - وبنود الفاتورة) 3- جدولي السندات (راس السند - وبنود السند) 4- جدولي القيود المحاسبية (راس السند - وبنود السند) 5- جدول المواد (نظام شجري) 6- جدول المستودعات (نظام شجري) 7- جدول مراكز الكلفة (نظام شجري) 8- جدول العملات ( اذا اردت ان يستخدم البرنامج اكثر من عملة) 9- جدول الباركود (اذا اردت ان يستخدم البرنامج نظام الباركود ) وهو مرتبط بجدول المواد 10 - جدول المستخدمين وصلاحيتهم اذا اردت نظام مستخدمين 11- جدول خصائص الفواتير والسندات 12- جدولي المناقلات 13- جدول الخيارات

جربي هذا الملف كلما نريدين مجموعة اضغطي عل الزر Run code Option Explicit Sub Arkam_3ashwa3iat() Dim Formule$ Range("A3:C6").Formula = _ "=RANDBETWEEN(1,$E3/3)" Range("A3:C6").Value = _ Range("A3:C6").Value Formule = "=IF(SUM($A3:$C3)>$E3,SUM($A3:$C3)-E3," Formule = Formule & "IF(SUM($A3:$C3)<" Formule = Formule & "$E3,$E3-SUM($A3:$C3),0))" Range("D3").Resize(4).Formula = Formule Range("D3").Resize(4).Value = _ Range("D3").Resize(4).Value End Sub Zahra.xlsm

أستاذ @SEMO.Pa3x اهلا بك أستاذ حسنين عود حميد والحمدلله على كل حال واسال الله تعالى ان يثبتكم ويرزقكم الصبر وأن يجعلكم دائما من الحامدين

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

نعم ، اغلب البرامج تعتمد على الكود في عمل البرنامج ، وتعتمد على الكود في عمل كائنات النموذج/التقارير ، وهنا قوة الاكسس في التفوق عليهم جميعا في سرعة عمل البرنامج بواجهات الاكسس 🙂 جعفر

السلام عليكم بالنسبة لخلفية الإكسيل لا يمكن إخفاؤها (يمكن تلوينها بالأبيض مع واجهة الإكسيل أو يمكن تعديل عرض الأعمدة في الجدول لملء شاشة الكمبيوتر)، بالنسبة للكود الذي وضعه أخي الكريم ابراهيم فهو يقوم بإلغاء خاصية "إخفاء الأعمدة" (إظهار كل الأعمدة المخفية في الشيت المسمى "Sheet1"... ليس لي فكرة أخرى... بن علية حاجي

عليكم السلام انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟ اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك . Tree view22.mdb

الكود Sub hid_rows() Dim Hide_range As Range Dim i% i = 5 Range("A5").CurrentRegion.EntireRow.Hidden = False Do Until Cells(i, 1) = vbNullString If Application.CountIf(Cells(i, 2).Resize(, 9), 0) = 9 Then If Hide_range Is Nothing Then Set Hide_range = Cells(i, 1) Else Set Hide_range = Union(Hide_range, Cells(i, 1)) End If End If i = i + 1 Loop If Not Hide_range Is Nothing Then Hide_range.EntireRow.Hidden = True End If End Sub '+++++++++++++++++ Sub show_all_rows() Range("A5").CurrentRegion.EntireRow.Hidden = False End Sub

وعليكم السلام 🙂 الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !! هذا الكود الجديد: Private Sub cmd_Delete_Records_Click() Dim strSQL As String strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub Private Sub cmd_Export_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True End Sub Private Sub cmd_Import_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True End Sub جعفر 1153.db2.zip

ملف الإكسل المستخدم للشرح نسخ معادلة للكود و تخصيص زر أمر.rar

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

الأخ الفاضل أبو تريكة جرب الكود بهذا الشكل Sub GetData_Example3() GetData ThisWorkbook.Path & "\1.xlsx", "1", _ "A1:t26", Sheets("1").Range("A1"), False, True GetData ThisWorkbook.Path & "\2.xlsx", "1", _ "A1:t26", Sheets("1").Range("A27"), False, True GetData ThisWorkbook.Path & "\3.xlsx", "1", _ "A1:t26", Sheets("1").Range("a53"), False, True End Sub تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False أرجو أن تكون تلك النقطة هي حل المشكلة تقبل تحياتي

http://www.officena.net/team/khboor/kh_image/p36.gif الموضوع رقم(1) كود لتحويل المعادلات الى قيم خبور خير ===================================== الموضوع رقم(2) التقاط صورة للتحديد خلايا او صوره او اي شي ويتم حفظه ومعاينته خبور خير ===================================== الموضوع رقم(3) فورم باوامر صناديق الحوار Application.Dialogs خبور خير ===================================== الموضوع رقم(4) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول خبور خير ===================================== الموضوع رقم(5) توزيع الفصول على نصفي الورقة حسب النوع او مشترك خبور خير ===================================== الموضوع رقم(6) اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم خبور خير ===================================== الموضوع رقم(7) شرح اعداد كشوفات مدرسية باختيار روؤس الاعمدة عن طريق فورم خبور خير ===================================== الموضوع رقم(8) برنامج الجدول المدرسي الاصدار الثاني خبور خير ===================================== الموضوع رقم(9) وداعاً للقوائم المنسدلة .. وداعا لListBox .. وداعا لكل انواع القوائم الحسامي ===================================== الموضوع رقم(10) برنامج كاس العالم 2010 بالمعادلات ( الاصدار الثاني) بخاصية انتقال الصور خبور خير ===================================== الموضوع رقم(11) دالة استخراج النص او الارقام طريقة اخرى خبور خير ===================================== الموضوع رقم(12) دالة جديدة لاستخراج ولي الامر باسلوب جديد خبور خير ===================================== الموضوع رقم(13) دالة تجزئة الاسماء من اسم طويل مع معايير خاصة لفهم الاسماء المركبة للاسم الواحد خبور خير ===================================== الموضوع رقم(14) عمل قائمة منسدلة مرتبطة بقائمة أخرى mahmoud_xp/ خبور خير/ الحسامي/&amp;nbsp;&amp;nbsp;طارق ===================================== الموضوع رقم(15) تحويل دالة SUMPRODUCT الى كود VBA \ kemas \ zxzxzxzخبور خير ===================================== الموضوع رقم(16) شرح كتابة معادلة الإكسيل داخل كود فيجوال بيسك - فديو تعليمي kemas ===================================== الموضوع رقم(17) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba .. range .. cells .. offset الحسامي ===================================== الموضوع رقم(18) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء if ....case ...switch ...choosم الحسامي ===================================== الموضوع رقم(19) دورة للمبتدئين في عالم البرمجة YasserKhalil ===================================== الموضوع رقم(20) امتلك منتدى وموقع ومدونة مجانا خالد القدس ===================================== الموضوع رقم(21) كود للشهادات يمكن تطبيقه على اي شهادات خبور خير ===================================== الموضوع رقم(22) برنامج طلبات الشراء ابو عبدالله ===================================== الموضوع رقم(23) هيا معاً : نتفاعل - نشارك - ننتج &amp;ndash; نرقى ... ابو عبدالله ===================================== الموضوع رقم(24) مشروعات:01:تقليل هالك الحديد TareQ M ===================================== الموضوع رقم(25) مشروعات : 02 - برنامج الحسابات مع مراكز التكلفة أبو عبدالله ===================================== الموضوع رقم(26) مشروعات : 03 - نظام محاسبة ومخزون مطاعم وفنادق هاني بدر ===================================== الموضوع رقم(27) &amp;nbsp;&amp;nbsp;درس في الترحيل باستخدام الاكواد ... هدية شهر رمضان كل عام وانتم بخير&amp;nbsp;&amp;nbsp; الحسامى ===================================== الموضوع رقم(28) ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته http://www.officena....opic=34088&amp;amp;st=0 الحسامى ===================================== http://www.officena.net/team/khboor/kh_image/p37.gif http://www.officena.net/team/khboor/kh_image/p39.gif السلام عليكم ===== الموضوع رقم(29) شرح دوال الاكسيل للاستاذ خبور خير خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(30) بعض الاكواد المنفصلة قد تهم البعض ارجوا من الجميع المساهمة yahiaoui http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(31) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول اراءكم واستفساراتكم لوضع الخطة على الطريق الصحيح قدر الامكان خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(32) مشاركات للمواضيع الخاصة بالشروحات فيديو فقط فكرة لتنشيط الاعمال والشروحات المميزة والمفيدة هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(33) هذا الموضوع مخصص للموضوعات الخاصة بالمعلمين من كنترولات وخلافه لسهولة البحث للاخوة الاعضاء " موضوع متجدد" هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif

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