+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ربط بحجم البيانات progressbar (/showthread.php?tid=35007)
ربط بحجم البيانات progressbar - ahmed250 - 28-05-20
سلام عليكم هل يمكن ربط progressbar بحجم البيانات الموجود في شيت اكسل بحيث يتم تقدم كل ما كثرت البيانات في ملف اكسل انا عمل مثال بسيط بحيث يتم تطبيق عليه وجزاكم الله الف خير وبارك الله فيكم
RE: ربط بحجم البيانات progressbar - Ahmed_Mansoor - 29-05-20
أهلا بك أخي الكريم , أداة الـ progressbar لابد لها من قيمة قصوى وقيمة دنيا وقيمة حالية ويتم أيضا حساب النسبة المئوية بناء على القيمة الحالية كم تساوي من القيمة القصوى لذلك ماهي القيمة القصوى في ملف الإكسل حيث أن عدد الصفوف في ملف الإكسل لا حد له يزداد بزيادة الصفوف .
RE: ربط بحجم البيانات progressbar - ahmed250 - 30-05-20
(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