سليم حاصبيا

اليكم هذا الكود الذي يفعَل كل المعادلات دفعة واحدة مهما كان عددها في الملف مرفق الملف مع الكود الربح.rar

يا اخي اليك ما يجب ان تفعله اذا كان لديك اكسل 2010 احفظ الملف بامتداد xlms و ذلك كما يلي : بعد الانتهاء من العمل على الملف: 1- اضغط F12 2- في خانة save as type اختر xlms (الثانيةفي الجدول) 3 - اختر اسم للملف ثم ok

لكنه عندي لا يعمل يا استاذ ابو حنين ربما هناك شيء يجب ان أقوم به من اعدادات في الاكسل مرفق الملف مع الزر مـرآة.rar

عندما أخصص رز لتنفيذ الماكرو فانه لا يعمل بل يعطيني رسالة :لا يمكن تنفيذ الماكرو مع انه تم حفظ الملف بصيغة xlsm مع انه يعمل من خلال شاشة تنفيذ الماكرو و من خلال shortcut key ايضاً ساعدوني ما العمل مـرآة.rar

كود لعكس الكلمات في الخلية

اخي أبو طارق اكتب المعادلة التالية : ("text(a1,"yyyy = و اسحبها على باقي العامود

كلما اريد ان أرفق ملف ،اتلقى رسالة :غيرمسموع برفع هذا النوع من الملفات أريد ان اعرف كيف الطريقة لأرسال ملف الى المنتدى

جرب المعادلة التالية ({large($a$1:$a$50,{1,2,3,4,5= حيث ان العامود a$1:$a$50 يحتوي على العلامات ونحن نريد اعلى 5 منها لا تنسَ ان تضغط كونترول+ شفت مع انتر و سحب المعادلة نزولاً لا استطيع التنسيق بين اللغتين الانكليزية والعربية لكتابة الرسائل يرجى المساعدة

اكتب هذه المعادلة مكان الموجودة عندك ثم اسحبها على باقي العامود و سوف تعمل بإذن الله W$4*AF9*1 $=

فقط حدد الخلية المراد التنسيق منها اضغط (ctrl+shift+c) انتقل الى الخلية المراد التنسيق عليها (ctrl+shift+v)

اكتب المعادلة التالية ("DATEDIF(E3, E4,"d= حيث ان e3 هو التاريخ الأقدم e4 هو الاحدث أما اذا اردت عدد الشهور استبدل d ب m

أرفع اليكم هذا الكود لمعرفة رقم بعض الألوان،كل لون و رقمه تحته 'هذا الماكرو يطبق فقط على الورقة 2 ()Sub coloration r = 2 c = 2 Sheets(2).Range("a:q").ClearContents Sheets(2).Range("a:q").ClearFormats For i = i To 56 Sheets(2).Cells(r, c).Interior.ColorIndex =i Sheets(2).Cells(r + 1, c).Value = i Sheets(2).Cells(r + 1, c).Select ( With Selection.Borders(xlEdgeLeft .LineStyle = xlContinuous End With ( With Selection.Borders(xlEdgeTop .LineStyle = xlContinuous End With (With Selection.Borders(xlEdgeBottom .LineStyle = xlContinuous End With (With Selection.Borders(xlEdgeRight End With (With Selection.Borders(xlInsideVertical .LineStyle = xlContinuous End With (With Selection.Borders(xlInsideHorizontal .LineStyle = xlContinuous End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .ReadingOrder = xlContext End With c = c + 1 If c > 13 Then c = 2 r = r + 3 End If Next End Sub

) اذا كان لديك اكسل 2010 فقط أضف الشرط (if error) لتصبح المعادلة هكذا ("",iferror(m5*0.5)/50 =

هل من وسيلة أو كود لأجبار(Ctrl +Z) على العمل أكثر من مرة واحدة اثناء تحرير المعادلة خاصة بعد ان نعّلم قسم من المعادلة ونضغط على f9.

أستاذنا الكبير المهندس / طارق محمود أستاذنا الكبير / أبو حنين الأستاذ الفاضل / زمزم الأخت ام عبدالله المحترمة السلام عليكم ورحمة الله وبركاته من قال لكم ان العدد واحد غير أولي , فهو يطبق شروط العدد الأولي بحذافيرها إذ انه ينقسم على واحد و على نفسه فقط

من المعروف ان الأعداد الأولية لا تنقسم إلا على واحد وعلى نفسها و قد جئتكم بهذا الكود لأيجاد كل الأعداد الأولية بين رقمين ارجو ان ينال اعجابكم ()Sub prim_between2 Dim m As Integer, n As Integer, y As Integer, x As Integer Range("a4:h100").ClearContents Range("a4:h100").ClearFormats (m = Cells(1, 2 (n = Cells(1, 4 If m > n Then Cells(1, 2) = n: Cells(1, 4) = m End If r = 4: c = 2 For x = m To n (y = Int(x ^ 0.5 For i = 2 To y Do While x Mod i = 0 If x Mod i = 0 Then GoTo out End If Loop Next i Cells(r, c) = x With Cells(r, c).Font .Bold = True .Size = 20 End With (With Cells(r, c).Borders(xlEdgeLeft .LineStyle = xlDouble .Color = -16776961 .Weight = xlThick End With With Cells(r, c).Borders(xlEdgeTop) .LineStyle = xlDouble .Color = -16776961 .Weight = xlThick End With (With Cells(r, c).Borders(xlEdgeBottom .LineStyle = xlDouble .Color = -16776961 .Weight = xlThick End With (With Cells(r, c).Borders(xlEdgeRight .LineStyle = xlDouble .Color = -16776961 .Weight = xlThick End With (With Cells(r, c .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With c = c + 1 If c > 8 Then c = 2: r = r + 1 End If out: Next x Cells(1, 2).Select End Sub المشكلة في اللغة العربية هي الأقواس

عندي لكم سؤال أرجو ان تفيدوني كيف انسخ الكود وألصقه بحيث يظهر كما هو مكتوب في صفحته الاساسية،دون الرجوع لنقله الى الوورد ثم نسخه ولصقه

أرجو ان ينال اعجابكم عذا الكود الذي يظهر فيه أول قاسم لعدد غير أولي Sub subprim() Dim y As Double Dim z As Variant Dim x As Double x = Cells(1, 4) Range("a3:z3").ClearContents Range("a4:z4").ClearContents Cells(8, 10).Clear Cells(9, 10).Clear Cells(8, 10).Font.Size = 20 Cells(8, 10).Font.Bold = True Cells(8, 10).Font.ColorIndex = 3 Cells(9, 10).Font.Size = 20 Cells(9, 10).Font.Bold = True Cells(9, 10).Font.ColorIndex = 3 If x = 1 Then Cells(8, 10).Value = "1 is the first PRIME number" Cells(4, 1) = 1 Cells(4, 2) = x GoTo l1 ElseIf x = 2 Then Cells(4, 1) = 1 Cells(4, 2) = x Cells(8, 10).Value = "2 is the unique even PRIME number" GoTo l2 ElseIf x <= 0 Then Cells(8, 10).Value = "Give me a number greater than 2" Cells(4, 1) = x Cells(4, 2) = "!!!??." GoTo l3 ElseIf Int(x / 2) = x / 2 Then GoTo l6 End If z = Int(x ^ 0.5) + 1 For i = 3 To z Cells(3, 3).Value = i m = x / i - Int(x / i) If m = 0 Then Cells(4, 1) = i Cells(4, 2) = x / i Cells(8, 10).Value = "the number " & x & " is NOT PRIME " & "its = " & i & "." & x / i Cells(9, 10).Value = "the first divisor of " & x & " is " & i GoTo l4 End If Next i ' Range("(2,2):2,i").Value = "" Cells(8, 10).Value = "the number " & x & " is PRIME " & "its = " & x & ".1" Cells(4, 1) = 1 Cells(4, 2) = x GoTo l5 l1: MsgBox "choise a number >1" Cells(6, 1).Value = "1 is the first PRIME number" GoTo ending l2: MsgBox "2 is the unique PRIME number" Cells(6, 1).Value = "2 is the unique PRIME EVEN number" GoTo ending l3: MsgBox "choose a positiv number" Cells(6, 1).Value = "choose a positiv number" GoTo ending l4: MsgBox "your number is NOT PRIME" Cells(6, 1).Value = x & " NOT PRIME" GoTo ending l5: MsgBox "your number " & x & " is PRIME" Cells(6, 1).Value = "Bravo!!your number " & x & " is PRIME" GoTo ending l6: MsgBox "your number " & x & " is not PRIME because it is even" Cells(6, 1).Value = "your number " & x & " is NOT PRIME because it is even" GoTo ending ending: End Sub

مشكور جداً استاذ ابو حنين عندي سؤال اذا سمحت كلما افتح صفحة vba ارى في نافذة المشروع ملفين لا أدري ما هما الأول :(atpv.xls(ATPVBEANXLAM الثاني : (VBAProject(FUNRES.XLAM سؤالي : ما الطريقة لأغلاقهما ،علماً انهما لا يؤثران على سير البرنامج ،لكنهما مزعجين، اذ ان الموديل يظهر دائماً باسميهما

أرجو ان ينال اعجابكم هذا الكود ‘The code for div Sub div1() Dim x As Double, i As Integer, r As Integer Dim c As Integer, m As Integer, j As Integer Dim lr As Integer 'lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 'last row + 1 Range("a5:z100").ClearFormats Range("a5:z100").ClearContents r = 5 c = 2 x = Cells(3, 3).Value if x<0 then x=abs(x) end if If x Mod 2 = 0 Then m = x / 2 Else m = x / 2 + 0.5 End If For i = 1 To m If x Mod i = 0 Then Cells(r, c).Select With Selection.Font .Name = "Traditional Arabic" .Size = 20 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Bold = True Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone ( With Selection.Borders(xlEdgeLeft .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlEdgeBottom .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlEdgeRight .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlInsideVertical .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlInsideHorizontal .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells(r, c).Value = i c = c + 1 If c > 9 Then c = 2 r = r + 1 End If End If Next i ( Cells(r, c).Value =abs( x Cells(r, c).Select With Selection.Font .Name = "Traditional Arabic" .Size = 20 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Bold = True Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone ( With Selection.Borders(xlEdgeLeft .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlEdgeTop .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlEdgeBottom .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlEdgeRight .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlInsideVertical .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With ( With Selection.Borders(xlInsideHorizontal .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With With Selection.Font .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub (this is the end of (div)