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

السلام عليكم ورحمة الله تعالى وبركاته ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت اولا قمت بحجز استضافة مجانيه من هذا الموقع https://somee.com/ وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396 ونظرا لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61485&hl= بخصوص الربط وجعل قاعدة اكسس مجرد واجهة قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان اترككم مع المرفق انشاء اتصال DNS.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الأغر معكم في موضوع جديد وشيق ومفيد ، مع عالم الإكسيل ومع كل جديد ، ومع تنشيط لخلايا المخ اللي تخلي مخك حديد .. أقدم لكم المزيد والمزيد ، لعل الجميع يستفيد ، ويستضاء بنا ولو من بعيد (شكلي سرحت ..أعتذر عن المقدمة الطويلة يا أبو عيد) معنا اليوم فورم بسيط (فيه صندوق الدنيا (صندوق نص) TextBox وزر أمر Command Button) بالنسبة لصندوق النص غيرت فيه من الخصائص حاجتين اتنين وبس .. خاصية اسمها MultiLine ودي خليتها True ودي عشان تقدر سعادتك تكتب في أكتر من سطر والخاصية التانية EnterKeyBehavior ودي بردو True ودي عشان تقدر بعد ما تكتب سطر تضغط Enter يقوم ايه ؟؟ يقوم ينتقل للسطر اللي بعديه .. وهكذا وهكذا يعني تكتب كلمة البحث المراد البحث عنها وتضغط إنتر ، وتقدر تكتب كلمة تانية وتضغط إنتر ، وتقدر تكتب كلمة تالتة وتضغط إنتر ، وتقدر تكتب كلمة ( - - - - - ) كتبتها بالحبر السري عشان محدش ياخد باله وتضغط إنتر وهكذا وهكذا ولما تدوس على زر الأمر Search هتلاقي النتائج المراد البحث عنها تم تلوينها جرب مثلاً اكتب Yasser واضغط إنتر ، واكتب في السطر اللي بعديه "ياسر" من غير أقواس تنصيص واضغط إنتر ، وأخيراً دوووووس على زر الأمر وشوف النتائج ودا شكل الكود الموضوع في زر الأمر Private Sub CommandButton1_Click() Dim Cell As Range, Keys, Key, I As Long If Me.TextBox1.Value = "" Then Exit Sub Sheets("Sheet1").Cells(1).CurrentRegion.Font.ColorIndex = xlAutomatic Keys = Split(TextBox1.Value, vbCrLf) For Each Cell In Sheets("Sheet1").Cells(1).CurrentRegion.Columns(1).Cells For Each Key In Keys I = InStr(1, Cell.Value, Key) If I > 0 Then Cell.Characters(I, Len(Key)).Font.Color = vbRed End If Next Key Next Cell End Sub أرجو أن يكون الملف مفيد للجميع .. تقبلوا تحياتي وهكذا وهكذا Multiple Search & Color Results.rar

الحقيقة أنكم أبر وأوفى الأصدقاء ولكم مني خير الدعوات الطيبات ولكم وافر التحية والاحترام

اخى الحبيب ضع هذا الكود بالفورم هو من اعمال وكنوز اخى الحبيب ابن مصر الغالى المهندس احمد Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! '''''''''''''''''''''' AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Height: FW = Width ZH = AH - FH: ZW = AW - FW: Zo = Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) '''''''''''''''''''''' Move AL, AT, AW, AH If Zo <> 100 Then Zoom = Zo End Sub تقبل تحياتى

أكسس سوفت لقيود المخزون برنامج سهل لتعامل مع المخزون أتبع الآتي لتنزيل البرنامج : 1-عند تنزيل البرنامج لاتقم بتغير مسار البرنامج أضغط التالي التالي وسيفتح لك البرنامج تلقائي. (مهم جدا ) 2- خذ نسخة من الملف MouseHook.dll وضع نسخه منها في الويندوز على هذا المسار c:/windows الرقم السري للدخول هو 1975 طريقة البرنامج يعرفه من لديه خبره في المحاسبة أتمنى أن ينال أعجابكم أخوكم علي بحر setup.rar

