30-05-20, 08:50 AM
(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(لا إله الا انت سبحانك اني كانت من الظلمين)
