برجاء المساعدة فى معرفة سبب كثرة وقت التحميل لهذا الملف

[Mohammad Shawkey]

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

تحياتى

بفضل ربنا ومساعده الاساتذة الكبار هنا عباقرة الاكسيل والفيجوال قدرت اعمل كود يقدرنى على توزيع الادخالات الموجودة بالتيكست بوكس بشكل افقى اذا تحقق شرط وهو اذا كان الكومبو بوكس الخاص بالايام = يوم موجود داخل العمود الثالث فى الورقة الاولى والتى بها التواريخ .. ولكن عند تنفيذ هذا الامر اجد وقت طويل للتحميل ...

حضراتكم من المحتمل ان لا تلاحظوا هذا لان دة نموذج بة فقط 20 تيسكت بوكس لكنى سوف اعمل على اكثر من هذا وقد يصل العدد الى 40 تيكست اى ضعف العدد

برجاء مساعدتى فى تفسير سبب ثقل الملف للتغلب على هذه المشكلة

ملحوظة : الثقل يكون عند ملىء جميع التيكست بوكس والضفط على زر ok هنا سوف تلاحظوا الثقل فى التحميل

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

date.rar

تم تعديل أغسطس 25, 2012 بواسطه mosha14

[أبو حنــــين]

جرب المرفق اخي

نسيت أن اغير السطر :

For ii = 1 To 100 '00

بالسطر التالي في بدية الكود

For ii = 1 To 10000

date.rar

[Mohammad Shawkey]

استاذ ابو حنين .....

خلصت فيك كل الكلاااااااام ... بجد ربنا يكرمك مفيش احسن من كدة

[أبو حنــــين]

العفو اخي

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

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

الشكر واصل للفاضل ابو حنين

ولاثراء الموضوع

هذا حل آخر ياستخدام دالة Match

Private Sub CommandButton1_Click()

Dim vM

Dim i As Integer


On Error GoTo KH_Err

vM = WorksheetFunction.Match(CDbl(CDate(Me.ComboDays)), MyRng, 0)

For i = 1 To 40

    MyRng.Cells(vM, i + 1).Value = Me.Controls("TextBox" & i).Value

Next

'================

KH_Err:

If Err Then

    MsgBox "Err.Number : " & Err.Number

    Err.Clear

    Else: MsgBox "ok"

End If

End Sub

date3.rar

[بن علية حاجي]

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

أخي الكريم، هذا حل آخر بالفكرة نفسها (والاستعانة بالخليتين A1 و A2) والكود يعمل لسنة كاملة (أو أكثر إذا أدرجت مع التاريخ Combobox خاص بالسنة)...

أخوكم بن علية

date1.rar

[Mohammad Shawkey]

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

أخي الكريم، هذا حل آخر بالفكرة نفسها (والاستعانة بالخليتين A1 و A2) والكود يعمل لسنة كاملة (أو أكثر إذا أدرجت مع التاريخ Combobox خاص بالسنة)...

أخوكم بن علية

date1.rar

جزاك الله كل خير استاذ بن عليه .. مجهود كبير وفكرة رائعة .. لكن هناك مشكلة وهى ان الارقام التى يتم ادخالها تدخل بترتيب العمود .. بمعنى اذا جربت حضرتك تدخل رقم 1 فى كل التيكست بوكس ثم تضغط انتر .. ستلاحظ ان رقم 1 فى العمود الاول = 1 ورقم 1 فى العمود الثانى = 2 وهكذااا .. فهل من حل لهذة المشكلة حتى يكتمل العمل ... وبجد انا اسف على الاطالة .. بس المجهود الجميل ده خلانى اطمح فى انة يكون كامل ...