أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





Install the code in all Excel files

بسم الله والحمد لله والصلاة والسلام على رسول الله الترجمه بالمشاركة الاولى If you have code and use it continuously​ Yo ..



24-08-2019 09:20 مساء
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1440
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 9048
الاعجاب : 195
 offline 

بسم الله والحمد لله والصلاة والسلام على رسول الله
الترجمه بالمشاركة الاولى

If you have code and use it continuously​

You need a way to use it in all Excel files
Instead of adding them every time

And to do this follow the steps below

 
1- Record the macro as in the following image:

YsaQK_001

2- From (Store macro in:) choose (Personal Macro Workbook):

fZMj7_002

3- Then stop macro as in the following image:

tTuHd_003

4- After the macro recording process, open the macro window:

You'll find the personal macro project with a new module
The macro has already been recorded


LvvKy_004

4- So all you have to do:

Delete this recorded code
Put the code you want to call in all Excel files

For example I will add a function from my functions that I previously programmed
I'll add the TND function which separates text, date and number

Then save the code from the macro window
As shown in the picture below


utRDN_005

The function code used in the example above is as follows​
Function TND(txt As String, v As String) As Variant
Dim i%, chk$, t$, n, d, b$, break As Boolean
    b = Mid(v, 2): n = "": d = ""
    For i = 1 To Len(txt) + 1
        If Len(v) > 1 Then break = Mid(txt, i, 2) Like "[" & b & "]#" Or Mid(txt, IIf(i - 1 = 0, 1, i - 1), 2) Like "#[" & b & "]"
        If IsNumeric(Mid(txt, i, 1)) Or break Then
            chk = chk & IIf(break, "/", Mid(txt, i, 1))
        Else
            If IsDate(chk) * (d = "") Then d = DateValue(chk) Else If chk <> "" Then n = Val(n & Replace(chk, "/", ""))
            chk = "": t = t & Mid(txt, i, 1)
        End If
    Next i
    TND = Array(t, n, d)(InStr("TND", UCase(Left(v, 1))) - 1)
End Function


Now you can call the function in any Excel file​

But to call the function
The function name must be preceded by a word (PERSONAL.XLSB!)

For example to use the TND function
You write it as follows


=PERSONAL.XLSB!TND()


And to find the user defined function from Microsoft Excel
Follow the following steps
Click on fx icon next to formula bar
then from (Or select a category:) choose (User Defined)
then from (Select a function:) choose your user defined function (UDF)
You will notice the name of the function preceded by a word PERSONAL.XLSB!

As shown in the picture below


aQAHu_006

Then you can use the function as it should work like any other Excel functions

As shown in the picture below

FU0vJ_007

كان معكم اخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته
 
 


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil، الصقر، ali mohamed ali، محمد أبو عبدو،





25-08-2019 01:21 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Install the code in all Excel files

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


الترجمة
بسم الله والحمد لله والصلاة والسلام على رسول الله

 

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

1- سجل المكرو كما بالصورة التالية

YsaQK_001
 
 
 2- من خانة Store macro in:  اختار الملف  Personal Macro Workbook 
fZMj7_002
 
3- بعد ذالك اوقف تسجيل المكرو كما بالصورة التالية:

tTuHd_003

4- بعد تسجيل الماكرو بالذاكرة افتح شاشة المكرو:

ستجد مصنف personal macro في مشروع جديد:
المكرو قد تم تسجيله بالفعل:


LvvKy_004

4- طيب بعدين ما الذى يجب علينا فعله:

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

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


utRDN_005

الكود المستخدم بالمثال السابق:

Function TND(txt As String, v As String) As Variant
Dim i%, chk$, t$, n, d, b$, break As Boolean
    b = Mid(v, 2): n = "": d = ""
    For i = 1 To Len(txt) + 1
        If Len(v) > 1 Then break = Mid(txt, i, 2) Like "[" & b & "]#" Or Mid(txt, IIf(i - 1 = 0, 1, i - 1), 2) Like "#[" & b & "]"
        If IsNumeric(Mid(txt, i, 1)) Or break Then
            chk = chk & IIf(break, "/", Mid(txt, i, 1))
        Else
            If IsDate(chk) * (d = "") Then d = DateValue(chk) Else If chk <> "" Then n = Val(n & Replace(chk, "/", ""))
            chk = "": t = t & Mid(txt, i, 1)
        End If
    Next i
    TND = Array(t, n, d)(InStr("TND", UCase(Left(v, 1))) - 1)
