انشاء برنامج محاسبة على الاكسل

[احب اكسس]

السلام عليكم ورحمة الله ..

الى مشرفي منتدى اكسل ارجو المساعدة رجاءا والرد السريع

لدي جدول رواتب الموظفين على اكسل يتكون من الراتب الاسمي, الاستحقاقات, الاستقطاعات, صافي الراتب قمت باجراء معادلة حسابية بين هذه الاعمدة واصبح الجدول جاهزا ولكن السؤال هو :

1- هل يمكنني انشاء جدول يتم فيه السؤال عن التاريخ وادراجها ضمن هذا الجدول ثم يتم تحويل هذه السجلات الى ورقة اخرى كان تكون قاعدة لخزنها .

2- هل يمكنني عرض البيانات المخزنة في هذه الورقة حسب التاريخ لطباعتها .

3- لو وضعت هذه البيانات في اوراق هل يمكنني اجراء العمليات الحسابية .

اسف اعرف انني اكثرت من الطلبات ولكني سوف اكون شاكرا جدا للمساعدة .

[احمدزمان]

السلام عليكم و رحمة الله

اخي محب اكسس

يمكنك وضع ورقة اولى بها البيانات للرواتب كاملة مع المعادلات و غيرها

وفي كل شهر يتم التعديل على هذه الورقة وبعد اجراء جميع التعديلات و الوصول للصيغة النهائية للرواتب يتم نسخ هذه الورقة و وضعها باسم الشهر المحدد للراتب وحمايتها من اي تعديل...........

و بذلك يمكنك الوصول الى اي شهر من الرواتب بواسطة اسم الورقة المحدد للشهر

هذه مجرد فكرة مجربها ...... وممكن باقي الإخوان لديهم حلول افضل

[احب اكسس]

السلام عليكم ورحمة من الله ..

مشكور يا اخي العزيز على الرد ولكن عندي سؤالي وكان الاستفسار منذ البداية بهذا الشكل, كيف يمكنني وضع زر لعملية نسخ الورقة ثم عمل ورقة جديدة وادراج المحتويات في هذه الورقة رجاء اريد المساعدة .

[احمدزمان]

السلام عليكم

الأخ اكسس

مرفق لك الملف الذي استخدمة

وفية

1- ورقة مسير الرواتب يتم التعديل عليها شهريا كماتريد - ثم بالضغط على زر طباعة 2 يتم بدأهمل الماكرو والذي يقوم ب

2- ادراج ورقة جديدة

3- نسخ البيانات من ورقة مسير الرواتب الى الورقة الجديدة بدون عمليات حسابية ارقام ونتائج العمليات الحسابية فقط بحيث تفضل ثابتة

4- نسخ التنسيقات من الورقة السابقة

5- فرز وترتيب البيانات

6- الغاء الصفوف التي لايوجد بهاموظفين

7- الدخول على اعداد الصفحة وتحويل الطباعة من طولية الى عرضية مع اضافة رئوس و تذييل للورقة يتناسب مع عناوين الورقة - مع اضافة اماكن لتواقيع مدير شئون الموظفين و المدير العام

8- يتم تعديل جميع الخلايا في الورقة الجديدة بحيث لايمكن التعديل على الورقة الجديدة حتى لا تتغير المعلومات الموجودة بها وحماية الورقة لتفضل البيانات ثابتة

9- اظهار رسالة توضح ضرورة تغيير اسم الورقة - وحفظ الملف

آمل ان تستفيد منه و ان ينفعك

مع التحية

_________2007.rar

[ابوالزوز]

السلام عليكم ..

أخي الكريم انظر إلى الرابط التالي عله ينفع

http://www.officena.net/ib/index.php?showtopic=22874

[احب اكسس]

إلى الاخ العزيز ..

شكرا لردك الجميل على الموضوع وشرحك القصير لكيفية عمل البرنامج ولكن لدي بعض الاستفسارات .

1- البرنامج لايعمل عند تحميله .

2- هل يمكنك اعطائي شرح لكيفية عمل هذا البرنامج أي شرح الكود والماكرو .

وشكرا .

[احب اكسس]

