مساعدة في استكمال اكواد النموذج

[gamalin]

الاخوة الافاضل في الملف المرفق ..فورم لعرض التسهيلات والاستحقاقات ..وفي اسفل اربع خانات لتلخص النتئج المعروضه 

الخانة الاولى اجمالي التسهيلات المعروضه الخانة الثانية يفترض ان تعرض التسهيلات اللي تاريخ حقها اقل من او يساوي التاريخ في تكست بوكس 5 اعلى الفورم ولا اعلم ما الخطأ في الكود لا تعمل بشكل جيد 

و خانة رقم 4 تعرض المستحق خلال الشهر وتعمل جيد..وهل يمكن تغيير فورمات التاريخ المعروض في لليست بوكس عمود 1؟

وهل يمكن تغيير فورمات التاريخ المعروض في لليست بوكس عمود 1؟وهل يمكن تظليل سطور الليست بوكس اذا وافقت شرط معين مثلا اذا كان تاريخ الاستحقاق اقل من او يساوي التاريخ في تكست 5 ؟

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

Book1.xlsm

[omar elhosseini]

اخي العزبز

1 - تم تغبر فورمات التاريخ فب عمود 1 ليست بوكس

2 - تم ضبط معدلات تكست بوكس 1 و 2

3 - تم عمل عناوين لأعمدة الليست بوكس حسب المتاح من موارد تعبئة الليست بوكس

4 - اما تظليل سطور الليست بوكس اذا وافقت شرط اذا كان تاريخ الأستحقاق يساوي او اصغر من تكست بوكس 5 

     فلا يوجد مستحيل فى VBA Excel

5 - ماذا تقصد من طباعة النموذج

    هل تقصد طباعة ال UserForm ام طباعة الجدول

ملاجظة : تم تغير 3 تواريخ استحقاق للتجربة

تحياتى وشاهد المرفق

Book1.xlsm

[omar elhosseini]

اتمني ذلك-شاهد المرفق اخي ( طباعة الفورم )

الان يمكنك طباعة الجدول او الفورم

علي فكرة هذا اول مره فى المنتدى

ما الخطأ في الكود.xlsm

[omar elhosseini]

اخي لا يمكن ذلك ولكن يمكن التاحيل علية كلاتي

1 - اختار ديفلت الطابعة (  Micosoft print to PDf )

2 - من الفورم اضغط زر الضباعه

   سيتم حفظ الفورم ك PDF

ستتمكن ارساله الي الاميل او الوتس

[gamalin]

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

[gamalin]

الاخوة الافاضل 

بالملف المرفق تم تصميم نوذج لادخال البيانات UserForm3

وتبقى ليكتمل عدد من العقبات ارجوا المساعدة  

1- اريد عند اختيار اسم البنك ComboBox1  يتغيرTextBox3 الى كود البنك الموجود في العمود المجاور بشت setup عمود h

2- وبالمثل عند اختيار اسم المورد ComboBox3  يتغير TextBox6 الى كود المورد الموجود في العمود المجاور بشت setup عمود e

3 - اريد ان يتم حساب تاريخ الاستحقاق في TextBox5 ليساوي التاريخ في TextBox2 + 179- القيمة الموجودة في TextBox4

يعني لو تاريخ TextBox2 = 1/1/2022    و  TextBox4 = 90    يكون تاريخ الاستحقاق (179-90) +1/1/2022  = 1/4/2022

4 - اريد ان اضع في TextBox12   المعادلة دي 

=IF(B7=0;D7&" "&B11&" "&"للمورد"&" "&D9;"مستند"&" "&"على بنك"&" "&D5&" "&"بمبلغ"&" "&B11)

5- اريد عند الضغط على زر طباعة يتم طباعة النموذج مع وضع علامة مائية غير مرحل 

وعند الضغط على طباعة وترحيل طباعته فقط بدون العلامة المائية 

ممنوع تكرار نفس المشاركات والا ستحذف جميع المشاركات

ما الخطأ في الكود (1).xlsm

[omar elhosseini]

اخي شاهد المرفق

تم حل 1 و 2 و 3

اما 4

اكتب لي العبارة التي ستظهر فية اولا

الخلايا

B11

D9

D5

B11

فارغة

[gamalin]

اخي عمر اين المرفق ؟ لا يوجد في المشاركة الخاصة بك مرفق 

اعلم ان هذه الخلايا فارغة ولكن بمجرد ان يتم الادخال ستمتلئ ببيانات دمجها معا بهذا الشكر سيشكل شرحا للعملية يتم ترحيله مع البيانات عفوا فهمت مقصدك حقا هذه الخلايا كانت في الادخال من الشيت سوف اعدها على اسماء الخلايا من النموذج واعيد كتابتها جزاك الله خيرا 

b7=textbox4

d7=combobox2

d5=combobox1

d9= combobox3

b11 = textbox8

[omar elhosseini]

عفوا اخي

ما الخطأ في الكود (1).xlsm

[gamalin]

العفو على ايه اخي الكريم 

شاكر لك صبرك ومحاولتك مساعدتي 

هل اوضحت لك ما اقصده بمعادلة الدمج ؟

هل يمكن ن يحتوي التكست بوكس على معادلة ليكون الناتج ديناميكيا 

اي ان TextBox12.Value تستبدل كما بخلايا الاكسل ب TextBox12.formula  

مع معادلة الدمج يصبح الناتج تفاعليا مع القيم المدخلة في التكست الاخرى او مع الكمبوبوكس الاخرى 

 

