حسين بلال

شكراً اخ أحمد وأخ ابو البراء. تم التواصل ع الخاص مع الأخ أبو البراء.

هلا أخ أحمد. شكراً لردك. المشكلة أنني بحثت في واجهة الموقع واسفل صفحة القسم عن اسماء المشرفين لاتواصل مع احدهم لكنني ام جدها. حاولت فتح بعض المواضيع لكني لم اصدف اي منهم. لذا انتظر احد الاخوة ان يقوم بالرد على موضوعي هذا كي اتواصل معه بإذن الله.

اشكرك مجدداً لاهتمامك.

السلام عليكم,

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

ملف مميز لمباريات كأس العالم. يستحق المشاركة لمتابعي هذا الحدث العالمي.

worldcup2014.zip

تم الحل والحمد لله. أورد الحل للإفادة. جزاكم الله خيراً

الحل الأول: ( الأسرع والأفضل بنظري )

Sub hbsqn()
Dim i As Long
Dim x As Integer
Application.ScreenUpdating = False
For i = Range("A" & Rows.count).End(3)(1).Row To 2 Step -1
    If Range("A" & i).Value = Range("A" & i - 1).Value Then
        Range("A" & i - 1).EntireRow.Delete
    End If
Next i
x = 9
Do Until x = 0
Range("A" & Rows.count).End(3)(0).Select
Do Until ActiveCell.Row = 1
    If ActiveCell.Value + 1 <> ActiveCell.Offset(1).Value Then
        ActiveCell.Offset(1).EntireRow.Insert
        ActiveCell.Offset(1).Value = ActiveCell.Value + 1
        ActiveCell.Offset(1, 1).Value = 33
        ActiveCell.Offset(1, 2).Value = ""
        ActiveCell.Offset(1, 3).Value = ActiveCell.Offset(, 3).Value
    End If
    ActiveCell.Offset(-1).Select
Loop
x = x - 1
Loop
Application.ScreenUpdating = True
End Sub

الحل الثاني:

Sub FormatClosingBalance()
Dim rng As Range
Dim i As Long


Set rng = Selection
rng.Copy
rng.PasteSpecial xlPasteValues


For i = rng.Rows.Count To 2 Step -1
    Select Case rng(i - 1, 1)
        Case rng(i, 1)
            Rows(i - 1).Delete
        Case Is = rng(i, 1) - 1
            'Do nothing here
        Case Is < rng(i, 1) - 1
            Rows(i).Insert
            Cells(i, 1).Value = rng(i + 1, 1) - 1
            Cells(i, 2).Value = 33
            Cells(i, 4).Value = rng(i - 1, 4)
            i = i + 1
        Case Else
            'Headers dont match row 2
    End Select
Next i


rng.Columns(3).Delete 'Delete this if you don't need to delete the Amount Column


End Sub

للأعلى رجاءاً

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

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

من ثم, اقوم بحذف الحركات المتعددة في نفس اليوم ( ابقي فقط آخر حركة في كل يوم ) وبالتالي اليوم الذي فيه حركة واحدة, لا احذف منه شيئاً )

وأخيراً اقوم بادخال الناقص من الأيام. لهذه الحركات المضافة, الكود سيكون 33 ( احتاجه لعمليات تحليل أخرى ) أما الرصيد فيكون رصيد اليوم السابق

أرجو مساعدتي بكود برمجي يقوم بهذه العملية تلقائياً علماً ان عدد الأعمدة وتصميمها سيكون دائماً ثابت لكن عدد الحركات هو المتغير.

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

أرغب بتصميم برنامج تحليل للقوائم المالية بسيط من ناحية التطبيق كالتالي,

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

ملاحظات مهمة:

- بنود الميزانية وقائمة الدخل ثابتة لكن حين ادخال بيانات سنة جديدة لعميل ما, سيتم ملئ فقط البنود المتاحة في قوائم هذا العميل

- سأقوم بتأمين المعادلات لمن سيقوم بالعمل, المعادلات مقسمة على شكل مجموعات حسب الدلالة ( معادلات قياس الربحية ومعادلات قياس السيولة ..... ) لذا يجب مراعاة هذذا الموضوع في التقارير

- جميع التقارير يجب ان تكون قابلة للطباعة من ناحية التنسيقات حتى القوائم المالية نفسها

- جميع المدخلات والمخرجات ستكون باللغة الإنكليزية ( سأوردها جميعاً ) لكن المهم من يقوم بالتنفيذ ألا يستخدم إلا الإنكليزية لضمان التنفيذ

- كل المحاسبة قائمة على توازن القوائم المالية ( الطرفين المدين يساوي الطرف الدائن ) لذلك يجب ان يكون في البرنامج المطلوب امكانية التنبيه لعدم توازن الميزانية

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

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

7belal[a-t]gmail[dot]com

بالتوفيق والرضوان

السلام عليكم

جزاك الله خيراً أخي الكريم على التجاوب.

السلام عليكم

هل من بوادر للحصول على رد لسؤالي أخوتي الكرام؟

اعتذر على الإلحاح لكنني بحاجة للبرنامجين ( قاعدتي البيانات ) الذين لأجلهما طرحت الفكرة اعلاه

السلام عليكم

الأخ محمد أيمن, الله يجزيك الخير أخي الكريم على مبادرتك.

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

