-
Posts
1,754 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو يوسف عطا
-
مطلوب شيت كنترول الصف الثاني الثانوي العام نظام جديد
يوسف عطا replied to ara6367's topic in منتدى الاكسيل Excel
أتصور إن شيت كنترول القسم الأدبى يكون غير شيت القسم العلمى حتى ولو كان الكنترول واحد للقسمين فلابد أن يكون لكل قسم شيت خاص به كما أن لكل قسم كشوف مناداة وأرقام جلوس خاصة به كذلك لجان إمتحان للعلمى غير الأدبى ومن الأكيد أن جدول الإمتحان سيكون لكل قسم جدول خاص به مع مراعاة أن الإمتحانات ستون فى نفس التوقيت ولكن لكل قسم مادة إمتحانه مع الإعتبار أن المواد المشتركة ستكون فى نفس الوقت للقسمين مثل اللغات والتربية الدينية -
الكود المرفق يقوم بنطق الأرقام التى يتم كتابتها فى الخلايا Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long Dim Voice As SpVoice Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim CheckRange As Range Dim PlaySound As Boolean Set CheckRange = Range("A1:A2000") For Each Cell In CheckRange If Cell.Value > 0 And Cell.Address = Target.Address Then PlaySound = True End If Next If PlaySound Then Call sndPlaySound32("C:\windows\media\ding.wav", 1) Set Voice = New SpVoice Voice.Rate = 1 'speak peed Voice.Speak " " & Target.Value & " ", 0 Set Voice = Nothing End If End Sub الآن أريد تعديل هذا الكود لكى يقرأ المكتوب فعلاً بالشيت مسبقاً وليس الذى يكتب حالياً ثم تحويله إلى 3 ماكرو كالتالى ماكرو1 للقراءة المستمرة لما هو مكتوب بالشيت ماكرو2 للإيقاف المؤقت ماكرو3 للإستئناف هل هذا ممكن يا خبراء يا أفاضل
-
نرجو من الإشراف تعديل العنوان ليتناسب مع الموضوع ليحصل أخونا على طلبه بأسرع وقت مع التنويه لأخونا الغالى بعدم تحديد أخوة أفاضل بعينهم للمشاركة فى الموضوع طبقاً لسياسة المنتدى
-
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
أخوتى الأعزاء ذادكم الله من العلم عندما طبقت الكود على الملف خاصتى ظهر لى إرور وتم تلوين سطر فى الكود بلون اصفر هو السطر الثالث من اسفل التالى N = Application.CommandBars.ActionControl.Tag -
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
مشكور أبو نصار جازاك الله خيرا وكل عام وسيادتكم بخير والشكر موصول لأستاذنا الكبير خبور خير جازاه الله خيراً -
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
الله ينور عليك يا عالمنا الكبير خبور خير ولكن أسماء الشيتات وأرقامها ليست بالطول ولكنها بالعرض كما أرفقت الصورة بالمشاركة السابقة جارى محاولة تعديل الكود وسأوافيك بالنتيجة الف شكر -
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
الله ينور عباد باشا بس لو ممكن ولو مافيهاش تعب لمعاليكم ولكل من يريد إثراء الموضوع اسماء كل الشيتات التى أريد إظهارها بالكود موجودة فى أحد شيتات الملف ( الشيت رقم 31 والمسمى MyDate والذى أريده أن يظهر بالكود بإسم الصلاحيات ) بالصف الثانى من العمود الخامس E2 إلى العمود 35 AI2 هل يمكن أن يأخذ الكود اسماء الشيتات من هذا الشيت ؟؟ علماً بأنه الشيت الوحيد بين الشيتات الذى مسماه ليس رقم والصورة المرفقة توضح أسماء الشيتات بالأرقام ومدلول الأرقام بالأسماء Uploaded with ImageShack.us -
مطلوب كود تنسيق شرطى لأعمدة كل عمود بشرط غير الآخر
يوسف عطا replied to يوسف عطا's topic in منتدى الاكسيل Excel
عزيزى الخالدى بك كل عام وسيادتكم بخير ما العمل لو كنت سأستخدم الكود مع نتائج معادلات ؟؟ هل يمكن التغلب على هذه المشكلة ؟؟ -
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
أساتذتنا الأفاضل الكود لا زال يقوم بعرض اسماء الشيتات كما هى باسمائها فى علامة تبويب كل ورقة المطلوب أن يكون فى الكود سطر لكل شيت بحيث تظهر عند الضغط على الزر اسماء الشيتات كما أكتبها بالكود وليس كما هى اسمائها بعلامات التبويب مثلاً الشيت 1 أكتب له فى الكود إسم آخر يظهر به عند الضغط على زر الأوراق أرجو الفكرة وصلت لكم تحياتى -
واجب التعزية لاخينا الدهشوري
يوسف عطا replied to الدهشوري's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
البقاء لله -
وتحياتى القلبية لك أخى الغالى جمال بك دغيدى وكل عام وسيادتكم بخير
-
اضافة زر يمكننى من التنقل بين الشيتات
يوسف عطا replied to إبراهيم ابوليله's topic in منتدى الاكسيل Excel
أخونا المتألق والمبدع دائماً خبور خير الغالى تحية وتقدير لسيادتكم لى طلب فى الكود الخاص بالتنقل بين شيتات الملف لدى ملف به 31 شيت و جميع الشيتات مسماه بأرقام فقط من 1 إلى 31 أريد أن يتم كتابة إسم لكل شيت بالكود لكى يظهر باللستة إسم الشيت وليس رقمه المسمى به مثلاً شيت رقم 22 يظل إسمه كما هو ( 22 ) ولكن إسمه يظهر بليست التنقل بين الشيتات بالإسم الذى أريده مثلاً ( ناجح دور ثان) هل هذا يمكن ؟؟ -
مطلوب كود تنسيق شرطى لأعمدة كل عمود بشرط غير الآخر
يوسف عطا replied to يوسف عطا's topic in منتدى الاكسيل Excel
مشكور يا الغالى الخالدى بك جازاك الله خير وكل عام وأنتم بخير -
مطلوب شيت كنترول الصف الثاني الثانوي العام نظام جديد
يوسف عطا replied to ara6367's topic in منتدى الاكسيل Excel
لا بأس لو بدأ العمل وأرفقته بالموضوع وتخبرنا بما لا تستطيع إنجازه بالعمل وستجد أكثر من مساعدة -
مطلوب شيت كنترول الصف الثاني الثانوي العام نظام جديد
يوسف عطا replied to ara6367's topic in منتدى الاكسيل Excel
راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=31511 -
مشكور أخونا الشهابى جعله الله فى موازين حسناتك وكل عام وأنتم بخير
-
بعد عمل كل الخطوات عندما بدأ تسطيب البرنامج ظهرت رسالة إرور ولم يتم التسطيب
-
مشكور أبو تميم جارى فتح الإيميل وتوقيف الأنتى فايرس
-
الغالى أبو تميم الكراك لا يتم تحميله تم تحميل الأربع ملفات للأوفيس برجاء إرسال الكراك على الإيميل youssef_ata@yahoo.com
-
بالفعل أخى محمود ماتم إذاعته أول أمس تم إعلان عكسه أمس وقد حسمت المحكمة السعودية الخلاف طبقاً للرابط التالى المحكمة العليا السعودية تعلن عيد الأضحى في 26 أكتوبر أ. ف. ب. مواضيع ذات صلة السعودية: الوقوف بعرفة الخميس وعيد الأضحى الجمعة الرياض: أعلنت المحكمة العليا السعودية ومقرها الرياض، ان عيد الاضحى سيوافق يوم الجمعة 26 تشرين الاول (اكتوبر) الحالي، بحسب مصدر رسمي. وذكرت وكالة الانباء السعودية نقلا عن بيان للمحكمة ان غدا الاربعاء هو الاول من شهر ذي الحجة، والوقوف بعرفة يوم الخميس التاسع من ذي الحجة الموافق للخامس والعشرين من تشرين الاول (اكتوبر). واضافت ان عيد الاضحى سيكون الجمعة العاشر من ذي الحجة الموافق للسادس والعشرين من تشرين الاول (اكتوبر) الحالي.
-
مطلوب كود تنسيق شرطى لأعمدة كل عمود بشرط غير الآخر
يوسف عطا replied to يوسف عطا's topic in منتدى الاكسيل Excel
أخى الخالدى أشكرك كلا الكودين الذين تفضلت بكتابتهما يعملان جيداً ولى عندك طلبين لو لا أضايقك بهما 1. شرح الفرق بينهما 2. ما الذى يجب تغييره فيهما لكى يكون لحرف غ لون آخر ؟؟ وشكراً لكرمك -
الاستاذ والزميل يوسف عطا الله المحترم بداية كل عام وانتم بالف خير اشكرك جزيل الشكر على ادبك وأخلاقك وتعاملك الراقي ثانيا لدي ملف واريد من سيادتك اضافة كود الدخول والصلاحيات الذي استخدمته مع ملف المدرسة المصصم من قبل الاستاذ عبد الله المجرب ولكن الملف فية بيانات لا اريد ان تكون معروضة بالمنتدي فكيف ارسلة لسيادتك حاولت انسخ الملف الى الملف الذي عندي ولكن عند التشغيل تظهر معاي رسائل غريبة فهل من طريقة اخرى اتواصل انا وياك بها لتساعدني بذلك شاكر ومقدر لكم تعاونكم يمكنك تالتواصل معى عن طريق الياهو او الفيس بوك والايميل على صفحتى الشخصية youssef_ata@yahoo.com
-
كل عام وأنتم بخير عيدكم مبارك أخوتى الأعزاء تم إعلان اليوم أول ايام شهر ذو الحجة لعام 1433 وبالتالى يصبح الخميس 25 أكتوبر هو وقفة عرفات والجمعة 26 أكتوبر هو أول أيام العيد المبارك فكل عام وأنتم بخير رجاء من أحد المشرفين تعديل عنوان الموضوع ليكون الجمعة بدل الخميس
-
تعديل كود حماية ليعمل فى حالة دمج الخلايا
يوسف عطا replied to يوسف عطا's topic in منتدى الاكسيل Excel
هل هذا التعديل صالح لتفعيل الكود فى كل شيتات الملف ؟؟ أعتقد سوف يصلح جازاك الله خيراً أخى ابو حنين Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub -
جازاك الله خيراً أخى أبو تميم جارى التحميل ونتعشم أن نرى تلبية الطلبين الثانى والثالث قريباً