abcdefgh2005 قام بنشر أكتوبر 15, 2009 قام بنشر أكتوبر 15, 2009 المطلوب عند تسجيل في ورقة اليومية في خانة البنك مدين او دائن يتم ترحيلها الي ورقة البنك حسب الكود مثلا الايداع يذهب للبنك مصر في الجانب المدين 1000 وكل حركة تحت بعضها 2.zip
احمدزمان قام بنشر أكتوبر 15, 2009 قام بنشر أكتوبر 15, 2009 السلام عليكم و رحمة الله وبركاته اهلا بك اخي التسلسل الأبجدي 2005 جرب المرفق هل هذا المطلوب 2.zip
abcdefgh2005 قام بنشر أكتوبر 16, 2009 الكاتب قام بنشر أكتوبر 16, 2009 شكرا علي المجهود الرائع جدا ولكن لاحظت عند الضغط علي الزر اكثر من مرة يتم الترحيل اكثر من مرة اريد الغي هذا الزر واجعل عند كتابة الرقم وكود البنك يتم ترحيل تلقائي واتمني لو تسوي شرح بسيط للكود وتقولي بعد ما تشيله من الزر هتضعه فين حتي تعم الفائدة واستخدمه في اكثر من شيت وما هو الثابت في الكود الذي لا استطيع تعديله وما هو المتغير اللي استطيع الكتابه بدلا منه اذا اردت ان اطبقه علي اكثر من شيت لانه كود رائع حقا واتمني استخدامه وجزاك الله عنا خيرا 2323.zip
احمدزمان قام بنشر أكتوبر 16, 2009 قام بنشر أكتوبر 16, 2009 الجمعة، 27/10/1430هـ الموافق 16/10/2009م السلام عليكم و رحمة الله وبركاته اريد الغي هذا الزر واجعل عند كتابة الرقم وكود البنك يتم ترحيل تلقائي هكذا يوجد اختلاف كامل للكود حيث سوف يتعامل مع الصف الحالي فقط للورقة النشطة حاليا الموضوع بدو دراسة من جديد
abcdefgh2005 قام بنشر أكتوبر 19, 2009 الكاتب قام بنشر أكتوبر 19, 2009 شكرا علي اهتمامك بالموضوع وارجو الرد قريبا
زياد علي قام بنشر أكتوبر 22, 2009 قام بنشر أكتوبر 22, 2009 السلام عليكم استاذي احمد يعقوب حياك الله في الواقع أنا متابع الموضوع من البداية واعجبني الكود كثيراً ولكن ماذا لو كان عدد الحسابات عندنا اكثر من اربع حسابات (المصارف) فهل يتم الدلالة عليها بالكود جميعاً : If Sheets("xxxx").Cells(F, 9).Value = 1 Then B = 3 If Sheets("xxxx").Cells(F, 9).Value = 2 Then B = 5 If Sheets("xxxx").Cells(F, 9).Value = 3 Then B = 7 If Sheets("xxxx").Cells(F, 9).Value = 4 Then B = 9 حيث xxxx هو اسم الورقة مثلاً عند إضافة حساب جديد رقم الكود 5 If Sheets("xxxx").Cells(F, 9).Value = 5 Then B = 11 فهل من العملي اضافة سطور جديدة لهذا الكود بعدد الحسابات ام ان هناك طريقة مختصرة اكثر ... افيدونا افادكم الله تحياتي ومودتي والسلام عليكم
احمدزمان قام بنشر أكتوبر 22, 2009 قام بنشر أكتوبر 22, 2009 الجمعة، 5/11/1430هـ الموافق 23/10/2009م السلام عليكم و رحمة الله وبركاته كلامك اخي زياد صحيح و ممكن المهم هو ان نوجد علاقة حسابية بين العدد الذي يمثل نوع الحساب او البنك ورقم العمود الذي سوف ننقل له البيانات مثلا في حالة هذا المثال الموجود ممكن نعدل الكود كـ التالي If Sheets("xxxx").Cells(F, 9).Value = 1 Then B = 3 If Sheets("xxxx").Cells(F, 9).Value > 1 Then B = Cells(F, 9).Value * 2 + 1 وفي هذه الحالة اذا كان رقم الحساب 2 B=2*2+1 = 5 وهكذا اشكر لك متابعتك و توضيحك و تقبل شكري و تقديري
زياد علي قام بنشر أكتوبر 23, 2009 قام بنشر أكتوبر 23, 2009 السلام علبكم اخي وحبيبي في الله استاذ احمد يعقوب جزاك الله كل خير شكراً على الاجابة ،،، وكلامك فعلاً ما يخرش المية لقد تمت التجربة بنجاح زادك الله من علمه وفضله لك مني كل الود والتحية والسلام عليكم
abcdefgh2005 قام بنشر أكتوبر 23, 2009 الكاتب قام بنشر أكتوبر 23, 2009 رائع جدا ولكن يوجد ملاحظة عند ادخال رقم الكود وادخال القيمة قصاده يتم الترحيل ولكن عند تغير الكود لا يتم تغير الترحيل من بنك لبنك حسب الكود واذا حذفت الكود لا يتغير الترحيل ويفضل في مكانه ولا يتحذف مع حذف الكود ارجو افادتي 996.zip
احمدزمان قام بنشر أكتوبر 23, 2009 قام بنشر أكتوبر 23, 2009 السلام عليكم و رحمة الله اخي الفاضل المفروض في عملية الإدخال ان تتم بالتسلسل التاريخ ثم رمز البنك ثم المبلغ و الكوود يعمل بعد ادخال المبلغ و المفروض في هذه الحاله ان كان هناك تغيير او تعديل ان يتم قبل ادخال المبلغ مع التحية و التقدير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.