اذهب الي المحتوي
أوفيسنا

أبو عبد الملك السوفي

04 عضو فضي
  • Posts

    600
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو أبو عبد الملك السوفي

  1. جزاك الله خيرا نعم ربما المطلوب فيه لبس ولم يوضح جيدا فقد ضربت مثلا فيه موردين فقط ...لكن المطلوب ان يكون الموردين من 1 الى ربما قد يصل حتى 100 مورد
  2. استسمحك اخي الفاضل ..لكنه ليس صعب على جهابذة الموقع ...العمل انجزته بالمعادلات لكنه ليس عملي ولا يستجيب لزيادة عدد الموردين ...يتسع ل20 مورد وانا اريد كود يقوم بالتقرير لمئات من الموردين
  3. محق لكن خفت ان اطرح الموضوع جملة واحدة فيكثر على الاساتذه .استاذ اقصد السطر في الليست بوكس لما اضغط عليه مرتين ينتقل للتكست بوكس ويمسح من الليست بوكس ....اسف استاذ اضن ان هذا التعديل الاخير في هذا الفوروم وشكرا على رحابت صدرك وطول نفسك معي
  4. لكن استاذي التعديل في الفوروم اسهل من الذهاب للشيت عند كل خطئ....خاصة اذاكانت هناك معلومات كثيره مما يزيد من نسبة الاخطاء .... وكما تعلم هاته اور تجاريه لا مجال للخطأ فيها
  5. جزاك الله خيرا الاستاذ سليم ..جزئيه اخيره ليكون العمل متقن ونموذجي عند ملا الليست بوكس قد اتنبه ان هناك سعر او وزن او اي معلومه خاطئ اريد عند الضغط على السطر الخاطئ مرتتين يرجع الى التكست بوكس لتعديله ويحذف السطر من الليست بوكس
  6. السلام عليكم في الملف ادناه شيت به جدول يحتوي على زبائن اريد كود لتصفية الزبائن حسب الزبون والتاريخ مثلا اريد ان يكون التقرير في الفتره من 15/08/2020 الى 20/08/2020 للزبون محمد1 ومحمد3 فقط فالكود يقوم بانشاء تقرير كما في شيت تقرير ..فيقوم الكود باستدعاء المشتريات من الزبون الواقعة بين التاريخين المحددين Example.xlsm
  7. السلام عليكم استاذ سليم هل يمكن ان تجعل الترحيل الى الشيت بعد ان انتهي من ملأ الليست بوكس ..اي لا يكون مباشرة من التكست بوكس
  8. السلام عليكم ... لوسمحتم هل يوجد كود للترحيل من تكست بوكس الى ليست بوكس كما في المثال فعند الضغط على ترحيل تنتقل المعلومات الى ليست بوكس مثال.rar
  9. السلام عليكم اساتذتنا الكرام في الملف المرفق يوزرفورم 4 ه لست بوكس اود عند الضغط على احد ابوسيون بوتون ان يظهر في اللست بوكس حسب الشرط الموجود مثلا عند الضغط على تصفية حسب مدة الاستحقاق يقوم الكود بجلب الزبائن الذين يصادف تاريخ آخر سداد + قيمة تكست بوكس 9= تاريخ اليوم حيث يعرض الليست بوكس تاريخ آخر سداد / تاريخ آخر استدانة/ الزبون/ الدين المستحق المصنف1.rar
  10. السلام عليكم و هذا ملف به نموذج ادخال بعد ادخال عدة اسماء للست بوكس المطلوب عند تحديد اي سطر في اللست بوكس والضغط دوبل كليك عليه يحذف من الليست بوكس المصنف1.rar
  11. السلام عليكم أود فكرة للتحكم في رقم الكموند بوتون مثلا Private Sub CommandButton5_Click() Me.CommandButton5.BackColor = &HFF& End Sub المطلوب عند نسخ سطر تغيير اللون ولصقه في كود كموند آخر أن يتعرف على رقمه وحده دون أن أكتبه وحدي هكذا Private Sub CommandButton6_Click() Me.CommandButton6.BackColor = &HFF& End Sub Private Sub CommandButton7_Click() Me.CommandButton7.BackColor = &HFF& End Sub
  12. السلام عليكم جزاكم الله خيرا كيف أربط بين الميزان الالكتروني والاكسل حيث عند وضع وزن على الميزان تظهر في الاسكل ...مثل البرامج التي يستخدمها اصحاب محلات الخضر والفواكه
  13. استاذ محمد هذا الكود لا يكفي بالغرض لدي فوروم به تكس بوكس والادخال في التكس بوكس يكون عن طريق قارئ الكود بار اي اضع المؤشر في التكس بوكس و امررالكود بار على القارئ فينقل الارقام للتكس بوكس المطلوب هل هناك طريقة او كود لربط القارئ بالتكس بوكس مباشرة حتى ولو كان المؤشر ليس في التكس بوكس فان القارئ ينقل الارقام للتكس بوكس مباشرة
  14. لما العجلة صديقي فالاساتذة الكرام لم يدلوا بدولهم رايت العجب في هذا المنتدى وتعلمت منه الكثير جدا حتى اني والحمد لله اصبحت ابرمج وحدي بفضل الله ثم بفضل هذا المنتدى و انا لا ايأس من شي حتى يقول خبراء المنتدى الامر مستحيل
  15. السلام عليكم أساتذتنا الكرام كيف الحال هل هناك كود يمكنه برط جهاز قاري الكود بار مباشرة بتاكس بوكس في الفوروم عندي فروروم به TEXTBOX2 ودائما يجب ان اضع المؤشر في التكس بوكس لكي يشتغل البرنامج اريد كود يربط القارئ مباشرة بالتكس بوكس بدون ان اتدخل اضن ان الامر ليس مستحيل
  16. الحمد لله تم حل المشكل بتكوين كود لغلق الفوروم واعادة فتحه بعد تنفيذ عملية الترحيل ...شكرا لكم جميعا جزاكم الله خيرا
  17. للعلم استاذ يوجد هذا الكود في حدث التكس بوكس2 Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox2 = "" Then Exit Sub r = Application.WorksheetFunction.CountIf(Sheet1.range("a:a"), TextBox2) If r = 0 Then: TextBox2 = "": Exit Sub ComboBox1.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2) TextBox3.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 5) Call TextBox2_Change End Sub اي ان الكود يتم تنقيذه عند الخروج من التكس بوكس2
×
×
  • اضف...

Important Information