طلب تعديل على هذا الكود progress

[الجموعي]

طلب تعديل على هذا الكود progress

أنا أريده عند تشغيل الفورم لا يكتب الأرقام في الخلية A1 إلى A100

Sub code()

Dim i As Integer, j As Integer, pctCompl As Single

Sheet1.Cells.Clear

For i = 1 To 100
    For j = 1 To 1000
        Cells(i, 1).Value = j
    Next j
    pctCompl = i
    progress pctCompl
Next i

End Sub

[ياسر خليل أبو البراء]

حدد طلبك أكثر أخي الحبيب الجموعي

ماذا تريد من الكود ..إذاً؟

 

ارفق ملف به الكود للعمل عليه في حالة توضيح الطلب

تم تعديل نوفمبر 28, 2014 بواسطه YasserKhalil

[الجموعي]

حدد طلبك أكثر أخي الحبيب الجموعي

ماذا تريد من الكود ..إذاً؟

 

ارفق ملف به الكود للعمل عليه في حالة توضيح الطلب

تفضل أستاذي

 

progress.rar

[محمد الصادق]

استاذى الكريم

جرب تعطيل هذا الجزء 

Cells(i, 1).Value = j '

 

وشوف النتيجة هل هى المطلوبة

او جرب طريقه اخرى وهى 

بعد هذاالسطر  Next j

ضيف هذا السطر بعده   ""=Cells(i, 1).Value 

تم تعديل نوفمبر 28, 2014 بواسطه محمد الصادق

[الجموعي]

شكرا أستاذي محمد الصادق

قمت بتعديل كما طلبت مني

إشتغل الفورم ولم يكتب شيئا في الخلايا وهذا ما كنت أريده بالضبط

لكن تقدم progress بسرعة فائقة

أنا أريده مثل قبل التقدم  يبدأ تدريجيا حتى يصل إلى 100%

[محمد الصادق]

جرب تعديل هذا السطر

For j = 1 To 2000

وقم باضافه هذا السطر بداية الكود

Application.ScreenUpdating = False

[الجموعي]

أخي ا لكريم الواضح أنك لم تفهم قصدي

أنا أريد تقدم progress لا علاقة له بالشيت إن أمكن ذلك

للتوضيح

أنا ها progress أريد أن أعمل به شاشة إفتتاحية

Sub code()
Application.ScreenUpdating = False
Dim i As Integer, j As Integer, pctCompl As Single

Sheet1.Cells.Clear

For i = 1 To 100
    For j = 1 To 2000
    Cells(i, 1).Value = ""
    Next j
    
    pctCompl = i
    progress pctCompl
Next i

End Sub

[عبدالله باقشير]

السلام عليكم

 

يكفي ان تضع  هذا الكود في الفورم

Private Sub UserForm_Activate()
Dim i As Integer, j As Integer

For i = 1 To 100
    For j = 1 To 1000
        DoEvents
    Next j
    Me.Text.Caption = i & "% Completed"
    Me.Bar.Width = i * 2

Next i

End Sub

تحياتي

[الجموعي]

السلام عليكم

 

يكفي ان تضع  هذا الكود في الفورم

Private Sub UserForm_Activate()
Dim i As Integer, j As Integer

For i = 1 To 100
    For j = 1 To 1000
        DoEvents
    Next j
    Me.Text.Caption = i & "% Completed"
    Me.Bar.Width = i * 2

Next i

End Sub

تحياتي

 

بارك الله فيك أستاذي القدير

جزاك الله كل الخير

وزادك الله من علمه

[ياسر خليل أبو البراء]

الأخ الحبيب والأشتاذ الكبير عبد الله باقشير

جزيت خيرا أستاذي الكريم على كل ما تقدمه

سؤالي كيف يمكن منع المستخدم من إغلاق الفورم ؟؟ إلا بعد الانتهاء من progress Bar

[ضاحي الغريب]

 

الأخ الحبيب والأشتاذ الكبير عبد الله باقشير

جزيت خيرا أستاذي الكريم على كل ما تقدمه

سؤالي كيف يمكن منع المستخدم من إغلاق الفورم ؟؟ إلا بعد الانتهاء من progress Bar

 

اخي الحبيب أ/ ياسر

السلام عليكم ورحمة الله وبركاته

وبعد اذن استاذنا الحبيب ومعلمنا واخينا الأستاذ // عبدالله باقشير

يمكنك عدم غلق الفورم الا بعد انتهاء الـ Progress Bar

كما بالمثال التالي

Option Explicit
Dim bOK As Boolean
Private Sub UserForm_Activate()
Dim i As Integer, j As Integer

For i = 1 To 100
    For j = 1 To 1000
        DoEvents
    Next j
    Me.Text.Caption = i & "% Completed"
    Me.Bar.Width = i * 2

Next i
bOK = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If bOK Then GoTo 1
    If CloseMode = 0 Then Cancel = True
1:
End Sub

 

مع تحياتي

progress.rar

[الجموعي]

أستاذي/ضاحي الغريب

شاكر مرورك العطر وإثرائك للموضوع

فعلا إضافه رائعة جدا

جعلها الله في موازين حسناتك

بارك الله فيك وفي مساعيك

تقبل ودي وتقديري

[ياسر خليل أبو البراء]

بارك الله فيك أخي وحبيبي ضاحي الغريب

وجزيت خيرا أنت ومعلمي عبد الله باقشير .

لا تحرمونا من إبداعاتكم

[الصـقر]

بعد أذن استاذى ومعلمى / عبدالله باقشير

والاستاذ /  ضاحى الغريب 

 اثراء للموضوع عمل الكود من خلال تيمر 

()   الجموعى  Sub 
Dim pctCompl As Single
On Error Resume Next
يمكنك تغيير السرعه من السطر التالى ' 
secondes = 0.1
 For i = 1 To 100
timer_a = Timer
 Do While Timer < timer_a + secondes
    DoEvents
   Loop
    pctCompl = i
    progress pctCompl
Next
End Sub

يوجد ملف مرفق ايضا 

انا مدين لك بهدية فواجب اردها 

تقبل احترامى وتقديرى استاذى / الجموعى

progress.zip

تم تعديل نوفمبر 29, 2014 بواسطه حسام عيسى

[الجموعي]

بعد أذن استاذى ومعلمى / عبدالله باقشير

والاستاذ /  ضاحى الغريب 

 اثراء للموضوع عمل الكود من خلال تيمر 

()   الجموعى  Sub 
Dim pctCompl As Single
On Error Resume Next
يمكنك تغيير السرعه من السطر التالى ' 
secondes = 0.1
 For i = 1 To 100
timer_a = Timer
 Do While Timer < timer_a + secondes
    DoEvents
   Loop
    pctCompl = i
    progress pctCompl
Next
End Sub

يوجد ملف مرفق ايضا 

انا مدين لك بهدية فواجب اردها 

تقبل احترامى وتقديرى استاذى / الجموعى

أستاذي حسام عيسى

أخجلتني بهديتك   المتواضعه أستاذي

على العموم إضافة رائعه جدا إستفدت منها

وجزاك الله عنا كل الخير

مع تحيات أخيك/الجموعي