السلام عليكم ورحمة الله وبركاته وجزاكم الله كل خير كان سؤالى هل بعد تصميم هذا البرنامج هل يمكن ان يعمل على الموبيل عادى بحيث ان اللى هيستخدم البرنامج يقدر يفتحه على الموبيل ويستخدمه فى اى مكان ولا على الكمبيوتر فقط
رائع جدا جزاك الله خيرا استاذ وجيه من فضلك حضرتك عايز البرنامج يضيف قيمة الفائده بعد المقدم يعني المبلغ5000دفع منهم 1000الباقي4000 يضيف نسبة الفائدة 25%او30% يوزعها تلقائيا ع الشهور اختيار السنة..يعني
السلام عليكم ورحمة الله وبركاته ربنا يكرمك عندي سوال ينفع احط المحزن مع بيانات العملاء في برنامج واحد بحيث تكون الشغل كله في حاله البيع مسمع مع بعضه او بطريق أسهل ربط المخزن مع المبيعات مع بينات العملاء سهوله المتابعه
السلام عليكم من رفظلك اخي عندي مشكل في for i عندما كتبت الكود يطلع لي خطا For i Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then TextBox1.Text = ListBox1.List(i, 0)
حدث عندي خطا في كود تسجيل بيانات العميل مع اني عملت كل الخطوات والاكواد بدون اي خطأ لكن اتجاه الورقة لدي من اليمين وليس من اليسار فلا اعرف هل هو السبب ام هناك شي ارجو الاجابة
@@wagihalaskary انا متاكد من الاسم علشان انا كاتبه بس انا بستخدم افيس 2010 دا ممكن يكون فيه المشكلة وكنت بستخدمة عربي بس دلوقتي سطبت النسخة الانجليزي قولت يمكن هنا المشكلة
@@wagihalaskary روح على تبويب الملف بعدين اوبشن بعدين اللغة و خلي اللغة الانجليزية المفضلة و اعمل ملف جديد و تأكد أن اسم الشيت ب الانجليزي مش عربي عشان ما يك ن في مشاكل في التوافق
السلام عليكم من رفظلك اخي عندي مشكل في for i عندما كتبت الكود يطلع لي خطا For i Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then TextBox1.Text = ListBox1.List(i, 0)
زاد الله علما ، وفتح عليكم أبواب الخير على هذا العرض المتميز
ربنا يباركلك
الشرح جميل وواضح
انا اول مره أشاهد القناه عندك ويشرفني الصراحه
شكرا لمرورك الكريم يا استاذى الفاضل
تحياتي استاذ ي الكريم دروس قيمة جزاكم الله خيراً
الصراحه اتعلمت ربنا يبارك فيك
السلام عليكم ورحمة الله وبركاته وجزاكم الله كل خير كان سؤالى هل بعد تصميم هذا البرنامج هل يمكن ان يعمل على الموبيل عادى بحيث ان اللى هيستخدم البرنامج يقدر يفتحه على الموبيل ويستخدمه فى اى مكان ولا على الكمبيوتر فقط
كمبيوتر فقط
@@wagihalaskary شكرا جداااا وجزاكم كل خير
جزاك الله خيراً... تحية لك من ارض العراق 🇮🇶 شرح وافي ورائع وواضح ياريت الاجزاء الباقية باسرع وقت وشكرا جزيلا لك
اخويه اشتغلت البرنامج؟
بارك الله هذه الجهود .. بصراحه ابداع وتواضع حفظك الله من كل سوء ..
متابعك من العراق 🇮🇶
رائع جدا جزاك الله خيرا استاذ وجيه
من فضلك حضرتك عايز البرنامج يضيف قيمة الفائده بعد المقدم يعني المبلغ5000دفع منهم 1000الباقي4000 يضيف نسبة الفائدة 25%او30% يوزعها تلقائيا ع الشهور
اختيار السنة..يعني
ايوا كدا يا استاذنا بارك الله فيك ياريت لا تتاخرنا علينا بباقي الأجزاء
كنت من زمان ابحث على عرض مثل هذا بارك الله فيك
السلام عليكم ورحمة الله وبركاته ربنا يكرمك عندي سوال ينفع احط المحزن مع بيانات العملاء في برنامج واحد بحيث تكون الشغل كله في حاله البيع مسمع مع بعضه
او بطريق أسهل ربط المخزن مع المبيعات مع بينات العملاء سهوله المتابعه
اه ينفع
السلام عليكم أستاذ
طيب اذا العميل عنده اكثر من دفعات مسدده. يصير اعمل حقل واحد او عدة حقول علي عدد الدفعات
بارك الله فيك يا أستاذ لعمل الخير
جزاك الله خيرا كثيرا
انا خبرتي متوسطة
.. استطيع تصميمه لو يحتاج خبره عاليه؟
شكرا...ياريت رابط اتجزء التاني
موجود داخل القناة
مش ممكن نحط بإيدينا ف الإكسيل تقريبا هيا هيا ولا ف فكره ف حاجه ؟
السلام عليكم
من رفظلك اخي عندي مشكل في for i عندما كتبت الكود يطلع لي خطا For i
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Text = ListBox1.List(i, 0)
اقفل الكود ب next i
@@wagihalaskary بالفعل اقفلت الكود بnext i لكن يأتي الخطا
@@kadakhabaza6655 اعمل مسافة بين ال for ,fdk i
صحيح أن خريج كلية زراعة ولكني شغال علي برامج محاسبه من ٩٢ ولكني حاولت ا عمل برن لا مج ولكني فشلت أول مرة افهم
شكرا لك وياريت باقي الأجزاء
لو سمحت هو حضرتك نزلت الجزء الثاني
جزاك الله خيرا انا من سوريا واعمل في العراق شكرا جزيلا استاذي الكريم ممكن نسخة اكون ممنون اخي العزيز
الله اكبر عليك 😍
السلام عليكم
استاذ وجيه
كود التكرار للجمع يطلع بالون الصفر ايش الحل
ياريت ربنا يخليك
توضع شرح تصميم البرنامج
وملف العمل
لو سمحت
كيف اتواصل معك استاذ عاوز تعملي برنامج خاص ع الطلب
يمكنك التواصل معى عبر تطبيق ماسنجر
صفحتي على الفيس بوك اسمها
Wagih Alaskary
علشان تجيب عدد مشاهدات
تشرح لنا التصميم
حدث عندي خطا في كود تسجيل بيانات العميل مع اني عملت كل الخطوات والاكواد بدون اي خطأ لكن اتجاه الورقة لدي من اليمين وليس من اليسار فلا اعرف هل هو السبب ام هناك شي ارجو الاجابة
نفسك
عمل رائع جدا اخى العزيز
الرجاء اضافة رابط التحميل
مرحبا بدون زحمة لما ازخت من بتن يكول ئيرؤر 438 كيف اكدر احل هذا مشكيلة
معرفتش اعمله ومحتاجه جدا ممكن
الاصدار ده كام عشان مش عندي مش عارف اضيف زرار تشغيل البرنامج
لو ممكن حضرتك رابط تحميل الشيت .. وجزاك الله كل خير
بارك الله فيك... لكن ازاي نقدر نتابع الفيديو التالي المكمل لنفس الموضوع
لا يعمل وعند الضغط على ادخال البيانات تضهر رسالة خطا
معالي الباشا حفظ الشغل اللي عملته من غير ما اعمل متفتح تشغلي البرنامج وفتحت الشيت مالقتش حاجه من اللي انا عملته
Merci
Lrw= sheet1.cells(Rows.count,1).End(xlup).Row بتظهر معى خطأ ما السبب وجزاكم الله خيرا
اسم الشيت عندك ايه؟
هل اسمه sheet1
ولا اسمه ورقة ١
ولا انت مغير اسم الشيت ومسميه حاجة تانى
@@wagihalaskary ورقة
@@wagihalaskary ورقة 1. ورقة 2 . ورقة 3 شكرا لحسن تعاونكم
يبقى امسح sheet1 وحط مكانها ورقة١
@@wagihalaskary غيرت اسم الشيت Sheet1
ممكن التواصل معك لامر جدا مهم
lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row بيدي اورر
اخي اريد تواصل معك
طيب لو العميل علية كذا قسط
انا مش عايز احذف معاملات العميل السابقه علشان تبقي مرجع ليه اعمل ايه
thanks
Developer اسمها ايه في الاكسل عربي
المطور
بعد ما عملت الفيديو وحفظت شيت الاكسيل فتحت الشيت تأتي ملقتش اللي اتا عملته
حضرتك لازم تعمل زرار وتحط فيه كود يحفظ لك كل البيانات اللى انت دخلتها
السلام عليكم اولا انا بشكر حضرتك علي مجهود حضرتك وربنا يجعله في ميزان حسانتك
ثانيا انا نفذت الكون بس طلعلي خطأ بالرغم اني حاتبه صح عايز بس اعرف فين المشكلة
lrw = sheet1.Cells(Rows.Count, 1).End(xlUp).Row
جيبلي debug علي السطر دا
اكيد الشيت عندك ليه اسم تانى غير sheet1
@@wagihalaskary انا متاكد من الاسم علشان انا كاتبه بس انا بستخدم افيس 2010 دا ممكن يكون فيه المشكلة وكنت بستخدمة عربي بس دلوقتي سطبت النسخة الانجليزي قولت يمكن هنا المشكلة
نسخة الأوفيس ملهاش دعوة
لو ممكن تكلمنى على ماسنجر عشان اشوف ايه المشكلة بس محتاج سكرين شوت من الكود واسم الشيت
صفحتى على الفيسبوك
Wagih Alaskary
@@wagihalaskary روح على تبويب الملف بعدين اوبشن بعدين اللغة و خلي اللغة الانجليزية المفضلة و اعمل ملف جديد و تأكد أن اسم الشيت ب الانجليزي مش عربي عشان ما يك ن في مشاكل في التوافق
@@wagihalaskary نفس المشكلة الاوفيس عربى ده نحل المشكلة دى ازاى
أكسيل2019 مش عارف اوصل لإعدادات الخط
رابط التحميل
حضرتك انا مش ظاهر عندي الاجزاءكلها
محتاج الشيت لو امكن 🙏
السام عليكم ممكن نسخة من البرنامج مع الكود
ازاي احفظ كل ده رد عليا
مش فاهم انت عايز ايه
@@wagihalaskary طت ممكن تبعتوا
الورد ده كام
ده اكسل وليس ورد
@@wagihalaskary الاوفيس كام تاربخ الإصدار
لو سمحت هي نسخه الاوفيس دي اصدار قديم
صح
٢٠٠٧
ا وجيه انا واقع في مشكله بقالها ٣ ساعات
زرار ترحيل البيانات
مش راضي يشتغل
رغم اني عدت عليه اكتر من عش مرات
اللي هو comand button 2
اساعدك ازاى
ممكن ملف العمل المرتبط بالجزء الاول بس
وانا برضه هحاول فيها تاني
حضرتك ممكن نبعت الملف انا اصلحلك الاخطاء اللى فيه
لمن اكتب كود البوتون مال تشغيل كلش ما يصير مع انو كاتب الكود ١٠٠ بالمية ثح
ياريت تبعتلي البرنامج من فضلك
ممكن الملف لو سمحت
ياريت الملف
كلمة ديفروبر مش عندي في الجهاز
ادخل فى الضبط بتاع الاكسل وضيفه او اظهره
لايوجد عندي المطور ولا لغة فيجول بيسك في الاكسل
ممكن نسخة
ياريت لو وصلتله قولي
لو سمحت عايز رقمك whatsapp
يمكنك التواصل معى عبر تطبيق ماسنجر
صفحتي على الفيس بوك اسمها
Wagih alaskary
السلام عليكم
من رفظلك اخي عندي مشكل في for i عندما كتبت الكود يطلع لي خطا For i
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Text = ListBox1.List(i, 0)