اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمود الشريف
عدد النتائج (107) نتيجة
06-09-2018 02:23 مساء
icon مسابقة MVPs Excel Hash | الكاتب :محمود الشريف |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب محمود الشريف وجزاك الله خيراً

أعتقد أنه لن يوجد مهتمين في الوطن العربي بشكل كبير .. فلنا اهتمامات أخرى والله المستعان sad


صدقت أستاذى // ياسر خليل

فبالفعل للعرب اهتمامات أخري 

فى نفس التوقيت الذى قمت بوضع الموضوع بهذا المنتدى الكريم ، قمت بوضعه بأحد المنتديات الأجنبية 

وشتان بين الأثنين 

وهذا الشىء مخزى بالفعل 

=========

أما بالنسبة لسؤال الأستاذ // اسلام 

هذه الأشكال لكى تظهر بأبعاد ثلاثية أثناء تحريكها وهى غير متوفرة الا فى اوفيس 365

ويستخدمها المتخصصون فى عالم الأحياء وخلافه فى انشاء الشروحات والتشريح ....الخ 

وهذا ما تم الاعلان عنه مؤخرا بأحد مؤتمرات شركة مايكروسوفت بدولة باكستان وبالبرازيل وببريطانيا 

انه تم اضافة العديد من الأدوات الأكثر تفاعلية  بأوفيس 2019 قبل طرحه ، أثناء تسليم جوائز MVP وهى تعتبر

اضافة قوية جدا ومنافسة للغات البرمجية الأخري 

وخاصة بعد دخول لغة الـ VBA وحصولها على المركز الثالث عشر فى أكثر اللغات البرمجية استخداما 



 
18-08-2018 10:32 مساء
icon طباعة فورم اكبر من حجم الشاشه على ورق a4 | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم

لكى اوضح لك أكثر ، كيف تتم الطباعة ؟

الطباعة من الأوفيس تتم تحت شروط الويندوز 
فعندما تقوم بتسطيب طابعة ( واقصد جهاز الطابعة ) تسطبها طبقا لتوافقها مع الويندوز وليس الأوفيس

الأوفيس يتم تحديد الهوامش فيه تلقائيا أو يدويا طبقا لضوابط الهوامش فيتم التمرير للطابعة تحت ضوابط الويندوز

المشكلة التى لديك ليست مشكلة ولكنها تحتاج الى اعادة تنسيق للفورم الخاص بك 

مثلا تريد طباعة صفحة ويب ،، تتم تمرير صفحة الويب للطابعة تحت شروط الويندوز 
فتكون النتيجة تقسيم صفحة الويب الى عدة صفحات مع وجود شرط الهامش 

وللعلم برمجة الويب تكون من خلال اقوى لغتين برمجية بالسوق حاليا وهى الجافا سكربت مع مكتبات الـ JQ 
وبالرغم من ذلك لا تستطيع هذين اللغتين تجاوز نظام الويندوز

الفورم الخاص بك انت تقوم بعرض كافة البيانات به وهذا شىء مقبول اثناء التصفح واستخدام شاشة الفورم
ولكن اثناء الطباعة لا يمكن تجاوز الويندوز

لكي  نتغلب على هذه المشكلة عليك بوضع كود برمجي ينقل البيانات من اليوزر الى Sheet  مخصص لطباعه الفورم
أى تقوم بتخصيص Sheet لطباعة الفورم ، له نفس التنسيق الذى تريده ومن خلاله تستطيع طباعة الصفحتين بشكل منسق 

وللعلم ان جميع البرامج المعتبرة ( القوية ) تقوم بنفس الفكرة فى حالة اذا كان حجم الفورم المستخدم يحتوى على بيانات تتجاوز حجم الشاشة 
فتنقل بيانات الشاشة الى صفحة ويب مخصصة 
أو الى ملف اكسيس
أو الى ملف اكسل 
18-08-2018 04:25 مساء
icon طباعة فورم اكبر من حجم الشاشه على ورق a4 | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 الاستاذ الكريم

الكود الذى اضفته يقوم بطباعة الفورم ايا  كان حجمه

فيما يختص بخفاء واظهار ، فقط كل ما وودت الاشارة اليه كيف تعدل على الكود لكى يتماشى مع الفورم الخاص بك

فيما يختص بإختلاف التنسيق الخاص بحجم الورقة A4

