نقص في تصميم اليوزرفروم UserForm1

[محمد ثامر الجبوري]

انا صممت برنامج بالإكسيل وعندي بعض النواقص بالاكواد. إذا ممكن المساعدة. علما ان نصف البرنامج صممته من خلال المنتدى

1- ممكن كود يفتح UserForm من نفس UserForm. يعني إذا انا صممت قائمه حساب. وارغب بفتح قائمه حساب جديدة وعدم اغلاق السابقة

2- ممكن كود طباعة فقط ListBox اي محتويات ListBox فقط من خلال UserForm او طباعة TextBox معين انا اقوم باختياره

3- ممكن كود اضافه TextBox جديد في نفس UserForm بشكل أوتوماتكي في حال ملائة TextBox الاول بالبيانات يقوم اضافة TextBox ثاني بشكل أوتوماتكي

4- ممكن كود ترقيم تلقائي UserForm في حال قمت بالبيع مثلا يعطيني رقم جديد للقائمه او يظهر لي باركود بدل الترقيم التلقائي

 

شاكرين تعاونكم معنا

محمد ثامر

[ياسر خليل أبو البراء]

أخي الكريم محمد

أهلاً بك في المنتدى ونورت بين إخوانك

 

يرجى الإطلاع على التوجيهات في الموضوعات المثبتة في صدر المنتدى ..

إذا أردت أن تطاع فأمر بما يستطاع ..ولن أزيد

تقبل تحياتي

[محمد ثامر الجبوري]

اشكرك جدا

ياسر خليل أبو البراء

[محمد ثامر الجبوري]

ممكن كود طباعة فقط ListBox اي محتويات ListBox فقط من خلال UserForm او طباعة TextBox معين انا اقوم باختياره  كما موضحا في الصوره

[أبو حنــــين]

استعمل هذا الكود

Range("A2").Resize(ListBox1.ListCount, 4).Value = ListBox1.List

 

[محمد ثامر الجبوري]

اشكرك جدا اخي  أبو محمد الأمين 

  في 26‏/4‏/2016 at 15:52, أبو محمد الأمين said:

Range("A2").Resize(ListBox1.ListCount, 4).Value = ListBox1.List

 

Expand  

لكن هذا الكود ليس به امر طباعة  

هذا الكود به نقص 

ممكن تقوم بالتعديل عله او تكملته

مع تحياتي لك

[ياسر خليل أبو البراء]

مجرد سؤال : لما لا تتم عملية الطباعة من الشيت نفسه ؟ لما البحث عن الطباعة من على الفورم إذ أنني أرى أن هذا الطلب يتكرر كثيراً وليس لدي خبرة بالأمر

هل هناك ميزة في الطباعة من على الفورم؟!!

[محمد ثامر الجبوري]

اشكرك جدا اخي   ياسر خليل أبو البرا على سؤالك

في الحقيقه  الفرق بين الفورم والشيت هو :

في الفورم استطيع طباعة الجزء المكتوب فقط 

اما في الشيت لا استطيع طباعة الجزء المكتوب فقط بشكل واوتماتكلي بل سيقوم بطباعة الورقه كامله

علما  انا استطيع طباعة الفروم كله .... وانا لا اريد طباعة الفرم كله ..... احتاج لطباعه الليستبوكس فقط 

 

Private Sub CommandButton1_Click()

UserForm3.PrintForm

End Sub

نحن نطمح لعمل برنامج مبيعات ومشتريات ومخازن في نفس الوقت والطباعة من خلال الفروم لغرض الزبون ( المشتري ) اما بخصوص الشيت هو مصمم لغرض الحسابات اي حركه المبيعات والادخال

تم تعديل أبريل 28, 2016 بواسطه محمد ثامر الجبوري

[ياسر خليل أبو البراء]

أخي الكريم يوجد خاصية طباعة الجزء المحدد من الشيت .. قم بتحديد الجزء المراد طباعته ثم اضغط على Ctrl + p لإظهار نافذة الطباعة واختر الأمر Print Selection

أي أن الأمر فيه مرونة ...

 

[أبو حنــــين]

السلام عليكم

أخي لابد من وجود صفحة خاصة بالطباعة

أنشأ صفحة و سمها بأي إسم  مثلا  AAAAA

ثم أكتب عناوين الأعمدة في المكان الذي تريده مثلا

في الخلية A4 تكتب المادة

في الخلية B4 تكتب الكمية

في الخلية C4 تكتب سعر الوحدة

في الخلية D4 تكتب الإجمالي

ثم في الفورم تنشأ زر و تكتب الكود التالي

Sheetts("AAAAA").Range("A5").Resize(ListBox1.ListCount, 4).Value = ListBox1.List

Sheetts("AAAAA")..PrintOut

 

[ياسر خليل أبو البراء]

بسم الله ما شاء الله عليك أبو حنين ..رائع ومدهش وكل أفكارك متميزة

بناءً على الفكرة الرائعة للأخ الحبيب أبو حنين يمكن أتمتة العملية بأكملها بإنشاء ورقة عمل ووضع القيم المطلوبة ووضع قيم الليست بوكس ثم الطباعة وأخيراً حذف ورقة العمل

إليك الكود الغير مجرب ولكنه يحمل الفكرة كاملة إن شاء الله

Sub Test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        Sheets.Add
        With ActiveSheet
            .Range("A4").Resize(1, 4).Value = Array("المادة", "الكمية", "سعر الوحدة", "الإجمالي")
            .Range("A5").Resize(ListBox1.ListCount, 4).Value = ListBox1.List
            .PrintOut
            .Delete
        End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[محمد ثامر الجبوري]

احسنتم اخواني الاعزاء أبو محمد الأمين .   ياسر خليل أبو البرا  هذا ابداع في كتابت الاكواد 

وشكري وتقديري لكم 

ممكن كود يفتح UserForm من نفس UserForm. يعني إذا انا صممت قائمه حساب. وارغب بفتح قائمه حساب جديدة وعدم اغلاق السابقة

كما موضحا في الصوره