If TextBox4.Value = 0 Then

    TextBox12.Value = ComboBox2.Text & " " & TextBox8.Text & " " & "ááãæÑÏ" & " " & ComboBox3.Text

Else

    TextBox12.Value = "ãÓÊäÏ" & " " & "Úáì Èäß" & " " & Range("D5").Value & " " & "ÈãÈáÛ" & " " & Range("B11").Value

End If

[omar elhosseini]

اخي ..انا عملت حسب ما قلت سابقا هل اغير حسب ما تقول الان

ما الخطأ في الكود (1).xlsm

[gamalin]

اخي الكريم اعتذر بشدة نعم ما اقصده هو ما باخر بوست 

وانا حاولت اكتب الكود بالشكل التالي ولكني فشلت واعطاني خطأ 

 

x = Application.CONCATENATE(Me.ComboBox2.Value, " ", Me.TextBox8.Text, " ", "ááãæÑÏ", " ", Me.ComboBox3.Value)
if TextBox4.Value = 0 Then
  Me.TextBox12.Value = x
Else
Me.TextBox12.Value = x
End If
 

[omar elhosseini]

لا تخبرني تكتب بال VBA

باللغة العادية

هل هذا ما تريد

If TextBox4.Value = 0 Then
    TextBox12.Value = ComboBox2.Text & " " & TextBox8.Text & " " & "ááãæÑÏ" & " " & ComboBox3.Text
Else
    TextBox12.Value = "ãÓÊäÏ" & " " & "Úáì Èäß" & " " & Range("D5").Value & " " & "ÈãÈáÛ" & " " & Range("B11").Value
End If

 

[omar elhosseini]

اخي شاهد المرفق ( علامة مميزة للفورم ) 

ما الخطأ في الكود (1).xlsm

[gamalin]

اخي عمر جربت النموذج كل الازرار لا تعمل اي اجراء 

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

بمعنى ان يكون التاريخ التلقائي هو تاريخ اليوم ولكن يسمح بتعديله 

ثانيا هل يمكن عمل فورم موازي مشابة للحالي تماما يتغير بتغير الاول يتم طباعته هو عند الطابعة مع تخصيص صورة مكتوب عليها غير مرحل ليتم استعاؤه وطباعته واغلاقه هو عند الضغط على زر طباعة فقط ؟

اخي عمر .في اعدادات الفورم يوجد picrure ..هل يمكن اعطاؤه امر لتغيير الصورة بصورة محدده ومحدد مسارها لحين الطباعة واعادة الوضع الاصلي مرة اخرى

كيف يمكن تحديد مسار الصورة بالكود ؟

 

[omar elhosseini]

تفضل اخي

 

Path = ThisWorkbook.Path & "\"
Pic_Name = "Test_Pic.jpg"
Full_Name = Path & Pic_Name

Me.PictureSizeMode = fmPictureSizeModeStretch
Me.PictureAlignment = fmPictureAlignmentCenter
Me.Picture = LoadPicture(Full_Name)

 

[gamalin]

الاخوة الافاضل 

الاخ عمر 

في الملف المرفق نموذج 5

حاولت عمل بحث برقم المسلسل ورقم الفاتورة ورقم المرجع البنكي 

عندما يكون الخانة فيها احرف وارقام يعمل الكود  واذا كانت ارقام فقط لا يعمل 

هل ممكن مساعدتي

ما الخطأ في الكود.xlsm

[omar elhosseini]

اخي هل زر استعلام هو زر البحث

حدد كل كنتروول مع اي عمود بتعامل

 

ComboBox1
ComboBox2
ComboBox3
ComboBox4
ComboBox5
TextBox1
TextBox10
TextBox11
TextBox12
TextBox13
TextBox14
TextBox15
TextBox16
TextBox2
TextBox3
TextBox4
TextBox5
TextBox6
TextBox7
TextBox8
TextBox9

 

وهل البحث يتم مع الثلاث شروط

[gamalin]

استاذ عمر 

انا بالفعل عامل كده والبحث شغال بس في العمود A والعمود b وكذلك 

 A مرتبط بالتكست بوكس 14 

b مرتبط بالتكست بوكس 16 

o مرتبط بالتكست بوكس 15 

هي تعمل بشكل عندما تحتوي الاعمدة على احرف في البدايات اما اذا كان البيان كله ارقام لا تعمل  ...

اما باقي الخانات سيتم ملؤها بناء على البحث كما في الخانتين التكست بوكس 1 و 8  

مع ملاحظة انه عند نسخ البيان البحث يعمل اما عند محاولة الكتابة لا يعمل  بمعنى اذا تم نسخ البيان من العمود A ولصقه في تكست بوكس 14 ستتغير قيمة التكست بوكس 1 تلقائيا  وكذلك تكست بوكس 8 

اما اذا حاولنا الكتابة باليد  الرقم 4  مثلا لن يستجيب فما السبب والحل

 

[omar elhosseini]

اخي ..شاهد المرفق

ما الخطأ في الكود.xlsm

[gamalin]

اخي عمر اكرمك الله تمام شغالة وزي الفل 

ممكن اذا تكرمت توضح لي ماذا غيرت لاني دخلت الملف لم اجد اي تعديلات في الكود تقريبا 

[omar elhosseini]

التعديل تم في حدث

textBox14_Change

textBox15_Change

textBox16_Change

[gamalin]

هل ممكن توضيح الفرق بين

Val(TextBox14.Value)

TextBox14.Value

ومتى تستخدم val   واليست تعني value

[omar elhosseini]

اخي

ال  Val

تحول الرقم النصي الي رقم حقيقي

[gamalin]

اشكرك اخي الكريم