[ahmed250]

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

[Ahmed_Mansoor]

أهلا بك أخي الكريم , أداة الـ progressbar لابد لها من قيمة قصوى وقيمة دنيا وقيمة حالية ويتم أيضا حساب النسبة المئوية بناء على القيمة الحالية كم تساوي من القيمة القصوى لذلك ماهي القيمة القصوى في ملف الإكسل حيث أن عدد الصفوف في ملف الإكسل لا حد له يزداد بزيادة الصفوف .

[ahmed250]

(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