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

محمد طاهر عرفه

إدارة الموقع
  • Posts

    8,707
  • تاريخ الانضمام

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

  • Days Won

    36

كل منشورات العضو محمد طاهر عرفه

  1. السلام عليكم أخي حسام ، ياريت بلاش حكاية دكتور دري لو سمحت :$ بالنسبة للموضوع بالنسبة للجزء اللاول من الموضوع ، من المفترض أن يعمل الكود اذا تم نقله الي نفس المكان و تأكد من تطبيق نفس الشروط من حماية بكلمة سر و اخفاء بالنسبة للثاني لتغيير عدد مرات الفتح : If aa = 9 Then MsgBox "Used for 9 times , no more use is allowed !!"
  2. If Nz(Me!name, "") = "" Then MsgBox "you must Enter a name" Me!name.SetFocus Exit Sub End If كما فى النماذج 3 و4 فى هذا المثال
  3. مشكور او رجو عدم التردد فى اضافة أي معلومة ، فبإذن الله نأمل أن تكون المعلومة متاحة ليستفيد منها أكبر عدد علي المدي الطويل - أي ليجدها من يبحث عنها فى أي وقت مع تحياتي
  4. مثال جميل جدا و يمتاز بتعدد القواعد :( الفرق بين مثال ابن مسقط والمثال السابق أن المثال السابق أبسط قليلا لعمل ذلك و هو مجهز لنسخ و ضغط القاعدة نفسها افتراضيا فى مسار آخر ، و يمكن استخدامه ايضا لنسخ و ضغط أي قاعدة الي مسار آخر
  5. ضع الكود السابق كله فى موديول و فى الكود الخاص بزر الامر استدع الروتين الفرعي ExcelSave مثال Private Sub CommandButton1_Click() ExcelSave End Sub
  6. أعتقد أن المشكلة التي أثيرت سابقا بخصوص هذا الموضوع ، كانت كيفية استخدام المعادات العربية فى النسخة الانجليزية ؟؟ فمثلا أريد ان أكتب كسر تحت الجزر بالعربية فهل تصلح معه محرر المعادات النمطي فى النسخة العربية ؟؟ و ان كان ، فللاسف لا يصلح مع النسخة ذات واجهة التطبيق الانجليزية ، فهل لها من حل ؟؟ سمعت مرة عن برنامج يقوم بذلك و لكن لم أحصل عليه .
  7. صراحة كود أكثر من رائع (y) و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح ) حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي و قد أرفقت مثال به الاكواد السابقة فى موضوع منفصل كمثال علي التعامل مع البيانات فى الجداول من هنا
  8. مثال به كود رائع لاسترجاع المعلومات الخاصة بالتصحيح التلقائي و سردها فى جدول ، ( أضافه الأخ أحمد الحربى ) الموضوع الاصلي من هنا و كود آخر لاسترجع البيانات الخاصة بالتصحيح التلقائي من الجدول و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها مرفق المثال و به عدد 2 ماكرو و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح ) حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي Getautocorrect.rar
  9. Option Explicit Private Type OPENFileName lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateNaselection As String End Type Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenFileName As OPENFileName) As Long Dim OFName As OPENFileName Sub ExcelSave() Dim sFile As String sFile = ShowSave If sFile <> "" Then MsgBox "You chose this file: " + sFile ActiveWorkbook.SaveAs Filename:=sFile Else MsgBox "You pressed cancel" End If End Sub Private Function ShowSave() As String 'Set the structure size OFName.lStructSize = Len(OFName) 'Set the owner window 'OFName.hwndOwner = Selection.Hwnd 'Set the application's instance OFName.hInstance = Application.hInstance 'Set the filet OFName.lpstrFilter = "Excel Files (*.xls)" + Chr$(0) + "*.xls" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0) 'Create a buffer OFName.lpstrFile = Space$(254) 'Set the maximum number of chars OFName.nMaxFile = 255 'Create a buffer OFName.lpstrFileTitle = Space$(254) 'Set the maximum number of chars OFName.nMaxFileTitle = 255 'Set the initial directory OFName.lpstrInitialDir = "C:\" 'Set the dialog title OFName.lpstrTitle = OFName.lpstrTitle = "Save File - KPD-Team - Excel example BY www.officena.net" 'no extra flags OFName.flags = 0 'Show the 'Save File'-dialog If GetSaveFileName(OFName) Then ShowSave = Trim$(OFName.lpstrFile) Else ShowSave = "" End If End Function
  10. يعني ما تجيش غير منك ؟؟ :o اخوكم صاحب الاضافة الأخيرة أخصائي دراسات جدوي إقتصادية :h و كمان حطط لي موزة :lol:
  11. أخي الكريم الكود فى المثال السابق يقوم بتسجيل الترتيب فى الجدول فى حقل مستقل فاستخدم هذا الحقل فى الترتيب و الاظهار كيفما تشاء راجع الجدول قبل و بعد تنفيذ الكود و للاظهار كما تريد ابني التقرير او النموذج علي الاستعلام الوحيد الموجود فى المثال و ليس علي الجدول مع تحياتي
  12. تم تعديل العنوان أرجو من جميع الأخوة اتباع جميع قواعد طرح المشاركات ،و منها وضوح العنوان و تعبيره عن مضمون السؤال
  13. مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar
  14. راجع هذا الموضوع: حساب معدل العائد الداخلي IRR
  15. مرفق ملف اكسيل به 3 ماكروهات الاول لاظهار مربع حوار فتح ملف ثم الفتح الثاني لاظهار مربع حوار حفظ ملف ثم الحفظ الثالث لاختيار الالوان و تطبيق الاختيار علي الخلايا المختارة لتشغيل الماكرو من قائمة tools Macros أو ALT+F8 Dialogs.rar
  16. ما هو الكود المكتوب فى زر أمر الفتح ؟؟ و ما هي الاكواد فى أحداث الفتح و التحميل للمنوذج ان وجدت؟؟
  17. يتم ذلك بدوال ال API و تحديدا دالة GetSaveFileName ولكن لتشغيلها فى الاكسيل ، تحتاج الي تعديلات بخلاف الاكسس و البيزيك و هي تعديلات طفيفة مثل تحويل app الي application وحذف أو تعديل بعض الخواص التي لا تناسب الاكسيل بالاضافة الي ضافة استقبال الناتج ليناسب الاكسيل سأحاول تجهيز مثال بإذن الله
  18. قمت بتعديل المثال السابق و قسمته الي 3 دوال الاولي تقرب الرقم بدرجة تقريب محددة و الثانية تقريب الرقم الي الاعلي دائما أيضا بدرجة تقريب محددة و الاخيرة تقرب الكسور الي الاعلي فقط اخي ابو هادي ، هل ممكن تفصل الطريق التي شرحتها فى المشاركة السابقة شوية زيادة :d
  19. تم تعديل المثال ( تعديل الدالة ) التقريب بدرجة محددة و اضافة التقريب الي الاعلي فقط بدرجة محددة و تقريب الكسور الي الأعلي و يلاحظ أن الارقام السالبة نعتبر قيمة التقريب لها أيضا بالسالب Myround2.rar
  20. الدالة نفسها تمكنك من البحث بين قيمتين ، و ذلك بتحديد ما تريد فى الجزء الخاص بالشرط ( الجزء الثالث ) يوجد فى قسم الدوال شرح و أمثلة http://www.officena.net/ib/index.php?s=&act=SF&f=30 و يوجد فى هذا الموضوع تطبيق علي المعيار فى صورة مجال ( بين قيمتين ) بالكود http://www.officena.net/ib/index.php?showtopic=916 و تكون الصورة كالتالي للجزء الخاص بال Criteria بين تاريخين بالكود ( كما فى المثال أعلاه ) mycond = "(([EmpID] = " & Me.Semp & ") And ([date] Between #" & Me.Dfrom & "# And #" & Me.Dto & "#))" و للتطبيق للاستخدام المباشر بدون كود علي بين تاريخين : مثال ل Dcount DCount("[fld]", "Tbl", "[MyDate] Between #" & Format((Me.[From]), "mm/dd/YY") & "# AND #" & Format(( Me.[To]), "mm/dd/YY") & "#") مع ملاحظة أن ال # تستخدم فقط مع التواريخ و مع الارقام لا نضع شيء و مع النصوص نضع ' مثال علي التعامل مع الشرط النصي و الشرط الرقمي : في حالة حقل الشرط رقمي DLookUp("[FieldName]","TableName","[FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName]) فى حالة حقل الشرط نصي DLookUp("[FieldName]","TableName","[FieldName] = '" & [Forms]![MainFormName]![SubFormName]![controlName] & "'") و يمكنك أيضا بالاضافة الي Between استخدام معاملات And OR فى الجزء الخاص بال Criteria أو الشرط مثل DLookUp("[FieldName]","TableName","[FieldName] = 5 or [FieldName]=7") DLookUp("[FieldName]","TableName","[FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName] & " or [FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName2] )
×
×
  • اضف...

Important Information