بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد طاهر

أوفيسنا
  • Content count

    5,718
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    18

محمد طاهر last won the day on August 25 2015

محمد طاهر had the most liked content!

السمعه بالموقع

724 Excellent

عن العضو محمد طاهر

  • الرتبه
    إدارة الموقع

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس
  • Location
    مصر
  • Interests
    أوفيسنا

Contact Methods

  • Website URL
    http://www.officena.net

اخر الزوار

8,672 زياره للملف الشخصي
  1. لماذا لا تستخدم خاصية الاستبدال Replace CTR+H
  2. السلام عليكم الان هل المشكلة قد تم حلها ؟
  3. المشاركات لم تفقد و لله الحمد كلها موجودة ، و لكنها مشكلة تتعلق بالاظهار و ربما سببها الكاش على السيرفر و جاري بحث الامر باذن الله تعالي
  4. بالفعل جاري بحث الامر باذن الله تعالي و اذا ظهرت المشكلة فى مواضيع أخرى ، ارجو وضع الرابط هنا فى هذا الموضوع
  5. السلام عليكم ارجو التوضيح اكثر ، لقد اضفت رد فى الموضوع و ظهر لي ما الذي لا يظهر ؟
  6. فهرس تسجيلات الدورة http://www.officena.net/ib/index.php?showtopic=55853
  7. فهرس الحقات السابقة http://www.officena.net/ib/index.php?showtopic=55853
  8. فهرس الحقات السابقة http://www.officena.net/ib/index.php?showtopic=55853
  9. السلام عليكم ارجو مراجعة هذا الملف فى مكتبة الموقع ، ربما به ما تريدين
  10. و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  11. السلام عليكم لنقل ورقتي عمل او اكثر لنفس الملف ، هنا اعليك اختيار اسم الملف و قد اخترته officena على سبيل المثال Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  12. السلام عليكم اذا اردت تكرار الامر علي عدد من اوراق العمل التي تختارها بمعرفتك عن طريق تحديد اسمها ، يمكنك تكرار الجزء الاوسط من الكود كما يلي: Sub SplitSpecificSheet() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False ' Sheet1 Set SH = Sheets("Sheet1") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' Sheet2 Set SH = Sheets("Sheet2") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
  13. جرب البحث التفصيلي الوارد فى More Tools
  14. من بريد الجي ميل نفسه على الويب اضغط علامة الترس التي بها قائمة منسدلة ، ثم Setting ثم من القوائم العرضية اختار forwardnig and pop / imap و تاكد من التفعيل لل pop ثم اختار configurstion instructions للاوتلوك فى نهاية خيار ال pop و التي توصل الي التفاصيل التالية ، و عليك اتباعها https://support.google.com/mail/answer/7104828?hl=en&visit_id=1-636274382355152313-3169470171&rd=1
  15. عند انشار رسالة جديد او رد ، اضغط options request a read receivpt اشعار بالوصول اي التسليم على صندوق بريد المستلم request a delivery receipt اشعار بقيام المستلم بالقراءة و لكن يمكن للطرف الاخر تجاهل ارسال الاشعار