يوسف عطا

مشكور

طيب كدة يبقى قدامك الحل الأسهل وهو بالطريقة التى شرحتها لك من قبل تقف على رأس العمود وكليك يمين وتختار إخفاء أو ترفق ملفك وبإذن الله أضع لك فيه الكود وشرحه والله الموفق

للرفع رفع الله قدركم

لعبة حلوة وممكن تتعمل مسابقة سرعة مع ثبات

تفضل يا أخى هذا الكود من أعمال أخونا هانكوك وقد تفادى كل سلبيات الطرق الأخرى فأصبحت البيانات المخفية يستحيل إظهارها بدون الباسوورد فمحاولة إظهار الأعمدة بالطرق المعروفة ستجعل الأعمدة تظهر لبرهة بلون أسود ثم تتفى مرة أخرى قبل أن تتم قراءة محتوياتها تفضل الملف المرفق Hide Column HaNcOcK 3.rar

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

ما الأخبار أخى عباد لرفع ملف أكبر من الحد المسموح به يتم ضغطه ثم وضع الملف المضغوط فى مجلد ثم ضغط المجلد بالطريقة العادية بدون تقسيمه فى إنتظار تجربة الملف الذى عدلته سيادتكم دمت بود

الفكرة رائعة ولكنها لاتعمل على ويندوز 7 نريد أن نستخدمها على ويندوز 7 لو تكرمتم أخوتى الأعزاء وياليت أن لا يتم حذف السجل الأقدم بل الكتابة تحته بحيث يأخذ تاريخ ووقت آخر تعديل كما أتسائل هل الكود سيعمل فى وجود أكواد أخرى بالملف مثل أكواد الحماية وتعدد المستخدمين ؟؟ والله الموفق

فى بعض المواقع تظهر فى هذه الحالات رسالة تفيد أن الموقع تحت الصيانة وتحدد الوقت التقريبى للإنتهاء من الصيانة ياريت لو يتم إستخدام نفس الخاصية هنا فى حالة مثل هذه نظراً لأننا نكون فى غاية القلق لتوقف الموقع والله الموفق

اليوم وطوال اليوم بل من أمس مساءاً كنت أحاول الدخول للمنتدى ولم استطع إلا الآن ماذا حدث ياترى ؟؟

بعد تنزيل الملف وفك الضغط عنه تظهرلى رسالة أن الجزء الثانى من الملف مفقود رجاء إعادة الرفع أو إرساله على الإيميل الف شكر

أوفيس 2003 الملفان مرة أخرى مرفقان هنا الملف الكبير مضغوط مرتين ليمكن رفعه بالمنتدى كنترول 2 2013.rar دوائر الشهادات نهائى.rar

للأسف يا أخى الغالى لم يعمل الملفان كلاهما لم يعملان معى

الف شكر يا أخى الغالى جارى تحميل الملف

جوزيتم خيراً بإذن الله

كيف يمكن أن نضع كود يستغرق بعض الوقت فى هذا الشريط لكى لكى يظهر أثناء عمل الكود ؟؟ مثلاً كود الترحيل هذا كيف ندمجه فى كود فورم شريط التقدم ؟؟ Sub ترحيل_د2() Dim Z As Integer, A As Integer, B As Integer, c As Integer Sheets("24").Range("A11:DZ5000").ClearContents Sheets("25").Range("A11:DZ5000").ClearContents Sheets("26").Range("A11:DZ5000").ClearContents A = 11: B = 11: c = 11 Application.ScreenUpdating = False For Z = 11 To 5000 If Cells(Z, 1) = "ناجحة و منقولة للصف الثالث" Then Range("A" & Z).Resize(1, 33).Copy Sheets("24").Range("A" & A).PasteSpecial xlPasteValues Application.CutCopyMode = False A = A + 1 End If If Cells(Z, 1) = "راسبة و لها حق الإعادة" Then Range("A" & Z).Resize(1, 33).Copy Sheets("25").Range("A" & B).PasteSpecial xlPasteValues Application.CutCopyMode = False B = B + 1 End If If Cells(Z, 1) = "راسبة و ليس لها حق الإعادة" Then Range("A" & Z).Resize(1, 33).Copy Sheets("26").Range("A" & c).PasteSpecial xlPasteValues Application.CutCopyMode = False c = c + 1 End If Next For Y = 24 To 26 Sheets(Sheet & Y).[B11] = 1 rrw = Sheets(Sheet & Y).[B3000].End(xlUp).Row For Each cc In Sheets(Sheet & Y).Range("B12:B" & rrw) cc.Value = cc.Offset(-1, 0) + 1 Next cc Next Y MsgBox ("الحمد لله تـــم ترحيل الطالبات كل إلى شيت نتيجتها طبقاً للإحصاء التالى ") For x = 24 To 26 Y = Sheets(Sheet & x).[B3000].End(xlUp).Row - 10 mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & x Next x MsgBox (" تم ترحيل عدد" & mssg) Range("A1").Select Application.ScreenUpdating = True End Sub الف شكر

اللهم بارك لنا فى علمكن اساتذتنا الكرام وفوق كل ذى علم عليم سؤالى هل يتم ذلك بنفس الطريقة فى كل إصدارات الأوفيس ؟؟ 2003 و 2007 و 2010 و 2013 ؟؟ أم فقط مع الإصدارات الحديثة ؟

لو تكرمت ممكن نسخة 2003 ؟؟

لابد أن يكون الميزان موصول بالكمبيوتر عن طريق وصلة ديجيتال وأن يكون بالكمبيوتر برنامج خاص بالميزان يأخذ القراءة وهنا يأتى دور الأكواد حيث يتم كتابة كود يأخذ القراءات من برنامج الميزان ويحسب النتائج أوتوماتيكياً والله أعلم

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

الرجاء إرسال لينك تحميل النموذج من موقع ميكروسوفت نفسه

الله ينور على العمل الجميل

الحمدلله

السلام عليكم أخى عباد اليوم التاسع غير موجود بالكود للتنويه فقط تقبل تحياتى

أخى الغالى عبدالله المجرب ابو أحمد السلام عليكم بتجربة الملف الذى رفعته سيادتكم بمشاركة رقم 16 لم يعمل عندى قد تكون سيادتكم رفعتم نسخة الملف قبل الإصلاح وقد يكون عندى مشكلة فى جهازى والله أعلم لكن الملف الصغير يعمل جيداً (الملف ذو الشيت الواحد)