الثلاثاء، 20 أغسطس 2019

5:48 م

ربط الاكسل بالاكسس واستيراد البيانات وعمل التقارير المختلفة Import Access Data To Excel

ربط الاكسل بالاكسس واستيراد البيانات وعمل التقارير المختلفة

اهلا بكم متابعى موقع ومدونة عالم الاوفيس



درس جديد ومهارة جديدة نتعلمها سويا وهى كيفية ربط الاكسيل بالاوفيس واستيراد البيانات من قاعدة البيانات وعمل تقارير مختلفة نبدا على بركة الله .
يعلمك هذا المثال كيفية استيراد البيانات من قاعدة بيانات Microsoft Access. في Excel ، عند استيراد البيانات ، يمكنك إجراء اتصال دائم يمكن تحديثه

1. في علامة التبويب "البيانات" ، في المجموعة "الحصول على بيانات خارجية" ، انقر فوق "Access."


2. حدد ملف Access.


3. انقر فوق فتح.




4. حدد جدولًا وانقر فوق "موافق".



5. حدد كيف تريد عرض هذه البيانات ، حيث تريد وضعها ، وانقر موافق.


النتيجة. تم عرض سجلات قاعدة البيانات الخاصة بك في Excel.

6. عندما تتغير بيانات Access الخاصة بك ، يمكنك بسهولة تحديث البيانات في Excel. أولاً ، حدد خلية داخل الجدول. بعد ذلك ، في علامة التبويب "تصميم" ، في المجموعة "بيانات الجدول الخارجي" ، انقر فوق "تحديث".

ويمكنك استيراد البيانات على شكل  pivot table او chart

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

لمتابعة الشرح بالتفصيل 

 


السبت، 17 أغسطس 2019

6:02 ص

اكسل vba تحديد نوع البيانات المدخلة فىTEXTBOX و الحد الأقصى لمحتويات صندوق النص UserForm

اكسل vba تحديد نوع البيانات المدخلة فىTEXTBOX و الحد الأقصى لمحتويات الخلية UserForm
بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعى موقع ومدونة عالم الاوفيس
سؤال ورد الينا من احد الاصدقاء المتابعين 
كيف اقول باجبار المستخدم على ادخال عدد معين من الارقام وليكن 11 رقم فقط لاغير فى textbox؟
وللاجابة على هذا السؤال سنقوم بتنفيذ كود اكسل vba
ليقوم بهذة المهمة بالنيابة عنكم 
اذا كيف نقوم بذلك .
فى البداية لابد لنا من ايجاد دالة معينة تقوم بحساب عدد الارقام المدخلة فى التكست بوكس حتى يتم عمل المعادلة اللازمة لمنع المستخدم من ادخال ارقام اكثر من العدد المطلوب (11 رقم )  وهنا سوف نستخدم الدالة (LEN)
وسيكون شكل الكود كالاتى 

If Len(Me.TextBox1.Value) > 11 Then
MsgBox "number mustbe8 digits"
Me.TextBox1 = ""
End If

وبذلك يكون الكود يعمل انة فى حالة ادخال اكثر من 11 character   ولكن هناك مشكلة اذا قومنا بادخال حرف او نص او مسافة سوف تقوم الدالة (LEN) باحتساب 11 موضع فقط لاغير بغض النظر عن كونة رقم او نص اوغير ذلك وهذا سيسبب مشكلة كبيرة فى دقة النتائج
كيف نتغلب على هذة المشكلة من خلال اضافة كود اخر يقوم باختبار محتويات الخلية اذا كانت نص او اى شئ غير الارقام لن يقبل الادخال 
With TextBox1
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "sorry,only number allowed" 
.Value = vbNullString

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

 

الأربعاء، 14 أغسطس 2019

2:22 م

VBA Tip: Hide sheet Tabs

VBA Tip: Hide sheetsTabs

اهلا بكم متابعى موقع ومدونة عالم الاوفيس
ناتى معكم اليوم فى خدعة جديدة من خدع الاكسيل vba وفيها سوف نتعرف على كيفية اخفاء sheet tabs فى ملف العمل فى الاكسل .

كيف نفعل ذلك ؟

نفعل ذلك من خلال كود سهل وبسيط جدا ولكن قبل ان نصنع الكود ياتى السؤال المهم 

لماذا نقوم باخفاء  sheet tabs ؟

عندما نصنع برنامجا خاص بعملنا ونصنع واجهة خاصة بالبرنامج وبها ازرار التحكم لتوجية المستخدم الى اى شيت او ورقة عمل محددة ففى هذة الحالة لابد لنا من اخفاء sheet tabs حتى يتم توجية المستخدم من خلال الواجهة الرئيسية للبرنامج
الان ناتى الى الكود
الكود سهل جدا وبسيط وهو عبارة عن سطر واحد كالاتى :
Sub hide_tabs()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
والان نحن قد اخفينا sheet tabs بنجاح 

السؤال الاخر كيف نقوم باظهار sheet tabs ؟

نقوم بالاجابة على هذا السؤال من خلال الكود التالى 
Sub show_tabs()
    ActiveWindow.DisplayWorkbookTabs = True
End Sub
  

الخميس، 8 أغسطس 2019

5:45 م

اكسل vba كفية منع المستخدم من الدخول الى اوراق عمل محددة ( صلاحيات الدخول للمستخدمين )

