سلام عليكم هل يمكن ربط progressbar بحجم البيانات الموجود في شيت اكسل بحيث يتم تقدم كل ما كثرت البيانات في ملف اكسل انا عمل مثال بسيط بحيث يتم تطبيق عليه وجزاكم الله الف خير وبارك الله فيكم
أهلا بك أخي الكريم , أداة الـ progressbar لابد لها من قيمة قصوى وقيمة دنيا وقيمة حالية ويتم أيضا حساب النسبة المئوية بناء على القيمة الحالية كم تساوي من القيمة القصوى لذلك ماهي القيمة القصوى في ملف الإكسل حيث أن عدد الصفوف في ملف الإكسل لا حد له يزداد بزيادة الصفوف .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
(29-05-20, 04:03 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , أداة الـ progressbar لابد لها من قيمة قصوى وقيمة دنيا وقيمة حالية ويتم أيضا حساب النسبة المئوية بناء على القيمة الحالية كم تساوي من القيمة القصوى لذلك ماهي القيمة القصوى في ملف الإكسل حيث أن عدد الصفوف في ملف الإكسل لا حد له يزداد بزيادة الصفوف .
يتم رفع قيمة progressbar اكثر من 100 وبعدها عن فتح ملف اكسل يتم عرض عدد الصفوف التي فيها بيانات في جميع الشيتات في ملف اكسل وتظهر القميه progressbar اليك الكود تم حال المشكله وجزالله الف خير وبارك الله فيك اخي الغالي
كود :
Dim ws As Worksheet
For Each ws In Worksheets
Dim lr As Long
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
Label35.Caption = ProgressBar1.Value & "0%"
ProgressBar1.Value = lr
Next ws