السبت، 19 أكتوبر 2019

10:26 ص

اكسل : نسخ عمدة غير متجاورة وترحيلها الى شيت اخر بطريقة سريعة جدا Excel VBA: Copy And Paste Multy Columns

بسم الله الرحمن الرحيم


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

كما تعودنا معكم نلتقى اليوم فى درس جديد وكود جديد من مكتبة اكواد اكسل VBA 
ودرس اليوم  سؤال ورد الينا من صديق من العراق الشقيقة 
يسال فية انة قام بعمل كود لنسخ عدة اعمدة غير متجاورة ولكنة عند تنفيذالكود يتجاهل نسخ العمود الاول وينسخ العمود الثانى فقط

وكان الكود كالاتى 

SUB COPY()
Range("A1:A25").copy
Range("c1:c25").copy
END SUB

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

والسؤال ما هى مشكلة الكود اذن 

عندما ننظر الى الكود نجدة يقوم فعلا بتنفيذ بطريقة صحيحة حيث انة يقوم بنسخ العمود العمودالاول ثم بعد ذلك يقوم بنسخ العمود الثانى ويترك العمود الاول 

اذن كيف نتغلب على هذ المشكل

نتغلب علية بهذا الكود السهل البسيط 

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

الخميس، 17 أكتوبر 2019

12:30 م

عمل تعبئة تلقائية للاعمدة والصفوف Excel VBA : Auto Fit Columns And Rows

بسم الله الرحمن الرحيم


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

كود جديد من مكتبة اكواد اكسل vba 

عمل تعبئة تلقائية للاعمدة والصفوف بطريقة سهلة وجميلة

فى كثير من الاحيان نعمل معادلة معينة او بيانات معينة فى خلية معينة ونريد ان نسحب هذة البيانات الى كل الاعمدة والصفوف بشكل اتوماتيكى 

الكود التالى يعمل تعبئة تلقائية للاعمدة بشكل تلقائى

الكود
Sub AutoFitColumns()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub


كود التعبئة التلقائية للصفوف 

الكود
Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub

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

الأربعاء، 16 أكتوبر 2019

2:27 ص

اكسل VBA: فورم ادخال وترحيل البيانات بدون تكرار

بسم الله الرحمن الرحيم 




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

اكسل VBA: فورم ادخال وترحيل البيانات بدون تكرار 

درس جديد وفيديو جديد من فيديوهات ودروس الاكسل VBA 

وكود جديد من مكتبة اكواد لاكسل VBA 

سؤال ورد الينا من احد الاصدقاء يسال فية عن كيفية ترحيل البيانات من شيت الى شيت اخر بدون تكرار للبيانات 
وعمل رسالة تاكيدية بنعم او لا فى حالة قبول التكرار من عدمة 

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

الدال IF 
الدالة CountIF  لاختبار الخلايا لمعرفة وجود التكرار ام لا 


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








الثلاثاء، 15 أكتوبر 2019

4:49 ص

Excel Skills VBA: How To Create Tally Frequency IN Excel

بسم الله الرحمن الرحيم 


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

مهارة جديدة من مهارات الاكسل 

ومشكلة صعبة كنا نبحث لها منذ فترة كبيرة عن حل

Excel Skills VBA: How To Create Tally Frequency IN Excel

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

الكود

نذهب الى تبويب المطور Developerوندخل على ورقة العمل Worksheet ونختار حدث النقر المزدوج Duobel click 


Dim targ As Range
Dim i As Long, j As Long, n As Long
Set targ = Me.Range("B3:f8")
Set targ = Intersect(targ, Target)
If Not targ Is Nothing Then
    Cancel = True
    Application.EnableEvents = False
    n = Len(targ.Value)
    j = n Mod 5
    If j = 4 Then
        targ.Value = targ.Value & " "
    Else
        targ.Value = targ.Value & "/"
    End If  targ.Font.Strikethrough = False
    For i = 1 To n Step 5  If (j = 4) Or (i < (n - j)) Then
            targ.Characters(i, 4).Font.Strikethrough = True
        End If
    Next
    Application.EnableEvents = True
End If

الأحد، 13 أكتوبر 2019

4:31 م

مهارات الطباعة فى الاكسل : طباعة تقرير المبيعات وتجاهل اخطاء المعادلات Fix and Ignore Print Error Value in excel

بسم الله الرحمن الرحيم الرحيم 


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


لنفترض ان لدينا تقرير مبيعات كما بالشكل التالى 




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

الامر جد بسيط 

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

كما بالخطوات التالية 



  • ننتقل الى علامة التبويب ملف [ FILE ] 
  • ثم  طباعة [ Print ] 
  • ثم اعدادات الطباعة [ Page Setup ]
  •  ثم ورقة [ Sheet] 






  لديك ثلاثة خيارات لاستخدامها كبديل للخطا اثناء الطباعة



  •  فراغ (Blanks)
  • علامة ناقص مزدوجة (Double Minus Sign)
  • خطأ #NA لكل الاخطاء 

بعد ان نقوم باختيار القيم البديلة نقوم بالضغط على OK 

ومن وجهة نظرى المتواضعة اعتقد ان علامة ناقص المزدوجة هى الاختيار الامثل لتقديم  الاخطاء فى تقرير  اثناء طباعة الصفحة 

وبهذا نكون قد انتهينا من مهارة اليوم والتى احببنا ان نقدمها لكم بشئ من التفصيل 


اذا اعجبك الدرس لا تبخل علينا بمشاركتة على وسائل التواصل الاجتماعى 

12:25 م

Excel Skills : SHiFT +F8 Add To Selection Key board Short Cut

بسم الله الرحمن الرحيم 


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

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

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

جئنا لكم بهذا الاختصار الجميل من اختصارات لوحة المفاتيح 

SHIFT + F 8    Add To Selection 

اختصار جميل من اختصارات لوحة المفاتيح يسهل علينا عملنا 



الأربعاء، 9 أكتوبر 2019

4:38 ص

Excel VBA | How To Create Color Index In Excel Sheet

بسم الله الرحمن الرحيم 


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

الكود
 Dim i As Integer

 For i = 1 To 14
 Cells(1, i).Value = i
 Cells(2, i).Interior.ColorIndex = i

   Cells(4, i).Value = i + 14
 Cells(5, i).Interior.ColorIndex = i + 14


 Cells(7, i).Value = i + 28
 Cells(8, i).Interior.ColorIndex = i + 28


 Cells(10, i).Value = i + 42
 Cells(11, i).Interior.ColorIndex = i + 42


 Next i

بمجرد تنفيذ الكود يظهر لنا Color Index على ورقة العمل بشكل بسيط ومميز 

من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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