محمد طاهر عرفه
-
Posts
8,495 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
36
Community Answers
-
محمد طاهر عرفه's post in مساعدة في ترحيل الايميلات من Microsoft Exchange الى Personal Folder was marked as the answer
راجع الخيار التالي
File
options
advanced
autoarchive
-
محمد طاهر عرفه's post in طلب طريقة ارسال بريد الكتروني تلقائي كل يوم لشخص معين was marked as the answer
لا توجد طريقة نمطية جاهزة و الله اعلم ، و انما يمكن ذلك بالبرمجة عن طريق VBA
و لكن اليس محتوي البريد متغير ، كيف تريد ارساله تلقائياً ؟
ربما من المناسب ان تضع لنفسك تذكير بالارسال من خلال المهام Tasks و عمل تذكير من خلال اجتماع وهمي
-
محمد طاهر عرفه's post in التنبيه بصوت عن وصول رسالة was marked as the answer
ليس لدي 2016 حاليا
و لكن فى 2013
Files
options
mail
message arrvival
play sound
ربما يكون الوضع مشابها فى 2016
-
محمد طاهر عرفه's post in استفسار و مشكلة ..ليس فى المكان المناسب و لكن بسبب was marked as the answer
السلام عليكم
بالنسبة للجزء الثاني ، يمكن حفظ الموضوع كما هو موضح بالصورة
-
محمد طاهر عرفه's post in 08 الحلقة الثامنة من دورة الفيزيو من البداية الي الاحتراف - المستوى المتوسط was marked as the answer
تم اضافة تسجيل الحلقة فى الموضوع الاول
-
محمد طاهر عرفه's post in 05 الحلقة الخامسة من دورة الفيزيو - المستوى المتوسط was marked as the answer
السلام عليكم
هذه الحلقة لم يتم عمل بث حي لها لوجود بعض المعوقات ، فبدلا من التوقف قمت بتسجيلها و نشرها مباشرة للحفاظ على الاستمرارية
و نستأنف قريبا باذن الله تعالى
-
محمد طاهر عرفه's post in 04 الحلقة الرابعة و الأخيرة من دورة الفيزيو - المستوى الأساسي was marked as the answer
تسجيل الحلفة الرابعة و الأخيرة من دورة المبتدئين فى الفيزيو
باذن الله نستأنف حلقات المستوى المتوسط و المتقدم بعد العيد
تسجيل الحلفة الرابعة
-
محمد طاهر عرفه's post in 03 الحلقة الثالثة من دورة الفيزيو - المستوى الأساسي was marked as the answer
تم اضافة تسجيل الحلقة
-
محمد طاهر عرفه's post in 02 الحلقة الثانية من دورة الفيزيو - المستوي الأساسي was marked as the answer
الأسئلة الواردة فى نهاية الحلقة من الحضور ، و اجابتها
can we start next time at 9:00 PM? باذن الله نحاول تغيير الموعد مستقبلا عند تخصيص شريط الاوامر السريعة لم يظهر عندي اضافة جديدة ليه ما تظهر الاضافة ؟ الاجابة : يبدو أن لدبك مشكلة فى برنامج الاوفيس ، او انك لم تختار احد الاوامر لاضافته اولا كنت محتاج الحلقة الاولى لو سمحت تم رفعها على الموقع http://www.officena.net/ib/index.php?showforum=161 ممكن لو تكرمت بالراحه شوية لان الشاشة بتقف قليلا الاجابة : أتصور ان ذلك بسبب سرعة الانصال بالانترنت التسجيل للحلقة تم جاري رفعه ، و يمكنك اعادة المشاهدة -
محمد طاهر عرفه's post in 01 الحلقة الأولي من دورة الفيزيو - المستوي الأساسي was marked as the answer
توفر الحلفة فى توقيت آخر لن استطيع تأكيده الان بحسب جودة التسجيل و الاصل انها دورة آنية تفاعلية يتم حضورها فى التوقيت المعلن
بالنسبة للاصدارات الاخري سيكون هناك بعض الاختلافات عند مجاولة التطبيق لاحقا ، و لكن اتصور ان الاستفادة ستكون موجودة
-
محمد طاهر عرفه's post in نحتاج الى قسم تحت عنوان ( مدرسة اوفسينا التعليميه ) was marked as the answer
هناك العديد من المواضيع
و علي سبيل المثال لا الحصر
راجع بعض المواضيع المثبتة فى قسم الاكواد ضمن قسم خلاصة مشاركات الاكسيل
http://www.officena.net/ib/index.php?showforum=51
و مسار القسم كالتالي:
← الأوفيس Msoffice ← Excel منتدى الاكسيل ← دروس و خلاصة مشاركات الإكسيل ← قسم أكواد فيجوال بيزيك التطبيقات - VBA -
محمد طاهر عرفه's post in اقتراح من خلاله يحصل الاعضا ءعلى كل الملفات المرفقه للاجابات الصحيحة في مكان خاص ليسهل تحميلها was marked as the answer
السلام عليكم
هناك زر باسم تم التوصل للحل
يمكن لصاحب الموضوع ان يختار من خلاله الاجابة المثلى
و يمكن ايضا لفريق الموقع تحديدها
-
محمد طاهر عرفه's post in التحكم فى مستوي أمان الماكروهات was marked as the answer
موضوع مرتبط
وجدت هذا الكود فى التعليمات ، و فيها نستخدم خاصية AutomationSecurity
Sub Security() Dim secAutomation As MsoAutomationSecurity secAutomation = Application.AutomationSecurity Application.AutomationSecurity = msoAutomationSecurityForceDisable Application.FileDialog(msoFileDialogOpen).Show Application.AutomationSecurity = secAutomation End Sub
و هذا الكود يستخدم لفتح ملف غير موثوق به
فيتم أولا تسجيل حالة مستوي الأمان الحالية
ثم تغيير مستوي الامان لايقاف كافة الاكواد
ثم فتح الملف
ثم اعادة مستوى الامان لما كان عليه سابقا
-
محمد طاهر عرفه's post in إزالة المسافات الزائدة فى ملف الوورد was marked as the answer
جرب هذا الكود ، سيقوم بحذف المسافات على التوالى و أنت تشاهد الشاشة
Sub replaceit() Dim chrcount As Long nexttt: Selection.WholeStory chrcount = Selection.Characters.Count For i = 1 To chrcount - 1 Application.StatusBar = "Searching ...." & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = " " Then Selection.Characters(i + 1).Text = "" chrcount = chrcount - 1 GoTo nexttt End If End If Next i End Sub