الفيديو الذي انتظره الكثير والكثير من المبتدئين والمتوسطين والمحترفين في الإكسل ............... الحلقة الرابعة من دورة أساسيات إكسل 2013 من تحت الصفر إلى الاحتراف مشاركتك للموضوع والفيديو مع أصدقائك خير دليل على الرغبة في مواصلة السلسلة حيث أنه قد تسلسل إلى قلبي أن الزملاء لا يرغبون وفيها: التعرف على الخلية والعمود والصف وورقة العمل إضافة وحذف خلية إضافة وحذف وتعديل خيارات العمود إضافة وحذف وتعديل خيارات الصف إضافة وحذف وتعديل خيارات ورقة العمل بعض اختصارات لوحة المفاتيح مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI

اخى الكريم نزل هذة الاسطوانة تعليم اكسس 2007 باللغة العربية وان شاء الله حتساعدك http://www.fileflyer.com/view/04MsDBv

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

هذا الموضوع من المواضيع التي تهم المعلمين ولذلك سأفرد له موضوع مستقل ونرجو من عمالفة المعادلات التدخل

اخى يمكنك مراجعة هذا الرابط منتديات الدعم من مطورى الاكسس ميكروسوفت https://social.msdn.microsoft.com/Forums/office/en-US/25d9dafd-b446-40ba-8dbd-a0efa983f2ff/how-to-programatically-hide-a-querydef?forum=accessdev Const strcQueryName As String = "QueryName" Dim fIsHidden As Boolean ' To determine if the query is hidden: fIsHidden = GetHiddenAttribute(acQuery, strcQueryName) Debug.Print fIsHidden ' To show the query: SetHiddenAttribute acQuery, strcQueryName, False ' To hide the query: SetHiddenAttribute acQuery, strcQueryName, True

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

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

اخى الفاضل جرب المرفق برنامج متابعة المكتبة.rar

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

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

مشكور على مرورك العطر أخي الفاضل علي الرويلي هو الطلب مش صغنون أبداً .. بس إن شاء الله أحاول فيه الأخ الغالي أبو يوسف مشكور على شعورك الطيب والصورة المرفقة الرائعة بارك الله فيك (بس قلنا إزاي الصورة دي أخدتها .. بأي برنامج !! لأنها عجبتني جداً) السلام عليكم أخي أبو البراء : سألتني عن طريقة أخذ هذه الصورة.أجيبك - أخذت Print Screen للشاشة ,ثم لصقتها ببرنامج الـ Word .أجريت عليها التنسيق المطلوب مع خلفية للصفحة .كتبت أسفلها العبارة التي تليق بك وبأمثالك من الرواد بعلم الحاسوب ثم نقلتها إلى برنامج الرسام ...قمت بقص جوانبها لتظهر لك كزهرة تفوح شذى وعطراً...هدية متواضعة أرجو أن تكون مقبولة لديك ...مع أجمل أمنياتي... والسلام عليكم.