End Function


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

ولكن لاستدعاء الدالة يجب ان يسبق الدالة 
!PERSONAL.XLSB

المثال التالى لاستخدام الدالة TND
تكتب الاستدعاء الخاص بها كالتالى


=PERSONAL.XLSB!TND()


وللعثور على الدالة المعرفة من قبل المستخدم باكسيل
اتبع الخطواط التالية
اضغط على fx  الموجوده بشريط المعادلات باليسار
ثم من قائة Or select a category اختر User Defined
بعد ذالك اختار الدالة المعرفة الخاصة بنا:

ستجد اسم الوظيفة مسبوقه بي  PERSONAL.XLSB!


اتبع الخطوات التاليه كما بالصور

aQAHu_006

بعد ذالك يمكن استخدام الدالة في جميع ملفات الاكسيل

كما هو مبين بالصوره  التالية

FU0vJ_007

كان معكم اخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته

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

 
[نداء_عضو=Eslam Abdullah][/نداء_عضو]
[نداء_عضو=YasserKhalil][/نداء_عضو]
[نداء_عضو=Yasser Elaraby][/نداء_عضو]















أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، الصقر، Yasser Elaraby، محمد أبو عبدو،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


25-08-2019 02:26 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif Install the code in all Excel files
بارك الله فيك أخي المتميز إسلام
موضوع رائع ودالة رائعة وجميلة

أحسنت .. بس ليه قلبت إنجليزي يا واد ما كنت بـ Your Mind smile

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




25-08-2019 06:24 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Install the code in all Excel files

جزاكم الله خيرا يا سووووولم موضوع رائع 
111



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



25-08-2019 06:26 صباحا
مشاهدة مشاركة منفردة [4]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1712
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17640
الاعجاب : 327
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Install the code in all Excel files
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي المتميز إسلام
موضوع رائع ودالة رائعة وجميلة

أحسنت .. بس ليه قلبت إنجليزي يا واد ما كنت بـ Your Mind smile

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



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، محمود ابو الدهب،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



25-08-2019 06:38 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif Install the code in all Excel files
شكلك يا أبو الحداحيد اتدبست بدباسة الصقر .. smile

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، محمود ابو الدهب،




25-08-2019 08:21 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif Install the code in all Excel files
الله ينور ياسلم حبيبي تسلم 
2015_1418710703_134


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :Yasser Elaraby
663013020



25-08-2019 10:15 صباحا
مشاهدة مشاركة منفردة [7]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif Install the code in all Excel files
جزاكم الله خيرا استاذ اسلام
حضرتك نريد جعل الكود في كل الصفحات وليس في صفحة personal 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




25-08-2019 01:35 مساء
مشاهدة مشاركة منفردة [8]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif Install the code in all Excel files
احسنت استاذ اسلام بارك الله فيك

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


25-08-2019 04:42 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif Install the code in all Excel files
المشاركة الأصلية كتبت بواسطة: hassona229
جزاكم الله خيرا استاذ اسلام
حضرتك نريد جعل الكود في كل الصفحات وليس في صفحة personal 


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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




25-08-2019 06:23 مساء
مشاهدة مشاركة منفردة [10]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif Install the code in all Excel files
المشاركة الأصلية كتبت بواسطة: YasserKhalil
المشاركة الأصلية كتبت بواسطة: hassona229
جزاكم الله خيرا استاذ اسلام
حضرتك نريد جعل الكود في كل الصفحات وليس في صفحة personal 


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

استاذنا الكريم لقد كتبت تعليقى قبل ان يتم التعديل على محتويات الموضوع
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




25-08-2019 06:40 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif Install the code in all Excel files
لا مشكلة أخي الكريم
المهم أن تكون الأمور واضحة والشرح واضح والاستفادة كاملة

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




25-08-2019 06:47 مساء
مشاهدة مشاركة منفردة [12]
hassona229
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 offline 
look/images/icons/i1.gif Install the code in all Excel files
المشاركة الأصلية كتبت بواسطة: YasserKhalil
لا مشكلة أخي الكريم
المهم أن تكون الأمور واضحة والشرح واضح والاستفادة كاملة

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

أثارت هذه المشاركة إعجاب: Eslam Abdullah،






الكلمات الدلالية
files ، Excel ، code ، Install ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:29 مساء

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