حامل المسك قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 السلام عليكم ورحمة الله وبركاته أساتذتي الفضلاء لدي ملف أكسل به جداول كثيرة جدا المشكلة أنها كالتالي اسم الطالب === محمد عنوانه ====== الرياض رقمه ========123 صفه ======== السادس اسم الطالب === علي عنوانه ====== الطائف رقمه ========222 صفه ======== السادس أرغب في جعلها في ورقة أخرى كالتالي اسم الطالب ======== عنوانه ======== رقمه ===== صفه محمد ============= الرياض=========123======== السادس علي ============= الطائف===========222======== السادس فكيف عمل ذلك رعاكم الله جعل الإعمدة صفوف.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 اخي حامل المسك شاهد المقطع فقد يفيد ابواحمد شرح1.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 ليس ذلك رائعا بل أروع من رائع وفقك ألله لكل خير ويسر لك أمورك فكرة جدا رائعة ولكن هل بالإمكان إضافة كود لذلك لأن الأسماء لدي تقوق ألف اسمولكن هل بالإمكان إضافة كود لذلك لأن الأسماء لدي تقوق ألف اسم رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 السلام عليكم بعد اذن استاذنا الفاضل عبدالله المجرب تفضل المرفق اخي حامل المسك ولزيادة المدى غير من هذا السطر Range("B6:C21").Select ارجو ان يكون هذا المطلوب والسلام عليكم جعل الإعمدة 1صفوف.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 وعليكم السلام ورحمة الله وفقك الله أخي علي جميل جدا لكن أريدالأسماء تحت في بعضهاكما في المرفق جعل الإعمدة 1صفوف.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 جرب المرفق 2007 Book1.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 وقف لساني عن شكركما وابتهل إلى الله بالدعاء لكما نعم هذا هو المطلوب لكن هل بشرح كيف تم إضافة الكود رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 اخي حامل المسك المرفق فيه الكود مرن (من اعداد الاستاذ كيماس) ويمكنك اضافة صفوف ثم تضغط الزر وسيتم المطلوب ابواحمد Book1.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 وقف لساني عن شكركما وابتهل إلى الله بالدعاء لكما نعم هذا هو المطلوب لكن هل بشرح كيف تم إضافة الكود الكود في المشاركة 6 تم تسجيل ميكرو بالخطوات الموجودة في شرح الفيديو ثم تم عمل زر لتنفيذ الكود (الكود عمله محدود) الكود في المشاركة 8 هو الافضل فهو مرن ويمكنك زيادة الصفوف كما تشاء وسيعمل الكود بشكل مرن رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 أخي عبد الله وأخي ali جزاكما الله خير الجزاء فلقد فرجتم عني هم كبير ولا أملك لكم إلا الدعاء بظهر الغيب والله يرعاكم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 أخي عبد الله وأخي ali جزاكما الله خير الجزاء فلقد فرجتم عني هم كبير ولا أملك لكم إلا الدعاء بظهر الغيب والله يرعاكم اخي حامل المسك لم اقم الا بما استطيع وكل الشكر للاستاذ كيماس على مساهمته القيمة ابواحمد رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 هل أستطيع الدخول على الكود وإضافة مثلا خانة أخرى كاسم ولي أمر الطالب مثلا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 (معدل) هل أستطيع الدخول على الكود وإضافة مثلا خانة أخرى كاسم ولي أمر الطالب مثلا هل لي بمرفق جرب المرفق Book12.rar تم تعديل يوليو 23, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 هذا المرفق وبه كامل البيانات المرادة مع اعتذاري لك فلقد أثقلت عليك هذه الليلة رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 هذا المرفق وبه كامل البيانات المرادة مع اعتذاري لك فلقد أثقلت عليك هذه الليلة لا يوجد مرفق في مشاركتي السابقة ارفق ملف معدل يمكنك تجربته رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 هذا المرفق وبه كامل البيانات المرادة مع اعتذاري لك فلقد أثقلت عليك هذه الليلة اسماء الطلاب.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 هذا المرفق وبه كامل البيانات المرادة مع اعتذاري لك فلقد أثقلت عليك هذه الليلة تفضل المرفق بعد التعديل مع اعتذاري لك فلقد أثقلت عليك هذه الليلة اخي لاداعي للاعتذار فانا لم اقم الا بما استطيع عمله فقط اسماء الطلاب.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 23, 2011 الكاتب مشاركة قام بنشر يوليو 23, 2011 أخي الكريم طلبت ابتغاء الشُّكر فيما فعلت بي ... فقصَّرتُ مغلوباً وإنِّي لشاكر لقد كنت تعطيني الجزيل بديهةً ... وأنت لما استكثرت من ذاك حاقر فأرجع مقنوطاً وترجع بالَّتي ... لها أوَّلٌ في المكرمات وآخر جزاك الله خير الجزاء لقد كفيت ووفيت رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 23, 2011 مشاركة قام بنشر يوليو 23, 2011 أخي الكريم طلبت ابتغاء الشُّكر فيما فعلت بي ... فقصَّرتُ مغلوباً وإنِّي لشاكر لقد كنت تعطيني الجزيل بديهةً ... وأنت لما استكثرت من ذاك حاقر فأرجع مقنوطاً وترجع بالَّتي ... لها أوَّلٌ في المكرمات وآخر جزاك الله خير الجزاء لقد كفيت ووفيت ماشاء الله شكراً على هذه الابيات الجميلة فلم اقم الا باقل من واجبي والحمدلله ان تمت الاجابة رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 24, 2011 الكاتب مشاركة قام بنشر يوليو 24, 2011 أخي سلمك الله ظهرت لي مشكلة وهو أنه يحول الأسماء حتى E16 ولا يجري العملية على الباقي آمل التكرم بالنظر في ذلك رعاكم الله اسماء الطلاب.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 أخي سلمك الله ظهرت لي مشكلة وهو أنه يحول الأسماء حتى E16 ولا يجري العملية على الباقي آمل التكرم بالنظر في ذلك رعاكم الله اخي حامل المسك عدل هذا الجزء من الكود بدل For i = 1 To 100 Step 11 يصبح For i = 1 To 1000 Step 11 ليصبح الشكل النهائي للكود Sub Macro2() ' ' Dim k As Long ' Application.ScreenUpdating = False Range("d6:g500").ClearContents Range("B6:B16").Copy Range("E6").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = 7 For i = 1 To 1000 Step 11 Range("C" & i + 5 & ":C" & i + 15).Select Selection.Copy Range("E" & k).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = k + 1 Next i Application.CutCopyMode = False Range("a1").Select Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 24, 2011 الكاتب مشاركة قام بنشر يوليو 24, 2011 جزاك الله خير الجزاء وبارك الله لك في أهلك ومالك وولدك وغفر ذنبك ولوالديك وللمسلمين والمسلمات رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 اخي واستاذي " ابو احمد " عبد الله : المقصود بـ عبد الله بدون لقب هو اشهر عبد الله في هذا الموقع ( حضرتك طبعا " عبد الله المجرب " ) ماشاء ... ماشاء الله علم .... واخلاق عالية والله اخونا حامل المسك محظوظ جدا ... استفدت كثيرا من ردودك واعمالك اشكرك وفقك الله ياسر الحافظ " ابو الحارث " رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 24, 2011 الكاتب مشاركة قام بنشر يوليو 24, 2011 أنا ما أعرف أين أضع وجهي أخي عبد الله صبرك عليّ ولك مني الدعاء البيانات أنا سحبتها من موقع وفي ضمنها ثلاثة أسطر قمت بحذفها يدويا لكن الشغلة تطول فهل هناك أمر لحذها من البيانات أقصد أن بعد الصف الدراسي يوجد ثلاث صفوف فارغة الحقيقة أنني تحرجت جدًا في الكتابة لك لكن حاولت أحذفها يدويا فما خارجني الموضوع فأحببت أن أضعه بين أيديكم إن كان هناك حلا أو واصلت عملي يدوي ولعل بالمثال يتضح المقال مشكلة حذف الثلاث صفوف.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 25, 2011 مشاركة قام بنشر يوليو 25, 2011 أنا ما أعرف أين أضع وجهي أخي عبد الله صبرك عليّ ولك مني الدعاء لا داعي للاحراج فانا تحت الخدمة بما استطيع البيانات أنا سحبتها من موقع وفي ضمنها ثلاثة أسطر قمت بحذفها يدويا لكن الشغلة تطول فهل هناك أمر لحذها من البيانات أقصد أن بعد الصف الدراسي يوجد ثلاث صفوف فارغة الحقيقة أنني تحرجت جدًا في الكتابة لك لكن حاولت أحذفها يدويا فما خارجني الموضوع فأحببت أن أضعه بين أيديكم إن كان هناك حلا أو واصلت عملي يدوي ولعل بالمثال يتضح المقال اخي حامل المسك ضع هذا الكود في زر امر Sub حامل_المسك() Range("B1:C1000").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.