mohamed322

أسف على الأزعاج بس مش عارف أفعلها تم نقلها بس مش بتتفعل مع فتح الأكسيل

عاوز أشغلها لما أفتح الأكسيل

لو فى يوزر فورم جاهز وعاوز أنقلة فى أكسيل أخر أعملة أزاى يوجد يوزر فورم للمستخدم وأدخال الباسورد وعاوز أنقلة لأكسيل أخر أعملة ازاى

شكراااا جداااا ربنا يبارك فيكم

حساب الأجر الأضافى ... السلام عليكم اساتذتى الكرام كنت محتاج معادلة السعات الأضافية 2.50 تصبح 2.83 بعد قسمة50 على 60 ولو 5.60 تصبح 6 بعد قسمة الكسر 60 على 60 الأضافى.xls

القصد لما أكتب 5.20 يصبح 5.33 بعد القسمة الكسر على 60

شكراااااااااااااااااااا جداااااااااااااااااااااااااااااا

شكراااا بس المشكلة لما بكتب 5.20 مش بتتغير لوحدها إلى 5.33

تغير السنة فقط على حسب السنة لو كانت كبيسة تغير التاريخ.xls

تحويل الدقائق بعد القسمة على 60 تحويل الدقائق.xls

شكراااااااااااااا جداااااااااااااااااااا بارك الله فيكم

برجاء المساعدة فى أخفاء السطور الفارغة القيد.rar

برجاء المساعدة

أريد نقل البيانات فى شيت القيد نهاية الخدمة.xls

هل لديها حل

شكراااااااااااااااااااااا جداااااااااااااااااااااااا بارك الله فيكم وأسف على تعبك

تحويل المبلغ السالب للقيمة الأكبر وفى حالة تساوى يناير مع فبراير مع المتوسط أنا أريده يضع المتوسط فى حالة تساوى يناير مع فبراير تحويل السالب لى موجب.xls

لديا أكسيل متحول من الأوركل أريد أن أسحبه الى أكسيل أخر أوتومتيك عملت الكود ده بس المشكلة انة لازم أضعه فى نفس المكان أريد تعديله ليسحبه من أى مكان Sub الأهلى() ' ' الأهلى Macro ' ' Sheets("البنك الأهلى").Select Workbooks.OpenText Filename:= _ "E:\kokt\Private\test\محاولات\ترحيل\البنك الأهلى.xls", Origin:=1256, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _ Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _ 16, 1), Array(17, 1), Array(18, 1)), TrailingMinusNumbers:=True Cells.Select Selection.Copy Windows("نهائى الصوافى.xls").Activate Cells.Select ActiveSheet.Paste Rows("1:1").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A2:G2").Select Selection.Copy Range("H1").Select ActiveSheet.Paste Columns("A:G").Select Range("G1").Activate Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("M9").Select Columns("G:G").EntireColumn.AutoFit Range("A1:G1").Select Range(Selection, Selection.End(xlDown)).Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With 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.Font .Name = "Arial" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Bold = True Columns("D:D").EntireColumn.AutoFit Columns("G:G").EntireColumn.AutoFit Columns("F:F").EntireColumn.AutoFit Columns("E:E").EntireColumn.AutoFit Columns("C:C").EntireColumn.AutoFit Columns("B:B").EntireColumn.AutoFit Columns("A:A").EntireColumn.AutoFit Range("L8").Select ActiveWindow.SmallScroll Down:=6 End Sub

شكرااااااااااااااااااا جداااااااااااا بارك الله فيكم

عدم تكرار الموظف ودمجة فى خلية واحدة عدم تكرار الموظف.xls

شكرااااااااا جدااااااااا بارك الله فيكم

أريد عمل معادلة لتغير العمود فى حالة التغير معادلة vlookupحرة.xls

شكراااا جدااااااااااااااااا ربنا يكرمكم

حساب فترة بين تاريخين حساب فترة بين التوايخ.xls