اخي العزيز البرنامج لايعمل رجاء ارفاق البرنامج مرة ثانية وباقصى سرعة لحاجتي الماسة اليه, سوف اكون متواجدا غدا في هذه الصفحة من الساعة 5 عصرا ولغاية الساعة 12 ليلا بانتظار ردك على موضوعي واستفساراتي عن كيفية كتابتك للبرنامج لكي استفيد منه في المستقبل في كتابة برامج اخرى .

[احمدزمان]

ممكن تعطيني اي ميلك وارسلك الملفات على الميل

[احمدزمان]

للرفع

[احب اكسس]

الى الاخ العزيز احمد يعقوب اسف لعدم الرد لانشغالي ببعض الاعمال ..

اخي العزيز المشكلة ليست في تحميل الملف ولكن ورقة الاكسل لاتعمل وعند تشغيلها تظهر الرسالة التالية :

[احب اكسس]

رجاءا لو قمت بتعديل الملف ارساله الي في اسرع وقت ولك جزيل الشكر .

[احمدزمان]

السلام عليكم

ممكن تحاول على اوفيس 2003

انشاء الله يشتغل تمام

[احمدزمان]

السلام عليكم

الكود

Sub شهرجديد()
    On Error Resume Next
    ActiveSheet.Unprotect
    Range("C6").Select
    Selection.EntireColumn.Hidden = True
    Range("A1").Select
    Selection.EntireRow.Hidden = True
    Selection.EntireColumn.Hidden = True
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.Columns.AutoFit
    Selection.Rows.AutoFit
    Application.CutCopyMode = False
    Selection.Locked = True
    Selection.FormulaHidden = False
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
        Operator:=xlLess, Formula1:="0"
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
        With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    Range("A5").Select
    Selection.ColumnWidth = 3
    Range("B5,K5:Q5").Select
    Selection.ColumnWidth = 4
    Range("C5").Select
    ActiveWindow.FreezePanes = True
    Range("C5,E5:I5").Select
    Selection.ColumnWidth = 5
    Range("D5").Select
    Selection.ColumnWidth = 19
    Range("J5").Select
    Range("J5,R5").Select
    Selection.ColumnWidth = 10
    Range("A2").Select
    Selection.ClearContents
    Columns("D:D").Select
    Selection.Rows.AutoFit
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = "حرر في تاريخ &D"
        .CenterHeader = "مسير الرواتب لفرع/"
        .RightHeader = "&""Courier New,غامق""&11 "
        .LeftFooter = "المراجع:" & Chr(10) & "Name" & Chr(10) & "sign"
        .CenterFooter = _
        "&""Arial,غامق""&10صفحة &P من &N&""Arial,عادي""&12" & Chr(10) & "&""Courier New,عادي""اعتماد مدير شئون الموظفين" & Chr(10) & "الاسم:" & Chr(10) & "التوقيع:"
        .RightFooter = "&8&Z&F&12" & Chr(10) & "اعتماد رئيس قسم الحسابات" & Chr(10) & "الاسم:" & Chr(10) & "التوقيع"
        .LeftMargin = Application.InchesToPoints(0.47)
        .RightMargin = Application.InchesToPoints(0.48)
        .TopMargin = Application.InchesToPoints(0.6)
        .BottomMargin = Application.InchesToPoints(1#)
        .HeaderMargin = Application.InchesToPoints(0.4)
        .FooterMargin = Application.InchesToPoints(0.4)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = True
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Range("a4:r5").Select
    ActiveWindow.Zoom = True
    Range("A4:D5").Select
    Selection.AutoFilter
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("C5").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
        True, AllowFiltering:=True
    ActiveWorkbook.Save
    Selection.AutoFilter Field:=3, Criteria1:="<>000", Operator:=xlAnd
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

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

[احب اكسس]

أخي العزيز مشكور جدا على الكود ولكن في الاساس اردت ان ارى الاوراق وكيفية عملك للبرنامج وترتيبها للاستفادة من خبرتك في هذا المجال, انا اعمل البرامج على اوفيس 2003 ولكن اعتقد ان كود البرنامج فيه خطأ على كل لو بامكانك واسف للازعاج لو ترسل البرنامج على الايميل التالي ولك جزيل الشكر .

dyar_mzere@yahoo.com

[احمدزمان]

السلام عليكم

اخي احب اكسس

تم ارسال الميل

- الصورة المرفقة اعلاة اوفيس 2007

شكرا

و