سؤال) فى حساب الزمن المستغرق فى قراءة وكتابة مصفوفة

[نور الرحمة]

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

انا عايزة كود برمجى لحساب الزمن المستغرق فى قراء وكتابة مصفوفة

عدد عناصرها 1000 عنصر

واريد ايضا اعطاء رسالة بها الوقت الحالى

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

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

تم تعديل مارس 18, 2010 بواسطه نور الرحمة

[طارق محمود]

السلام عليكم أختنا العزيزة يتوقف هذا علي طريقة القراءة والكود لكنها في جميع الأحوال لاتتجاوز ثواني قليلة بفرض ان البيانات موجودة في المجال من C3 إلي V52 يعني 20 عمود ، 50 صف

ففيما يلي كود يقرأ ويسجل وقت قبل البدأ في قراءة في الخلية C1

ثم يعيد طباعتها بداية من الخلية C61

ويسجل وقت الإنتهاء في الخلية G1

Sub sss()

Dim a(50, 20)

Range("B2").Select


' Start Reading

Range("c1").Value = Now

	For i = 1 To 50

 	For j = 1 To 20

 	a(i, j) = ActiveCell.Offset(i, j).Value

 	Next j

	Next i


' Start Printing


Range("B60").Select

	For i = 1 To 50

 	For j = 1 To 20

 	ActiveCell.Offset(i, j).Value = a(i, j)

 	Next j

	Next i


Range("g1").Value = Now

Range("A1").Select



End Sub

تم تعديل مارس 18, 2010 بواسطه TareQ M

[طارق محمود]

السلام عليكم

أختنا الفاضلة

مرفق ملف به الكود ومضاف إليه أيضا الوقت الحالي في الخلية: J1

هذا بالشييت الأول

وفي الشييت الثاني شرح لموضوع أكبر رقم

تفضلي المرفق

nour.rar

[نور الرحمة]

جزاك الله كل خير استاذ TareQ M