-->

اكسل | احترف صناعة التقارير فى الاكسيل (مبيعات - مرتجعات - اصناف -عملاء موردين ) Excel VBA Report On Userform Easily

بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس


 درس جديد وكود جديد من مكتبة اكواد اكسل VBA 

اكسل | احترف صناعة التقارير فى الاكسيل (مبيعات - مرتجعات - اصناف -عملاء موردين ) 

شرحنا فى الدرس السابق كيفية عمل تقرير للعملاء او المبيعات على شيت الاكسل للرجوع للدرس السابق من هنا

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

نبدا على بركة الله 

فى البداية صلوا على رسول الله صلى الله عليه وسلم تسليما كثيرا

نقوم بعمل يورزفورم ونضع علية مجموعة من الادوات 


  • عدد 2 تكست بوكس Textbox  الاول لتاريخ بداية التقرير والاخر لتاريخ نهاية التقرير
  • عدد 1 كومبو بوكس Combobox وذلك لادراج اسماء العملاء 
  • عدد 1 ليست بوكس listbox وذلك لاحضار نتائج التقرير فيها
  • عدد 1 زر command button وذلك للقيام باستدعاء التقرير من خلالة 

ثم نقوم بكتابة الكود التال داخل الزر



Sheets("rep_fatora")
.Range("c3").Value = CDate(Me.TextBox1.Value)
.Range("e3").Value = CDate(Me.TextBox2.Value)
.Range("c5").Value = Me.ComboBox1.Value

Sheets("Invoice data").Range("A1:H10000").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Range("J1:L2"), CopyToRange:=Range("A6:H6"), Unique:= _
        False
Me.ListBox1.RowSource = "data1"
Me.TextBox3.Value = .Range("g5").Value
End With


لمعرفة كيفية عمل الكود 

يرجى مشاهدة الفيديو التالى 


لتحميل ملف العمل من هنا

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق