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

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

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

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

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

  • Days Won

    36

Community Answers

  1. محمد طاهر عرفه's post in من أين نحصل على ملفات add in للأكسل was marked as the answer   
    ان ملفات ال add-in هي اضافات تم برمجتها من قبل آخرين
    و تحويلها الي add-in لتكون جاهزة للاستخدام
    و من الافضل أن نحاول تعلم الكود نفسه و عمل ال add-in بأنفسنا ، و تحويلها بعد ذلك ال add-in اذا أردنا

    و طبعا لا مانع من عرض ما هو جاهز لنستفيد منه ، و لكنه فى الغالب لا يكون متاحا فى صورة ملفات مفتوحة
  2. محمد طاهر عرفه's post in حماية أكواد الvba من العبث was marked as the answer   
    افتح محرر البيزيك ALT+F11

    اختار
    Tools
    vba project properties
    protection

    lock project from viweing

    و اكتب كلمة السر

    و هذا كافي للحماية من غالبية المستخدمين

    اللهم الا من سيحاولون العبث ببعض ادوات كسر كلمات السر
    و لذلك يستحسن أن تجعل كلمة السر مزيج من الاحرف و الكلمات و أن تجعل بعضها كابيتال و ذلك من أجل تصعيب المهمة علي برامج الاختراق وأن تجعلها كلمة طويلة
  3. محمد طاهر عرفه's post in مستند ثابت و لبيانات متغيرة حسب الطلب was marked as the answer   
    قم بوضع بيانات الطلبة فى ورقة عمل
    و قم بتصميم الشهادة فى الاخري

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

    و مرفق مثال علي ما تريد

    و بصفة عامة
    فان الدالة تحوي 3 أجزاء أساسية و واحد خياري

    الاول للقيمة التي تبحث عنها
    و الثاني لمجال البحث
    و الثالث لرقم العمود المطلوب اعادته من مجال البحث
    و الرابع خياري
    و هو يعبر عن تصرف الدالة فى حالة عدم وجود القيمة التي نبحث عنها فى المجال ، هل تعيد البيانات المناظرة أقرب قيمة لها أم لا ، و هنا فى المثال سيكون المطلوب هو "لا" طبعا
    و لذلك وضعنا الجزء الرابع = False
    و القيمة الافتراضية لها هي True أي ما تعتبره الدالة عند عدم تسجيل الجزء الرابع فى المعادلة
    vlookup4.rar
  4. محمد طاهر عرفه's post in عد الخلايا التي تحوي حرف معين was marked as the answer   
    هل المقصود حرف واحد أم ستضع أكثر من حرف فى الخلية

    اذا كان حرف واحد أيا كان

    فيمكنك استخدام الدالة counta لعد الخلايا التي بها بيانات فى مجال محدد
  5. محمد طاهر عرفه's post in شباب لماذا لا تظهر الخطوط في الاكسل was marked as the answer   
    السلام عليكم

    مرفق ملف مسجل به الماكرو

    و الان اضف قاءمة جديدة الي القوائم الموجود بجوار التعليمات كما تريد
    Toold
    Customize
    command
    new menu

    ثم أضف اليها زر
    custom button مثلا
    من مجموعة ماكرو ( الخيار الثاني )


    ثم بعد اضافته الي القائمة و مربع الحوار مازال مفتوحا
    اختاره و بالزر الايمن اختار
    assign macro
    و اختار ماكرو المسمي Tohama

    و بالنقر علي الزر اثناء التشغيل سيتم تحويل اي خط فى الخلايا المختارة الي تهامة


    لا تنسي تعديل مستوي أمان الماكرو لي يعمل الكود
    Tools
    Macro
    security

    medium
    or
    low
    Font_Tohama.rar
  6. محمد طاهر عرفه's post in ممكن تساعدوني في تعريف الدوال التالية was marked as the answer   
    الموضوع ليس اكسيل فقط و لكنه مليء بالمصطلحات الرياضية

    و سافتح المجال لمن لديه المام أكثر بالموضوع :

    هذا ما فهمته من التعليمات :


    الدالة Trend
    تعطيها مجال البيانات المتاح من س و ص و تستنتج لك القيمة ص المناظرة ل س جديدة بناء علي المعطيات
    س = x
    ص = y
    بناء علي امتداد معادلة خطية يتم استنتاجها من القيم المتاحة باستخدام طريقة رياضية تسمي Least square



    الدالة FORECAST
    تقوم بنفس المهمة للمعادلة
    y=mx+b
    أي يمكن تعربف ثابت اضافي فيها
    و في النهاية تستنتج Y المناظرة ل x و b
    ايضا الاستنتاج يتم بما يسمي Linear regression

    و مرفق مثال يوضح حالة trend و حالة Forecast بثابت و بدون


    أما عن الفارق ببين الزيادة الخطية و الاسية
    فهذا لا يخص الدوال و لكنه يخص أمر
    Edit
    Fill
    Series

    فمثلا
    1
    2
    يكملها اكسيل
    3
    4
    لو الزيادة خطية

    و يكملها
    4
    8
    16
    لو الزيادة أسية
    Trend.rar
  7. محمد طاهر عرفه's post in هل يوجد موقع متخصص في الأكسل was marked as the answer   
    http:/www.officena.net :lol:

    http://www.lacher.com/toc.htm
    http://www.usd.edu/trio/tut/excel/
    http://www.baycongroup.com/el0.htm
    http://www.cpearson.com/excel.htm
    http://www.xl-logic.com/menu.html
  8. محمد طاهر عرفه's post in اريد شرح بسيط لهذا الكود was marked as the answer   
    يبدو لي أن هذا الكود خاص بالاكسس و ليس الاكسيل

    فاذا كان فيرجي طرح الموضوع فى قسم الاكسس

    اما عن الدوال ، فهي واحدة فى كل ال vba في مختلف تطبيقاته

    trim
    تزيل الفراغات الموجودة قبل و بعد النص

    تعبيرات

    Like *m* Like m* Like *m عن شرط أن النص : به m يبدأ ب m و يليه أي حاجة ينتهي ب m و قبلها أي حاجة send keys تقوم بمحل الكتابة علي ازرار محددة مثلا SendKeys "%{F4}", True    

    كانك كتبت
    علي لوحة المفاتيح
    ALT+F4

    و بالنسبة لتعريف المتغيرات ، يوجد فى ارشيف قسم الاكسس شرح متميز للاخ حارث ، لاساسيات كتابة الاكواد
  9. محمد طاهر عرفه's post in اريد معرفة طريقة الجمع والطرح في الآكسل في وقت واح was marked as the answer   
    لنفرض أن لديك قيم فى الخلايات من a1:a10 تريد جمعها
    و كل القيم بها = 20 فيما عدا الخلية a4 بها القيمة = 10

    للجمع الكامل

    =SUM(A1:A10) النتيجة 190 للجمع الكامل ثم طرح a4 =SUM(A1:A10)-A4 النتيجة 180 للجمع بدون a4 ثم طرح a4 =SUM(A1:A3;-A4;A5:A10) أو =SUM(A1:A3;A5:A10)-A4

    النتيجة 170


    و لسهولة كتابة Sum مع مجال متعدد نختار اول جزء ثم نضغط ctr و نختار التالي
  10. محمد طاهر عرفه's post in كيف نجمع عمود للأرقام الموجبه فقط ؟ was marked as the answer   
    و عليكم السلام و رحمة الله و بركاته

    من هنا
  11. محمد طاهر عرفه's post in إعداد الصفحة was marked as the answer   
    يمكن ذلك و يمكن ادخال البيانات فيها جميعا أو فى اكثر من شيت

    و ذلك باختيارها من التبويب Tab السفلي الذي فيه اسم الشيت

    ثم تطبيق التنسيق أو الادخال

    و لاختيار اكثر من شيت متباعد نضغط CTR
    و متتالي نضغط Shift

    و لاختيار الكل نختار اسم احد الشيتات بالزر الايمن ثم
    Select all sheets
  12. محمد طاهر عرفه's post in عرض خاص لأعضاء منتدى أوفيسنا - ينتهي العرض بتاريخ 5 نوفمبر 2022 was marked as the answer   
    بالتعاون مع موقع إدارة.كوم  www.edara.com  عرض خاص و حصري لأعضاء منتدى أوفيسنا
    العرض ساري فقط حتى 5 نوفمبر 2022
     
    وهذه هي الوصلات المباشرة للاستفادة الحصرية من العرض :
     
    عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر
    عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر

    عرض منتدى أوفيسنا - اشتراك المدير الشامل 12 شهر
    عرض منتدى أوفيسنا - اشتراك المدير الشامل 30 شهر
     
  13. محمد طاهر عرفه's post in الانتقال للسطر الثاني في نفس الخلية بالاكسيل was marked as the answer   
    أو لتحديد مكان النزول لسطر جديد
    استخدم
    ALT+Enter
  14. محمد طاهر عرفه's post in كيف يمكن أن يكون نتتج طرح الوقت بالدقائق فقط was marked as the answer   
    بالنسبة للدقائق
    فاختار التنسيق [mm] ليكون بالدقائق فقط
    و لاختيار التنسيق الخاص
    اختار تنسيق
    ثم آخر الخيارات و هي Custom فى التسخة الانجليزية و ربما تكون تخصيص او مخصص فى العربية و ضع فيها [mm]

    المثال
    TimeDiff.zip
  15. محمد طاهر عرفه's post in الاكمال التلقائي للكتابة was marked as the answer   
    و أضاف الاستفسار التالي :
    كما أسأل عن معنى Autocorrect :
    ==================================

    الاجابة :
    Autocorrect = التصحيح التلقائي أو التصحيح الآلي
    هذا من ناحية المعني

    و هي من قائمة
    Tools = ادوات
    و الخيار اسمه autocorrect options
  16. محمد طاهر عرفه's post in الأستهداف Goal Seek was marked as the answer   
    بعد إذن الأخ أحمد
    استغليت نفس المثال لاضافة الطريقة بالكود

    اختار الخلية الهدف ( الصفراء )
    ثم شغل الماكرو ( ALT+F8 )
    ثم اختار الماكرو و اضغط Run

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


    Sub GoolSeekit() Dim x As Double    x = InputBox("Please Choose the Value", "Goal Seek Example ", 900)    ActiveCell.GoalSeek Goal:=x, ChangingCell:=Range("b4") End Sub
  17. محمد طاهر عرفه's post in معادلة لحساب مجموع الساعات بشكل عدد صحيح was marked as the answer   
    استخدم الدالة الآتية :


    Function Mytimediff(t1, t2)  tdif = Abs(Hour(t2) - Hour(t1) + Minute(t2) / 60 - Minute(t1) / 60)  Mytimediff = tdif End Function
    أدرجها فى موديول جديد
    و استدعها كما تتستدعي الدوال و لكن من مجموعة
    user defined functions

    مرفق المثال

    تم تعديل المثال باضافة الطريقة المباشرة فى مشاركة أبو هادي
    Timediffhours.zip
  18. محمد طاهر عرفه's post in أين يوضع الكود و كيف أفعل الكود ؟؟ was marked as the answer   
    لتشغيل الكود فى الاكسيل

    اما تشغيله عند حدث معين
    مثل :

    فتح ملف
    تغيير فى ورقة عمل
    ضغط علي زر

    و للتعرف علي الاحداث المرتبطة بالكائنات
    اضغط alt+F11
    ثم انقر مرتين علي اكائن سواء كان الملف أو ورقة العمل
    ستجد فى اليمين مربعي سرد COMBO BOX من أحدها تختار الكائن و من الاخر تختار الحدث
    فيكتب لك بداية الروتين الفرعي المرتبط بالحدث
    و الذي تضع الكود داخله

    مثل


    Private Sub Workbook_Open() هنا يكتب الكود End Sub أو اذا كان مكتوب فى Sub Routine لها اسم مخصص غير مرتبط بحدث مثل Sub IBNSINA1() هنا يكتب الكود End Sub سيظهر فى قائمة الماكرو و يمكن تشغيله من القائمة أو بضغط ALT+F8 و اختياره ثم تشغيله و اذا كان فى دالة Function Function IBNSINA() هنا يكتب الكود End Function

    فيمكن استدعاء الدالة مثل باقي الدوال الموجودة فى الاكسيل
    و ذلك من القسم المسمي User Defined Functions
    من مجموعات الدوال

    و توجد مقدمة عن الكود و استخدامه فى الاكسيل هنا
    ( اضغط هنا )
  19. محمد طاهر عرفه's post in بيانات الانترنت was marked as the answer   
    دع الصفحة المرتبطة بالنت كما هي
    اختار و رقة عمل جديدة و نسقها كما تشاء
    و اربط الخلايا بها ، بورقة العمل المربوطة بالنت
  20. محمد طاهر عرفه's post in كيف أمنع تسجيل قيمة فى خلية مع وجود قيمة فى أخرى was marked as the answer   
    جرب ادخال قيمة فى نفس السطر فى العمودين
    a,b
    فى الملف المرفق
    PreventinsameRaw.rar
  21. محمد طاهر عرفه's post in معادله نسبة مئوية was marked as the answer   
    أهلا بك


    =+IF(B3<5000;B3*0.00125;(B3-50000)*0.001+50000*0.00125)
  22. محمد طاهر عرفه's post in وضع أكثر من كود بورقة عمل واحده ؟ was marked as the answer   
    Private Sub Worksheet_Change(ByVal Target As Range) If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا" Target.Value = "" Exit Sub End If If Target.Value <> "" Then If Target.Column = 1 Then  MsgBox "تمت أضافة المبلغ", , "تهانينا" End If If Target.Column = 2 Then  MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك" End If End If End Sub
    ملاحظة : الكود مجمع للأخ أبو أحمد مشكورا
  23. محمد طاهر عرفه's post in اضافة خيارات عند اضافة كود was marked as the answer   
    السلام عليكم
    للاسف هذا الخيار غير موجود بالمحرر
    و الحل المتاحة هو التعامل مع الكود كصورة و اضافة الاشارات اليها بدلا من محرر الاكواد
  24. محمد طاهر عرفه's post in المساعدة في استرجاع الحساب was marked as the answer   
    السلام عليكم
    هل مازال لديك امكانية للدخول على بريد الياهو المسجل بالحساب الاصلي ؟
    ارسلت لك رسالة على الخاص
  25. محمد طاهر عرفه's post in تغيير مكان الروت تلقائيا بالملفات المرتبطة was marked as the answer   
    أبسط الحلول هي أن تكون الملفات كلها فى مجلد واحد و بالتالي لا تتأثر بنقل المجلد بالكامل
     
    و اذا كان هناك ملف به معادلات مرتبط بملفات أخري بها مصدر للبيانات  فى مجلد معين و تغير مكان هذا المجلد يمكنك استبدال المسار باستخدام خاصية الاستبدال CTR+H
     
    مثلا اذا كان المجلد الذي به البيانات سابقا فى المسار 
    C:\Users\mtara\Desktop\@risk\4\ ز كان اسم الملف على سبيل المثال b.xlsx
     
    و كانت احدى المعادلات فى الملف الذي به المعادلات على سبيل المثال
    C:\Users\mtara\Desktop\@risk\4\[b.xlsx]bb'!$A$1 و تم نقل الملف b.xlsx  الذي يمثل مصدر البيانات الي المسار
    C:\Users\mtara\Desktop\1\ فتصبح المعادلة
    ='C:\Users\mtara\Desktop\1\[b.xlsx]bb'!$A$1 فيتم تنفيذ الاستبدال كالتالي مرة واحدة فى ورقة العمل بالملف الذي به المعادلات فتتحدث كل المعادلات لتقرأ من الملفات التي هي فى المسار الجديد :

    و تتغير كل الملفات
     
×
×
  • اضف...

Important Information