-
Posts
8,707 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
36
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد طاهر عرفه
-
السلام عليكم 1- إضافة إظهار صندوق اختيار (اختيار القسم الذى يتم فيه التعديل على الملفات المختلفة فى المجلد) بخلاف ما يتم عامة : الكود الحالي يقوم بالاستبدال لكل اوراق العمل ، اذا اردت اظهار رسالة لاختبار اسم ورقة العمل ، فسيعمل الكود على ورقة عمل واحدة فقط بدلا من الجميع في الوضع الحالي 2- فى التغييرات يتم الاخذ من أول قسم 1 (Div.01) وإذ لم يوجد يكمل فى باقى الشيتات بعدها وكما ظهر لسيادتكم فى الملف المرفق ما حدث للشيت الـ Cover فى الخلية A1 : اذا اردت اسثناء ورقة عمل او اكثر اسمها محدد مسبقا فهذا ممكن 3- يعمل على الملفات بدون النظر الملف به حماية أو لا : لا اعتقد ان هذا ممكن 4- لا يتم الدخول على المجلد الذى به الملفات (لان المجلدات بها مجلدات أخرى - لانها شجرة - من المجلدات ولكنها خاصة بمشروع واحد) وإنما يتم الدخول على المجلد الرئيسى : أتصور أن هذا ممكن 5- يحول الملف إلى صيغة PDF : يحوله لا اعتقد ، و لكن أتصور من الممكن حفظه بهذا التنسيق كملف اضافي و ليس معني تصوري ان هذا ممكن اني اعرف الحل ،و لكن ساحاول باذن الله ، و فى انتظار مساهمة باقي الاخوة وأتوقع مساهمات و حلول و أفكار مميزة
-
تحويل وقت مخزن كنص الى تنسيق الوقت
محمد طاهر عرفه replied to أبو عبد الملك السوفي's topic in منتدى الاكسيل Excel
تم تعديل المشاركة اعلاه ، و اضافة معادلة الطرح و 0.5 هنا تعني نصف يوم -
تحويل وقت مخزن كنص الى تنسيق الوقت
محمد طاهر عرفه replied to أبو عبد الملك السوفي's topic in منتدى الاكسيل Excel
السلام عليكم المشكلة فى ملفك هي وجود مسافة زائدة قبل النص للتغلب عليها =MID(A7,2,2)&":"&MID(A7,5,2)&":"&MID(A7,8,2) أو =RIGHT(A7,8) مرفق الملف به المعادلتان Date2Txt.zip -
لم افهم السؤال البيانات المتغيرة في هذه الحالة سيكون مصدرها هو الإكسيل و النموذج و البيانات الثابتة ستكون في القالب الموجود في الوورد و سيتم تطبيق الدمج البريدي في الوورد لماذا تريد تعديل القالب في الوورد بالكود؟ الأمر يبدو لي يحتاج استخدام طبيعي مباشر الدمج البريدي فقط و تكون قاعدة البيانات في ملف اكسيل
-
هذا الكود يمثل جزء مما طلبت و ليس كله فبتشغيله تقوم بتحديد الكلمة المراد استبدالها ، ثم الكلمة البديلة ، ثم تحدد المجلد فيقوم الكود بفتح الملف و استبدال الكلمة و الاغلاق لكل الملفات الموجودة فى المجلد على التوالي Sub ReplaceInFolder() Dim strPath As String Dim strFile As String Dim wbk As Workbook Dim wsh As Worksheet Dim strFind As String Dim strReplace As String strFind = InputBox("Enter text to find") If strFind = "" Then MsgBox "No find text specified!", vbExclamation Exit Sub End If strReplace = InputBox("Enter replacement text") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strPath = .SelectedItems(1) Else MsgBox "No folder selected!", vbExclamation Exit Sub End If End With If Right(strPath, 1) <> "\" Then strPath = strPath & "\" End If Application.ScreenUpdating = False strFile = Dir(strPath & "*.xls*") Do While strFile <> "" Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False) For Each wsh In wbk.Worksheets wsh.Cells.Replace What:=strFind, Replacement:=strReplace, _ LookAt:=xlWhole, MatchCase:=False Next wsh wbk.Close SaveChanges:=True strFile = Dir Loop Application.ScreenUpdating = True End Sub المصدر الملف للتجربة Replacer.zip
-
اصلاح النص إلى اللغة العربية
محمد طاهر عرفه replied to Laweed's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم بدلا من فتح الملف بالاكسيل مثلا يجب استيراد الملف بعد فتح الاكسيل Data From Text و اختار الملف ثم اختار الترميز المطلوب فى الخطوة التالية من خانة File Origin- 2 replies
-
- ascii converter
- تحويل النص
-
(و1 أكثر)
موسوم بكلمه :
-
رابط الموضوع السابق
-
كيف يمكن تغيير تنسيق ما بين القوسين؟
محمد طاهر عرفه replied to سمر المحمدي's topic in منتدي الوورد Word
و تم اضافة حل عن طريق الكود فى نفس الموضوع المشار اليه اعلاه من هنا -
إستبدال كل ما هو بين قوسين فى الوورد
محمد طاهر عرفه replied to منصور القباطي's topic in منتدي الوورد Word
السلام عليكم من السهل استبدال تنسيق الاقواس نفسها بعد ذلك و هناك ايضا فكرة اعجبتني عن استبدال الاقواس بحرف مميز تجدها هنا و الحل الاخر هو اللجوء للكود و لكن ربما الامر لا يحتاج مثلا هذا الكود سيجعل كل ما بين الاقواس Bold ، و من دون الاقواس نفسها Sub FormatBetBrackets() Dim cDoc As Word.Document Dim cRng As Word.Range Set cDoc = ActiveDocument Set cRng = cDoc.Content cRng.Find.ClearFormatting With cRng.Find .Forward = True .Text = "(" .Wrap = wdFindStop .Execute Do While .Found cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd cRng.MoveEndUntil Cset:=")", Count:=Word.wdForward cRng.FormattedText.Bold = True cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd .Execute Loop End With End Sub و مثلما جعلنا الخط Bold يمكن التحكم بباقي الخصائص مثلا نجعله ازرق و حجم الخط 12 هكذا cRng.FormattedText.Bold = True cRng.FormattedText.Font.ColorIndex = wdBlue cRng.FormattedText.Font.Size = 12 -
أبشر
-
كيف يمكن تغيير تنسيق ما بين القوسين؟
محمد طاهر عرفه replied to سمر المحمدي's topic in منتدي الوورد Word
اعجبتني فكرة الاستبدال كحل مبتكر و يمكن الاستعاضة عنها باستخدام \(*\) مثل ما هو مشروح في هذه المشاركة هنا -
افكار ممتازة للمنتدى الجميل ضع سؤلك في الباب المخصص
محمد طاهر عرفه replied to طاهر الوليدي's topic in قسم الأكسيس Access
الحقيقة ان هذا تم تطبيقه لفترة ليست بالقصيرة و لكن كان له عيوب كما له مميزات و خلصنا بعدها إلي أفضلية دمج الاقسام مرة أخرى لعموم الفائدة . و ان كن التقسيم افيد من وجهة نظر عدد كبير من الأعضاء و لكن واقع التطبيق كان اصعب في المتابعة و التنظيم و الطرح و البحث -
إستبدال كل ما هو بين قوسين فى الوورد
محمد طاهر عرفه replied to منصور القباطي's topic in منتدي الوورد Word
السلام عليكم بعد اذن اخي تومي ، باستخدام الواجهة الانجليزية لاختبار ما بين القوسين () ، جرب التالي اختار مربع الاستبدال CTR+H اختار التاب الخاص ب Find و اكتب فى مكان البحث ما يلي \(*\) ثم اضغط على More و عد ذلك اختار Wild Card او احرف البدل ثم اختار Find in All Document او Find within selection و سيتم تحديد كا بين الاقواس هذا فى حال الاقواس العادية () اما الاقواس المسماة براكت [] فيتم عمل نفس الخطوات مع استخدام البحث عن (\[)(*)(\]) -
مطلوب برنامج او طريقة لحذف الايميلات المكررة من ملف pst
محمد طاهر عرفه replied to melaad's topic in منتدى الاوتلوك Outlook
السلام عليكم ما المقصود بالايميلات المكررة ، هل تقصد ان لها نفس العنوان مثلا ؟ -
السلام عليكم اعتقد انها تحفظ فى ال OST file OST (Microsoft Exchange offline) و ليس ال PST ما دمت لم تنقلها اليه عمدا للوصول اليه اختار Run %USERPROFILE%\AppData\Local\Microsoft\Outlook و ستصل لمكان الملف او ابحث عنه فى الجهاز مباشرة فى المسار التالي C:\Users\Username\AppData\Localp\Microsoft\Outlook حيث بالطبع ستستبدل Username بالاسم الخاص بك على الجهاز
-
السلام عليكم ما المقصود بحساب info ?
-
نقل البريد الوارد لشخص معين الى الملف الخاص به تلقائيا
محمد طاهر عرفه replied to dragon2007's topic in منتدى الاوتلوك Outlook
يمكن النقل لمجلد مخصص باسم كل شخص ، و ذلك عن طريق عمل قاعدة تحويل rule من قائمة Home Move Rules Create new rule -
الملف المرفق معطوب و لم اتمكن من فتحه
-
الموصلات
محمد طاهر عرفه replied to Abdulmonem Farrag's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم لم يصادفني ذلك من قبل ربما النسخة تحتاج لاعادة تحميل من ناحية اخرى هناك بعض النوعيات لا تسمح بتعدد الوصلات مثلا الهيكل التنظيمي Organization chart تسمح بمدير واحد و بالتالي عند اضافة وصلة لمدير جديد سيختفي السابق كما انها لا تسمح بوجود Loops -
هذه الرسالة تعني ان خيارات امان الماكرو غير مفعلة لديك
-
تم
-
راجع رابط رقم 8 الباقي تم تعديله
-
تم حذق الثلاثة مواضيع التي لا ردود عليها و تم تعديل الموضوع الاول فقط المواضيع 2 و 3 و 4 بها نفس رابط الموضوع الاول ، فلم اكمل الباقي فى انتظار الروابط الصحيحية
-
لم يصلني على البريد سوي البريد الاول ، الذي به مرفق واحد ووصلات للمواضيع يرجي اضافة ما يغني عن المرفقات السابقة فى كل موضوع سواء كانل نسخة معدلة من قاعدة البيانات او شرح للحل بوضوح ، و اخباري لاقوم بحذف المرفقات او الردود السابقة في كل موضوع