اخي الكريم هذا كود للتفقيط بالعربي Function tafket(Number, Curncey, txtdec) Dim dec As Currency If Not IsNumeric(Number) Or Number = "" Or Len(Int(Number)) > 10 Then Exit Function 'If Len(Int(Number)) > 10 Then MsgBox "max 10 numbers": Exit Function dec = Number - Int(Val(Number)) ST = Trim(Str(Int(Number))) xol = Len(ST) wa = " و " vn = Val(ST) Select Case xol Case 1 ct = AHAD(vn) Case 2 ct = ASHRAT(vn) Case 3 ct = MIAT(vn) Case 4 vn4 = Val(Mid(ST, 1, 1)) Select Case vn4 Case 1 ct = "ألف" Case 2 ct = "ألفين" Case Else ct = AHAD(vn4) & " آلاف " End Select vn4 = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn4 > 99, wa, "") & MIAT(vn4) Case 5 vn5 = Val(Mid(ST, 1, 2)) ct = IIf(vn5 = 10, ASHRAT(vn5) & " آلاف ", ASHRAT(vn5) & " ألف") vn5 = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn5 > 99, wa, "") & MIAT(vn5) Case 6 VN6 = Val(Mid(ST, 1, 3)) ct = MIAT(VN6) VN6 = Val(Mid(ST, 4, 3)) ct = ct & " ألف " & IIf(VN6 > 99, wa, "") & MIAT(VN6) Case 7 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "مليون " Case 2 ct = "مليونين " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " ملايين " End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ألف ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, "و", "") & MIAT(vn) Case 8 vn = Val(Mid(ST, 1, 2)) ct = ASHRAT(vn) & " مليون " ct = IIf(vn = 10, ASHRAT(vn) & " ملايين ", ct) vn = Val(Mid(ST, 3, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " ألف ", "") vn = Val(Mid(ST, 6, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 9 vn = Val(Mid(ST, 1, 3)) ct = MIAT(vn) & " مليون " vn = Val(Mid(ST, 4, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " الف ", "") vn = Val(Mid(ST, 7, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) Case 10 vn = Val(Mid(ST, 1, 1)) Select Case vn Case 1 ct = "مليار " Case 2 ct = "مليارين " Case Else ct = IIf(vn > 0, AHAD(vn), "") & " مليار" End Select vn = Val(Mid(ST, 2, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " مليون ", "") vn = Val(Mid(ST, 5, 3)) ct = ct & IIf(vn > 99, wa, "") & IIf(vn > 0, MIAT(vn) & " الف ", "") vn = Val(Mid(ST, 8, 3)) ct = ct & IIf(vn > 99, wa, "") & MIAT(vn) End Select ct = " فقط " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & txtdec, "") & " لاغير" If Val(Number) = 0 Then ct = "صفر" 'ct = "فقط " & ct & " " & Curncey & " " & IIf(Val(dec) > 0, wa & (dec * 100) & " " & CRNCY2, "") & " لاغير" tafket = ct End Function Function MIAT(NUM3) vn3 = Int(NUM3 / 100) Select Case vn3 Case 1 HARF3 = "مائة" Case 2 HARF3 = "مئتان" Case 3 To 9 HARF3 = AHAD(vn3) F = "ة" B = "" D = "ية" If vn3 = 8 Then HARF3 = Left(HARF3, Len(HARF3) - 2) & "مائة" Else HARF3 = Left(HARF3, Len(HARF3) - 1) & "مائة" End If Case Else HARF3 = "" End Select vn3 = NUM3 - vn3 * 100 If Val(Right(vn3, 1)) = 0 Then wa = " " Else: wa = " و " HARF3 = HARF3 & IIf(vn3 > 0, wa & IIf(vn3 < 10, AHAD(vn3), ASHRAT(vn3)), "") MIAT = HARF3 End Function Function ASHRAT(NUM2) wa = " و " vn2 = Int(NUM2 / 10) Select Case NUM2 Case 10 HARF2 = "عشرة" Case 11 HARF2 = "إحدى عشر" Case 12 HARF2 = "إثنى عشر" Case 13 To 19 HARF2 = IIf(NUM2 * (10 / 100) <> 0, AHAD(Right(NUM2, 1)) & " ", "") & " عشر" End Select Select Case vn2 Case 2 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)) & wa, "") & " عشرون" Case 3 HARF2 = IIf(AHAD(Right(NUM2, 1)) <> "", AHAD(Right(NUM2, 1)) & wa, "") & " ثلاثون" Case 4 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " أربعون" Case 5 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " خمسون" Case 6 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " ستون" Case 7 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " سبعون" Case 8 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " ثمانون" Case 9 HARF2 = AHAD(Right(NUM2, 1)) & IIf(AHAD(Right(NUM2, 1)) <> "", wa, "") & " تسعون" End Select ASHRAT = HARF2 End Function Function AHAD(num1) Select Case num1 Case 0 harf1 = "" Case 1 harf1 = "واحد" Case 2 harf1 = "إثنان" Case 3 harf1 = "ثلاثة" Case 4 harf1 = "أربعة" Case 5 harf1 = "خمسة" Case 6 harf1 = "ستة" Case 7 harf1 = "سبعة" Case 8 harf1 = "ثمانية" Case 9 harf1 = "تسعة" End Select AHAD = harf1 End Function

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

