skyblue قام بنشر مارس 9, 2005 مشاركة قام بنشر مارس 9, 2005 السلام عليكم ورحمة الله وبركاته،، اعزائي خبراء الاكسل برجاء مساعدتي حيث انني بصدد عمل برنامج محاسبي وهناك اشياء صعبت علي ولايمكن حلها الا عن طريقكم انتم مرفق المثال . والموضوع باختصار : عندي جدول حسابات يحتوي 1000 حساب . فعند عمل القيد المحاسبي تكون نسبة الخطا واردة مع هذا الكم الهائل من الحسابات ورمز المصروف وبالتالي تاخذ مني وقت كبير عند اعدادها ....الخ . فانا فكرت على اساس عمل برنامج على الاكسل واضيف الى دليل الحسابات خانة للمدين وعدد المرات التي اريد ان يكون الحساب فيها مدينا ,,فلو ارت ان يكون هذا الحساب مرة او مرتين او ثلاث مرات مدينا ان اضع فقط العدد في خانة التكرار وبالتالي ينتقل لي هذا الحساب مع رمز المصروف الخاص به والمبلغ الى جدول في الورقة الثانية بالعدد المطلوب وكذلك الدائن . وان يربط المدين بمميز حركة 1 وان يربط الدائن بمميز حركة 2 وان يكون السريال نمبر الي ايضا . ولكم خالص الشكر والتقدير رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مارس 10, 2005 مشاركة قام بنشر مارس 10, 2005 السلام عليكم ... جرب المرفق: Book11.zip رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 10, 2005 الكاتب مشاركة قام بنشر مارس 10, 2005 السلام عليكم ورحمة الله وبركاته،، المعذرة يااستاذ محمد حجازي لقد وجدت المرفقات فالظاهر ان الملف اتحمل بعد ذلك . اخي محمد الملف رائع جدا وهذا مااريده فعلا . ولمن عندي ملاحظة بسيطة : في الورقة الاولى عندما اضغط على ( ترحيل ) الترحيل يتم بشكل ممتاز جدا في الورقة الثانية ولكن عندما ارجع الى الصفحة الاولى اجدها فارغة تماما .فانا اريد منكم يحفظكم الله الاتي حتى يكتمل الموضوع : 1- عندما ارجع الى الورقة الاولى اريد ان يكون موجود فقط رقم الحساب ومميز المصروف (( اي تكون بيانات ثابته ) 2 - هل من الممكن تغيير مميز الحركة المدين برقم 10 بدلا من 1 - ومميز الدائن برقم 60 بدلا من 2 3- وان يكون ترتيب القيد في الصفحة الثانية اولا المدين ثم الدائن . والمعذرة على كثرة الطلبات ولكن الله يعلم قد ايه محتاجها في عملي . والحقيقة ان ماتقدمه لنا من خدمات عبر هذا الموقع لاتقدر بثمن ولايسعني الا ان ادعوا الله لك ولمؤسس هذا الموقع ان يمد لكم في العمر والرزق وان يجعلكم من السعداء في الدنيا والاخرة . رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مارس 10, 2005 مشاركة قام بنشر مارس 10, 2005 السلام عليكم ... الملف كما طلبت : Book111.zip رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 17, 2005 الكاتب مشاركة قام بنشر مارس 17, 2005 السلام عليكم ورحمة الله وبركاته،، استاذي الفاضل محمد حجازي الذي له الفضل بعد الله علي .... هذا الملف سبق ات عملت عليه تعديل رائع من قبلك , والان ارغب في مساعدتي في تعديل بعض الاشياء كالاتي : عندم اضغط على زر ترحيل تنتقل البيانات على طول الى الورقة الثانية.. ومن ثم أبدا بتسجيل قيد اخر على هذه الورقة ( الاولى ) فعندما انتهي من عمل القيد الثاني اضغط زر ترحيل فتنتقل البيانات الى الورقة الثانية وتحل محل البيانات السابقة . فالمطلوب هو اضافة كود على الكود السابق الخاص بالترحيل مهمته نقل البيانات المرحلة في كل مره الى صفحة اخرى مستقلة محددة له بالكود . ولك مني الف تحية . رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مارس 18, 2005 مشاركة قام بنشر مارس 18, 2005 السلام عليكم ... بالطبع يمكن ذلك عن طريق نافذة إدخال تحتوي على مربع نص ، ولكن ومن أجل تفادي الأخطاء التي قد تحصل في حالة إدخالك اسم لورقة غير موجودة ، فقد آثرت أن أعتمد على القائمة المنسدلة. مرفق المثال بعد التعديل: Book111.zip رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 19, 2005 الكاتب مشاركة قام بنشر مارس 19, 2005 السلام عليكم ورحمة الله وبركاته،، الله يجزيك عنا وعن كل المسلمين خيرا وان يستر عليك في الدنيا والاخرة . الحقيقة ماقصرت فالتعديل كان اكثر من رائع وبالعكس انت اعطيتني افكار جميلة من ضمنها انني استطيع ان اسجل اكثر من قيد في ورقة واحدة وايضا يمكنني تسجيل كل قيد في ورقة منفصلة عن الاخرى . اخي واستاذي محمد حجازي والله انني اطمع في كرمك وفي نفس الوقت اخجل من كثر الطلبات ولكن نطلب قبول العذر . استاذي الفاضل لقد حاولت ان اغير في شكل الجدول ولاكنني عجزت . فالجدول الان مرتبط بالكود فلا استطيع التغيير فيه علما انني حاولت التغيير في الكود ولاكنني فشلت . لذا اطلب منك التكرم بالاتي: 1- الجدول يبدا من a2:s12 انا أريده ان يبدا من a54:s80 . حيث انني في العمل احتاج للمساحة من a2: s52 لادخال مجموعة من ارقام الحسابات . 2 -ايضا اريد ان اعدل في الجدول اللي في صفحة رقم 1 واجعلها من a18:s80 3-في صفحة(main) اريد ان اعمل زر لطباعة الصفحات اللي سبق ان رحلت القيود اليها على شكل قائمة منسدلة. 4- ايضا عندي طلب بسيط لو تنشئ لي ازرار في صفحة main يكون خاص بمسح بيانات الصفحات المرحلة اليها القيود ( اي طبق الاصل مثل زر الطباعة لكنه يخص المسح فنختار الصفحة المراد مسحها من القائمة المنسدلة) الله يعطيك العافية والصحة والسعادة في الدنيا والاخرة . رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مارس 19, 2005 مشاركة قام بنشر مارس 19, 2005 السلام عليكم ... الملف كما طلبت : تحياتي Book11111.zip رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 22, 2005 الكاتب مشاركة قام بنشر مارس 22, 2005 السلام عليكم ورحمة الله وبركاته،، اخي واستاذي محمد حجازي اشكرك جدا على تعديلك عل الملف وعلى الخدمات الجليلة التي قدمتها وصبرك واحترامك وتقديرك لنا , لدرجة انني احببت هذا الموقع عن كل المواقع الاخرى فادعوا الله لكم بالتوفيق . استاذ محمد احنا الان وصلنا الى المرحلة الاهم في البرنامج : فكما تعرف ان جدول الحسابات يتكون من عدد كبير من الاعداد و تسجيله ياخذ وقت وايضا احتمال الخطا وارد وكبير ايضا . لذا أمل التكرم بعمل الاتي : 1- زيادة الخانات في الجدول لتكون من E55:z80 2 - ان يتم وضع خانة لادخال رموز تلك الحسابات . فمثلا ادخل الرمز 1 في اخانة ادخال الرمز فينتقل الحساب الخاص برقم 1 الى الجدول .وهكذا لبقية الرموز والتي تبد من 1 - 74 رمز . 3- منع تكرار الرمز وظهور رسالة تنبيهية بذلك . ولك من كل الاحترام والتقدير . مرفق الملف رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 22, 2005 الكاتب مشاركة قام بنشر مارس 22, 2005 السلام عليكم ورحمة الله وبركاته،، اخي واستاذي محمد حجازي اشكرك جدا على تعديلك عل الملف وعلى الخدمات الجليلة التي قدمتها وصبرك واحترامك وتقديرك لنا , لدرجة انني احببت هذا الموقع عن كل المواقع الاخرى فادعوا الله لكم بالتوفيق . استاذ محمد احنا الان وصلنا الى المرحلة الاهم في البرنامج : فكما تعرف ان جدول الحسابات يتكون من عدد كبير من الاعداد و تسجيله ياخذ وقت وايضا احتمال الخطا وارد وكبير ايضا . لذا أمل التكرم بعمل الاتي : 1- زيادة الخانات في الجدول لتكون من E55:z80 2 - ان يتم وضع خانة لادخال رموز تلك الحسابات . فمثلا ادخل الرمز 1 في اخانة ادخال الرمز فينتقل الحساب الخاص برقم 1 الى الجدول .وهكذا لبقية الرموز والتي تبد من 1 - 74 رمز . 3- منع تكرار الرمز وظهور رسالة تنبيهية بذلك . ولك من كل الاحترام والتقدير . مرفق الملف الملفات المرفقة Book11111.zip ( 369.16ك ) عدد مرات التنزيل: 0 رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر مارس 23, 2005 مشاركة قام بنشر مارس 23, 2005 السلام عليكم ... جرب التعديل التالي: Book11111.zip رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 25, 2005 الكاتب مشاركة قام بنشر مارس 25, 2005 السلام عليكم ورحمة الله وبركاته،، شكرا والف شكر على هذا الجهد الرائع . وربي يحفظك لنا لانك ماقصرت معي ومشيت معاي خطوة خطوة بصدر رحب . استاذي محمد حجازي لقد عملت بعض التعديلات في الكود والحمد لله رب العالمين نجحت معاي . ولمن هناك بعض الاضافات التى اريد اضافتها حتى يكتمل الوضع . وهذه الاضافات قد شرحتها وبينتها ضمن الملف المرفق الملاحظة الاولى في الصفحة الرئيسية main ومعلمة بالاصفر = الثانية في ورقة 1 ومعلمة بالاخضر وتقبل تحياتي رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مارس 26, 2005 الكاتب مشاركة قام بنشر مارس 26, 2005 الملف الثاني رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر أبريل 28, 2005 الكاتب مشاركة قام بنشر أبريل 28, 2005 السلام عليكم ورحمة الله وبركاته،، الاساتذه المشرفين يحفظكم الله . برجاء التكرم علي بشرح الكود اللي في هذا الملف Book11.zip . وهو الملف الاول في موضوع المدين والدائن في جدول الاكسل لانني فعلا محتاج جدا الى معرفة شرح هذا الكود .. والله يحفظكم رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر أبريل 29, 2005 مشاركة قام بنشر أبريل 29, 2005 السلام عليكم ... الكود هو التالي: Sub m() Dim NumberRow As Long Application.ScreenUpdating = False For i = 3 To 12 If Sheets("1").Cells(i, 1).Value <> "" Then For ii = 1 To Sheets("1").Cells(i, 1).Value NumberRow = Sheets("2").Range("A2").CurrentRegion.Rows.Count Sheets("2").Cells(NumberRow + 1, 1).Value = NumberRow - 1 Sheets("2").Cells(NumberRow + 1, 18).Value = Sheets("1").Cells(i, 2).Value Sheets("2").Cells(NumberRow + 1, 2).Value = 2 For iii = 3 To 17 Sheets("2").Cells(NumberRow + 1, iii).Value = Sheets("1").Cells(i, iii + 2).Value Next iii Next ii End If If Sheets("1").Cells(i, 3).Value <> "" Then For ii = 1 To Sheets("1").Cells(i, 3).Value NumberRow = Sheets("2").Range("A2").CurrentRegion.Rows.Count Sheets("2").Cells(NumberRow + 1, 1).Value = NumberRow - 1 Sheets("2").Cells(NumberRow + 1, 19).Value = Sheets("1").Cells(i, 4).Value Sheets("2").Cells(NumberRow + 1, 2).Value = 1 For iii = 3 To 17 Sheets("2").Cells(NumberRow + 1, iii).Value = Sheets("1").Cells(i, iii + 2).Value Next iii Next ii End If Next i Sheets("1").Range("A1:S12").ClearContents Application.ScreenUpdating = True End Sub وهذا شرح للكود خطوة خطوة : Dim NumberRow As Long هنا عرفنا المتغير NumberRow على أنه عدد صحيح طويل . Application.ScreenUpdating = False هنا ألغينا خاصية تحديث الشاشة . For i = 3 To 12 هذه حلقة تكرارية يتم من خلالها إسناد رقم (من 3 إلى 12) في المتغير i في كل دورة . If Sheets("1").Cells(i, 1).Value <> "" Then إذا كانت قيمة الخلية التي تقع في السطر i و العامود الأول (في الورقة 1) فارغة فيتم تنفيذ السطر التالي وإلا فلا . For ii = 1 To Sheets("1").Cells(i, 1).Value هذه حلقة تكرارية يتم من خلالها إسناد رقم (من 1 إلى قيمة الخلية الواقعة في السطر i و العامود الأول) في المتغير ii في كل دورة . NumberRow = Sheets("2").Range("A2").CurrentRegion.Rows.Count في السطر السابق يتم إسناد رقم آخر سطر في جدول البيانات (الموجود في الورقة 2) في المتغير NumberRow . Sheets("2").Cells(NumberRow + 1, 1).Value = NumberRow - 1 هذا السطر خاص بوضع التسلسل التلقائي لجدول البيانات . Sheets("2").Cells(NumberRow + 1, 18).Value = Sheets("1").Cells(i, 2).Value هذا السطر خاص بالمبلغ الدائن. Sheets("2").Cells(NumberRow + 1, 2).Value = 2 هذا السطر خاص بمميز الحركة. For iii = 3 To 17 Sheets("2").Cells(NumberRow + 1, iii).Value = Sheets("1").Cells(i, iii + 2).Value Next iii الكود السابق خاص بنقل رقم الحساب . If Sheets("1").Cells(i, 3).Value <> "" Then For ii = 1 To Sheets("1").Cells(i, 3).Value NumberRow = Sheets("2").Range("A2").CurrentRegion.Rows.Count Sheets("2").Cells(NumberRow + 1, 1).Value = NumberRow - 1 Sheets("2").Cells(NumberRow + 1, 19).Value = Sheets("1").Cells(i, 4).Value Sheets("2").Cells(NumberRow + 1, 2).Value = 1 For iii = 3 To 17 Sheets("2").Cells(NumberRow + 1, iii).Value = Sheets("1").Cells(i, iii + 2).Value Next iii Next ii End If هذا الكود يقوم بنفس عمل ما سبق و لكن مع المبالغ المدينة. Sheets("1").Range("A1:S12").ClearContents هنا قمنا بمسح محتويات النموذج الذي قمنا بالترحيل منه. Application.ScreenUpdating = True هنا قمنا بإعادة خاصية تحديث الشاشة. رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر مايو 1, 2005 الكاتب مشاركة قام بنشر مايو 1, 2005 السلام عليكم ورحمة الله وبركاته،، اخي واستاذي الكبير محمد حجازي الله يكثر خيرك ويستر عليك وينيرلك الطريق في الدنيا والاخرة , دوما انت رائع الله لايحرمنا منك . وتقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها