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

4:18 م

اكسل : كيفية عمل باسورد لتنفيذ الماكرو How To Make Password For Excel Macro VBA

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


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

سؤال ورد الينا من احد الاصدقاء عن  كيفية عمل باسورد لزر تنفيذ الماكر و ؟

الاجابة بسيطة جد ان شاء الله 

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

الاجابة من خلال الكود التالى 


Sub show_worksheet()
Dim password As String, x As Long
password = "1234"
If Application.InputBox("inter password", "login") <> password Then
MsgBox "worng password", vbInformation, "error"

Exit Sub
End If

Sheet2.Activate
End Sub

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

الاثنين، 30 سبتمبر 2019

1:14 م

اكسل : شرح جميع ادوات Excel VBA: Active X contorle

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

والتى تحتوى على مجموعة من الادوات المهمة التى نستخدمها مثل :

1- Textbox
2-Listbox
3-Combobox
4- Check box
5- Option button
6- Spin button
7- Label
8- Image
9-Command button

Text Box


التكست بوكس (مربع النص ) هو حقل فارغ يمكن للمستخدم القيام بملء هذا التكست بوكس وهو ايضا يستخدم فى ادخال البيانات 
كيف ندرج  Textbox فى ورقة العمل لخاصة بنا
1- فى علامة تبويب المطور  Developer tab ونضغط على ادراج Insert 
2- من مربع  Active X contorle نختار ادراج مربع نص Text Box


3- نقوم برسم التكست بوكس على ورقة العمل ومن ثم نقوم بظبط خصائص التكست بوكس من قائمة الخصائص

List Box


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

1- فى علامة تبويب المطور  Developer tab ونضغط على ادراج Insert 

2- من مربع  Active X contorle نختار ادراج Listbox

3- نقوم برسم الاداة على ورقة العمل
 وهنا عندنا ملاحظة: يمكنك  ايضا تغيير اسم عنصر التحكم بالنقر بزر الماوس الأيمن على عنصر التحكم (تأكد من تحديد وضع التصميم) ثم النقر فوق "خصائص". Properties ولكن  الآن ، سنترك ListBox1 كاسم مربع القائمة.


إنشاء كود فى حدث فتح الملف . سيتم تنفيذ التعليمات البرمجية المضافة إلى الحدث Open Workbook بواسطة Excel VBA عند فتح المصنف.

4. نفتح محرر Visual Basic.

5. اثم ننقر Dubbole Click  فوق هذا المصنف في Project Explorer.

6. اختر مصنف من القائمة المنسدلة اليمنى واختر فتح من القائمة المنسدلة اليمنى.

7- ولكى نضيف بعض العناصر الى الليست بوكس نقوم بكتابة الكود التالى


With Sheet1.ListBox1

    .AddItem "Egypt"
    .AddItem "Cairo"
    .AddItem "Giza"
End With

ولتفريغ الليست بوكس نكتب الكود التالى 

ListBox1.clear

وسنقوم ان شاء الله فى الدروس القادمة بشرح بقية الادوات 

السبت، 28 سبتمبر 2019

4:03 م

عالم الاوفيس : اسرع واسهل طريقتان لحذف الصفوف داخل ورقة العمل Excel VBA: Tow Ways to Delete Rows In Worksheet

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



اليوم نلتقى معك م فى درس جديد من دروس اكسل VBA 
درس اليوم عن كيفية حذف اى عدد من الصفوف داخل ورقة العمل بناء على شرط معين اورق معين مكتوب داخل الخلية 
ودة كان سؤال احد المتابعين 
وللاجابة على هذا السؤال يلزمنا او لا ان ندخل الى المطور developer
 وندخل على محرر الاكواد visual basic
 ونعمل موديول جديد وهذا الموديول لحذف الصف بالكامل 

Sub delete_rows()
Dim i As Integer, j As Integer
ActiveCell.EntireRow.Select
On Error GoTo 1

i = InputBox("enter row number", "delete rows")
'i = [c1].Value
  For j = 1 To i
   Selection.Delete shift:=xlUp
     Next j
    
1:     Exit Sub
    

End Sub

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

Sub new_delete()
Range("a" & Val(Range("c1").Value) & ":d" & Val(Range("c1").Value)).Delete shift:=xlUp
End Sub

وبهذا نكون قد انتهينا من شرح كود اليوم 



الخميس، 26 سبتمبر 2019

1:31 م

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية How to Show And unhide Sheets based on cell values

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية


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

درس جديد من دروس اكسل  VBA وهو عن كيفية اظهار او اخفاء اورق عمل محددة بناء على محتوى الخلية وبالتحديد الخلية A1 او اى خلية فى العمود الاول (A)

يتم كل ذلك من خلال ماكرو سهل جدا وكود من اكواد  مكتبة اكسل  VBA

