بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسل 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
لمعرفة كيفية عمل الكود