شكرا اخى احمد لمرورك ولكن لما لم تضيف اسمك اخى الكريم وجارى تحضير الشرح ولكن احتاج لبرنامج وليس فيديو فلاش مثلا ؟؟ أضفت اسمي بالفعل و اسمي يحمل Id رقم 6 وأرفقت صورة بذلك وها أنا أرفقها مرة أخرى

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

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

الأمل ممدود وخير من الأمل الرجاء والعمر محدود وكل مافيه ابتلاء .....اللهم اجعل خير أعمالناخواتيمها وخير أيامنا يوم أن نلقاك وأنت راض عنا بغير ضراء مضرة ولا فتنة مضلة....ولا تزغ قلوبنا بعد أن هديتنا ...آمين.

السلام عليكم قمنا بالاضافة وجدنا (mared 123) بالتوفيق

السلام عليكم أخي الفاضل شوف المرفق لعله يكون قريب إلى حد ما من المطلوب Test.rar

جزاك الله خير أخى أحمد مرجان رائع

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

الأخ الكريم ياسين أبو وسام مشكور على هذا الملف الجميل الرائع إليك الملف التالي بعد التعديل الكبيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــر الذي قمت به لعمل المطلوب (لو عرفت التعديل هتحتقرني والله ) جرب وأعلمني بالنتيجة Insert Photo UDF Function Wesam.rar

جزيت خيراً أخي الغالي أحمد مرجان على الهدية الرائعة بارك الله فيك ولا تحرمنا من دررك

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

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

الإنسان دون إيمان كوحش فى قطيع لا يرحم....... والإنسان دون أمل كنبات دون ماء .... والإنسان دون ابتسامة كوردة دون رائحة....

