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

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

  1. رجب جاويش

    رجب جاويش

    المشرفين السابقين


    • نقاط

      13

    • Posts

      3492


  2. عبدالله باقشير

    عبدالله باقشير

    المشرفين السابقين


    • نقاط

      10

    • Posts

      4796


  3. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      6

    • Posts

      4343


  4. أم عبد الله

    أم عبد الله

    الخبراء


    • نقاط

      6

    • Posts

      2166


Popular Content

Showing content with the highest reputation on 02/20/14 in all areas

  1. السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================
    6 points
  2. السلام عليكم ورحمة الله أخي الكريم، بالمعادلات تجد في المرفق ما استطعت القيام به لتلبية المطلوب... أرجو أن تفي بالغرض. أخوك بن علية المرفق : قائمة منسدلة مع تصفية.rar
    5 points
  3. تفضل أخى Sub ragab() LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR For ii = 0 To UBound(Split(Cells(i, 1), "-")) Cells(i, ii + 2) = Split(Cells(i, 1), "-")(ii) Next Next End Sub فصل الخلية فى عدة خلايا1.rar
    5 points
  4. الأستاذ / أبو هاجر السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. 15%.rar
    2 points
  5. السلام عليكم أخي العزيز ضع هذا الكود للفورم المذكورة Private Sub CommandButton1_Click() If CheckBox13.Value = True Then For i = 0 To 11: Controls(i).Value = True: Next For i = 0 To 11 If Controls(i).Value = True Then a = Controls(i).Caption & ".xls": open_a (a) Next Me.Hide End Sub Function open_a(a) pt = ActiveWorkbook.Path & "\" nm = ActiveWorkbook.Name mfile = pt & a Workbooks.Open mfile sr = Array(5, 42, 78, 114, 150) er = Array(34, 71, 107, 143, 173) For i = 0 To 4 Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).Copy Workbooks(nm).Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).Copy Workbooks(nm).Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).Copy Workbooks(nm).Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).Copy Workbooks(nm).Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd Next ActiveWorkbook.Close End Function Private Sub UserForm_Activate() For i = 0 To 12 Controls(i).Value = False Next i sr = Array(5, 42, 78, 114, 150) er = Array(34, 71, 107, 143, 173) For i = 0 To 4 Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).ClearContents Sheets("total1").Range("I" & sr(i) & ":K" & er(i)).ClearContents Sheets("total2").Range("D" & sr(i) & ":H" & er(i)).ClearContents Sheets("total2").Range("K" & sr(i) & ":K" & er(i)).ClearContents Next i End Sub أو تفضل المرفق وبه الفورم وقد وضعت بعض البيانات الافتراضية بالملفين يناير وأغسطس للتجربة فقط البرنامج 111.rar
    2 points
  6. تفضل أخى Sub ragab() x = 1 Cells(Cells(Rows.Count, x).End(xlUp).Row + 1, x).Select End Sub غير قيمة x الى رقم العمود الذى تريده
    2 points
  7. الأستاذ / a12 السلام عليكم ورحمة الله وبركاته إليك المطلوب لعله المطلوب. بيانات المدرسة1.rar
    2 points
  8. السلام عليكم اولا هذا شرح الدالة OFFSET من تعليمات الاكسل تصف هذه المقالة بناء جملة صيغة الدالة (الدالة: هي صيغة تمت كتابتها مسبقاً بحيث تقبل قيمة أو قيم أو تؤدي إلى إجراء إحدى العمليات أو إرجاع قيمة أو قيم. ُتستخدم الدالات لتبسيط الصيغ وتقليلها بورقة العمل خصوصاً الصيغ التي تؤدي إلى إجراء حسابات مطولة أو معقدة.) OFFSET وطريقة استخدامها في Microsoft Excel. الوصف إرجاع مرجع إلى نطاق عبارة عن رقم معين من الصفوف والأعمدة من خلية أو نطاق خلايا. من الممكن أن يكون المرجع الذي يتم إرجاعه عبارة عن خلية مفردة أو نطاق من الخلايا، يمكنك تحديد عدد الصفوف وعدد الأعمدة التي سيتم إرجاعها. بناء الجملة ‎OFFSET(reference, rows, cols, [height], [width])‎ يحتوي بناء جملة الدالة OFFSET على الوسيطات (وسيطة: قيمة توفّر معلومات لإجراء ما، أو حدث، أو أسلوب، أو خاصية، أو دالة، أو برنامج جزئي.) التالية: Reference (المرجع) مطلوبة. المرجع الذي تريد أن تستند إليه الإزاحة. يجب أن يكون المرجع مرجعًا لخلية أو نطاق من الخلايا المتجاورة؛ بخلاف ذلك، ستُرجع OFFSET قيمة الخطأ #VALUE!. (الصفوف) Rows مطلوبة. عدد الصفوف، لأعلى أو لأسفل، التي تريد أن تشير إليها الخلية العلوية اليمنى. يؤدي استخدام 5 كوسيطة الصفوف إلى أن تكون الخلية العلوية اليمنى في المرجع أسفل المرجع بخمسة صفوف. من الممكن أن تكون Rows موجبة (أي أسفل مرجع البدء) أو سالبة (أي أعلى مرجع البدء). Cols (الأعمدة) مطلوبة. عدد الأعمدة، إلى اليمين أو اليسار، التي تريد أن تشير الخلية العلوية اليمنى من النتيجة إليها. يؤدي استخدام 5 كوسيطة الأعمدة إلى أن تكون الخلية العلوية اليمنى في المرجع موجودة إلى يسار المرجع بخمسة أعمدة. من الممكن أن تكون Cols موجبة (أي إلى يسار مرجع البدء) أو سالبة (أي إلى يمين مرجع البدء). Height (الارتفاع) اختيارية. الارتفاع في عدد من الصفوف، الذي تريد للمرجع الذي يتم إرجاعه أن يكون به. يجب أن تكون Height رقماً موجباً. Width (العرض) ============================================================== الآن نشرح المعادلة لموضوعنا هذا لقد سمينا نطاق الرموز وهو الخلايا =ورقة1!$K$3:$K$70 بالاسم RngCode والسبب انه هو الذي سنعتمد عليه في دالة MATCH ودالة COUNTIF =OFFSET(RngCode;MATCH(B2;RngCode;0)-1;-1;COUNTIF(RngCode;B2)) OFFSET(reference, rows, cols, [height], [width])‎ Reference استخدمنا النطاق RngCode وازحناه قدر عمود واحد الى اليمين باستخدام القيمة -1 في Cols الان اصبح النطاق الذي سيرجع من الدالة في العمود J واول صف سيستخدم للنطاق هي القيمة المرجعة من الدالة ادناه في rows MATCH(B2;RngCode;0)-1 وعدد الصفوف للنطاق هي القيمة المرجعة من الدالة في [width] COUNTIF(RngCode;B2) تحياتي
    2 points
  9. السلام عليكم أقدم لكم دورة في دمج المراسلات في برنامج Word Mail Merging أرجو أن يكون الشرح وافي ومفيد لكم وتقبلوا تحيتي الدرس الاول مقدمة الى دمج المراسلات مشاهدة الدرس http://www.youtube.com/watch?v=s8aw_NjQlGo تحميل الدرس https://www.mediafire.com/?9o2l88qfayc5l71
    1 point
  10. السلام عليكم أخوتي الأفاضل لدي معادلة لقائمة منسدلة Date Validation وهي جيدة حيث نقوم تلقائيا بإضافة أي بيانات جديدة مدخلة إلى القائمة المنسدلة ( بدون جلب الخلايا الفارغة ) . السؤال هو هل يمكن ادخال تعديل عليها بحيث ( عند وضع حرف ( م ) مثلا يقوم بتصفية كل الأسماء التي تبدء بحرف ( م ) لتسهيل الإختيار و اختصار الوقت في البحث وخصوصا إذا كانت بيانات القائمة كثيرة الكود هو : =OFFSET('Data Entry'!$L$1,0,0,COUNTA('Data Entry'!L:L),1) الملف في المرفقات ولك جزيل الشكر
    1 point
  11. بسم الله الرحمن الرحيم السلام عليكم بداية جزاكم الله خيرا هل من الممكن معرفة الرقم السرى أو كلمة المرورلملف إكسيل محمى من خلال برنامج اوماشبه ذلك نرجو الافاده وان كان هناك برنامج لهذا الامر يرجى رفعه على احد مواقع تخزين الملفات والتنويه عن رابطه وذلك للأهمية وجزاكم الله خيرا
    1 point
  12. السلام عليكم ورحمة الله وبركاتة اعضاء المنتدى الحبيب مساهمة بسيطة لطريقة عمل احصاء للفصول بالمعادلات عدد الناجحين والراسبين والدور الثان طبعا الشرح لشخص مبتدئ ولكن محاولة طبعا الكنترول من أعمال الكبير الاستاذ دغيدى اكرمة الله ارجو أن ينال الشرح رضاكم احصاء فصول ناجح وراسب ودور ثان.rar
    1 point
  13. السلام عليكم ورحمة الله أخي الحبيب محمود، أكيد يمكن ذلك بالتعديل على المعادلات (معادلات التسميات nam و no و r_r باستعمال الدالة OFFSET لجعل القوائم ديناميكية وتعديل آخر على معادلة Data Validation الخاصة بالقائمة المنسدلة المطلوبة) وتجد كل هذه التعديلات في الملف المرفق... أرجو أني وفّقت في تقريب المفهوم... أخوك بن علية المرفق المعدل : قائمة منسدلة مع تصفية 2.rar
    1 point
  14. السلام عليكم استاذى العزيز الغالى عم // سعيد ارجو ان ترى عده روابط اعتقد ان بها ما تريد ان شاء الله http://www.ulozto.net/xhG4QWG/passware-password-recovery-kit-enterprise-10-3-build-2585-retail-rar http://www.4shared.com/get/sjVUEFdZ/pk10thankssupasta.html http://www.ulozto.net/xUCLqqw/passware-kit-enterprise-10-0-rar
    1 point
  15. أخى العزيز الفاضل الاستاذ // عبدالله المجرب السلام عليكم ورحمته الله وبركاته فيما لايغضب شرع الله فالمنتدى عامربتلك البرامج ومثالا.... لا حصرا فك حماية شيتات ملفات الإكسل بجمع إصداراتها وامتداداتها http://www.officena.net/ib/index.php?showtopic=29972&hl= والمطلوب رجاءا هو برنامج لكسرالحماية مع معرفة الرقم السرى أو كلمة المرورلتفعيله مرة أخرى بعد انجازالمهام المكلفون بها ........ وجزاكم الله خيرا
    1 point
  16. بنفس فكرة أستاذى ( بن علية ) وبعد تسميية النطاق الذي يحتوى على الأسماء ( DATA ) نضع هذه المعادلة أسفل الخلية ( C4 ) ذات اللون البرتقالى وهى معادلة صفيف أى لابد من الضغط على (CTRL+SHIFT+ENTER) =IFERROR(INDEX(DATA; SMALL(IF(ISNUMBER(SEARCH($C$4;DATA));MATCH(ROW(DATA); ROW(DATA)));ROW(A1)));"")
    1 point
  17. يبقى حل حضرتك الأفضل بارك الله فيكى ، واضح جدا إن الواحد محتاج يحفظ جدول الضرب مرة أخرى بارك الله فيكى وتقبل الله جميع أعمالك ولو بفكرة التقريب يبقى الحل فعلا هو حل حضرتك الأصح +15%.rar
    1 point
  18. أخى الفاضل / عبد الرحمن يجب ضغط الملف أولا ببرنامج ضغط مثل برنامج Winrar ثم رفعه
    1 point
  19. تتبعثر الكلمات وتعجز عن الوصف لأنها لن توفيك حقك من الثناء والاطراء ولكن اسأل الله العظيم أن يرزقك من واسع فضله وأن يحفظك وذريتك .. أنه سميع مجيب
    1 point
  20. نعم أخي الكريم الطريقة كما تفضلتم بها أخذ الجدول كصورة عن طريق برنت سكرين - وقصه داخل برنامج الرسام بعد ذلك إحفظه كملف صورة - وأخيرا إدراج الصورة في التذييل المخصص للصفحة - أعتذر كان من المفترض أن أوضح ذلك وأرفق الصورة داخل الملف - تقبل تحياتي
    1 point
  21. اخى رجب يسعدنى تشجيعك وكل هذه الاكواد تعلمناها من امثالكم بارك الله فيكم
    1 point
  22. اخى عبد الرحمن بالفعل كما قلت ويمكنك زياده عدد الاسطر التى تريد ادخالها ضمن نطاق عمل الكود كما تري مثلا تستطيع ان تجعلها100000
    1 point
  23. أخى الفاضل / عبد الرحمن أقصد رقم العمود وليس رمزه فمثلا العمود A رقمه 1 والعمود B رقمه 2 والعمود C رقمه 3 وهكذا
    1 point
  24. اخى عبد الرحمن تفضل كود اخر يقف على اول خليه فارغه Sub H() Range("B" & [B10000].End(xlUp).Row + 1).Select End Sub كما يمكن ايضا استخدام هذا الكود Book1.rar
    1 point
  25. اخى رجب دائما ما نرى منك السهوله فى الاداء واسمح لى بالمشاركه فى الموضوع هذا كود للوصول الى اول خليه فارغه بعد الخليه النشطه Sub ActivateNextBlankDown() كود الوصول الى اول خليه فارغه بعد الخليه النشطه activeCell.offset(1, 0).Select Do While Not IsEmpty(activeCell) activeCell.offset(1, 0).Select Loop End Sub
    1 point
  26. الأستاذ / يوسف السيد السلام عليكم ورحمة الله وبركاته إليك الملف به التعديل. توزيعات مصاريف المشاريع2.rar
    1 point
  27. أخى الفاضل / فراسكو جرب المرفق اكتب كلمة من الكلمات المقصودة فى العمود E ليتم المطلوب هذا كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Set sh = Sheets("ورقة2") LR = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Not Intersect(Target, Range("E:E")) Is Nothing Then If Not IsEmpty(Target) And Target.Text = "صادر" Or Target.Text = "فوق" Or Target.Text = "وارد" Or Target.Text = "اسفل" Then x = Target.Row Target.Offset(0, -4).Resize(1, 5).Copy sh.Range("A" & LR).PasteSpecial xlPasteValues Rows(x).EntireRow.Delete shift:=xlUp sh.Cells(LR, 1).Value = sh.Cells(LR, 1).Row - 1 LR1 = Cells(Rows.Count, 1).End(xlUp).Row Application.EnableEvents = False For i = 2 To LR1 Cells(i, 1) = Cells(i, 1).Row - 1 Next Application.EnableEvents = True End If End If Application.CutCopyMode = False Application.ScreenUpdating = True Set sh = Nothing End Sub New Microsoft Excel Worksheet1.rar
    1 point
  28. الأستاذ / يوسف السيد السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. توزيعات مصاريف المشاريع1.rar
    1 point
  29. أخي العزيز / ذيب اليمن ما رأيك في فكرة علامتنا القدير الأستاذ / عبد الله باقشير حفظه الله بهذا الكود الذي طبقته بعد تسجيل ماكرو من أجل جلب معادلاتك إلى الكود ومن ثم يتم تحويلها إلى قيم من خلال هذا السطر .Value = .Value والكود كالتالي Sub kh_value_value() LR = Range("C10000").End(xlUp).Row With Range("C9:C" & LR).Offset(0, 34) .ClearContents .FormulaR1C1 = _ "=30-(30-(COUNTIF(RC[-31]:RC[-1],""A"")+COUNTIF(RC[-31]:RC[-1],""L"")+(COUNTIF(RC[-31]:RC[-1],""W"")*2)+(COUNTIF(RC[-31]:RC[-1],""T"")+(COUNTIF(RC[-31]:RC[-1],""C"")+(COUNTIF(RC[-31]:RC[-1],""N""))))))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 35) .ClearContents .FormulaR1C1 = _ "=IF(SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2])>2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),2*(SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]<>""""))-SUMPRODUCT((R7C6:R7C36=""N"")*(RC[-32]:RC[-2]>""""))),SUMIF(R7C6:R7C36,""N"",RC[-32]:RC[-2]))" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 36) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""F"",RC[-33]:RC[-4])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 37) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C35,""H"",RC[-34]:RC[-5])" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 38) .ClearContents .FormulaR1C1 = _ "=SUMIF(R7C6:R7C36,""N"",RC[-35]:RC[-5])-RC[-3]" .Value = .Value End With With Range("C9:C" & LR).Offset(0, 39) .ClearContents .FormulaR1C1 = _ "=RC[-1]+RC[-2]+RC[-3]+RC[-4]" .Value = .Value End With End Sub وهذا الملف بعد تطبيق الكود عليه Book1.rar
    1 point
  30. أستاذى الكبير ( عبد الله بقشير ) أعمال حضرتك كلها كنوز وطريقة أخرى وهو كتابة معادلة =ISERROR(A1) يتم كتابة هذه المعادلة فى ( CONDITONAL FORRMAT ) ثم إختيار لون تعبئة الخط بلون خلفية الصفحة وبذلك يتحقق المطلوب بالطبع هذه المعادلة فى حالة ( OFFICE 2003 )
    1 point
  31. السلام عليكم ... أخي حمادة باشا .. أشكرك جدا على مساعدتي ... وأتمنى لك الموفقية والنجاح الدائم .. وجعله الله في ميزان حسناتك .. بس حبيت أقولها باللهجة العراقية ... ( كفيت ووفيت ) .. أشكرك جدا
    1 point
  32. تمت بالفعل واطريقة هى برنت سكرين على الشكل ثم فتح اى برنامج صور ولصقها ثم إظهار الجدول فقط عن طريق القص ثم اختيار الصورة من خصائص footer >> وهذا حتى تعم الفائدة
    1 point
  33. السلام عليكم شاهد المرفق 2010 اسعار السيارات.rar
    1 point
  34. أخى الفاضل / مصطفى حسين تفضل ما تريد فورم ادخال وتعديل.rar
    1 point
  35. السلام عليكم الاخ الكريم / mka1761975 بارك الله فيك يمكنك تنفيذ طلبك ويتم التغيير في الخلية A1 بالفورم الاول والثاني كما تريد تفضل المطلوب ادخال قيمة معينة في خلية بزر في فورم.rar
    1 point
  36. السلام عليكم معادلة البحث لقاعدة التحقق من الصحة =OFFSET($J$3;MATCH(B2;$K$3:$K$70;0)-1;;COUNTIF($K$3:$K$70;B2);1) شاهد المرفق 2003 قائمة منسدلة مفلترة2.rar
    1 point
  37. السلام عليكم أخى الفاضل / صممت مثل ذلك العمل ( الشيك ) بكل أبعاده على اكسيل وبعد عدة تجارب كانت كل بيانات الشيك تقع فى مكانها كما رغبت ملحوظة : ليست كل أبعاد وبيانات الشيك واحدة مجرد رأى وللخبراء الرأى الصواب
    1 point
  38. كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة المرفقات عبارة عن :: 1 - ملف البرنامج ( Omar Install addIn.xls ) 2 - ملف به بعض الدوال لعمل تجربه عليه ( دوال أبو تامر.xls ) المرفقات ::: Creat_AddIn.rar 3 - ملق الشرح ( Omar Install addIn.exe ) شرح إنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة
    1 point
  39. حفظ الملف الحالى فى مسار او موقع محدد و مختلف عن الموقع الافتراضى للإكسيل يتم تغير المسار المراد الحفظ فيه فى الكود التالى فى المتغير المسمى ( MyPath ) Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Sub SaveMe() '/========================================= '/ يتم وضع مسار الحفظ كاملا فى المتغير التالى MyPath = "C:\ATest\BackUpFile" '/========================================= MyFileName = ActiveWorkbook.Name MakeSureDirectoryPathExists MyPath & "\" Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=MyPath & "\" & MyFileName Application.DisplayAlerts = True End Sub SaveMe_In_Diffrent_Location.rar
    1 point
  40. بسم الله الرحمن الرحيم تحياتى الى الجميع من الملاحظ انه توجد بعض اوامر ال ( VBA ) لانستخدمها بكثرة فى مشاركتنا بل توجد الكثير من الاوامر التى لم تستخدم بالمرة فى معظم المنتديات العربية واحببت ان يشترك معى الاخوة الاعضاء فيما ارى ان نادر الاستخدام لنتعرف على بعض الاوامر Converting From Relative to Absolute اليوم نبدأ بأمر يسمح بتحوبل العناوين من عنواوين مطلقة الى نسبية والعكس . ولتتعرف كيف يعمل هذا الامر شاهد المرفق Converting_From_Relative_to_Absolute.rar
    1 point
  41. بسم الله الرحمن الرحيم بعض الاعمال السابقة دوال دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود ***** ***** ***** ***** *****
    1 point
×
×
  • اضف...

Important Information