هاني مصطفي قام بنشر مارس 29, 2013 قام بنشر مارس 29, 2013 الاساتذة الكرام تقبلوا تحياتي اولا الملف المرفق به فاتورة للشركة لدي اريد ان ان اصمم برنامج لها والبداية مع هذه الفاتورة وستكون بداية قويه لي في عملي الجديد وبكم ستكتمل فرحتي بهذه الوظيفة 1- اريد وضع اكواد ترحيل للفاتورة المرفقة ولكن الفاتورة بها بيانات في الاعلي اريد اضافاتها امام كل صنف في اللفاتورة عند الترحيل وعدد الاصناف بالفاتورة 5 اصناف ان وجد الخمس اصناف يتم وضع البيانات امام الخمس اصناف وان وجد 3 اصناف يتم وضع البيانات امام الثلاث اصناف فقط وان وجد 2 صنف فقط يتم ترحيل البيانات امام 2 صنف فقط ..... وهكذا 2- هنالك كومبوبكس في الاعلي للاستعلام بعد التسجيل ... اريد وضع كود له ليقوم بعملية الاستعلام ويظهر لي بيانات الفاتورة المختارة ولكن لي طلب كبير جدا عندي ... ولكنه بسيط وسهل لديكم ارجو عند وضع الكود ... وضع كود سهل لسهوله فهمه وياريت ( اتمني ) شرح مبسط لهذه الاكواد ليمكنني التغيير او التعديل فيها حسب الحاجة حيث لدي عدد كبير من النماذج ساقوم بعملها وتقريبا نفس الطريقة مع اختلاف وجود كومبوبكسات وتكستات اخري فاريد ان اعدل في الكود بعد فهمه من حضراتكم شكرا مقدما لكم فاااااااتورة.rar
هاني مصطفي قام بنشر مارس 30, 2013 الكاتب قام بنشر مارس 30, 2013 للرفع للاهمية القصوي .... من فضكم فضلا ليس امرا
شوقي ربيع قام بنشر مارس 30, 2013 قام بنشر مارس 30, 2013 لسلام عليكم ارجو ان يكون هذا هو المطلوب وان يوفق الله في عملك الجديد فاااااااتورة.rar
هاني مصطفي قام بنشر مارس 31, 2013 الكاتب قام بنشر مارس 31, 2013 السلام عليكم الاستاذ الكبير / شوقي ربيع جزاك الله خيرا وطبعا اعلم ان موضوعي بالنسبة لك لا شئ بالنظر الي موضوعاتك الراائعة في المنتدي ... ولكن واضح انني لم اقم بتوصيل المعلومة كما اريد وهناك موضوع للأخ / محمد توبه تقريبا به نفس الطلب فمع كودك استاذي ... توصلت لعمل كود من اعمال وشرح الاستاذ / حمادة عمر لعمل ترحيل الصفوف الموجودة بالفاتورة ولكن ما اريده الآن هو نفس طلب الاخ محمد توبه في موضوعه علي الرابط في المشاركة رقم 7 # http://www.officena.net/ib/index.php?showtopic=46141 ** وذلك بحل المشكله ( المطلوبة والاهم ) وهى ترحيل البيانات المتفرقه اعلي الفاتورة مثل (رقم الفاتورة - التاريخ - اسم المورد - الحركة .... الخ ) ايا كان عددها ولكن اريدها ان ترحل ذلك بعدد الصفوف المستخدمه فى الفاتورة ( مع ملاحظة وجود تكستات بوكس وكومبوبكسات بها ) هل من الممكن ذلك واكون شاكر جدا لو يكون ذلك مع مزيد او قليل من الشرح .. لفهم آليه عمل ذلك ** وضع كود للاستعلام عن رقم الفاتورة بعد تسجيلها في نفس النموذج لتظهر البيانات بنفس الشكل في الفاتورة الذي تم تسجيله بها في انتظار ردودكم اساتذتنا جزاكم الله خيرا
شوقي ربيع قام بنشر مارس 31, 2013 قام بنشر مارس 31, 2013 السلام عليكم اخي هاني مصطفى أولا لا يوجد شيء يدعى لا شيء بالنسبة لي ولا يوجد شيء يسمى صعب في هاته الدنيا ان أصريت وإجتهدت في عمله فستعمله ان شاء الله وما انا الا طالب علم مثلك ولا تقلل من قدراتك أأكد لك أنه بالمثابرة تستطيع ان تفعل افضل مما تضن أما بالنسبة لطلبك ارجو ان ترفق الملف الذي قمت بعمله من الشروحات الجميلة لأستاذي حماة عمر لأنه تتعد الطرق في الوصول الى المطلوب وضع في داخله المطلوب بالتدقيق وان شاء الله سنتوصل الى نتيجة طيبة 1
هاني مصطفي قام بنشر مارس 31, 2013 الكاتب قام بنشر مارس 31, 2013 كل شكري واحترامي لك استاذي / شوقي ربيع علي تشجيعك لي وان شاء ساصل بكم انتم اساتذتي الي ما اريد ... ونصبح بكم خبراء المطلوب تماما مع الايضاح في المرفق التالي المرفقات فاااااااتورة1.rar
سما محمد قام بنشر مارس 31, 2013 قام بنشر مارس 31, 2013 في انتظار حل هذا الطلب فهو طلب ملح للجميع في انتظار الحل من عباقرة هذا المنتدي بالردود الذي تعودنا عليها منهم
شوقي ربيع قام بنشر مارس 31, 2013 قام بنشر مارس 31, 2013 (معدل) السلام عليكم ارجو ان يكون هذا هو المطلوب كما ارجو ان انتظارك لم يطل كثيرا تفضل اخي فاااااااتورة1.rar تم تعديل أبريل 2, 2013 بواسطه دغيدى
حمادة عمر قام بنشر أبريل 2, 2013 قام بنشر أبريل 2, 2013 السلام عليكم اخي العزيز / شوقي ربيع بارك الله فيك وجعلك دائما في عون الجميع جزاك الله خيرا
هاني مصطفي قام بنشر أبريل 2, 2013 الكاتب قام بنشر أبريل 2, 2013 السلام عليكم الاستاذ الفاضل / شوقي ربيع الف مليون شكر علي مجهودك الراائع ولكن لي طلبين الاول انه عند الاستعلام يتم احضار بيانات في كل صفوف اصناف الفاتورة حتي لو كانت الفاتورة المحددة بها عدد 2 او 3 اصناف فقط يحضر لي 5 اصناف .... الثاني : هو انني احتاج للاستعلام من الفورم مباشرة دون استخدام الجزء الموجود بجانب الجدول المرفق والموجحود به معادلات حيث انها ايضا لا تعمل علي اوفيس 2003 لدي في العمل وشاكر جدا لمجهودك الجميل وفي انتظار حلك لهذه المشاكل وحلول العباقرة مثلك جزاك الله خيرا
شوقي ربيع قام بنشر أبريل 2, 2013 قام بنشر أبريل 2, 2013 السلام عليكم اولا اعتذر على تأخري في الرد على طلبك أخي العزيز وذلك بسبب انقطاع النت عندي اما بالنسبة لطلبك أعتقد انه هذا هو المطلوب بالضبط تفضل اخي فاااااااتورة1.rar
عبدالله باقشير قام بنشر أبريل 2, 2013 قام بنشر أبريل 2, 2013 السلام عليكم الشكر واصل لاخي شوقي ربيع حفظه الله ائراءا للموضوع شاهد المرفق 2003 فاااااااتورة خبورية.rar 1
هاني مصطفي قام بنشر أبريل 2, 2013 الكاتب قام بنشر أبريل 2, 2013 (معدل) السلام عليكم الف مليون شكر للاستذة الكبار فالطريقتين صحيحتين ويؤديان الغرض ولكني بالنسبة لفاتورة الاستاذ القدير / عبد الله باقشير احب استاذنا ان اسأل عن معاني بعض السطور في الاكواد وكلي طمع في شرح مبسط لمعناهم فمثلا في كود Private Sub ComboBox2_Click ما معني الاسطر التالية Mh = WorksheetFunction.Match(ii, .Range("A9:A" & LR), 0) + 8 وما معني +8 في السطر وهل تغييرها يضر بالكود iCont = WorksheetFunction.CountIf(.Range("A9:A" & LR), ii) وهذين السطرين Adr = Cells(r, c).Address(0, 0) Me.Controls(Adr).Value = Sheet1.Range("G" & Mh).Cells(r, c).Value ولي ايضا بعض الطلبات في شرح اسطر اخري .... ولكن سيتم ذلك بعد اذن حضرتك جزاك الله خيرا تم تعديل أبريل 2, 2013 بواسطه هاني مصطفي
هاني مصطفي قام بنشر أبريل 2, 2013 الكاتب قام بنشر أبريل 2, 2013 الشكر كل الشكر وعظيم امتناني وتقديري لمنقذي الاول وصاحب الابداعات الكثيرة استاذي / شوقي ربيع ملفك اكثر من راائع ويؤدي الغرض بالفعل وارجو منك ايضا ان تقوم مع استاذنا الكبير بشرح الاسطر التي اقو م بطلبها في مشاركاتي
عبدالله باقشير قام بنشر أبريل 2, 2013 قام بنشر أبريل 2, 2013 السلام عليكم Mh = WorksheetFunction.Match(ii, .Range("A9:A" & LR), 0) + 8 هذه دالة ماتش تعطيك موقع صف رقم الفاتورة في النطاق A9:A ونضيف فوقها عدد الصفوف اعلى النطاق وهي ثمانية صفوف iCont = WorksheetFunction.CountIf(.Range("A9:A" & LR), ii) وهذه دالة كونت ايف تعطينا عدد سطور الفاتورة Adr = Cells(r, c).Address(0, 0) لو تلاحظ اسماء مربعات النص تجدها باسماء الخلايا علشان نستخدمه بسهولة في الحلقة الدوارة Me.Controls(Adr).Value = Sheet1.Range("G" & Mh).Cells(r, c).Value وهذه تستخدم مع الحلقة الدوارة لوضع النتائج في مربعات النص بدلالة اسمه في امان الله
هاني مصطفي قام بنشر أبريل 3, 2013 الكاتب قام بنشر أبريل 3, 2013 السلام عليكم استاذ الجميع / عبد الله باقشير الف مليووون شكر علي شرحك الجميل وكني اطمع اكثر في كرمك واحب ان اٍسأل عن اجزاء اخري اولا : ما معني As Double ثانيا : ما معني هذا الجزء For r = 1 To 5 Adr = Cells(r, 1).Address(0, 0) If Len(Trim(Me.Controls(Adr))) Then Sheet1.Range("A" & LR).Cells(r, 1).Resize(1, 6).Value = Ary وبالاخص If Len(Trim(Me.Controls(Adr))) Then ================ وفي الجزء او السطر If MN Then اريد ان اعرف اين الشرط لقاعدة if والذي سيتم تنفيذ المطلوب بعده اذا تحقق حيث ان MN لا تعني شرط علي حسب فهمي آسف لكثرة طلباتي ... ولكني احب ان اتعلم كثيرا منكم جزاك الله خيرا
طارق محمود قام بنشر أبريل 4, 2013 قام بنشر أبريل 4, 2013 السلام عليكم بعد إذن استاذنا الجليل أخي العزيز سؤالك الأول معني : Dim ii As Double تحدد المتغير ii بألا يقبل غير الأرقام ويقبل الكسور العشرية وطوله يصل إلي 64 Bit ملحوظة إذا عرفت المتغير علي أنه Short فهذا يعني أنه رقمي بطول 16 Bit أما Integer فهذا يعني أنه رقمي بطول 32 Bit و Long فهذا يعني أنه رقمي بطول 64 Bit و Single فهذا يعني أنه رقمي بطول 32 Bit مع فاصلة (كسرعشري) و Double فهذا يعني أنه رقمي بطول 64 Bit مع فاصلة (كسرعشري) و Decimal فهذا يعني أنه رقمي بطول 128 Bit سؤالك الثاني والثالث (إجابتهما متقاربة) : اين الشرط لقاعدة if If MN Then إذا لم يذكر الشرط صراحة فيعني أن المتغير (بعد If) يحتمل إما أن يكون True أو يكون False وحيث أن True تعني =1 أو رقم غير الصفر وأن False تعني الصفر فإنها هنا تعني إذا كان MN يحتوي علي قيمة أي أن بالشيت بالمجال A9:Axx الرقم الأصغر لايساوي صفر بفرض أن Axx تعني آخر خلية بها بيانات بالعمود A
الصاوي حسن قام بنشر مايو 2, 2013 قام بنشر مايو 2, 2013 فيه موضوع جميل جدا للأخ / حمادة عمر فيه شرح وافي لعمل فاتورة http://www.officena....showtopic=46420 بالتوفيق ان شاء الله
ضاحي الغريب قام بنشر مايو 3, 2013 قام بنشر مايو 3, 2013 أخواني واستاذتي الأفاضل الاستاذ / عبدالله باقشير ((ابوعلي )) المهندس / طارق محمود بارك الله فيكم وجعله في ميزان حسناتكم وفعلا كل يوم بنتعلم الجديد من شماركتكم وابدعاتكم والشكر موصول لملك الحركات اخي الاستاذ / شوقي ربيع بارك الله فيه تقبلو اتحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.