زاكي بوشلاغم

هل من مجيب

هل من مجيب

السلام عليكم نست كلمة السر اريد ان افك كلمة السر حيث لم اتفكرها ملف في الرابط http://www.up-00.com/?wglf

السلام عليكم اتمنى ان تكون قد فهمتو ماذا اقصد

السلام عليكم اريد كتاب شرح لغة البازيك مثال : Sub AL_KHALEDI() Dim Arr As Variant Dim Rn As Range Dim C As Range Dim Lr As Long Dim T1 As String Dim T2 As String Dim Str As String Dim S As Variant Dim R As Integer Dim A As Integer Set Rn = Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)) Lr = Rn.Rows.Count ReDim Arr(Lr - 1) For Each C In Rn.Cells T1 = "" T2 = "" Str = Application.Trim(C) For R = 1 To Len(Str) T1 = Mid(Str, R, 1) S = Application.Search(T1, "أبجدهوزحطيكلمنسعفصقرشتثخذضظغ", 1) If Not IsError(S) Then T1 = Mid("أبتثجحخدذرزسشصضطظعغفقكلمنهوي", S, 1) T2 = T2 & T1 Next R Arr(A) = T2 A = A + 1 Next C Range("K2").Resize(Lr).Value = WorksheetFunction.Transpose(Arr) Range("B2:K500").Resize(Lr).Sort Range("K2"), xlAscending Range("K2").Resize(Lr).ClearContents Set Rn = Nothing Erase Arr End Sub بمعنى شرح كل كلمة من لغة البازيك وماذا تعني من احسن لو كان كتاب مفصل يشرح كل كلمة من لغة البازيك

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

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

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

اخي الورقة المطلوبة هيdonnee تظغط على زر ابجد هوز ترتب الاسماء. وذلك بعد ادخال اسماء كلها

السلام عليكم اخي كلمة التي تكون فيها حرف ظا لا ترتب حسب الترتيب ابجد هوز مثال لقب : ظافري لا يرتب حسب الترتيب ابجد هوز اريد ترتيب اي اسم ولقب يكون فيه حرف ظا حسب ترتيب ابجد هوز وشكرا جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

شكرا اخي وبارك الله فيك

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

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

اريد عند كتابة رقم قرار 943-000-000 في خانة رقم قرارالمنحة في عمود (h) تكتب في خانة الدفع في العمود( j ) كلمة (نعم ) مباشرة اي كلمة (نعم )مرتبطة بالقرار 0943-000-000 وكلمة (لا ) مرتبطة رقم قرار المنحة المختلفة كلمة نعم تكتب اليا في خانة الدفع عمود j لما يكتب رقم قرار المنحة 0943-000-000- في خانة رقم قرار المنحة عمود (h) جدول-تصفية-المنح-ابجد-هوز-صحيح.rar

شكرا وبارك الله فيكم

هل من الممكن ان اعرف كيف غيرت ملف بارسو الى هذا الشكل يا اخي

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

هل من مجيب

شكرا علي اليخ بارك الله فيك وربي يرحم والديك

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

هل من مجيب

السلام عليكم اريد اظافة دالة ماكرو في دوال ايكسل كله حيث تصبح تعمل مثل دوال (f(x حتى لو تم غلق الجهاز الكمبيوتر وفتحه تعمل هذه الدالة والدالة التي اريد اضافتها هي عبارة عن ماكرو حيث تبقى تعمل هذه الدالة بصفة دائمة مثل دوال ايكسل( f(x دالة ماكرو هي Public Function Zaki(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

هل من طريقة اخري لتحويل ارقام الى عملات جزائرية مثال 100,00مائة دينار جزائريا وجب ان تكتب دينار جزائريا

هل من طريق اخرى فعالة او ادخاله عن طريق ماكرو

شكرا وبارك الله فيك