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

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

  1. محمود_الشريف

    محمود_الشريف

    الخبراء


    • نقاط

      6

    • Posts

      1846


  2. محمد الريفى

    محمد الريفى

    الخبراء


    • نقاط

      4

    • Posts

      1492


  3. محمد نصري

    محمد نصري

    03 عضو مميز


    • نقاط

      3

    • Posts

      227


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8723


Popular Content

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

  1. بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar
    2 points
  2. السلام عليكم ورحمة الله وبركاته اقدم هذا العمل الى جميع اساتذتى فى اوفيسنا واقدمه الى جميع اعضاء اوفيسنا وفكرته تقوم على كيف تبحث بدالة VLOOKUP بشرطين اسال الله تعالى ان يتقبل منى هذا العمل تقبلوا منى جميعا خالص التحيه VLOOKUP بشرطين.rar
    2 points
  3. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كثير منا ممكن ان يقوم بعمل معادلة مخصصة او يقوم بإنشاء ماكرو معين ولكن كيف يمكنه جعل هذا الماكرو موجود في كل ملفات اكسل القديمة والجديدة منها وكيف يمكن ان يجعل من المعادلة التي قام بتعريفها موجودة تلقائيا في كل ملفات اكسل . للقيام بذلك اتبع الخطوات التالية : 1 - طبعا سوف تقوم بكتابة الماكرو او المعادلة ضمن مودويل 2 - تقوم بحفظ ملف اكسل باسم وتختار النوع Excel add-in واختر له اسم مميز تعرفه به لاحقا 3 - سوف يقوم اكسل تلقائيا بفتح مكان الحفظ الافتراضي لمثل هذه الصيغة قم بالحفظ والمسار هو : C:\Users\hp\AppData\Roaming\Microsoft\AddIns على فرض أن اسم المستخدم هنا هو hp ويختلف من جهاز لجهاز عموما اكسل سوف يختار المكان بشكل تلقائي 4 - تقوم بفتح ملف اكسل جديد سواء كان جديد كليا او كنت تعمل عليه من قبل 5 - تذهب الى خيارات اكسل ومنها الى الوظائف الإضافية تظهر عندك شاشة فيها كافة الإضافات الموجودة 6 - سوف تجد زر مكتوب عليه انتقال اضغط عليه يفتح لك قائمة اختر منها الإضافة التي قمت بها ثم موافق مبروك لقد قمت بتفعيل المعادلة الخاصة بك في كل ملفات اكسل هناك طريقة ثانية اسرع توفر عليك الخطوتين الأخيرة من تبويب المطور تجد تجد زر الوظائف الإضافية اضغط عليه واختر الوظيفة التي تريد أرجو ان يكون الشرح واضحا لهذه الجزئية تقبلوا مروري وتحياتي
    2 points
  4. السلام عليكم اليك الحل حسب ما عرفت من المشاركة كشف حساب.rar
    2 points
  5. السلام عليكم إخواني الكرام كل عام وأنتم بخير ... أقدم لكم دالة تقوم بالتحويل من التاريخ الهجري إلى الميلادي Function ConvertDate(ByRef StringIn As String) As String Dim SavedCal As Integer Dim d As Date Dim s As String SavedCal = Calendar Calendar = 1 d = CDate(StringIn) Calendar = 0 s = CStr(d) ConvertDate = Format(s, "dd/mm/yyyy") Calendar = SavedCal End Function لمزيد من التفاصيل يرجى زيارة الرابط التالي رابط الموضوع من هنا
    1 point
  6. دورة برنامج Excel فيديو وصوت ( عربي )
    1 point
  7. ملف البرنامج ثقيل جدا Backup of برنامج شئون الطلبة ابتدائي2.zip
    1 point
  8. السلام عليكم ورحمة الله وبركاته بعد طول غياب كان خارجا عن الإرادة أحببت ان تكون عودتي لكم مصحوبة بهذا العمل المتواضع والذي أتمنى ان ينال شرف اعجاب و تطوير الخبراء وعمالقة بيتنا الدافئ أوفيسنا أقدم للاخوة المحاسبين في مصر معادلة مخصصة للقيام بحساب ضريبة كسب العمل السنوي حسب القانون الجديد وأشكر جزيل الشكر أخي الفاضل محمد الريفي حيث عرضت عليه الفكرة وأني لا أعرف كيفية حساب الضريبة حسب القانون ونسب التأمين المئوية فقام مشكورا بشرح طريقة الحساب حتى تمكنت من انشاء هذه المعادلة راجيا من الله تعالى أن تكون مفيدة للأخوة المحاسبين وان يجعلها الله في ميزان حسناتنا وحسنات القائمين على هذا الصرح الكريم تقبلوا تحياتي واعذروا غيابي الخارج عن ارادتي هديتي للمحاسبين في مصر حساب ضريبة كسب العمل حسب القانون الجديد.rar
    1 point
  9. السلام عليكم ورحمة الله وبركاته بعد انقطاع كبير عن منتدانا الغالي .. أحببت أن أجدد مشاركاتي معكم في حساب الوقت المنقضي بين تاريخين. وترقبوا منا ما ينال إعجابكم elapsed-time.rar
    1 point
  10. السلام عليكم ورحمة الله وبركاته اود ان اشكر فريق هذا الصرح العلمى اوفيسنا على تشجعيهم للاعضاء الذين يقدمون اعمال قد تكون بسيطه ومتواضعه . واود ان ازيد فى شكرى الى استاذى والمعلم الجليل عبدالله باقشير . فهو دائم التشجيع والمرور على المشاركات والثناء عليها . هذا يترك اثر عميق لدى شخصيا . ولدى صاحب المشاركه . فجزاه الله كل الخير وجزى الله جميع فريق الموقع كل خير وكل من يقدمون اى مساعده باى شكل من الاشكال فى هذا الصرح . تقبلو تحياتى تلميذكم محمد الريفى
    1 point
  11. السلام عليكم ورحمة الله وبركاته في الملف المرفق استخدمنا متغير معرف على مستوى الملف ارجو ان يكون الحل مقبول في امان الله مثال2.rar
    1 point
  12. السلام عليكم ورحمة الله وبركاته جزى الله خيرا من قام بعمل هذا البرنامج الممتاز والبرنامج يعمل عندي بكل سلاسة وليس به اي ثقل ملحوظة : اعمل على الاوفيس 2010 تقبلوا تحياتي
    1 point
  13. وصلت الفكرة استاذي ~ شكراً جزيلاً وجزاك الله خيراً ~
    1 point
  14. السلام عليكم ورحمة الله وبركاته اخي العزيز اليك الخطوات لتركيب الاس بعد اكمال المعادلة ولادراج الاس (2) تحدد المعادلة ثم تختار ادراج وتختار من القائمة ( برنامج نصي) اول نموذج ثم تكتب في المربع الاس الذي تريده ان شاء الله وصلت الفكرة لكم كل الحب والاحترام والتقدير كتابة الاس.rar
    1 point
  15. تم التعديل قليلاً على الملف ليظهر بشكل افضل مع مزيد من مميزات الاكسل الرائعة كشف حساب معدل 1.rar
    1 point
  16. السلام عليكم بعد اذن استاذنا الكبير احمد زمان وبعد اذن استاذى سليم حاصبيا اليك اخى الكريم الحل بمعادلات وبدون معادلات ولكن المعادله الشرطيه لا افهمها لانك لم تحدد نتيجة الشرط مثلا اذا ذاد عدد السيارات عن 1 يزيد رسم النقل عن 20 . بمقدار كام ؟؟؟؟؟ تقبل خالص تحياتى كشف حساب11.rar
    1 point
  17. السلام عليكم ورحمة الله وبركاته الجملة select لا تعمل في حالة الشيت المخفي فممكن حضرتك تجرب الطريقة التالية على الاكواد الخاصة بك قبل تنفيذ الكود اكتب Sheets("maindata").xlSheetVisible وبعد الانتهاء من المر المطلوب اكتب السطر التالي Sheets("maindata").xlSheetHidden ليكون الكود مثلا بالشكل التالي Range("A1:ao1000").Copy Workbooks.Open Filename:=PT & "\" & nm & ".xlsm" Sheets("maindata").xlSheetVisible Sheets("maindata").Select Range("aa1").Select ActiveSheet.Paste Sheets("maindata").xlSheetHidden    
    1 point
  18. أستاذي الكبير أحمد يعقوب بارك الله فيك والله ... وإنت كمان واحشني والله زمان يا أحمد زمان
    1 point
  19. الأستاذ الفاضل / محمود الشريف السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الشرح الرائع . جعله الله في ميزان حسناتك ونرجو الاستمرار في هذه السلسلة المفيدة جداً والتعمق في الأكواد المركبة بعد ذلك وطريقة حضرتك في طرح السؤال والاجابة عليها ممتازة جداً ويتبقى طرح سؤال في كل درس للتطبيق العملي من جهة المتعلم لكي تعم الفائدة وتكون الإجابة على هذه الأسئلة أخر الأسبوع أو أول كل درس جديد كما يسمح وقت حضرتك. رجاء آخر من أساتذتي الكرام التعقيب إن لزم الأمر بطرق أخرى إن وجدت. جعله الله في ميزان حسناتكم وزادكم الله من فضله وعلمه. لكم كل التحية والتقدير.
    1 point
  20. الدرس الرابع الرسائل نتحدث هنا عن استخدام بعض التقنيات التى تجعل استخدامنا للماكرو _ ( برمجه اكسل ) _ أكثر مرونه .. وذات طابع احترافى وأكثر جمالا وذلك من خلال استخدام الرسائل من خلال كتابة بعض الأكواد البسيطه السؤال ؟ أين تكتب تلك الأكواد ؟ تكتب تلك الأكواد داخل حدث الشيت تكتب داخل حدث المصنف تكتب داخل موديول تكتب داخل أكواد اليوزر فورم أى تكتب حسب الحاجه لها على أن تكون داله على الهدف منها سواء كان تحذير من شىء أو طرح سؤال بسيط مثال ( 1 ) نريد أن نتأكد من أن الطابعه فى وضع التشغيل وإعطاء المستخدم فرصة للتأكد من ذلك مع توقف الماكرو عن العمل الى أن يقرر المستخدم الضغط على زر موافق أو OK التالى نص الرساله التى ستظهر كما بالصورة MsgBox “Please make sure that the printer is switched on” جدير بالذكر عند الملاحظة الأولى لشكل الرساله كما بالصورة السابقة نجد نص الرساله ثم زر OK اذا الإستنتاج هنا يدفعنا الى ذكر سؤال هام لمعرفة كيفية ظهورها بهذا الشكل س : مما تتكون الرساله ؟ وكيف تكتب ؟ ج : تتكون الرساله من هذه التركيبة التالية MsgBox (prompt [, buttons] [, title] [, helpfile, context]) السؤال الذى يطرح نفسه هنا س : ماذا تعنى هذه التركيبة ؟ ج : كالتالى كلمة Prompt تعنى ان تكون الرساله سريعه أى عند حدوث أمر ما تظهر الرساله سريعا هناك أيضا أمور يجب ذكرها : 1 - طول الرساله يتكون من 1024 حرف 2 - واذا كانت الرساله تتكون من عده أسطر يجب الفصل بين كل سطر بعلامه (& _ ) 3 – هناك معيار هام فى الرسائل عندما مثلا تريد تحذير المستخدم الى ان الطابعه تعمل مع التأكيد على ذلك بزر OK هنا نستخدم الفواصل وهو امر ضرورى كمثل الرساله التالية MsgBox “Is the printer on?”, , “Caution!” وكما الصورة نأتى الى القيم الرقمية التى سبق الإشارة عنها وبشىء من التفصيل فمثلا إذا كنت تريد القيمة 4 والقيمة 32 يكون النص الذى يكتب فى الكود هكذا MsgBox Prompt:=”Delete this record?”, Buttons:=36 وتظهر الرساله كما بالصورة التالية أو يكتب النص هكذا MsgBox (Prompt:=”Delete this record?”, Buttons:=vbYesNo + vbQuestion) وإذا أردنا كتابة الرسالة بالترتيب الخاص بها كما ذكرنا بكيفية كتابة الرساله فتكون هكذا MsgBox("Text", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Title") فتظهر الرساله كما بالصورة التالية هنا السؤال يطرح نفسه هل يمكن كتابة كل هذه الأزرار فى الرساله ؟ الإجابة بالقطع (( لا )) · فمجموعة القيم من ( 1:5 ) تمثل الأزرار التى ستظهر فى الرساله وعلى حسب ما تريد وتختار · ومجموعة القيم ( 16,32,48,64 ) تمثل نوع الرساله من كونها استفهام أو تعجب .. الخ وعلى حسب ما تختار · ومجموعة القيم ( 0,256,512,768 ) تعنى أى الأزرار YES أو NO أو CANCEL تريدها أن تكون الإفتراضية للمستخدم أى المضيئة يمكن التعبير عن الرساله فى الكود بالقيمة مثل وتظهر الرساله كما بالصورة السابقة MsgBox("Text", 3 + 48 + 256, "Title") مرفق ملف به كامل الدرس الرابع وتقبلوا منى وافر الاحترام والتقدير الدرس 4.rar
    1 point
  21. الدرس الثالث إعدادات الأمان لغة VBA هي لغة برمجة وهذا يعنى أنه يمكن لبعض المبرمجين أن يستغلها استغلالا سيئا فى إنشاء برامج ضاره تضر بالحاسب الآلى الذى يستخدم هذا البرنامج وعليه قررت شركة مايكروسوفت إضافة خاصية الأمان لحماية المستخدم وللدخول إلى خيارات الأمان نتبع الخطوات التالية : بأوفيس 2007 وما فوق نضغط على زر برنامج الأوفيس كما بالصورة ثم نضغط على Excel Option تظهر لنا نافذة كما بالصورة ثم نختار Trust Center من القائمة تظهر لنا نافذة أخرى كما بالصورة ثم نضغط على Trust Center Settings تظهر لنا نافذة كما بالصورة نجد هنا قسمين بالنافذة الأعلى ( الصورة السابقة ) الجزء الأول به عدد ( 4 ) اختيارات ومعناهم كالتالى : اختيار الخيار الثانى او الثالث عندما يقوم المستخدم بفتح البرنامج تظهر نافذة الاكسيل كما بالصورة التالية وبالضغط على زر Options تظهر لنا نافذة كما بالصورة التالية فإن كنا نثق بالبرنامج والمصدر نضغط على الخيار الثانى وهو Enable this content ونضغط على OK مرفق ملف به كامل الدرس الثالث وتقبلوا منى وافر الاحترام والتقدير الدرس 3.rar
    1 point
  22. أخى فى الله الأستاذ الكريم // محمد الريفى بارك الله فيكم وألف مبروك للترقية المستحقة عن جداره نسأل الله لكم أن يوفقكم لما يحبه ويرضاه مع تمنياتى القلبية لكم بدوام التقدم والرقى وتقبل منى وافر الاحترام والتقدير
    1 point
  23. السلام عليكم ورحمة الله اخي محمد فعلن مها قلنا لن نوفيهم حقهم من هم همهم مساعدة الناس (( فخير الناس انفعهم للناس )) فبارك االه فيك اخي محمد في هذه الكلمات الطيبة
    1 point
  24. تابع الدرس الثانى ندخل الى مرحله تنفيذ الماكرو الذى قمنا بتسجيله ولها خطوات معينة كالتالى : نذهب الى الشيت ثم نضغط على Insert تظهر لنا نافذة نختار منها Button ثم نقوم بوضعه داخل الشيت كما بالصور التالية ثم نقوم بالضغط على الزر كليك يمين ونختار تعيين ماكرو كالتالى تظهر لنا نافذة نختر منها اسم الماكرو وهنا قد اسميته MZM_ELSHRIEF ثم نختار This Workbook ثم نضغط على OK كالتالى الآن يمكنك تنفيذ الماكرو الذى قمنا بتسجيله بمجرد الضغط على الزر أى Button يمكنك أيضا تغيير اسم الزر اذا اردت ذلك كالتالى بالضغط كليك يمين على الزر تظهر لك نافذة اختر منها اضافة نص حفظ الملف عند حفظ الملف تظهر لنا رساله كما بالصورة التالية نضغط على زر NO فتظهر لنا رساله أخرى كما بالصورة التالية نضغط على زر Yes فتظهر لنا نافذة كما بالصورة التالية نقوم بإختيار من Save as type Excel Macro-Enbled Workbook ثم نضغط على Save الخيار التالى كما بالصورة التالية فتكون أيقونه الملف كما بالصورة التالية انتهى الدرس الثانى مرفق ملف PDF به كامل الدرس الثانى يرجى فى حاله هناك استفسار أن يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الاحترام والتقدير الدرس 2.rar
    1 point
  25. طالع هذه المشاركات للاخوة http://www.officena.net/ib/index.php?s=83c3005574e06a736f05b1a140e167ed&showtopic=54578&hl= والسلام عليكم
    1 point
  26. السلام عليكم ورحمة الله وبركاته هذه اجابة طريقة زرع ملف في الكمبيوتر 1- نضع هذا الكود في نموذج البداية نفتح خصائص النموذج ونضغط حدث ونختار حدث عند التحميل ونفتح محرر الفيجوال بيسك ونضع هذا الكود If Dir("C:\WINDOWS\MOVI.txt") = "" Then MsgBox("البرامج محمي" & vbCrLf & vbCrLf & _ " لتفعيل البرنامج اتصل على الرقم 123456789", _ vbCritical + vbOKOnly, _ "تنبيه") DoCmd.Quit End If ويمكنك التعديل في الرسالة فقط . وبعد ذلك ننشأ ملف بصيغ txt فاضي وتكتب اسمخ MOVI ونفتح my Computer وندخل علي ال c ونبحث عن ملف اسمه windows ونضع فيه ملف التكس علي حسب المسار المحدد في الكود شرح الكود عند فتح البرنامج انا بقله روح شيك علي ال c في ملف اسمه ويندوز شوف في ملف من صيغة txt اسمه movi موجود ولا لا اذا كان موجود يفتح البرنامج واذا لم يكن موجود يعطي رساله الموجود في الكود ويمكنك تغيير الرساله
    1 point
  27. السلام عليكم ورحمة الله أخي الكريم، باعتبار أن أسماء الشيتات لا تحوي فراغات (مسافات بين الكلمات) يمكن الاستغناء عن الرمز ' في المعادلة فتكون المعادلة (معادلة أخي الحبيب يحيى) كما يلي : =VLOOKUP($A1,INDIRECT(COLUMN(A1) &"!$A$1:$B$3"),2,0) أخوكم بن علية
    1 point
  28. وبعد حل أستاذى " يحيى حسين " يمكن أستحدام هذه الصيغة أيضا =VLOOKUP($A1,INDIRECT("'" & COLUMNS($B1:B1) & "'!$A$1:$B$6"),2,0) تقبلوا تحياتى
    1 point
  29. السلام عليكم و رحمة الله أخي أحمد جرب المعادلة التالية ضعها في الخلية B2 و ثم إسحبها لليمين و للأسفل و ستعطيك النتيجة المرجوة إن شاء الله =VLOOKUP($A1,INDIRECT("'" & COLUMN(A1) &"'!$A$1:$B$3"),2,0) دمتم في حفظ الله
    1 point
  30. السلام عليكم ورحمة الله وبركاته مما قرأت من الروائع التي أجراها الله على لسان عباده الطيبين ، رائعة شعرية للإمام محمد بن إدريس الشافعي رحمه الله فرأيت أن أشارككم بها ، حيث نظم الإمام فقال : المرء يُعرفُ فِي الأَنَامِ بِفِعْلِهِ وَخَصَائِلُ المَرْءِ الكَرِيم كَأَصْلِهِ إصْبِر عَلَى حُلْوِ الزَّمَانِ وَمُرّه وَاعْلَمْ بِأَنَّ اللهَ بَالِغُ أَمْرِهِ .. لا تَسْتَغِيب فَتُسْتَغابُ ، وَرُبّمَا مَنْ قَال شَيْئاً ، قِيْلَ فِيْه بِمِثْلِهِ وَتَجَنَّبِ الفَحْشَاءَ لا تَنْطِقْ بِهَا مَا دُمْتَ فِي جِدّ الكَلامِ وَهَزْلِهِ وَإِذَا الصَّدِيْقُ أَسَى عَلَيْكَ بِجَهْلِهِ فَاصْفَح لأَجْلِ الوُدِّ لَيْسَ لأَجْلِهِ ، كَمْ عَالمٍ مُتَفَضِّلٍ ، قَدْ سَبّهُ .! مَنْ لا يُسَاوِي غِرْزَةً فِي نَعْلِهِ ! البَحْرُ تَعْلُو فَوْقَهُ جِيَفُ الفَلا .. وَالدُّرّ مَطْمُوْرٌ بِأَسْفَلِ رَمْلِهِ ، وَاعْجَبْ لِعُصْفُوْرٍ يُزَاحِمُ بَاشِقاً إلاّ لِطَيْشَتِهِ .. وَخِفّةِ ، عَقْلِهِ ! إِيّاكَ تَجْنِي سُكَّرًا مِنْ حَنْظَلٍ ، فَالشَّيْءُ يَرْجِعُ بِالمَذَاقِ لأَصْلِهِ فِي الجَوِّ مَكْتُوْبٌ عَلَى صُحُفِ الهَوَى مَنْ يَعْمَلِ المَعْرُوْفَ يُجْزَ بِمِثْلِهِ
    1 point
  31. بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الثاني )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة في المساركة السابقة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا
    1 point
  32. الموضوع في غاية البساطة، وهو كالتالي: 1- من قائمة أدوات>ماكرو / إختر "تسجيل ماكرو جديد...". 2- سيظهر لك مربع حوار يخبرك باسم الماكرو ووصفه أنقر "موافق". وبذلك سيقوم محرر الفيجوال بيسيك بتسجيل كل ما تقوم به في برنامج الإكسيل داخل مديول خاص(Module1) ويطلق عليه اسم ماكرو1 أو Macro1 أو الاسم الذي تحدده انت من مربع الحوار السابق. 3- من قائمة أدوات>ماكرو / إختر "محرر Visual Basic". 4- سيظهر أمامك محرر الفجيوال بيسك أنقر نقراً مزدوجاً على المديول "Module1" في شجرة المشروع الحالي "Project VBAProject" بأعلى اليسار. وبذلك سيظهر أمامك الماكرو الذي يترجم كل تحركاتك وأفعالك داخل البرنامج إلى أكواد. ومن هنا تكون نقطة الإنطلاق إلى عالم أكواد الفيجوال بيسيك. وكيف يكون ذلك؟ قم بتصغير شاشة محرر الفيجوال بيسيك لتذهب للكتاب الحالي ثم قم بأي عمل تريده، على سبيل المثال: حدد الخلية B5 ثم إذهب للمحرر ستجد أنه ترجم عملية التحديد هذه إلى الكود التالي: Range("B5").Select ثم تذهب مرة أخرى للكتاب ثم تكتب في الخلية "الله أكبر" ستجد أنه ترجم هذه التصرف للكود التالي: ActiveCell.FormulaR1C1 = "الله أكبر" وهكذا.... فبنظرك ومقارنتك للذي تفعله والذي يكتب داخل الماكرو سوف تتعلم طريقة كتابة الأكواد ليس داخل برنامج الإكسيل فقط بل في تطبيقلت فيجوال بيسيك عموماً. وأخيراً أتمنى أن أكون قد وفقت في إيصال المعلومة. وأي سؤال أنا جاهز. أخوكم أكرم الغامدي (أبو عبدالله).
    1 point
  33. بسم الله الرحمن الرحيم بعض الاعمال السابقة دوال دالة ( VLOOKAnyCol ) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر دالة VLOOK2ALL لإستخراج كل حالات البحث دالة VLOOKON بلا حدود تبحث فى عدة جداول دالة تجزئة الاسماء و الارقام دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب ادوات ذكية استرجاع اعدادات الاكسل الاصلية التخلص من علامات خطأ المعادلات نسخ الاكواد من ملف الى ملف أداة تحويل صيغ المعادلات الى اكواد مصباح علاء الدين للبحث اقوى دالة بحث الحلول الذكية و شريط الادوات الذكية التحكم بأشرطة الادوات والقوائم المنبثقة تلوين السطور الفردية أو الزوجية إكسيل كاميرا برامج واكواد كيفية الحصول على سريال نمبر الهارد ديسك الباحث الشامل اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) إنشاء قوائم منسدلة مرتبطة متعددة المستويات تصدير مدى محدد الى الوورد حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية إستخراج النتائج بشرطين صيغة ظريفة سلسلة كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة منع حفظ الملف بأسم آخر زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 كشـف تـوزيـع فئـات النقـديـة كشـف صـرف النقـديـة بالفئـات المتـاحـة إستيراد وتصدير جدول إكسيل من وإلى الأكسيس صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة كود الدوائر الحمراء والاحرف الخاصة لدرجات الطلاب نموذج طباعة الشهادات المدرسية مع دوائر الارقام برنامج طباعة الشهادات للمرحلة الابتدائية_1 برنامج طباعة الشهادات للمرحلة الابتدائية_2 برنامج طباعة نماذج الشهادات للمرحلة الاعدادية قائمة منسدلة تفلتر مع الاحرف او الاسماء المحددة برنامج حفظ بيانات الشيكات والبحت عنها اكواد و اوامر ( VBA ) مفيدة القائمة المنسدلة المرتبطة بقوائم متعددة المدى او النطاق ( ثابت / ديناميكى ) الارقام العشوائية بدون تكرار البوم للصور والمعروضات, بدون حدود ***** ***** ***** ***** *****
    1 point
  34. بعد محاولات عديده لعله يكون بالفائده delet_range_saving_fotmula.rar delet_range_saving_fotmula.rar
    1 point
×
×
  • اضف...

Important Information