لقد ذكرت فى تعليقي السابق يجب ان يكون الفورم منسق ومرتب لكى يتوافق مع حجم الورقة 
فلا يعقل انك تريد طباعة فورم حجمه اكبر من الشاشة أو اكبر من حجم الورقة 

وانا اطلعت على ملفك والفورم الذى به غير منسقة ولا تتناسب مع العديد مع احجام الشاشات المختلفة

ويجب أن تعي ان هناك جزئية اثناء الطباعة يجب ان تكون فى الحسبان ، تسمى سحب الورقة
فكل طابعة تختلف فى المساحة الفارغة ( الهامش ) الذى يكون فى أعلى الورقة
ولا يمكن التحكم فيها

ولو نظرت قليلا الى التنسيق الخاص مثلا بالوورد فى احجام الورقة
يفرض عليك ترك مساحة للهوامش تحسبا لجزئية سحب الورقة اثناء الطباعة 

أعتقد أننى أوضحت لك هذه الجزئية
18-08-2018 12:37 مساء
icon طباعة فورم اكبر من حجم الشاشه على ورق a4 | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم 
جرب الكود التالي لطباعة الفورم الذى تريده 

تلميحات
يوجد بالشفرة التالية 
أسطر برمجية خاصة بإخفاء ما تريد اخفاؤه من buttons
تقوم فقط بكتابة مسمياتها بالشفرة مسجل من 1 إلى 3

فيفضل ترتيب الـ buttons بنفس الأسلوب فإذا كان لديك عدد buttons 7   مرتبين اى بالـ UserForm من 1 : 7
مثل
CommandButton1
CommandButton2
CommandButton3
وهكذا الى 7
ستقوم بتسجيل من 1 : 7
ونفس الطريقة لأى شىء ستقوم بإخفاؤه 

لا بد ان يكون تنسيق الـ UserForm بشكل صحيح ونظيف ومرتب 

الشفرة ستطلب منك عدد النسخ التى تريد طباعتها فقط عندما تظهر لك النافذة الخاصة بذلك ضع عدد النسخ 

Sub Test_Print_UserForm()
On Error Resume Next
Dim Count As Integer
Dim Comm As Integer

If MsgBox("Do you want to print this form? " & vbYesNo + vbQuestion + vbMsgBoxRight, "Confirm print ") = vbYes Then
    Count = InputBox("Please enter the number of copies you want to print?" & Chr(13) & Chr(13) & "Default one copy", "Number of copies", "1")
   '==================================
    'Hide buttons while printing
    'Add what you want to hide in the same way
    For Comm = 1 To 3
        Me.Controls("CommandButton" & Comm).Visible = False
    Next Comm
   '==================================
    Me.Hide
   '==================================
   'The number of copies required to print
    Do Until Count = 0
        Me.PrintForm
        Count = Count - 1
    Loop
   '==================================
End If
End
On Error GoTo 0

End Sub
18-08-2018 12:07 مساء
icon مشكلة في ملف الأكسل برجاء مساعدتي | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أستاذى القدير // ياسر خليل
هذه شهادة أعتز بها ، وتواضع منك 
وجزاكم الله عنى خيرا
18-08-2018 10:56 صباحا
icon مشكلة في ملف الأكسل برجاء مساعدتي | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم // الأستاذ / مصطفي

مبدأيا إطلعت على الملف
فوجدت التالي 
* الملف المرفق ليس الملف الأصلي ،، وهذا واضح جدا من الملف ، لذا لم يتم التعرف على المشكلة وما هى ؟
* يوجد لديك ثلاث UserForm خارج نطاق الذاكرة أعتقد والله اعلم انه تم نقلهم من الملف الأصلي الى الملف الذى ارفقته بموضوعك بطريقة غير صحيحة 
  (( FrmAHU , FrmFLOOR , FrmZONF ))


 فلنحاول معا فهم المشكلة 