انا اخجل صراحةً ان اطلب صنع برنامج واتعاب الاخوة بتعديل هذه وتلك وفي آخر الأمر, هذا البرنامج قد لايتسخدمه احد إلا انا ففائدته شخصية وليست عامة.

عموماً بانتظار قرار الإدارة للبت بالموضوع.

الأخ أبوخليل, مع جزيل الشكر والتقدير لتفاعلك

السلام عليكم

اعلم انه من قواعد هذا القسم انه ممنوع طلب تصميم برامج كون الهدف من الموقع هو التعليم لكن احياناً يجد الشخص نفسه محتاج اشد الحاجة لبرنامج او قاعدة بيانات وليس لديه الوقت ليتعلم ويتقن ليلبي طلبه بنفسه, في هكذا حالة الحل الأمثل يكون بأن يطلب المساعدة ممن لديه الخبرة والمعرفة مقابل اجر مادي او معنوي. لم ارى في منتدى اوفيسنا اي مكان لهكذا طلبات الأمر الذي اعتبره نقص في كمال المنتدى, انا الآن احتاج فعلياً لبرنامج بسيط لعى اكسس وحاولت تعلم اكسس 2010 لتصميم البرنامج لكن الموضوع اخذ وقتاً كبيراً مني دون فائدة واضحة بسبب قلة وقتي المتاح لتعلم برنامج جديد واتقانه من الصفر. في المقابل, بحثت في النت عمن يقدم هكذا خدمات لكنني لم اجد شئ اثق به, من هنا يأتي طلبي الى ادارة هذا الموقع بأنه جزاكم الله خيراً على تركيزكم على التعليم في هذا الموقع لكن لا ضرر أن يكون هناك قسم للطلبات المأجورة والتي يكون فيها جزء للمنتدى وجزء لاعضائه خاصةً أن الخبرات التي هنا ممتازة ماشاء الله عليكم ولا ضرر ان يستفيد ذو علم من علمه.

أرجو ان يلقى اقتراحي لديكم اذناً صاغية وأن اجد لديكم من يعينني على تصميم البرنامجين الذين ابحث عنهما بأسرع وقت ممكن

جزاكم الله خيراً ووفقكم لما يحب ويرضى

جزاك الله خيراً أخي محمد. افهم مداخلتك واقر بأنن اكسس هو قاعدة بيانات لكن العمليات التي اشير اليها محدودة جداً وهي لاتخرج عن العمليات الأساسية من جمع, طرح, قسمة وضرب مع خاصية استخدام الأقواس لتحديد ترتيب العمليات في حال تواجد اكثر من عملية في نفس المعادلة.

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

up please

السلام عليكم

ارغب بتصميم قاعدة بيانات / برنامج تحليل قوائم مالية بسيط على اكسس 2010 لكنني لست متأكداً هل باستطاعة اكسس 2010 القيام بالعمليات الرياضية المطلوبة ؟؟؟

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

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

ارجو التوضيح رجاءاً

السلام عليكم

خبر جميل صراحةً واحترم طبعاً قواعد المنتدى.

مع جزيل الشكر

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

ASAP Utilities

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

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

الله يجزيك الخير أخي طارق, حل ممتاز صراحةً. علي الآن ان اتعلم هذه الدالة لاتمكن من تصميم واستخدام هكذا تقرير بنفسي.

مع جزيل الشكر

السلام عليكم

شكراً أخي الكريم على ردك. جزاك الله خيراً

فعلياً الحل الذي اقترحته لا يحل المشكلة لأنه يعقد التقرير وفي حالات اخرى لاينفع ابداً كأن نقوم بعمل جدول مباريات دوري مثلاً.

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

السلام عليكم اخوتي الكرام, هل من حل للطلب المذكور اعلاه؟؟؟

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

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

( في المثال المرفق صفحتي عمل, الأولى للبيانات المستخدمة كمثال, اما الثانية ففيها جدولين, الأول باللون الأخضر هو من نتاج الجداول المحورية, في حين الثاني بالللون الأصفر, هو التقرير المطلوب عمله )

للعلم بأنني بحثت على الإنترنيت عن حل لهذه المشكلة ولكن الجواب كان دائماً بأن هكذا طلب هو خارج حدود امكانية الجداول المحورية لكنني لم اقتنع ومازلت ابحث عن حل لعلي اجده هنا إن شاء الله.

جزاكم الله خيراً سلفاً

للأمانة معلومة جديدة كلياً, جزاك الله خيراً يا طيب

ربي يجزيك الخير أخي محمود على مساعدتك. لكن ما احتاجه هو غير الذي اضفته في مشاركتك. انا اعرف هذه الطريقة لكن سؤالي هو, بعد ان اضع كلمة سر للملف حسب الطريقة التي شرحتها حضرتك, كيف يمكنني ان اضمن ان هذه الكلمة لن يتم اختراقها من خلال الاكواد الخاصة بهذا الأمر؟؟؟؟؟ حيث أنني جربت أن اضع كلمات سر معقدة جداً من 50 محرف وأكثر ولكنها لم تأخذ أكثر من دقائق معدودة في حلها عندما استخدمت الملف الموجود في المشاركة التالية

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

للأعلى على أمل أن نجد أي حل لدى أحد الأخوة