اكسل vba كفية منع المستخدم من الدخول الى اوراق عمل محددة ( صلاحيات الدخول للمستخدمين )
اهلا بكم متابعى موقع عالم الاوفيس



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

نحن من خلال هذا الكود قد نجحنا فى اخفاء ورقة العمل التى نريد اخفائها ومن ثم يمكن حماية اى ورقة عمل بنفس الكود السابق ويمكننا ايضا حماية اكتر من ورقة عمل وليس ورقة واحدة .

نحن الان قد اخفينا ورقة العمل ولكن يلزمنا استدعائها مرة اخرى كى نتمكن من العمل عليها واضافة البيانات اليها هنا ياتى دور الكود التالى وهو كود اظهار ورقة العمل ايضا ولكن بكلمة سر (باسورد  ) كما يلى 
وفى هذا الكود ايضا قمنا باظهار ورقة العمل مرة اخرى للعمل عليها وتحديث البيانات الموجودة فى ورقة العمل 
كود سهل وبسيط جدا يارب يعجبكم 

لمتابعة شرح الفيديو 

 

السبت، 13 يوليو 2019

1:09 م

اكسل vba : كيفية كتابة اول كود فى الاكسل vba

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

اليوم نقدم لكم درس للمبتدئين فى مجال الاكسل vba 

وهو كيفية كتابة اول كود فى الاكسل  vba  كلنا كمبتدئين فى مجال الاكسل وبرمجة الاكسل نحلم بكتابة الاكواد فى الاكسل وعمل اكواد برمجية تساعدنا فى مجال عملنا .

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


هنعمل الكلام دة ازاى
 

دة اللى احنا هنعرفة من خلال شرح الفيديو




الأحد، 7 يوليو 2019

6:45 ص

كيفية جمع خلايا متفرقة وغير مرتبة فى اى مكان فى ورقة العمل How to sum selected cells in excel vba

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

درس اليوم هو سؤال لاحد الاصدقاء عن كيفية جمع اى عدد محدد من الخلايا  فى اى مكان من ورقة العمل من خلال vba ؟

وللاجابة عن هذا السؤال سنحتاج الى كتابة كود vbaبسيط جدا
وفى هذا الكود سنقوم باخبار الاكسل اننا عندما نحدد اى مجموعة من الخلايا فى ورقة العمل يقوم بجمع القيم المحددة وعمل متوسط حسابى وعمل احصاء لعدد القيم واستخراج اكبر قيمة فى مجموعة القيم المحددة واستخراج ايضا اقل قيمة .
والان ناتى الى كتابة الكود المستخدم للاجابة عن هذا السؤال 



لنفرض اننا نريد اظهار النتائج فى الخلية  b1,b2,b3,b4,b5 
[b1].Value = Application.WorksheetFunction.Sum(Selection)
[b2].Value = Application.WorksheetFunction.Average(Selection)
[b3].Value = Application.WorksheetFunction.Max(Selection)
[b4].Value = Application.WorksheetFunction.Min(Selection)
[b5].Value = Application.WorksheetFunction.Count(Selection)
يقوم الكود (الماكرو) بجمع جميع الخلايا المحددة  وعمل متوسط حسابى لهم واستخراج اكبر قيمة واقل قيمة ايضا 
كود سهل وبسيط يقوم بعدد من العمليات الحسابية دفعة واحدة
لمعرفة معلومات اكثر عن الكود يرجى متايعة الشرح الفيديو


الثلاثاء، 2 يوليو 2019

12:57 م

شرح الدالة Excel AND Function

شرح الدالة Excel AND Function

اهلا بكم متابعى موقع ومدونة عالم الاوفيس
اليوم نقوم بشرح دالة من الدوال المنطقية الدالة And


متى تستخدم FunctionExcel AND ؟
يمكن استخدام الدالة عندما تريد التحقق من شروط متعددة.
تقوم الدالة بارجاع جميع الشروط فى حالة التحقق الى  True والا فانها ترجعها الى false
Syntax

(And(logical1,logical2=
وسيطات الدالة
الشرط الأول الذي تريد تقييمه لقيمة TRUE

أو FALSE. [logical2] - (اختياري) هذا هو الشرط الثاني الذي تريد تقييمه لقيمة TRUE أو FALSE. 

كما يمكننا ايضا استخدام الدالة AND  مع دوال اخرى لتكون اكثر فاعلية على سبيل المثال عندما نستخدم الدالة And مع الدالة IF
يمكنك اختبار شرط ثم تحديد قيمة عندما تكون القيمة True وقيمة اخرى عندما تكون القيمة False  
كما ايضا يتيح استخدام الدالة And مع الدالة IF  للمستخدميين اختبار شروط متعددة دفعة واحدة
على سبيل المثال اذا كنت تريد اختبار ما اذا كانت A1 اكبر من صفر واقل من 100  فاليك كيفية القيام بذلك

("IF(AND(A1>0,A1<100),”Approve”,”Reject=
يجب أن يتم تقييم الوسائط إلى القيم المنطقية (TRUE / FALSE) ، أو يجب أن تكون الوسائط صفيف  / مراجع للقيم المنطقية.
يتم تجاهل النص والخلايا الفارغة
اذا كان النطاق المحدد لا يحتوي على قيم منطقية ، فتُرجع الدالة AND الى خطأ  #VALUE

يمكنك اختبار بحد أقصى 255 شرطًا في دالة AND واحدة

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة