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

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

السلام عليكم شباب حاولت اضع الكود ادناه في الاكسل عندي لكن ما قدرت ... يطلع بدل الكلمات العربية ؟؟؟؟؟؟ علامات استفهام ... مالحل ؟؟ الاكسل واجهة انجليزية 2013 الويندز واجهة انجليزية 7 ويكتب عربي اتمنى تفيديوني ... Public Function Monitize(num_entry) Dim LE Dim PT Dim iVal Dim fFrac Dim cDigit Dim cFrac Dim result LE = " جنيه " PT = " قرش " iVal = Int(num_entry) cDigit = Digit_Translator(iVal) fFrac = Val(Right(Format(num_entry, "000000000000.00"), 2)) cFrac = Digit_Translator(fFrac) If cDigit <> "" And fFrac > 0 Then result = cDigit & LE & " و " & cFrac & PT If cDigit <> "" And fFrac = 0 Then result = cDigit & LE If cDigit = "" And fFrac <> 0 Then result = cFrac & PT Monitize = result End Function Private Function Digit_Translator(X) Dim n Dim c Dim c1 Dim Digit1 Dim c2 Dim Digit2 Dim c3 Dim Digit3 Dim c4 Dim Digit4 Dim c5 Dim Digit5 Dim c6 Dim Digit6 n = Int(X) c = Format(n, "000000000000") c1 = Val(Mid(c, 12, 1)) Select Case c1 Case Is = 1: Digit1 = "واحد" Case Is = 2: Digit1 = "اثنان" Case Is = 3: Digit1 = "ثلاث" Case Is = 4: Digit1 = "اربع" Case Is = 5: Digit1 = "خمس" Case Is = 6: Digit1 = "ست" Case Is = 7: Digit1 = "سبع" Case Is = 8: Digit1 = "ثمان" Case Is = 9: Digit1 = "تسع" End Select c2 = Val(Mid(c, 11, 1)) Select Case c2 Case Is = 1: Digit2 = "عشر" Case Is = 2: Digit2 = "عشرون" Case Is = 3: Digit2 = "ثلاثون" Case Is = 4: Digit2 = "اربعون" Case Is = 5: Digit2 = "خمسون" Case Is = 6: Digit2 = "ستون" Case Is = 7: Digit2 = "سبعون" Case Is = 8: Digit2 = "ثمانون" Case Is = 9: Digit2 = "تسعون" End Select If Digit1 <> "" And c2 > 1 Then Digit2 = Digit1 + " و" + Digit2 If Digit2 = "" Then Digit2 = Digit1 If c1 = 0 And c2 = 1 Then Digit2 = Digit2 + "ة" If c1 = 1 And c2 = 1 Then Digit2 = "احدى عشر" If c1 = 2 And c2 = 1 Then Digit2 = "اثنتى عشر" If c1 > 2 And c2 = 1 Then Digit2 = Digit1 + " " + Digit2 c3 = Val(Mid(c, 10, 1)) Select Case c3 Case Is = 1: Digit3 = "مائة" Case Is = 2: Digit3 = "مئتان" Case Is > 2: Digit3 = Left(Digit_Translator(c3), Len(Digit_Translator(c3))) + "مائة" End Select If Digit3 <> "" And Digit2 <> "" Then Digit3 = Digit3 + " و" + Digit2 If Digit3 = "" Then Digit3 = Digit2 c4 = Val(Mid(c, 7, 3)) Select Case c4 Case Is = 1: Digit4 = "الف" Case Is = 2: Digit4 = "الفان" Case 3 To 10: Digit4 = Digit_Translator(c4) + " آلاف" Case Is > 10: Digit4 = Digit_Translator(c4) + " الف" End Select If Digit4 <> "" And Digit3 <> "" Then Digit4 = Digit4 + " و" + Digit3 If Digit4 = "" Then Digit4 = Digit3 c5 = Val(Mid(c, 4, 3)) Select Case c5 Case Is = 1: Digit5 = "مليون" Case Is = 2: Digit5 = "مليونان" Case 3 To 10: Digit5 = Digit_Translator(c5) + " ملايين" Case Is > 10: Digit5 = Digit_Translator(c5) + " مليونا" End Select If Digit5 <> "" And Digit4 <> "" Then Digit5 = Digit5 + " و" + Digit4 If Digit5 = "" Then Digit5 = Digit4 c6 = Val(Mid(c, 1, 3)) Select Case c6 Case Is = 1: Digit6 = "مليار" Case Is = 2: Digit6 = "ملياران" Case Is > 2: Digit6 = Digit_Translator(c6) + " مليارات" End Select If Digit6 <> "" And Digit5 <> "" Then Digit6 = Digit6 + " و" + Digit5 If Digit6 = "" Then Digit6 = Digit5 Digit_Translator = Digit6 End Function