للإجابة على هذا السؤال علينا إسقاطه على ثلاث نقاط أساسية لنخلص بعدها إلى جواب علمي مرتكز على معايير واقعية وليس على أهواء وميولات. - النقطة الأولى: التكلفة Cost: معلوم ان لغة PHP لغة مجانية، ويمكن تشغيلها على مختلف انظمة التشغيل من Windows و Mac و Linux، إضافة إلى أن استضافة المواقع والتطبيقات المبرمجة بها متوفرة ومتاحة بكثرة وسعرها مناسب جدا. بينما تقنية ASP.Net تابعة لشركة ميكروسوفت، وهي ليست مجانية وإنما مدفوعة، ويا ليت الأمر يتوقف عندها بل إن التكاليف مستمرة، خصوصا أن المواقع والتطبيقات المبرمجة بتقنية ASP.Net لا تشتغل إلا على الويندوز وهو منتج مدفوع، أضف إلى ذلك أن بيئة التطوير الخاصة ب ASP.Net وهي الفيجوال ستوديو مدفوعة أيضا وليست مجانية، إلا في حال أردت أن تشتغل على بيئة Mono Project على نظام Linux و Mac أو تشتغل على النسخ Express من الفيحوال ستوديو وهي مجانية لكنها ليست بمستوى كفاءة وقوة النسخ الكاملة مثل Ultimate و Professional... ويستمر تفوق PHP على ASP.Net إذا ما تطرقنا إلى موضوع التوافقية Interoperability مع قواعد البيانات، فسوف نجد أن لغة PHP متوافقة بشكل كبير مع نظام إدارة قواعد البيانات MySQL وهو منتوج مجاني متاح للجميع :) بينما تستمر دواهي وطوام ASP.Net لنجد أنها متوافقة بشكل كامل مع نظام إدارة قواعد البيانات MS SQL Server وهو مدفوع وغير مجاني :) ما عدا النسخة Express طبعا. إذن من حيث عامل التكاليف فلغة PHP أفضل بمراحل من تقنية ASP.Net - النقطة الثانية: الكفاءة والأداء Performance: هذه النقطة بالذات لا نستطيع الجزم فيها لأن كلا من لغة PHP وتقنية ASP.Net تشتغلان بكفاءة عالية وبأداء جيد، ويمكنك الاطلاع على سرعة مواقع كبيرة مصممة بهما، فمثلا موقع Facebook وهو أكبر شبكة تواصل اجتماعي مبرمج بلغة PHP، وموقع StackOverFlow أكبر تجمع للمبرمجين حول العالم مبرمج بتقنية ASP.Net بالارتكاز على لغة C# ما دمنا نتحدث حول الأداء والكفاءة فدعوني أوجه رسالة لكل مبرمج كفاءة البرامج مرتبطة بكفاءة المبرمج فما دمت تعتمد على الدقة في كتابة الكود Optimize the code، وما دمت تحرص على كتابة استعلامات منسقة ونظيفة Clean and Proper SQL Queries فأنا أضمن لك أن كفاءة برامجك ستزداد. - النقطة الثالثة: مصادر التعلم مصادر تعلم لغة PHP متوفرة بشكل أكبر من مصادر تعلم تقنية ASP.Net ولعل ذلك راجع إلى مجانية اللغة والعدد الكبير للمبرمجين بها. كذلك من حيث سهولة التعلم فلغة PHP أسهل، يكفيك أن تتابع دورة أو تقرأ كتابا ثم تبدأ بتطوير برمجيات ب PHP، كما يكفيك أن تطلع على قليل من قواعد PHP لتبدأ تطوير أنظمى إدارة المحتوى Content Managemeny System مثل ووردبريس أما تقنية ASP.Net فمصادر تعلمها نادرة قليلا بالقياس مع وفرة مصادر PHP، لكنها سهلة التعلم إن كان لك سابق عهد بإحدى لغات الدوت نيت (فيجوال بزيك أو سي شارب) إضافة إلى دعمها للعديد من تقنيات الويب بشكل بسيط نذكر على سبيل المثال تقنية Ajax التي ستستطيع استخدام مجموعة من الأدوات الجاهزة، كل ما عليك سوى سحبها داخل Source Code والاستمتاع بها أيضا تقنية ASP.net غنية جدا على مستوى تقارير الطباعة Reporting لأنها تدعم الكريستال ريبورت و Report Document بشكل قوي جدا، الشيء الذي سيجعل شعرك يشيب في PHP لأنها عقيمة على مستوى التقارير. في الختام أحب أن أشير إلى أن الاختيار بين لغة PHP وتقنية ASP.Net يحكمه توجهك الخاص أيها المبرمج، فلو كنت من رواد الدوت نيت فالتحق بركب ASP.Net ولا تلتفت لكل ما يشاع فإنك على صواب. أما إن كنت جديدا وليس لك دراية بإحدى لغات الدوت نيت، فلا تتردد بخوض غمار لغة PHP ورأسك مرفوع، وإن سألوك عن السبب قل لهم: أوصاني بها رجل كريم

بعد اذن الاساتذة الافاضل هذه معادله اخرى لاثراء الموضوع =IF(B4="";"";IF(ISNUMBER(SEARCH(".";B4;1));1;2)) تقبلوا تحياتى n.rar

موضوع مهم هل ممكن يتحقق؟

استاذ طارق اريد ان يظهر التحديث فى نفس الوقت للمستخدمين فى وقت حدوث اى تغيير هل هذا فى الامكان

هده دالة تحويل الارقام والعملة الى حروف بالغة الفرنسية وجدتها في احد المواقع سابقا طريقة تنصيب الدالة هي ادهب الى Options Excel من قائمة ابداء ثم اختر Compléments ثم اختر Atteinder فتضهر لك نافدة Macros complémentaire اختر Parcourir تفتح لك نافدة جديدة قم بلصق الملف المرفق داخلها بعد فك الضغط عنه ثم اختر الملف الدي الصقته واضغط فتح ستلاحض انه ضهر لك عنصر جديد في نافدة Macros complémentaire باسم Nblettre قم بتحدبده ثم اضغط موافق بعدها ادهب الى محررالدوال (Fx) اخترtous وبحث عن كلمة ConvNumberLetter مبروك عليك دالة تحويل الارقام الى حروف بالغة الفرنسية NbLettre.rar