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

نجوم المشاركات

  1. عبدالفتاح في بي اكسيل
  2. هشام مرسي

    هشام مرسي

    03 عضو مميز


    • نقاط

      4

    • Posts

      119


  3. Hamdi Edlbi-khalf

    Hamdi Edlbi-khalf

    الخبراء


    • نقاط

      3

    • Posts

      993


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 21 فبر, 2020 in all areas

  1. جرب هذا الملف هناك خياران الصفحة Targ والصفحة second_sh لا ادري ايهما تريد Copy_Many_times.xlsm
    3 points
  2. السلام عليكم تواجه كثيراً من مستخدمي إكسل مشكلة تشفير الكتابة العربية في الملفات وخاصة تلك المصدرة من الأجهزة والبرامج الأخرى كجهاز البصمة أو الملفات المحملة من الإنترنت أقدم لكم هذا الكود الذي كتبته بعد بحث في موضوع اليونيكود خاصة أني سابقاً قد عانيت من المشكلة و الحلول البديلة تسمح بمعرفة المحتوى دون القدرة على تحويل الملف بالكامل. ملاحظة : يفضل نسخ الملف المشفر قبل إجراء التحويل عليه. a Code shows invalid/ decrypted characters in Excel properly والحمد لله الذي بنعمته تتم الصالحات و صلى الله على سيدنا محمد وعلى آله وصحبه أجمعين وسلم تسليماً كثيراً. عند فتح الملف هنا زر بالنقر عليه تفتح نافذة لاختيار الملف المطلوب ثم مربع حوار لكتابة اسم الورقة ثم مربع حوار اختيار المجال المراد تغييره عن طريق التحديد. الفانكشن في البداية يمكن استدعاؤها كدالة من دوال إكسل ضمن ورقة البيانات يكفي لذلك = InStead(YourText or Cell Address) Public Function InStead(T1 As String) ' Created by Khalf Officena Forums 20/02/2020 ' www.officena.net ' Hamdi Edlbi ' This Code for Showing Arabic Characters Properly In Excel Dim w As Integer w = Len(T1) For X = 1 To w T2 = Mid(T1, X, 1) T3 = AscW(T2) T4 = Chr(T3) T5 = T5 & T4 Next X InStead = T5 End Function Sub InSteadAll() ' This Sub For Call the Function In The Current Sheet On Error Resume Next Dim C As Range For Each C In Selection C.Value = InStead(C.Value) Next End Sub Sub ChooseRange() 'Choose the Range Dim rng As Range Set rng = Application.InputBox("Select The Range", "Decryption Characters", , , , , , 8) Application.Goto rng ' Call The Sub InSteadAll Call InSteadAll End Sub Sub OpenWorkbook() 'Apply The Code to Another Workbook On Error Resume Next Dim strFile As String Dim X As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) ' These Followed Couple of Lines are Optional In Case You Need to Get Specific Sheet X = Application.InputBox("Select The Sheet", "Decryption Characters", , , , , , 2) Sheets(X).Activate Call ChooseRange End Sub Decryption_Invalid_Characters.xls
    2 points
  3. السلام عليكم للاخوة المبتدئين طريقة اخراج او طباعة تقرير بنظام (بي دي اف ) Pdf
    2 points
  4. عندي ملاحظة لا ادري هذا القائم على هذا الموقع يقوم بحدف بعض التعليقات يبدو انه لايميز متى ما اراد يقوم بحدف التعليقات رغم اني تعليقاتي لايوجد بها تجاوزات ويا ريت يشرحلنا ليش عم بيحدف تعليقاتي وليست المرة الاولى
    2 points
  5. برنامج رسم قطاعات الترع مع حساب الحفر تم عمل هذا البرنامج لكي يكون الاسهل في الاستخدام فتم استخدام برنامج الإكسيل لحفظ وإدخال البيانات وبرنامج الأوتوكاد لرسم القطاعات العرضية للترع ولتشغيل البرنامج يتم فنح ملف اكسيل ولتَعَرُّف على طريقة البرنامج تفتح ملف الإكسيل فتجد نموذج لبيانات قطاعين ترعة فيمكن أن تتعرف على طريقة إدخال البيانات بسهولة ولبدء رسم قطاعات ترع جديدة نفتح ملف الإكسيل ويتم إدخال بيانات مناسيب القطاعات والقطاع التصميمي ثم نَفْتح ملف أوتوكاد جديد ثم نتحول إلى الإكسيل ونضغط على زر "مربع حوار رسم" الموجود في ورقة العمل "قطاعات" في الصف الأول فنجد أنه تم اقتراح بعض الإعدادات التي يمكن تغييرها مثل صف بداية بيانات القطاعات وصف النهاية وبداية أول قطاع والمسافة بين القطاعات واسم طبقات كل عنصر من عناصر الرسم بعد تغيير هذه البيانات نضغط زر "رسم القطاعات" ثم نتحول إلى الأوتوكاد فنجد أنه تم رسم جميع القطاعات رسم قطاعات الترع.rar
    2 points
  6. تم عمل هذا البرنامج لكي يكون الأسهل في الاستخدام فإذا كان عندك نص مكتوب في الورد أو إكسيل وتريد نقله إلى الأتوكاد فهذا البرنامج يساعدك كثيرا وقد وضع فيه جدول بالحروف وما يقابلها في فنط الأتوكاد الأكثر شهرة وهو Xarb ويمكن وضع جداول لفنطات أخرى برنامج نقل النص العربي من إكسيل أو ورد إلى الأتوكاد.rar
    2 points
  7. تفضل اخي حتى تعلم كيف تم عملها ادخل على اليوزر فورم واشر على التيكست بوكس الذي تريده ومن قائمة خصائص ابحث عن كلمة lock تجدها false خليها true انظر الى الصورة المرفقة نسخة تجريبية.xlsm
    2 points
  8. بعد اذن الاستاذ نبيل عبد الهادي واثراء للموضوع جرب المرفق اخفاء اوراق العمل بناء على معلومة في خلية.xlsm
    2 points
  9. جرب هذا الكود اخي ابو الخضر Sub print_sheet() Range("A4:w47").Select ActiveSheet.PageSetup.PrintArea = "A4:w47" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub
    1 point
  10. وعليكم السلام ورحمة الله وبركاته يمكن ذلك فمثلا نموذج البحث لايشترط ان يكون الحقل الذي نبحث من خلاله منضم فقد يكون منضم او غير منضم وبناءاً عليه يتم فلترة البيانات او البحث في النموذج الفرعي عن طريق الكود او معيار في الاستعلام تحياتي
    1 point
  11. السلام عليكم ورحمة الله وبركاته أخى فى الله الاستاذ / خلف أحسنت واحسن الله اليك وبارك الله فى عمرك وحفظك من كل سؤ وجزيت خيراً وجعلك الله عوناً لكل من يريد المساعدة فى منتدانا العظيم اوفيسنا *** تمت الإجابة ****
    1 point
  12. تفضل تم وضع كود الأستاذ ابراهيم بملفك وربطه بالزر 111.xlsm
    1 point
  13. السلام عليكم لقد أضفت نموذجاً للإدخال فيه سائر الخصائص مع إمكانية الإدخال و التعديل بانتظار أي استفسار. HamdiE33مثال.accdb
    1 point
  14. بالخدمة اخي العزيز جرب هذا الملف وهو مبني على قاعدة بياناتك مع تغيير اسماء الجداول الى اللغة الانجليزية وحذف بعض السجلات من الجداول لعدم الحاجة لها مع بقاء المضمون حسب فهي لقاعدة البيانات ارجو موافاتي بالنتيجة Root111.rar
    1 point
  15. وعليكم السلام ورحمة الله وبركاته من الاستعلام استخدم B : Text1 & "" & Text2 & "" & Text3 & "" & Text4 & "" & Text5 & "" & Text6 عن طريق الكود ضع هذا الكود في وحدة نمطية Public Function All_Text(ID As Long) As String On Error GoTo err_All_Text Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl1 Where ID=" & ID) All_Text = rst!Text1 & "" & rst!Text2 & "" & rst!Text3 & "" & rst!Text4 & "" & rst!Text5 & "" & rst!Text6 Exit_All_Text: rst.Close: Set rst = Nothing Exit Function err_All_Text: If Err.Number = 3265 Then All_Text = "" Resume Exit_All_Text Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function ثم استدعي الكود في الاستعلام بالشكل التالي A: All_Text([id]) مرفق مثال ارجو ان يفيدك D55.zip تحياتي
    1 point
  16. السلام عليكم ورحمة الله استخدم هذا الكود Sub UnhideSheets() Dim Sh As Worksheet For Each Sh In Worksheets Sh.Visible = xlSheetVisible Next End Sub
    1 point
  17. السلام عليكم اخي الكريم تفضل الشرح بالصور عن طريق التنيسق الشرطي (افتح النموذج في وضع التصميم ثم قم بتاشير الحقل ثم اضغط على التنسيق الشرطي) وباقي الشرح بالصور تم رفع الملف كامل بعد التعديل تحياتي قاعدة بيانات (220000).rar
    1 point
  18. حل بسيط يأخي في التقرير ضف الرقم 1= إذهب إلى ورقة الخصائص التنسيق بعدها تركماني وجعلها شامل
    1 point
  19. المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device
    1 point
  20. كما تفضل الاخ احمد يوسف جزاه الله خيرا ماهو المطلوب عمله حتى يقوم الاساتذة بعمله ؟ مع ذلك انا لاحظت بعض المشاكل وحلها ولعله هو المطلوب . والا ابدا بشرح المشكلة وماهو المطلوب لكم تحياتي كتاب++.xlsm
    1 point
  21. استخدم هذا المرفق اخفي الملف وحطه في أي موقع بالجهاز وحدد مساره بالكود وحدد اسم الورقة فقط طريقة البحث وجلب القيمة نفس طلبك السابق واذا تريد تغير صيغة البحث بالامكان تطويع الكود لأي حاله تريد البحث في جدول5 .xlsm
    1 point
  22. برنامج بيع بالاكسيل vba مجاني اسم المستخدم :مدير الرقم السري:5555 برنامج الافق __.rar
    1 point
  23. أخي الكريم جرب هذا الكود فهو أكثر ديناميكية، لان حل الموضوع في الملف السابق تظهر بعض الأخطاء أتمني أن يفيدك هذا العمل مرفق الملف cascadingcombosinexcel_ii.rar
    1 point
  24. السلام عليكم أخي الكريم ابحث أولا بالمنتدي ستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية كلها مواضيع تناولت هذه النقطة والكثير الكثير أيضا من المواضيع التي تناولتها فقط إبحث
    1 point
×
×
  • اضف...

Important Information