لديك خطأ بالنظام والغريب انه خطأ شائع بالنسخة 2010
وهو (System Error &H8000FFFF (-2147418113

الخطوات المعتادة لمعالجة هذه المشكلة 
حاول تصدير userform من املف الأصلي الى ملف آخر يكون الملف الثاني مهيئا بإمتداد يسمح بتشغيل الماكرو
استيراد الملف إلى مصنف جديد
تحرير وحفظ المصنف الجديد

إذا نجح هذا ، لديك خيار حذف نموذج المستخدم من المصنف الخاص بك ، ثم استيراده مرة أخرى ، إذا لم يتم حفظه ، فيجب أن يكون هناك خطأ في المصنف نفسه

واذا لم ينجح فتأكد أن هناك بعض الأخطاء في ال userform ، فحاول إنشاء واحد مشابه

------------------------------------------
تلميحات ضرورية
------------------------------------------
يمكن أن يكون الخطأ نتيجة شيء لم يتم تحميله في الوقت الذي يتم فيه تشغيل التعليمات البرمجية.
إذا كان  لديك رمز حدث "Workbook_Open" في ThisWorkbook ، قم بتغيير اسم الحدث بحيث لا يتم تشغيله على الشاشة وشاهد ما يحدث.

إذا سمح النظام بفتح المصنف ثم بعد فتح المصنف ، قم بتشغيل التعليمة البرمجية Workbook_Open.
(يمكنك فقط فتح الوحدة النمطية والنقر في أي مكان في القسم الفرعي والضغط على F5 وسيتم تشغيله)

من الممكن أن يكون لديك كود في حدث Workbook Open الذي من المفترض أن يقوم بتحميل شيء لا يتم تحميله بسرعة كافية قبل تشغيل التعليمات البرمجية الأخرى التي تعتمد على الكائن الذي يتم تحميله (على سبيل المثال ، إذا كان من المفترض أن يتم تحميل userform ومن ثم تشغيل التعليمات البرمجية لملء rowsource combobox أو قائمة) ، وهذا الذى أرجحه بملفك لأن الأخطاء التى تظهر خارج نطاق الذاكرة وخطأ بالنظام .

إذا كان جهاز الكمبيوتر في العمل لا يعمل بالسرعة التي يعمل بها الكمبيوتر الخاص بك ، فيمكن أن يكون هذا هو السبب ، للمساحة ( خارج نطاق الذاكرة ) .

يمكنك فرض تشغيل التعليمات البرمجية قبل تشغيل التعليمات البرمجية التالية
عن طريق إدراج سطر DoEvents والذي يسمح لها "Catch up" قبل تشغيل تعليمات برمجية أخرى.

واذا كنت لا تستخدم Option Explicit ، يرجي استخدامها وقم بتشغيل التعليمات البرمجية من داخل المحرر 
قبل تشغيل التعليمة البرمجية ، يمكنك استخدام Debug > Compile
وسيعثر على الخطأ قبل تشغيل التعليمات البرمجية.
وسيجد أي كائن مثل عنصر تحكم TextBox أو ComboBox الذي هو misspelt.
17-08-2018 08:00 صباحا
icon تعديل علي كود vba لتقسيم ملف وورد الي عدة ملفات | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى الكريم الأستاذ / على 
جزاكم الله خيرا ، ولكم بمثل ما دعوتم لى وزيادة 

أستاذى القدير // ياسر خليل
لا شكر على واجب ، فلكم كثير من الفضل علىَ بعد رب العالمين فى التعمق فى هذا المجال 
فجزاكم الله عنى خيرا 
17-08-2018 02:53 صباحا
icon تعديل علي كود vba لتقسيم ملف وورد الي عدة ملفات | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 اخى الكريم // على
اشكرك للتنويه فقد أخطأت فى كتابة التسلسل 
وجزاكم الله خيرا على التنويه 
(( تم التعديل ))
ولكن الأهم هل كان الكود مجزيا معك على الملف الخاص بك ؟
 
17-08-2018 01:16 صباحا
icon تعديل علي كود vba لتقسيم ملف وورد الي عدة ملفات | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 الأستاذ الكريم // على
وبعد اذن الأستاذ القدير // ياسر خليل

جرب هذا الكود 
الكود نفس الكود الذى أضافة صاحب الموضوع ( الاستاذ / عماد ) بعد تعديلات بسيطة لكى يعمل على أى مستند بدون الأداة المساعدة 
الكود قمت بتجربته على ملف به 150 صفحة 
يقوم بالتقسيم كل ملف صغير به 3 صفحات
يقوم بالحفظ وتسمية الملف برقم الصفحات
( يأخذ الأسم الأصلي ويضيف له رقم بدء الصفحة اى مثلا الملف اسمه MZM يكون اسم الجزء الأول MZM 003 والثاني MZM 006 وهكذا )
يحفظ الملفات داخل نفس المجلد الذى به الملف الأصلي ، لذا يفضل وضع الملف الأصلي داخل مجلد لوحده 


Option Explicit
 
 
Sub SplitIntoPages()
    Dim docMultiple As Document
    Dim docSingle As Document
    Dim rngPage As Range
    Dim iCurrentPage As Integer
    Dim iPageCount As Integer
    Dim strNewFileName As String
     
    Application.ScreenUpdating = False
    Set docMultiple = ActiveDocument
    Set rngPage = docMultiple.Range
    iCurrentPage = 3
     
    iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
    Do Until iCurrentPage > iPageCount
        If iCurrentPage = iPageCount Then
            rngPage.End = ActiveDocument.Range.End
        Else
             
            Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 3
            rngPage.End = Selection.Start
        End If
        rngPage.Copy
        Set docSingle = Documents.Add
        docSingle.Range.Paste
        docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
        strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
        docSingle.SaveAs strNewFileName
        iCurrentPage = iCurrentPage + 3
        docSingle.Close
        rngPage.Collapse wdCollapseEnd
    Loop
    Application.ScreenUpdating = True
     
    
    Set docMultiple = Nothing
    Set docSingle = Nothing
    Set rngPage = Nothing
End Sub
17-08-2018 12:31 صباحا
icon اريد تفعيل الدوال الجديدة في اكسل 2016 | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 اخى الكريم 
الدالة TextJoin موجودة بدأ من اصدار 2016 
اذا كان لديك مشكلة فى عدم تواجدها 

الحل
 تسجيل الدخول إلى حساب 365 الخاص بك ، أو قم بإنشاء حساب عليه ، وتحديد تثبيت 365 على الجهاز مرة أخرى.


 
17-08-2018 12:05 صباحا
icon طلب كود طباعة متغيرة اوتوماتيكيا ً بحيث كل ما تتغير القائمة ياخذ اخر صف فيه بيانات | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 الأستاذ / محمد عبد السلام

سؤالي لك ، هل قمت بتجربة الكود الذى أضفته من قبل 
لأنى قمت بتجربة الكود على ملفك ويعمل بدون أى مشاكل 

برجاء تجربة الكود الذى قمت بإضافته 
لأنك لم تجرب الكود وهذا ما أعتقده 
 
17-08-2018 12:03 صباحا
icon تعديل علي كود vba لتقسيم ملف وورد الي عدة ملفات | الكاتب :محمود الشريف |المنتدى: اكسيل اسئله واجابات
 أخى وأستاذى القدير // ياسر خليل 
جزاكم الله خيرا على استكمال النقطة المتبقية والخاصة ( بالتسمية والحفظ التلقائي )

الكود فى الأساس للأستاذة // فيفيان ماند _ برازيلية الجنسية _ لها أكثر من 150 مشروع متكامل مغلق ومفتوح المصدر على الموقع العملاق GITHUB 
قمت بتطويره ليتلائم مع طلب الأستاذ / على 
وحاليا حضرتك أضفت له الباقي ، فجزاكم الله خيرا

فيما يختص بجزئية المشكلة الخاصة بالتقسيم ، سوف اتطرق لجزئية بسيطة للتوضيح
التقسيم يعتمد فى الوورد تحديدا على المحددات 
والملف الموجود ليس به محددات أى علامه تجبر الكود على التعاطي مع الملف والتقسيم

فالكود الذى أضافه الأستاذ / على _( الكود الثاني فى البداية ) كما ذكرت انه يعمل بناء على اداة يتم اضافتها للوورد
هذه الأداه كما علمت انها تقوم بوضع محدد وهمى اثناء تنفيذ الكود 
ويلجأ فى النهاية الى تفريغ الذاكرة ، وهذا ما أشار إليه الأستاذ القدير // ياسر خليل

هناك شفرات تعمل بكفاءة عالية مع مثل هذه الأحجام شرط وجود المحدد أى العلامة 
وطبعا صعب اضافة العلامة بشكل يدوى مع حجم الملف 
قد تكون العلامة مثل (شرطة مائلة ، أو ما شابه )

بالطبع الكود الذى اضفته لا يتعرض للملف الأصلي بأى شىء 
ولكن فى حالة اضافة تفريغ الذاكرة ، انصح بعمل نسخة احتياطية من الملف قبل التجربة ، والله أعلم
 

الصفحة 1 من 9 < 1 2 3 4 9 > الأخيرة »





الساعة الآن 12:34 مساء

أعلن هنا
أعلن هنا
أعلن هنا