Option Explicit

Sub hide_show_sheets()
    Dim ws As Worksheet, c As Range
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
    On Error Resume Next
    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        Worksheets(c.Value).Visible = xlSheetVisible
    Next c
End Sub




الأربعاء، 25 سبتمبر 2019

3:56 ص

اكسل : طريقة سهلة جدا حذف الصفوف المحددة داخل الجدول فقط Excel vba:How To Delete Row Inside Table Only

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


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

درس جديد من دروس اكسل vba وفى هذا الدرس سنتاول بالشرح اجابة سؤال احد الاصدقاء 
حول كيفية حذف صف معين داخل الجدول فقط وليس الصف بالكامل entire row وعمل ازاحة الى الاعلى فى نفس نطاق الجدول من خلال اليوزرفورم  Userform 

1- لنفرض ان لدينا جدول مكون من عدد من الصفوف والاعمدة كما بالشكل التالى



ونريد ان نحذف صف معين من خلال هذا الجدول الموضح بالاعلى من خلال الفورم



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

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte
Dim ws As Worksheet
Dim lr As Long
If Me.TextBox1.Value = "" Then Exit Sub
Set ws = Sheet1
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To lr
  If LCase(CStr(Cells(i, 1).Value)) = LCase(CStr(TextBox1.Value)) Then
    Me.TextBox2.Value = Cells(i, 2).Value
    Me.TextBox3.Value = Cells(i, 3).Value
    Me.TextBox4.Value = Cells(i, 4).Value
    Me.rownumber.Caption = Cells(i, 4).Row
    End If
Next i
وبعد تنفيذ كود البحث يتم تحديد رقم الصف المراد حذفة 
وبعد ذلك نقوم بعمل كود الحذف داخل الجدول فقط وعمل ازاحة الى الاعلى


والان ناتى الى كود الحذف 
Private Sub CommandButton2_Click()
Range("A" & Val(Me.rownumber.Caption) & ":D" & Val(Me.rownumber.Caption)).Delete Shift:=xlUp
End Sub

الجمعة، 20 سبتمبر 2019

10:09 ص

حماية جميع اوراق العمل مرة واحدة Excel VBA: Protect All Worksheets At One Step

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


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


يسمح لك  هذا الكود بتحديد كلمة المرور داخل الكود.وايضا  ستحتاج إلى كلمة المرور هذه لإلغاء حماية ورقة العمل.

الكود المستخدم
نشرح الكود بالتفصيل
1- نعرف متغيرين وهم ws و password
2- نضع قيمة المتغير password

Dim ws As Worksheet
Dim password As String
password = "Test123"
3- نعمل حلقة تكرارية For Each الغرض منها على جميع اوراق العمل داخل ملف العمل لحمايتها 
For Each ws In Worksheets
   ws.Protect password:=password
Next ws
End Sub
4- ومن هنا انتهى شرح الكود 


الاثنين، 16 سبتمبر 2019

5:22 م

تحميل اوفيس 2016 - 2013 - 2010 مجانا Dawnload Microsoft Office 2016 free

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

دائما معكم فى كل ماهو جديد من المواضيع المهمة فى عالم الاوفيس
اليوم من خلال موقع عالم الاوفيس تقدر وبكل سهولة تحميل جميع نسخ ميكروسوفت اوفيس برابط مباشر
تحميل ميكروسوفت اوفيس 2010 بالنواتين 32 بت - 64 بت
تحميل ميكروسوفت اوفيس 2013 بالنواتين 32 بت - 64 بت
تحميل ميكروسوفت اوفيس 2016 بالنواتين 32 بت - 64 بت


تعتبر حزمة ميكروسوفت اوفيس من اهم البرامج المكتبية التى اطلقتها شركة ميكروسوفت اوفيس والتى تتضمن التطبيقات المهمة مثل
Microsoft office excel
Microsoft office Access
Microsoft office Word
Microsoft office Power Point
Microsoft office Outlook
Microsoft office One Note
Microsoft office Publisher

 وفى الاونة الاخيرة أصدرت Microsoft تحديثاً لـ Microsoft Office 2016 إصدار 64 بت. وايضا  Microsoft Office 2010 إصدار 64 بت و Microsoft Office 2013 إصدار 64 بت يؤمن هذا التحديث أحدث الإصلاحات لـ Microsoft Office 2016- 2013 -2010  إصدار 64 بت. بالإضافة إلى ذلك، يتضمن هذا التحديث تحسينات على مستوى الأداء والثبات ونظام التشغيل
 اهم متطلبات النظام
نظم التشغيل المدعومة من قبل ميكروسوفت :


Windows 10; Windows 7; Windows 8; Windows 8.1; Windows Server 2008 R2; 
Windows Server 2012; Windows Server 2012 R2


من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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