السلام عليكم اخواني الاعزاء قمت بقراءة دروس علوش في كيفية بناء برنامج قواعد بيانات اكسس لمدرسة ووصلت الى الدرس الثاني وقمت ببداية بناء هذا البرنامج حيث قمت بجعل level رقم الصف نوعه رقم وقمت ببناء النموذج وقمت بوضع combo box اسمه nlevel في دروس علوش قال ضيف عمود اخر للرقم كيف اضيف هذا العمود في خصائص الكموبو بوكس ذهبت الى الخاصية row source وقمت بكتابة اسم الصف بين علامة تنصيص وبعده الفارزة المنقوطة ؛ وبعد ذلك رقم الصف والفارزة المنقوطة والصف الثاني الخ وقمت بكتابة الرقم 2 في خانة count column وكتابة الرقم 2 امام bound column فلم افلح في الضغط على القائمة اي ان قائمة اسماء الفصول الدراسية لاتظهر ..... اي انني اريد في combo box عمودين عمود يحمل رقم الصف والعمود الاخر يحمل اسم الصف وعند اختيارالمستخدم اسم الصف فان رقم الصف يخزن في جدول قاعدة البيانات الذي هو level والذي نوعه رقم ارجو المساعدة مع الشكر الجزيل قاعدة بيانات المدرسة معدل.rar

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

حل آخر إذا لم تريد تغيير الإعدادات الافتراضية يمكنك تخصيص زر للحفظ (بالأكواد) والحفظ عن طريقه Sub Test() Application.DisplayAlerts = False ActiveWorkbook.Save Application.DisplayAlerts = True End Sub

جرب أيضاً Excel Option > Trust Center > Trust Center Setting > Macro Settings > click Enable All Macros .... Excel Option > Trust Center > Trust Center Setting > Active X Settings > click Enable All controls without restriction ....

أخي الحبيب جرب أن تقم بهذه الخطوات من Office Button اختر Excel Options ثم Trust Center ثم Trust Center Settings ثم Privacy Options ثم Document Inspector ثم حاول في تجريب الخيارات الموجودة ، وإن شاء المولى تنحل المشكلة شيل علامة الصح من الخيار Remove personal information from file properties on save

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

عفوا المرفق المعدل مرفق هنا NA_ProgressBar.rar

أخي العزيز في خصائص النموذج وفي Timer Interval ضع رقما مناسبا للسرعة التي ترغب بها مثل 1000 او 2000 وسيعمل الشريط حسب رغبتك باذن الله ..........

السلام عليكم ورحمة الله عندما ادخل الي الموقع في العادة ادخل الي المواضيع الحديثة والمتميزة لكي اتعلم من اساتذتي الكبار والعمالقة فلفت انتباهي للموضوع فدخلت واذا الموضوع هو كتاب لتعليم الصيغ والدالات في اكسل 2007 فتذكرت ان هذا الموضوع كنت قد ذكرته في مواقع كثيرة والحمد لله نال الكتاب اكبر تحميل من اكثر من اربعين موقع عربي لتعليم المحاسبة فعندما دخلت الي تحميل الكتاب لقيت ان المتصفح دخل الي صفحتي في موقع 4sharedففرحت فرحت فرحا شديدا انه الحمد لله عزوجل الكتاب الذي صورته بيدي ورفعته علي مواقع الرفع لكي يحمله الناس ويدعو لوالذي رحمه الله نال تحميلا كبيرا وشهرة كبيرة وانا اشكر الاخ امين لذكره الموضوع في المنتدي لانني صراحة انا لم اذكره في الموقع من قبل فبارك الله فيك وجعل نشرك للموضوع في ميزان حسناتك والسلام عليكم اخوكم انس دروبي وان شاء الله قم بشراء كتاب جديد لتعليم اكسل 2010مترجم الي اللغة العربية عن طريق موقع Mrexcel ولكنه الآن في الشحن وعندما يصلني ارفعه علي الموقع فيه اشياء متميزة وجديدة

كيف يمكنني عمل حساب على آوت لوك لأول مرة علماً ايميلاتي على غوغل هل من مساعد

كل ما كان الكود مختصرا كلما امكن السيطرة عليه وادراج الحقول واحدا واحدا غير مقبول ويتأكد عدم قبوله عندما تكون الحقول كثيرة هاك طريقة مختصرة يتم النسخ فيها بالجملة للنموذج الرئيسي ويتم الاستعانة بجدول مؤقت كحلقة وصل بين النسخ واللصق Contract4.rar

أخي الكريم : لو كلفت نفسك قليلا بالبحث لوجدت ما تريد . هذا مثال للترقيم الفردي والزوجي لعل فيه بغيتك ؟