اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

السلام عليكم

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

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

===

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

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

السري خبور.rar

رابط هذا التعليق
شارك

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

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

السلام عليكم

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

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

===

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

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

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

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

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

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

تقبل شكري

رابط هذا التعليق
شارك

استاذي خبور

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

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

تم تعديل بواسطه 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

تم تعديل بواسطه mohammadey1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information