رجب جاويش

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

تفضل أخى السادس اخر العام1.rar

تفضل أخى حل بالمعادلات طلب معادلة ايجاد قيم.rar

أخى الحبيب / محمود والله العظيم أخى الحبيب لم أكن أدرى أى شئ عن البرمجة قبل دخول هذا المنتدى وما تعلمته كان من أساتذة هذا المنتدى الكرام الذين لا يبخلون بعلمهم فقط متابعة أعمال الأساتدة العظام فى هذا المنتدى ولك خالص تحياتى

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

أخى الفاضل تفضل ما تريد السادس اخر العام1.rar

أجمل وأرق تحية للأستاذ الفاضل والمبدع / أحمد زمان

أخى الفاضل / كعبلاوى جزاك الله كل خير أخى الفاضل / أبو آدم شرف كبير لى هذا المرور العطر جزاك الله كل خير على كلماتك الطيبة

وفى هذه الطريقة يتم الانتقال بين الصفحات بالترتيب أى عند الضغط يتم الانتقال الى الصفحة التالية وهكذا وعندما نصل الى الصفحة الاخيرة والضغط يتم الانتقال الى الصفحة الاولى التنقل بالترتيب.rar

وهذه طريقة أخرى بالضغط على زر معين تظهر قائمة بأسماء الصفحات التنقل بالضغط على زر.rar

للتنوع تفضل طريقة أخرى وهى التنقل بين الصفحات عن طريق الضغط كليك يمين فى أى خلية تظهر قائمة بأسماء الصفحات للاختيار منها التنقل عن طريق كليك يمين.rar

تفضل أخى باستخدام كود وليس دالة توليد أرقام عشوائية.rar

تفضل أخى اظهار التاريخ بنقرتين.rar

أخى ابراهيم السطر التالى خاص بالحصول على أخر عمود يحتوى على بيانات ( فى الصف الأول) LC = [iV1].End(xlToLeft).Column r = 7 الجزء التالى حلقة تكرارية تبدأ من الرقم 5 حتى أخر عمود به بيانات حصلنا عليه فى الخطوة السابقة أما الجزء step 4 فهو يحدد مقدار الزيادة التى تتم على المتغير c أى فى الخطوة الأولى يكون c = 5 ثم الخطوة التالية يكون 9 وهكذا For c = 5 To LC Step 4 السطر التالى اعادة تحجيم ل 6 أعمدة و 4 صفوف ابتداءا من الخلية المذكورة فى البداية (1, c ) ثم قص الخلايا المذكورة ولصقها فى الخلية ( r , 1 ) Cells(1, c).Resize(6, 4).Cut (Cells(r, 1)) فى السطر التالى نزيد 6 على قيمة r r = r + 6 الكود الثانى نفس فكرة الكود الأول

الأخ الفاضل / الباشمهندس طارق بعد التحية من منطق محاولة التعلم من خبرات الأساتذة الكبار مثل حضرتك قمت بعمل بعض التعديلات البسيطة على الكود Sub TRANS() LC = [IV1].End(xlToLeft).Column r = 7 For c = 5 To LC Step 4 Cells(1, c).Resize(6, 4).Cut (Cells(r, 1)) r = r + 6 Next c End Sub Sub TRANS2() LR = [A1000].End(xlUp).Row c = 5 For r = 7 To LR Step 6 Range("A" & r).Resize(6, 4).Cut (Cells(1, c)) c = c + 4 Next r End Sub صفوف-اعمدة 1_TAREQ3.rar

بعد اذن أخى الحبيب / أبو حنين هذه محاولة أخرى 2011شيت مدرستى السادس .rar

بارك الله فيك أستاذ عبد الله وجعل هذا الشرح فى ميزان حسناتك

تفضل أخى أحمد ويمكن عمل الكود على أى عدد من الأعمدة تحدده من داخل الكود كشوفات متنوعه-الخريجين2012 اوفسنا.rar

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

تفضل أخى Book3.rar

أحسنت أخى ابراهيم فكرة جميلة بارك الله فيك

هل تقصد حذفها من الجدول الأصلى أم من الخلايا J3 و K3

أخى الفاضل / ابراهيم يسعدنى ويشرفنى أن نكون أصدقاء بالنسبة للسؤال الأول : على حد علمى لا يمكن ارجاع القيم مرة أخرى الى المعادلات التى كانت عليها بالنسبة للسؤال الثانى : الجزء الذى يحدد أن الخلية N1 هى الخلية المحددة موجود فى حدث workbook Private Sub Workbook_Open() If [n1].Value = Date Then Call ragab End If End Sub بالنسبة للسؤال الثالث : جعل التاريخ داخل الكود فهذا هو التعديل الذى يحقق ذلك Private Sub Workbook_Open() Dim a As Date a = "23 / 5 / 2012" If a = Date Then Call ragab End If End Sub وبالتالى يمكن تغير التاريخ كما تحب عن طريق تغيير قيمة المتغير a وفى الختام لك جزيل الشكر من أخيك / رجب جاويش الذى يتشرف بصداقتك تحويل معادلات الى قيم فقط1.rar

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

تفضل أخى Book3.rar