رعد داود قام بنشر سبتمبر 7, 2012 قام بنشر سبتمبر 7, 2012 بسم الله الرحمن الرحيم الاساتذه الأعزاء والأخوة الأفاضل السلام عليكم حاولت تطبيق فكرة كود فاتورة ولكن لم يفلح عندي أرجو ابدال الكود او التعديل عليه للخلايا والنطاقات الملونه باللون الأخضر نظام حسابات شركة الأحسان.rar
رعد داود قام بنشر سبتمبر 9, 2012 الكاتب قام بنشر سبتمبر 9, 2012 السلام عليكم الكود هو للأستاذ طارق محمود ( دام موفقا") ان شاء الله وهذه محاولتي ولكن توجد أخطاء في الترحيل والأستدعاء لاأعرف اين الخلل للرفع والمساعده لطفا" نظام حسابات شركة الأحسان.rar
طارق محمود قام بنشر سبتمبر 11, 2012 قام بنشر سبتمبر 11, 2012 السلام عليكم أخي العزيز من المعروف أن الأكواد الصغيرة هذه يتم تفصيلها لتناسب المشكلة أو الموضوع الوقتي الحالي وعند التغيير لابد من الإلمام بكافة جوانبها ، مهما كانت دقيقة أو صغيرة مع أنني من عملت هذا الكود إلا أن التعديل عليه أصعب من إنشاء واحد جديد يناسب الحالة هذه علي سبيل المثال ، شكل الفاتورة عندك ثابت وعدد الصفوف غير متغير فيكون الأسهل نسخ المجالات B9:E17 ، B19:E28 ، B33:E43 ، B45:E48 جميعا إلي ورقة data أي حجز عدد 34 صف لكل فاتورة ، فإذا كنت تحفظ في تلك الورقة مثلا 1000 فاتورة فتصل للصف 34000 يعني أول 9 صفوف من كل فاتورة محفوظة تكون خاصة بالـ Sonar Device ثم 10صفوف ثم 11 ثم آخر 4 خاصة بــ Driver Weel فهمت أنك تحاول أن تحلها بنفسك لذلك سأترك لك فرصة بناءا علي ماسبق لتحاول وإلا سأحلها غدا إن شاء الله
رعد داود قام بنشر سبتمبر 11, 2012 الكاتب قام بنشر سبتمبر 11, 2012 أشكرك جزيلا" استاذ طارق , بصراحه كودك عجبني والذي عجبني فيه الآستدعاء الذي أريده سأحاول تغيير الكود وسوف نرى ويتم اخبارك شكرأ لكم مره أخرى ودمتم موفقين
رعد داود قام بنشر سبتمبر 11, 2012 الكاتب قام بنشر سبتمبر 11, 2012 الاستاذ طارق المحترم بعد التحية والاحترام أرفق لكم الملف بصورة كود نسخ بيانات من ورقةInvoice الى ورقة داتا طبعا" بدأت به بتطبيق بعض الدروس وانا بصدد اتمام الكود بكيفية ترحيل المجالات الأخرى باللون الأخضر وياحبذا تشرحون لنا كيفية اتمام الكود وكيف نعمل كود استدعاء الفاتورة ودمتم سالمين موفقين نظام حسابات شركة الأحسان.rar
طارق محمود قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السلام عليكم تفضل أخي الملف وستجد بالكود بعض الشرح نظام حسابات شركة الأحسان2.rar
رعد داود قام بنشر سبتمبر 12, 2012 الكاتب قام بنشر سبتمبر 12, 2012 الأستاذ طارق المحترم أشكركم على تعاونكم معنا هذا أولا" ثانيا" ممكن شرح طريقة الترحيل بالنسخ وهل هناك طرق أفضل ؟؟ ولماذا تم نسخ الفاتوره بالتنسيقات ؟؟؟ هل هذا من أجل الأستدعاء؟؟ جاري التجربه على البرنامج وسوف أحاول أضافة زر أضافة فاتوره جديده يمسح المعلومات ويبتدأ بفاتوره جديدة والكود الذي بدأت فيه مالخطأ فيه لرجو تعاونكم معنا فأنا هاوي برمجه واريد التعلم فقط لا لبيع برامج ولاغير وأنت استاذ من الفضلاء والذين لايبخلون بالمعلومه على طلابهم شكرا" جزيلا" مره أخرى أخي وحفظك الله وأهل مصر من كل سوء
طارق محمود قام بنشر سبتمبر 12, 2012 قام بنشر سبتمبر 12, 2012 السلام عليكم أخي الكريم ممكن شرح طريقة الترحيل بالنسخ وهل هناك طرق أفضل ؟؟ ولماذا تم نسخ الفاتوره بالتنسيقات ؟؟؟ هل هذا من أجل الأستدعاء؟؟ شرح أمر النسخ هذا بسيط وهو كهذه الصيغة Range1.Copy (Range2) حيث يتم ببساطة نسخ المجال الأول Range1 إلي المجال الثاني Range2 وفي حالتنا [B9:F48].Copy (.Cells(NR, 5)) يتم ببساطة نسخ المجال B9:F48 إلي المجال الذي يبدأ بالخلية التي بالعمود 5 أي E والصف NR بالورقة Data وحيث أننا لم نحدد تنسيقات خاصة فيتم نسخ المجال بالتنسيقات وقد تعمدت هذا لأنك طلبت نسخ المجال باللون الأخضر لو رجعت لردي بالأمس بالمشاركة رقم 5 حيث قلت لك شكل الفاتورة عندك ثابت وعدد الصفوف غير متغير فيكون الأسهل نسخ المجالات B9:E17 ، B19:E28 ، B33:E43 ، B45:E48 جميعا وهذه المجالات بالتحديد لو نسختها كقيم فقط Paste Values وتحتفظ بالمعادلات في ورقة الفاتورة فسوف يؤدي المطلوب ويقلل من حجم الملف والكود الذي بدأت فيه مالخطأ فيه ليس به خطأ أنا استخدمته كما هو وأضفت عليه ستجد معظم الكود من السطر المرقم بـ 20 هو نفس كودك وقد أضفت مع الشرح مايمكن أن يجعل الكود أشمل ، مثل التأكد من عدم وجود الفاتورة قبل الترحيل
رعد داود قام بنشر سبتمبر 12, 2012 الكاتب قام بنشر سبتمبر 12, 2012 اشكرك أخي واستاذي على سعة صدرك وان شاء الله سنجري التعديلات اللازمه ونبلغك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.