أرقام عشوائية

[asdhamdey]

ملف مفيد جدا جدا جعله الله في كفة حسناتك

منظر الملف الاخير جميل لكن مافائدة وضع علامة الصح

ممكن يوضع فورم برقم سري

لايعمل هذا الكود الا بهذه الفورم

حتى لايعبث بالارقام السريه المتطفلون بالكنترول

في الملف الاخير يبدأ من الصفر لم ار الجزئيه التى نغيرها

[asdhamdey]

منظر فورم جميل

ارجو من خضرتك تضبيطه على الملف

منظر فورم.rar

[عبدالله المجرب]

منظر فورم جميل

ارجو من خضرتك تضبيطه على الملف

السلام عليكم

بعد إذن العلامة خبور

تم اضافة الفورم الى الملف

===

بالنسبة لطلب الاخ / ت : صفاء

ارجو التوضيح اكثر يمكن نملك المقدرة على المساعدة

السري خبور.rar

[خالد الشاعر]

الشكراً لستاذى خبور على التعديل

شكراً استاذ عبد الله

[muhammadey1]

بارك الله لك استاذ عبد الله بارك الله لك استاذ عبد الله

[saffaa]

منظر فورم جميل

ارجو من خضرتك تضبيطه على الملف

السلام عليكم

بعد إذن العلامة خبور

تم اضافة الفورم الى الملف

===

بالنسبة لطلب الاخ / ت : صفاء

ارجو التوضيح اكثر يمكن نملك المقدرة على المساعدة

لسري خبور.rar 22.73K 6 عدد مرات التحميل

الى الاخ الغالي الاستاذ المحترم / عبد الله

اشكرك شكرا كثيرا جدا لطروحاتك الجميله والنشطه وبعد

المشالركه رقم 37 للاستاذ خبور اريد وضعها في الملف الموجود بشاركتك رقم 41 وازاله الكود القديم

تقبل شكري

[mhrrd]

بارك الله لك استاذ خبورو الاستاذ عبد الله بارك الله لك استاذ خبورو الاستاذ عبد الله

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

السلام عليكم

تم اضافة الكود الى الملف

مع تغيير البدء من العمود 2

السري خبور.rar

[محمدي عبد السميع]

السلام عليكم

تم اضافة الكود الى الملف

مع تغيير البدء من العمود 2

المرفقات :

• السري خبور.rar 22.79K 0 عدد مرات التحميل
  

[saffaa]

جزاك الله كل خير استاذي خبور خير

[saffaa]

استاذي خبور

يوجد زر فرز السري لو عندما نكرر الضغط عليه يفرز بس بدلاله عمود رقم الجلوس

عند الضغط على ترتيب السري لو يوجد اضافه بسيطه على الكو د بعد الانتهاء من الكود وجلب المطلوب يتم الفرز بدلالة عمود الترتيب

تم تعديل يناير 27, 2012 بواسطه saffaa

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

السلام عليكم

يوجد زر فرز السري لو عندما نكرر الضغط عليه يفرز بس بدلاله عمود رقم الجلوس

Sub kh_Sort()

Dim c As Integer

Static ibool As Boolean

c = ibool + 2

With Range("J6:K6")

	Range(.Cells, .Cells.End(xlDown)).Sort .Columns(c), xlAscending

	.Activate

End With

ibool = Not ibool

End Sub

عند الضغط على ترتيب السري لو يوجد اضافه بسيطه على الكو د بعد الانتهاء من الكود وجلب المطلوب يتم الفرز بدلالة عمود الترتيب

ممكن اضافة هذا الكود الى اكواد الملف واضافة اسم الكود نهاية كود الترتيب

Sub kh_Sort1()

With Range("B6:F6")

    Range(.Cells, .Cells.End(xlDown)).Sort .Columns(5), xlAscending

End With

End Sub

[محمدي عبد السميع]

شكرا للعملاق العظيم خبور خير على اعماله الطيبه

[محمدي عبد السميع]

رائعه من الروائع

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

تم اضافة الزيادات والاضافات التي هدانا بها العلامه خبور خير

السري لأعمال الكنترولات.rar

تم تعديل يناير 27, 2012 بواسطه mohammadey1

[saffaa]

الف شكر استاذي العزيز خبور خير