tag:blogger.com,1999:blog-86534213735696875562024-03-05T16:41:53.426-08:00YasserKhalil Excel LoverThis Blog Is For Teaching Excel Functions And Excel VBA Tips & Tricks And VBA Code SnippetsYasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.comBlogger57125tag:blogger.com,1999:blog-8653421373569687556.post-6163213133444069482016-09-07T14:34:00.000-07:002016-10-28T01:24:25.713-07:00فلترة البيانات وتصدير كل بيان حسب الفلترة إلى مصنفات جديدة Filter And Export To New Workbooks<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: red;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كثير منا قد يكون لديه جدول بيانات ، ويوجد عمود معين توجد فيه بيانات ، ويريد أن يقوم بفلترة البيانات حسب كل قيمة موجودة في هذا العمود</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>مثال ليتضح المقال :</u> بفرض أن لديك قائمة عملاء ، وأسماء العملاء مكررين ، وتريد تصدير بيانات كل عميل إلى مصنف جديد أي بيانات كل عميل تكون في مصنف مستقل</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjD8TjHsQBfvQ02rXuT4-CcGCmxRv3fUxzc4xkiKnDu1rUIrQWCaPTSNI3qGl_9ai3zfKyj83Ms7LIZOMnc6OZxIwyQUymz-keieHPGAprg__ejKzdI-ElZQci8pG_GvxBs7JjqhQPGjk8/s1600/001.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="395" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjD8TjHsQBfvQ02rXuT4-CcGCmxRv3fUxzc4xkiKnDu1rUIrQWCaPTSNI3qGl_9ai3zfKyj83Ms7LIZOMnc6OZxIwyQUymz-keieHPGAprg__ejKzdI-ElZQci8pG_GvxBs7JjqhQPGjk8/s400/001.png" width="400" /></a></span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كما تلاحظون في الصورة المطلوب تصدير بيانات العملاء (محمد علي ، وفريد خان ، ومنصور السعيد ، ومنور أمين) كل عميل إلى مصنف مستقل ، ولا يشترط ترتيب البيانات في العمود ... ضع البيانات بأي شكل تريده ، والكود سيعمل بشكل ممتاز ليؤدي المطلوب إن شاء الله</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: right;">
<span style="background-color: #f6b26b;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">في الكود تقوم بتحديد رقم أول عمود وهو هنا في المثال 1 أي العمود A ، كما نقوم بتحديد رقم آخر عمود وهو هنا 4 أي العمود D</span></span></b></span></div>
<div style="text-align: right;">
<span style="background-color: #ea9999;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كما تقوم بتحديد العمود الذي ستقوم بفلترة البيانات فيه وهو هنا عمود العملاء ألا وهو رقم 1</span></span></b></span></div>
<div style="text-align: right;">
<span style="background-color: #76a5af;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كما تقوم بتحديد اسم ورقة العمل المطلوب العمل عليها ، وهي ورقة العمل Sheet1</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً إليكم الكود الذي يؤدي المهمة <span style="color: blue;">(تصدير بيانات من نفس القيمة لمصنفات جديدة ، حيث يتم تصدير البيانات في نفس مسار المصنف الحالي في مجلد اسمه Output)</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: rgb(240, 240, 240) none repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; height: auto; line-height: 20px; overflow: auto; padding: 0px; width: 99%;">Sub Export_Workbooks_Using_Filter()
'Author : YasserKhalil
'Release : 07 - 09 - 2016
'------------------------
Dim a As Variant
Dim I As Long
Dim P As Integer
Dim cnt As Integer
Dim Dic As Object
Dim strDir As String
Dim Arr() As Double
Dim iFlag As Boolean
'=========================================================
Const firstCol As Long = 1 'First Column
Const lastCol As Long = 4 'Last Column
Const colNo As Long = 1 'Column To Filter
Const sSheet As String = "Sheet1" 'Sheet Name
'=========================================================
strDir = ThisWorkbook.Path & "\Output\"
For P = firstCol To lastCol
ReDim Preserve Arr(P - 1)
Arr(P - 1) = Sheets(sSheet).Columns(P).ColumnWidth
Next P
iFlag = Sheets(sSheet).DisplayRightToLeft
Call SpeedUp
If Dir(strDir, vbDirectory) = "" Then MkDir strDir
Sheets.Add before:=Sheets(1)
Set Dic = CreateObject("Scripting.Dictionary")
Dic.CompareMOde = 1
With Sheets(sSheet).[A1].CurrentRegion
.Columns(colNo).Value = Application.Trim(.Columns(colNo).Value)
a = .Value
.Parent.AutoFilterMode = False
For I = 2 To UBound(a, 1)
If Not Dic.exists(a(I, colNo)) And Not IsEmpty(a(I, colNo)) Then
Dic(a(I, colNo)) = Empty
.AutoFilter colNo, a(I, colNo)
.Copy Sheets(1).Cells(1)
Sheets(1).Copy
With ActiveWorkbook
With Sheets(1)
.Name = "Sheet1"
.DisplayRightToLeft = iFlag
.Cells(1).CurrentRegion.RowHeight = 19
For cnt = firstCol To lastCol
.Columns(cnt).ColumnWidth = Arr(cnt - 1)
Next cnt
End With
.SaveAs strDir & RemoveSpecial(CStr(a(I, colNo))) & ".xlsx"
.Close
End With
Sheets(1).Cells.Clear
.AutoFilter
End If
Next I
End With
Sheets(1).Delete
Call SpeedDown
MsgBox "Done...", 64
End Sub
Function RemoveSpecial(sInput As String) As String
Dim sSpecialChars As String
Dim I As Long
sSpecialChars = "\/:*?""<>|"
For I = 1 To Len(sSpecialChars)
sInput = VBA.Trim(Replace$(sInput, Mid$(sSpecialChars, I, 1), " "))
Next I
RemoveSpecial = sInput
End Function
Function SpeedUp()
With Application
.Calculation = xlManual
.ScreenUpdating = False
.DisplayAlerts = False
.EnableEvents = False
End With
End Function
Function SpeedDown()
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
.DisplayAlerts = True
.EnableEvents = True
End With
End Function<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><code style="color: black; word-wrap: normal;">
</code></span></span></b></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: x-large;"><a href="http://www.file-upload.com/hq8a8k2i95n9" target="_blank"><b>تحميل الملف من هنا</b></a></span></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com10tag:blogger.com,1999:blog-8653421373569687556.post-36014028898175360332016-09-06T23:05:00.001-07:002016-10-28T01:25:11.113-07:00تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي Split List In Two Lists Equally<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: red;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQygjkX8Q7KWaeFPWpms_8xDQ7CeZyQakI-NJSkHLGVOPtYJVizVEDasTti6nqZPrqw7z2K5Dx_oVnWO8zw21bG90AQgQyLmccNdipVqz9s3G-dGjmZta6MczkyzBKDLl94L2ktz6EEvU/s1600/000.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="178" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQygjkX8Q7KWaeFPWpms_8xDQ7CeZyQakI-NJSkHLGVOPtYJVizVEDasTti6nqZPrqw7z2K5Dx_oVnWO8zw21bG90AQgQyLmccNdipVqz9s3G-dGjmZta6MczkyzBKDLl94L2ktz6EEvU/s400/000.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBIoL5m-gnErWnrkyF3OEXWNdDhnjTAbmSlFRkiRI0m1arrRM7qzXHQhEovaSB8yTwjIjRvVod4I_pnyIexYvL95HvKEFrvcc-IXVjS_XuvxaS4Zf84UjMd4tNZjjPHESPNT458yqFnh4/s1600/001.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBIoL5m-gnErWnrkyF3OEXWNdDhnjTAbmSlFRkiRI0m1arrRM7qzXHQhEovaSB8yTwjIjRvVod4I_pnyIexYvL95HvKEFrvcc-IXVjS_XuvxaS4Zf84UjMd4tNZjjPHESPNT458yqFnh4/s640/001.png" width="404" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjk-12i__Q7j7f2-aHJAkR6S-elUrgGd573klJhbA_vv7auP2oq6wyl4V79jvbNB8Xe9BtuojsuX1KhHl5DKj1Tjhzr_XT_g-Tsw3HTiCJzVx3b7AQBy4hf2PPFFPzrlmyvK6XFhyphenhyphenABBYA/s1600/002.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="297" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjk-12i__Q7j7f2-aHJAkR6S-elUrgGd573klJhbA_vv7auP2oq6wyl4V79jvbNB8Xe9BtuojsuX1KhHl5DKj1Tjhzr_XT_g-Tsw3HTiCJzVx3b7AQBy4hf2PPFFPzrlmyvK6XFhyphenhyphenABBYA/s400/002.png" width="400" /></a></div>
<br />
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">أقدم لكم موضوع جديد ألا وهو <span style="color: red;"><u>تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي</u></span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><u>بفرض أن</u> لديك قائمة بأسماء التلاميذ وليكن عدد التلاميذ 23 وتريد تقسيم القائمة أي شطرها إلى نصفين .. في الشطر الأيمن 12 طالب وفي الأيسر 11 طالب (الكود مرن ويتعامل مع أي عدد من الأسماء أو البيانات)</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #ffe599;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">ترى هل يمكن عمل ذلك بسهولة؟ >> نعم جرب الكود التالي لترى بنفسك </span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">إليكم الكود ... يقوم الكود بتقسيم القائمة إلى شطرين بالبيانات الملحقة بها وتظهر النتائج في ورقة العمل الثانية Sheet2</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: rgb(240, 240, 240) none repeat scroll 0% 0%; border: 1px dashed rgb(204, 204, 204); color: black; height: auto; line-height: 20px; overflow: auto; padding: 0px; width: 99%;">Sub SplitList()
'Author : YasserKhalil
'Release : 07 - 09 - 2016
'------------------------
'تعريف المتغيرات
Dim shSource As Worksheet, shTarget As Worksheet
Dim rList As Range, rListA As Range, rListB As Range
Dim hCount As Long, tCount As Long
'عدد أعمدة النطاق المراد عمل إنشطار له
Const colNum As Integer = 3
'تعيين ورقة العمل المصدر التي تحتوي القائمة الرئيسية وورقة العمل الهدف
Set shSource = Sheets("Sheet1")
Set shTarget = Sheets("Sheet2")
'تعيين النطاق الذي يحتوي على القائمة المراد شطرها
Set rList = shSource.Range("A6:A" & shSource.Cells(Rows.Count, "A").End(xlUp).Row)
'تعيين بداية النطاق للشطر الأول من القائمة
Set rListA = shTarget.Range("A4")
'تعيين بداية النطاق للشطر الثاني من القائمة
Set rListB = rListA.Offset(, colNum)
'تعيين قيمة المتغير ليساوي عدد خلايا النطاق المصدر
tCount = rList.Cells.Count
'تعيين قيمة للمتغير ليساوي تقريب قيمة قسمة المتغير السابق ÷ 2
hCount = Application.RoundUp(tCount / 2, 0)
'مسح النطاق الذي ستظهر فيه النتائج للشطر الأول والشطر الثاني
shTarget.Range("A3").CurrentRegion.Offset(1).ClearContents
'وضع نتائج الشطر الأول
rListA.Resize(hCount, colNum).Value = Range(rList(1).Address(External:=True) & ":" & rList(hCount).Address(External:=True)).Resize(hCount, colNum).Value
'وضع نتائج الشطر الثاني
rListB.Resize(tCount - hCount, colNum).Value = Range(rList(hCount + 1).Address(External:=True) & ":" & rList(tCount).Address(External:=True)).Resize(hCount, colNum).Value
MsgBox "Done ..." & vbNewLine & "Best Regards" & Chr(10) & "YasserKhalil", 64
End Sub<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><code style="color: black; word-wrap: normal;">
</code></span></span></b></pre>
</div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br /></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/8fjs1yb4cwdo.html" target="_blank"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"></span></span></b></a></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="font-family: Arial, Tahoma, Helvetica, FreeSans, sans-serif; font-size: x-large;"><a href="http://www.file-upload.com/h0ge33l3h8us" target="_blank"><b>تحميل الملف من هنا</b></a></span></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">إعداد /</span></span></u></span><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"> <span style="color: #274e13;">ياسر خليل أبو البراء </span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com4tag:blogger.com,1999:blog-8653421373569687556.post-85677104567495189422016-08-16T13:46:00.000-07:002018-07-12T10:35:21.660-07:00تظليل صف وعمود الخلية النشطة باستخدام التنسيق الشرطي Highlight ActiveCell's Row And Column Using Conditional Formatting<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">طريقة لتظليل صف وعمود الخلية النشطة مما يسهل على المستخدم معرفة الخلية النشطة ، والطريقة لا تؤثر على الخلايا الملونة أو الخلايا التي بها تنسيق شرطي (أي أنها آمنة)</span></span></span></b></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2KxIJ0TpJHnoybg8kA6BszRWmxvGadI8sAZ2L4vaQ1KDTaB6W6LFSKdBLX3rsxBsE2WkLKPUPJg9NVzC9zuibdRJxwn-d_IEPnrmIzl0oTCmu-zQKd_lCVBRe2JmGyRRWq4SWPVaH8Qs/s1600/Slogan.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="242" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2KxIJ0TpJHnoybg8kA6BszRWmxvGadI8sAZ2L4vaQ1KDTaB6W6LFSKdBLX3rsxBsE2WkLKPUPJg9NVzC9zuibdRJxwn-d_IEPnrmIzl0oTCmu-zQKd_lCVBRe2JmGyRRWq4SWPVaH8Qs/s400/Slogan.png" width="400" /></a></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #f6b26b;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">خطوات العمل :</span></span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نقوم بتعيين خلية محددة للعمل عليها ، وليكن الخلية P1 (سيتم استخدامها في التنسيق الشرطي والكود) .. أي أنها خلية محجوزة</span></span></b></div>
<div style="text-align: center;">
</div>
<div style="text-align: right;">
<span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قم باتباع الخطوات كما بالصور لتطبيق التنسيق الشرطي الأول الخاص بالعمود للخلية النشطة</span></span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPb1pLzbg4XGz1jMkXdd9WFM3bCP46cckrhKT5f4WOas6v-Ld7kIWW4mnWZe-qXbUb0fujKsIivauiViC6rT9ku3otf1xW52-ny-418zvAcNcS0c5Ll0zAveqrJ2jAymoBa_CyvUyLaME/s1600/001.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="178" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPb1pLzbg4XGz1jMkXdd9WFM3bCP46cckrhKT5f4WOas6v-Ld7kIWW4mnWZe-qXbUb0fujKsIivauiViC6rT9ku3otf1xW52-ny-418zvAcNcS0c5Ll0zAveqrJ2jAymoBa_CyvUyLaME/s400/001.png" width="400" /></a></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJTYXQs2_u41hCPTUFXQPTEd6be_66O6KdAP3GXImezar7wwSxFKXrTLqZXgjd2qR0JgtaMZlX74P0wzNzs88zH9a0RhVM6LQ4zB7knOACddQPYWtKGXuAhFhVVmxKdq_zk02btocZQPw/s1600/002.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="383" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJTYXQs2_u41hCPTUFXQPTEd6be_66O6KdAP3GXImezar7wwSxFKXrTLqZXgjd2qR0JgtaMZlX74P0wzNzs88zH9a0RhVM6LQ4zB7knOACddQPYWtKGXuAhFhVVmxKdq_zk02btocZQPw/s400/002.png" width="400" /></a></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRCrPtMisiQ4Q4F0ovH94MkhOJ0SMNRg6C2U66SlHe9OrlClD2ZsYN8qimu1qRKGpdrQw8XTbruZrBQOFj-wUMycA3xUfRfGvvmi8vIFmXzzCGUQombQHya8xyQorXIjQFyRyZiMSbXeQ/s1600/003.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="372" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRCrPtMisiQ4Q4F0ovH94MkhOJ0SMNRg6C2U66SlHe9OrlClD2ZsYN8qimu1qRKGpdrQw8XTbruZrBQOFj-wUMycA3xUfRfGvvmi8vIFmXzzCGUQombQHya8xyQorXIjQFyRyZiMSbXeQ/s400/003.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAmyGHp_eAZdnx_0SlNvuASkqok0lcR68Z9goFQFIFTjfy26XVc6tEJu57v1GPsyjgmFxznrZbXVio5tsfVmiwcyJZRoocq5l05n9uFeFSwTCf2GdGqHURNwmm8x2dZ3gzMxbVn5hO5c4/s1600/004.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjAmyGHp_eAZdnx_0SlNvuASkqok0lcR68Z9goFQFIFTjfy26XVc6tEJu57v1GPsyjgmFxznrZbXVio5tsfVmiwcyJZRoocq5l05n9uFeFSwTCf2GdGqHURNwmm8x2dZ3gzMxbVn5hO5c4/s400/004.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhx4Byw_6WX11xwXU_0C7Msqj2ZhtSbmYAVrulNSREjxYBSthAA8Iq085ottg_jbIiNmaWVxyx3XJYMD2GjoLeBcj4QaP1yr-l8ux_x8NVam06uRHdSUlb1UpLXtQD-gPeplPcehe9XqhY/s1600/005.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="192" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhx4Byw_6WX11xwXU_0C7Msqj2ZhtSbmYAVrulNSREjxYBSthAA8Iq085ottg_jbIiNmaWVxyx3XJYMD2GjoLeBcj4QaP1yr-l8ux_x8NVam06uRHdSUlb1UpLXtQD-gPeplPcehe9XqhY/s400/005.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6qW_bZUI24n88hsYmMvmjfurQ1QsLMilRtw4UVD_Y20O_HOvRK44mcBRRnd7rLrd0srEJBPMqXDBjYceRD3qKfAkpNHjQf5-BRsG5-sWiRWHVr7HjiUsAs3vTZnhyzWTomoCXnyr3F-8/s1600/006.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="123" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6qW_bZUI24n88hsYmMvmjfurQ1QsLMilRtw4UVD_Y20O_HOvRK44mcBRRnd7rLrd0srEJBPMqXDBjYceRD3qKfAkpNHjQf5-BRsG5-sWiRWHVr7HjiUsAs3vTZnhyzWTomoCXnyr3F-8/s400/006.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgR9vTtQvFbsAltz7RpNoTgTUcq6bkCyaTQRt4kCcMkQtjuaRnRSTOB-T5CnXzf99WTun1WbUxv71GiugMoLn96rnpicy_9at1KqXpGzgwoGWxPyXeosgAFLnn0-AwLJE1e37rSTAyigv0/s1600/007.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="188" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgR9vTtQvFbsAltz7RpNoTgTUcq6bkCyaTQRt4kCcMkQtjuaRnRSTOB-T5CnXzf99WTun1WbUxv71GiugMoLn96rnpicy_9at1KqXpGzgwoGWxPyXeosgAFLnn0-AwLJE1e37rSTAyigv0/s400/007.png" width="400" /></a></span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">المعادلة المستخدمة في التنسيق الشرطي بالشكل التالي</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=AND(COLUMN()=COLUMN(INDIRECT($P$1)),ROW()<=ROW(INDIRECT($P$1)))
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كرر نفس الخطوات في الصور مرة أخرى لتطبيق معادلة التنسيق الشرطي على صف الخلية النشطة</span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">والمعادلة المستخدمة في التنسيق الشرطي بالشكل التالي</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=AND(ROW()=ROW(INDIRECT($P$1)),COLUMN()<=COLUMN(INDIRECT($P$1)))
</code></pre>
</div>
<div style="text-align: right;">
<br />
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code ثم ضع الكود التالي في حدث ورقة العمل</span></span></b></div>
<div style="text-align: center;">
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Range("P1").Value = Target.Address
Application.ScreenUpdating = True
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<br />
<span style="color: #4c1130;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وإليكم الملف المرفق فيه تطبيق لما تم شرحه بالتفصيل ومرفق معه الصور المستخدمة في الشرح لمزيد من التوضيح</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/5qg35llxlvop.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: "arial" , "helvetica" , sans-serif;"><b><a href="https://www.file-upload.com/n8yitpfmy66g" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: "arial" , "helvetica" , sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com2tag:blogger.com,1999:blog-8653421373569687556.post-32443980877392258022016-07-09T14:32:00.001-07:002016-10-28T04:16:46.751-07:00تضمين فيديو من على اليوتيوب لملف إكسيل Embed YouTube Video Into Excel File<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">طريقة تضمين فيديو من على اليوتيوب لملف إكسيل وبدون أكواد</span> ، وبطريقة سهلة ويسيرة إن شاء الله</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #e06666;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">خطوات العمل : </span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قم بنسخ عنوان الفيديو المراد تضمينه وإدراجه داخل ملف الإكسيل ويكون العنوان بهذا الشكل على سبيل المثال</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">https://www.youtube.com/watch?v=4rz56EHfm3w
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قم بحذف كلمة watch وعلامة الاستفهام التي تلي الكلمة ، وقم باستبدال علامة يساوي = بعلامة / ، ليصبح العنوان بهذا الشكل</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">https://www.youtube.com/v/4rz56EHfm3w
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">افتح ملف الإكسيل المراد إدراج فيديو اليوتيوب فيه ، ثم قم بالذهاب للتبويب Developer وانقر على Design Mode أي وضع التصميم ، ثم اختر More Controls ثم قم بإدراج Shockwave Flash Object</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5DH098OTUGkyn4dYsBnNqNbpsMguyl-4Bp8EhyYPdhcK-qvE5loPNA58_1mPQ0hc1O4ifI6aQLttmCaBnVhMaZoqeWHduwb1exB26AVlxBh0Hgo87Xu9jIT6_Liuh5laQVbQSTd0Q27Q/s1600/001.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5DH098OTUGkyn4dYsBnNqNbpsMguyl-4Bp8EhyYPdhcK-qvE5loPNA58_1mPQ0hc1O4ifI6aQLttmCaBnVhMaZoqeWHduwb1exB26AVlxBh0Hgo87Xu9jIT6_Liuh5laQVbQSTd0Q27Q/s1600/001.png" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFLr3u28O4lOTqaSuOAWmN4EdBSESFBHbamJDqaBH_Q92PQMd1hJfiN5e-c2Bl0kh2uCfXT25D5ADxzdJZLNQHiZC7DsgBA0IB-gLOgnkvgxCk3yHcM2K5d0leUVTL2y1CxKcm2qLl1f8/s1600/002.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFLr3u28O4lOTqaSuOAWmN4EdBSESFBHbamJDqaBH_Q92PQMd1hJfiN5e-c2Bl0kh2uCfXT25D5ADxzdJZLNQHiZC7DsgBA0IB-gLOgnkvgxCk3yHcM2K5d0leUVTL2y1CxKcm2qLl1f8/s1600/002.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">بعد رسم الأداة على ورقة العمل ، قم بعمل كليك يمين ثم اختر الأمر Properties</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDiBnivvCX3tFt9VcIGRuIhR_XVJXnbaGVwGNhqhRYB3Pbiat9dglAU_bTHDQuIq_TFOBzE-keGLdoyufAEU_2Ln5zaYuRXoGx438-AsuMObdtyFHCZkybuvvwsdK-U4kaNjsuFrDBtQw/s1600/003.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDiBnivvCX3tFt9VcIGRuIhR_XVJXnbaGVwGNhqhRYB3Pbiat9dglAU_bTHDQuIq_TFOBzE-keGLdoyufAEU_2Ln5zaYuRXoGx438-AsuMObdtyFHCZkybuvvwsdK-U4kaNjsuFrDBtQw/s400/003.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الصق العنوان الذي تم تعديله في الخاصية Movie في نافذة الخصائص Properties</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3_7GBHW8gPjRaJBYNnZNpOZMkRT4FKOfbqTBwhAJ_uBse_06eAeAbtsYxz7ngIoW2SfNVnk_lQBxqik8R97H3H7fltZEK-OCNmWeNemEQXhI668ApxS3EvXinGLF9AkBLLpjzw0JyckY/s1600/004.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3_7GBHW8gPjRaJBYNnZNpOZMkRT4FKOfbqTBwhAJ_uBse_06eAeAbtsYxz7ngIoW2SfNVnk_lQBxqik8R97H3H7fltZEK-OCNmWeNemEQXhI668ApxS3EvXinGLF9AkBLLpjzw0JyckY/s1600/004.png" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<span style="color: #4c1130;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وإليكم ملف مرفق مطبق فيه الخطوات التي تم سردها</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/vxkvei0ijjnj.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/jpif4d7iaotc" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com2tag:blogger.com,1999:blog-8653421373569687556.post-36661377863739322022016-07-08T01:42:00.001-07:002016-10-28T05:42:57.973-07:00كود طباعة صفحات محددة Select Printer & Print Specific Sheets<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">أقدم لكم <span style="color: red;">كود يمكنك من طباعة صفحات محددة في المصنف ، كما يمكنك تحديد عدد النسخ المراد طباعتها ، كما يمكنك تحديد نوع الطابعة المراد الطباعة عليها</span></span></span></b><br />
<br />
<div style="text-align: center;">
<span style="color: #4c1130;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><span style="color: red;">أي أ<span style="font-family: "arial" , "helvetica" , sans-serif;">نه ببساطة</span></span></span></span></b><span style="font-size: 24px;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b> <span style="color: #660000;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">يمكنك طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ</span></span></span></b></span></span></span></div>
<br />
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><span style="color: red;"> </span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">سأترك لكم الصور لمعرفة كيفية التعامل مع الكود </span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNB43vg3QKPHZ5QIcUrI55SlALGLP5HwJLJww4GYeP4MiRaeQg-8a9opg2QPg4NnE6yNnJf2ZrUeNBjvoo8x-83zslTmAseTVSCKDse_pqMBVDuAchfpfz3db-H0g9rj1_gy9Dg4RZRwo/s1600/01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNB43vg3QKPHZ5QIcUrI55SlALGLP5HwJLJww4GYeP4MiRaeQg-8a9opg2QPg4NnE6yNnJf2ZrUeNBjvoo8x-83zslTmAseTVSCKDse_pqMBVDuAchfpfz3db-H0g9rj1_gy9Dg4RZRwo/s400/01.png" width="400" /></a></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJB60j0MJs14dPc-6Ekt9ChdJTwDXMzUDL7_E4bWecQsoIhhj1PoHFRdfoYoEyzJgPb7pr1sbK05FA9mlXYNu6xSaYXYAFKhBF7y_nryt_gzkssNR5AJmIXXpVh-VVXCcOKe_ElP_8GxE/s1600/02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJB60j0MJs14dPc-6Ekt9ChdJTwDXMzUDL7_E4bWecQsoIhhj1PoHFRdfoYoEyzJgPb7pr1sbK05FA9mlXYNu6xSaYXYAFKhBF7y_nryt_gzkssNR5AJmIXXpVh-VVXCcOKe_ElP_8GxE/s400/02.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyk9gO9kXdJnU5-h1wfcRVSSpBeCM0tsSaZxwgUIczZacEO0JCtimTVl7pAqJV5Mzbc_4Y3JZH4QKJrIsXwPFvKGkwOM83eS8VKTjiglyTjl-X-Clco1i50EBSJ8p0A8N5Or1qvgMcEJE/s1600/03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyk9gO9kXdJnU5-h1wfcRVSSpBeCM0tsSaZxwgUIczZacEO0JCtimTVl7pAqJV5Mzbc_4Y3JZH4QKJrIsXwPFvKGkwOM83eS8VKTjiglyTjl-X-Clco1i50EBSJ8p0A8N5Or1qvgMcEJE/s400/03.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhl3i7r4u0VTxuXdwWcc_wFZaXJqQO2YxhBTtFUEG6lMkcMOCu05F20HIlE4ptA3ApZcCRX2bLosBNpUrBhwjx1xnJXcepRBOjvsPx7Iaq1JpWltvA-cOx_gwfajS36aN0bBd6TUmdXMGM/s1600/04.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhl3i7r4u0VTxuXdwWcc_wFZaXJqQO2YxhBTtFUEG6lMkcMOCu05F20HIlE4ptA3ApZcCRX2bLosBNpUrBhwjx1xnJXcepRBOjvsPx7Iaq1JpWltvA-cOx_gwfajS36aN0bBd6TUmdXMGM/s400/04.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmT0VlWBJ6t-P_G0bQspC7p1OXfAfM3szPHFVGi-m48yEN1YmLI8zD5fIvdMGrczYZtBDMCYRtIKC7i7NhZZQP6h13mj7VjRMYm1zbOtBDjsUIi28Ms8DN3l4VBwXvVmkOD4_FOxUZU20/s1600/05.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmT0VlWBJ6t-P_G0bQspC7p1OXfAfM3szPHFVGi-m48yEN1YmLI8zD5fIvdMGrczYZtBDMCYRtIKC7i7NhZZQP6h13mj7VjRMYm1zbOtBDjsUIi28Ms8DN3l4VBwXvVmkOD4_FOxUZU20/s400/05.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7fsGRavHikNRlcWXU3-87icfmXgaLodq7KgtznbQEsuAHDr2Snw14AGzH7GcYBzXnsqH5LhmyROkrGt17m5px0iVAoogFOP41oqFefQ0FBgkFcndBGyE3VEs3MKl9AiSj3xC2D3XOPoU/s1600/06.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7fsGRavHikNRlcWXU3-87icfmXgaLodq7KgtznbQEsuAHDr2Snw14AGzH7GcYBzXnsqH5LhmyROkrGt17m5px0iVAoogFOP41oqFefQ0FBgkFcndBGyE3VEs3MKl9AiSj3xC2D3XOPoU/s400/06.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #f6b26b;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">وإليكم الكود المستخدم لتنفيذ الفكرة</span></span></b></span></div>
<br />
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub PrintSelectedSheets()
Dim I As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim Cb As CheckBox
Dim Numcop As Long
Dim Cnt As Integer
Dim X As String
Application.Dialogs(xlDialogPrinterSetup).Show
Application.ScreenUpdating = False
If ActiveWorkbook.ProtectStructure Then
MsgBox "المصنف محمي", vbCritical
Exit Sub
End If
Set CurrentSheet = ActiveSheet
X = CurrentSheet.Name
Set PrintDlg = ActiveWorkbook.DialogSheets.Add
SheetCount = 0
TopPos = 40
For I = 1 To ActiveWorkbook.Worksheets.Count
Set CurrentSheet = ActiveWorkbook.Worksheets(I)
If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then
SheetCount = SheetCount + 1
PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name
TopPos = TopPos + 13
End If
Next I
PrintDlg.Buttons.Left = 240
With PrintDlg.DialogFrame
.Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
.Caption = "اختر أوراق العمل المراد طباعتها"
End With
PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront
Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1)
If Numcop = 0 Then
ElseIf Len(Numcop) > 0 Then
End If
CurrentSheet.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each Cb In PrintDlg.CheckBoxes
If Cb.Value = xlOn Then
If Cnt = 0 Then
Worksheets(Cb.Caption).Select
Else
Worksheets(Cb.Caption).Select Replace:=False
End If
Cnt = Cnt + 1
End If
Next Cb
ActiveWindow.SelectedSheets.PrintOut copies:=Numcop
End If
Else
MsgBox "كل أوراق العمل فارغة", 64
End If
Application.DisplayAlerts = False
PrintDlg.Delete
Sheets(X).Select
End Sub
</code></pre>
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/fq084iv1az7k" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span>
<b><span style="color: red;"><u><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;">إعداد /</span></span></u></span><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-size: large;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com2tag:blogger.com,1999:blog-8653421373569687556.post-73553018609967594132016-05-26T06:22:00.002-07:002016-10-28T05:44:41.198-07:00إرجاع نتائج متعددة بشرط واحد في نطاق Concatenate Data With Single Criteria<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم دالة معرفة User-Defined Function تقوم ب<span style="color: red;">البحث في نطاق عن شرط محدد ، ثم تقوم بإرجع القيم المقابلة لهذا النطاق في أي عمود آخر ، أي أن الدالة ترجع قيم متعددة ، ويكون الناتج في خلية واحدة فقط</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdgYasW8TAumaxApllbFXs9CS9eRmLvEWd1u3qK77bK7gfWa4oCzYlP3Kmn3Pr4c_KyEtQ2tJTX4z5H2YiYteyLU9FDZAJuAth1tRKBxbs0QNMlxmi74N4nHq6pLjlwcnv23fan0NKQwU/s1600/Concatenate01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdgYasW8TAumaxApllbFXs9CS9eRmLvEWd1u3qK77bK7gfWa4oCzYlP3Kmn3Pr4c_KyEtQ2tJTX4z5H2YiYteyLU9FDZAJuAth1tRKBxbs0QNMlxmi74N4nHq6pLjlwcnv23fan0NKQwU/s1600/Concatenate01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك مجموعة مواد دراسية في العمود الأول ، وفي العمود الثالث القيمة 1 في حالة النجاح والقيمة صفر في حالة الرسوب ، والمطلوب إضافة وتجميع مواد الرسوب في خلية واحدة</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #a2c4c9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494">خطوات الحل :</span></span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"><span style="background-color: #a2c4c9;">------------ </span></span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494">قم بوضع الدالة المعرفة في موديول عادي بهذا الشكل :</span></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Function Concat(a As Variant, Optional sep As String = "") As String
Dim y As Variant
If TypeOf a Is Range Then
For Each y In a.Cells
Concat = Concat & y.Value & sep
Next y
ElseIf IsArray(a) Then
For Each y In a
Concat = Concat & y & sep
Next y
Else
Concat = Concat & a & sep
End If
Concat = Left(Concat, Len(Concat) - Len(sep))
End Function
</code></pre>
</div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494">في أي خلية وليكن الخلية A14 ضع المعادلة التالية<span style="color: blue;"><u> (معادلة صفيف أي يجب الضغط على Ctrl + Shift + Enter)</u></span></span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"><br />
</span></span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=SUBSTITUTE(Concat(IF(C2:C11=0," * "&A2:A11,""))," * ","",1)
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"><br />
</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494">المعادلة تقوم بتجميع مواد الرسوب باستخدام الدالة المعرفة Concat ، ويمثل النطاق C2:C11 النطاق الذي يحتوي الشرط المطلوب اختباره والشرط هنا في المثال أن تكون قيمة الخلية في النطاق تساوي صفر .. ويمثل النطاق B2:B11 النطاق الذي سيتم جلب البيانات أو النتائج منه وهي هنا في المثال مواد الرسوب</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494">يمكن استخدام أي فاصل في النتائج بخلاف علامة النجمة المستخدمة كما يحلو لك ، فقط قم بتغيير الفاصلة (علامة النجمة) إلى الفاصلة التي ترغب فيها ، في المعادلة السابقة <span style="color: #660000;"><u>(سيكون التغيير للفاصلة في موضعين)</u></span></span></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-E9pVZJJ_024Rp6KJ6mjEo6afqtjubs3rjKioRmLMj-FZHDwjSoU6SqpnNXE-s9mULChk_2lN_9G7tzyVeJvoxxntC2Jl621TGc3PKs5oQ3dY8FIcPPN0wm4CsmhutJFkc1uQSQ_42_4/s1600/Concatenate02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="20" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-E9pVZJJ_024Rp6KJ6mjEo6afqtjubs3rjKioRmLMj-FZHDwjSoU6SqpnNXE-s9mULChk_2lN_9G7tzyVeJvoxxntC2Jl621TGc3PKs5oQ3dY8FIcPPN0wm4CsmhutJFkc1uQSQ_42_4/s400/Concatenate02.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"><br />
</span></span></span></b></div>
<div style="text-align: center;">
<br />
<span style="font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/z20tg1w95wl5" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span id="goog_362315494"></span></span></b></div>
<br />
<div style="text-align: center;">
<b><span style="color: red;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"> إعداد /</span></span></span></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_362315494"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span><span id="goog_362315494"> </span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com4tag:blogger.com,1999:blog-8653421373569687556.post-84595556964556806262016-05-23T02:04:00.002-07:002016-10-28T05:45:51.410-07:00إجبار المستخدم على تفعيل الماكرو Force User To Enable Macros<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKkuym1_0OdfrOzlXp92Z6xX5bntT5dDNEL-9vUOb5JeE1jvrpSSHY29H4GNzs36nH5Xlcx-RG1mpWkZRByJkGxRK-uSQQODVJeqgRqLd9kFQqfc30NpVrPH721GRY5JrPv7j3k393f6k/s1600/Lock.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKkuym1_0OdfrOzlXp92Z6xX5bntT5dDNEL-9vUOb5JeE1jvrpSSHY29H4GNzs36nH5Xlcx-RG1mpWkZRByJkGxRK-uSQQODVJeqgRqLd9kFQqfc30NpVrPH721GRY5JrPv7j3k393f6k/s1600/Lock.jpg" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">طريقة لإجبار المستخدم على تفعيل الماكرو إذا لم يكن مفعلاً ، والطريقة تعتمد على إخفاء أوراق العمل في عدم تمكين الماكرو ، وإظهار ورقة عمل تحذيرية ، أما لو كان الماكرو مفعل فإن ورقة العمل التحذيرية تختفي وتظهر بقية أوراق العمل بشكل طبيعي</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_1520752998"></span><span id="goog_1520752999"></span><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span id="goog_1520752998">لابد أولاً أن تعرف كيف يمكنك تفعيل الماكرو أو تعطيله .. يحدث ذلك من خلال التبويب Developer ثم Macro Security كما بالصورة التالية </span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihjO8AIJXk65LhSRr4Dc7LzF7pbCFd0OtiaWGu2VfGPVobdBrK355Ma55R2xszJhXbARYvr72PK4r-V7V0jx_hgjFjbtQayZ-lG5APgudAma88CkT0KayTU0bxfka73akcl8YyUM8JdWQ/s1600/DisableMacros.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="232" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihjO8AIJXk65LhSRr4Dc7LzF7pbCFd0OtiaWGu2VfGPVobdBrK355Ma55R2xszJhXbARYvr72PK4r-V7V0jx_hgjFjbtQayZ-lG5APgudAma88CkT0KayTU0bxfka73akcl8YyUM8JdWQ/s400/DisableMacros.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">يمكن تعطيل الماكرو من خلال أول خيار بالنافذة ، أو تفعيله من خلال آخر خيار بالنافذة</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="color: blue;"><span style="background-color: #93c47d;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">خطوات العمل :</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: #4c1130;"><u>أولاً :</u></span> قم بإنشاء ورقة عمل جديدة في المصنف الخاص بك وأعطها أي اسم وليكن Warning (إذا أردت أن تسمي الورقة باسم آخر فقم بالتعديل في الكود في أول سطر منه فقط)</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: #4c1130;"><u>ثانياً :</u></span> ضع في ورقة العمل التحذيرية جملة أو صورة أو ما يحلو لك ، كنوع من التنبيه للمستخدم في حالة عدم تمكين الماكرو (كما في الملف المرفق وضحت في الصورة أنه يجب على المستخدم تمكين الماكرو لكي يفتح المصنف)</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: #4c1130;"><u>ثالثاً :</u></span> وأخيراً ضع الكود التالي في حدث المصنف (الذهاب لمحرر الأكواد عن طريق Alt + F11 ثم انقر دبل كليك في حدث المصنف ThisWorkbook ثم الصق الكود التالي</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">'يوضع الكود في حدث المصنف ويقوم بإخفاء كل أوراق العمل في حالة عدم تمكين الماكرو
'أي أنه يجبر المستخدم على تفعيل الماكرو لإظهار أوراق العمل ، أما في حالة إذا ما
'كان الماكرو مفعل ، فإن ورقة العمل التحذيرية تختفي وتظهر بقية أوراق العمل
'-------------------------------------------------------------------------------
'قم بتعيين اسم ورقة العمل التحذيرية
Const Warning As String = "Warning"
Private Sub Workbook_Open()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Worksheets
Ws.Visible = xlSheetVisible
Next Ws
Sheets(Warning).Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet
Application.ScreenUpdating = False
Sheets(Warning).Visible = xlSheetVisible
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> Warning Then
Ws.Visible = xlVeryHidden
End If
Next Ws
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #d9d2e9;"><span style="color: #660000;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">لتجربة الملف المرفق ، افتح الإكسيل أو أي مصنف آخر وقم بتعطيل الماكرو لديك ثم افتح المصنف المرفق ، ستجد أن أوراق العمل اختفت وظهرت فقط ورقة العمل التحذيرية ، قم بتفعيل الماكرو ثم أغلق المصنف وافتحه مرة أخرى ستجد أن أوراق العمل بالمصنف ظهرت واختفت ورقة العمل التحذيرية</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/bojfnx40tnj9" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com2tag:blogger.com,1999:blog-8653421373569687556.post-9520705643084673122016-05-19T23:29:00.004-07:002016-10-28T05:48:49.943-07:00إنشاء نسخة احتياطي من المصنف (حفظ تلقائي) كل فترة زمنية محددة Backup Automatically Every 15 Seconds<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم كود <span style="color: red;">يقوم بإنشاء نسخة احتياطية من المصنف كل 15 ثانية ، وذلك تحسباً لحدوث مشاكل مثل الانقطاع المفاجيء للتيار الكهربائي أو كنوع من الحيطة والحذر كي يكون لديك أكثر من نسخة من ملفك وخصوصاً إذا كان الملف مهم للغاية</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4puQ-cgGfycx_E9uu3skQJglHqHaavzc0FUFRs5CSUCiZzBpGEnauaD8wTMt-1HR-jlpAx00s8B2u5xxTR9UOxJGuSzEhp5wxg3fdcVyU5nUkBfoL7zFzmUY6TZ7H9oQw4ztWS7E12jg/s1600/Backup01.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4puQ-cgGfycx_E9uu3skQJglHqHaavzc0FUFRs5CSUCiZzBpGEnauaD8wTMt-1HR-jlpAx00s8B2u5xxTR9UOxJGuSzEhp5wxg3fdcVyU5nUkBfoL7zFzmUY6TZ7H9oQw4ztWS7E12jg/s1600/Backup01.jpg" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="color: #660000;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الكود يقوم بإنشاء النسخة الاحتياطية في نفس مسار المصنف الحالي في مجلد باسم Test ، ويتم إنشاء المجلد بشكل تلقائي إذا لم يكن موجود ، ويمكنك تغيير مسار الحفظ التلقائي ، ويمكنك تغيير اسم المجلد المطلوب حفظ النسخ الاحتياطية فيه ، كما يمكنك تغيير الفترة الزمنية المطلوبة لعملية الحفظ التلقائي (الكود مشروح بالتفصيل كي يسهل عليك مهمة التعديل عليه)</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #d9ead3;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً إليكم الكود ، وهو مكون من كود يوضع في موديول عادي بهذا الشكل</span></span></b></span><br />
<br /></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Create_Backup()
'تعريف المتغيرات
Dim strDate As String, strTime As String, directoryName As String
'تنسيق التاريخ
strDate = Format(Date, "DD-MM-YYYY")
'تنسيق الوقت
strTime = Format(Time, "hh.mm.ss")
'إلغاء خاصية رسائل التنبيه
Application.DisplayAlerts = False
'بدء التعامل مع المصنف النشط
With ActiveWorkbook
On Error Resume Next
'[Test] المسار الذي سيتم حفظ النسخة فيه وهو نفس مسار المصنف الحالي في مجلد باسم
directoryName = ThisWorkbook.Path & "\Test\"
'إنشاء المجلد الذي سيتم وضع النسخ الاحتياطية فيه إذا لم يكن موجود
MkDir directoryName
On Error GoTo 0
'حفظ نسخة من المصنف بالتاريخ والوقت الحاليين
.SaveCopyAs Filename:=directoryName & strDate & "_" & strTime & "_" & .Name
End With
'إعادة تفعيل خاصية رسائل التنبيه
Application.DisplayAlerts = True
'سطر يقوم بتنفيذ الماكرو مرة أخرى بعد الوقت المحدد في السطر
Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup"
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #d9ead3;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">والجزء الثاني من الكود يوضع في حدث المصنف بهذا الشكل</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Workbook_Open()
'بعد مرور الوقت المحدد في السطر [CreateBackup] يقوم هذا السطر بتنفيذ الماكرو المسمى
Application.OnTime Now + TimeValue("00:00:15"), "Create_Backup"
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b><br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/ith8mgjrtkf7" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: red;">إعداد /</span></span></span></u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com7tag:blogger.com,1999:blog-8653421373569687556.post-78649275665671999682016-05-10T11:25:00.004-07:002016-10-28T05:49:36.507-07:00عكس القيم في صف (7 حلول مختلفة) Reverse Values In Row<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: center;">
<span style="color: red;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="font-family: "arial" , "helvetica" , sans-serif;">7</span> طرق لعكس القيم في صف ، والحصول على نتائج القيم معكوسة في صف آخر.</span></span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQQzFhfC9g3AQnIBvYTEFUXb-L7BHKlqWfVz8wTq7iIMe2Bw_dU9V0CXbogCp0znMoTTVeC7eXMyuDLtOL4yFqe-muoGDT-EViicJqgF-Qa_fvRkf7Sgmakd1P10j2QJAy5YTqrFA2OYU/s1600/Reverse01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQQzFhfC9g3AQnIBvYTEFUXb-L7BHKlqWfVz8wTq7iIMe2Bw_dU9V0CXbogCp0znMoTTVeC7eXMyuDLtOL4yFqe-muoGDT-EViicJqgF-Qa_fvRkf7Sgmakd1P10j2QJAy5YTqrFA2OYU/s400/Reverse01.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك نطاق من القيم وليكن B5:H8 ، والمطلوب عكس قيم النطاق في صف آخر ؛ بمعنى لو كانت القيم هي 11 - 23 - 43 - 56 - 87 - 54 - 8 ، فالمطلوب في صف النتائج أن تكون القيم بالشكل التالي : 8 - 54 - 87 - 56 - 43 - 23 - 11</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></b></div>
<div style="text-align: center;">
<br />
<span style="background-color: #d9d2e9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">في الملف المرفق يوجد <span style="font-family: "arial" , "helvetica" , sans-serif;">7</span> طرق لأداء المطلوب (<span style="font-family: "arial" , "helvetica" , sans-serif;">أربعة </span>طرق بالمعادلات وثلاثة طرق بالأكواد)</span></span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/v2u8d4umd3d0.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/0maymaj8o5z0" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b><span style="color: red;"><u>إعداد /</u></span> <span style="color: #274e13;">ياسر خليل أبو البراء</span></b></span></span></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com4tag:blogger.com,1999:blog-8653421373569687556.post-79016816769579161912016-05-09T11:02:00.002-07:002016-10-28T05:51:00.146-07:00إغلاق وحماية الخلايا في نطاق محدد بعد الإدخال Locking Cells After Input<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">طريقة تستطيع بها أن تحمي الخلايا بعد عملية الإدخال للخلايا ، أي أنه تتم عملية الإدخال وبعدها تتم الحماية للخلية التي تم التعديل فيها.</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdBuOmWkUD_7hARrT9_WEQoU8vGw2RPl3gOOOrBOKEF422wMjSN621JOLs1SlHpSGY5I4LFaatxUGBD5_4heQYNyIY51lsZ5P28XoEM7VdsUZaY8j5tSdrL7Qn4jha7q8rhYasTwCq55Q/s1600/Lock01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdBuOmWkUD_7hARrT9_WEQoU8vGw2RPl3gOOOrBOKEF422wMjSN621JOLs1SlHpSGY5I4LFaatxUGBD5_4heQYNyIY51lsZ5P28XoEM7VdsUZaY8j5tSdrL7Qn4jha7q8rhYasTwCq55Q/s1600/Lock01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك العمود F وتريد أن تقوم بحماية الخلايا بعد عملية الإدخال للأرقام فقط ، أي أنك تريد السماح بإدخال أي نوع من أنواع البيانات بدون إغلاق الخلايا ، أما إذا كان البيان المدخل رقم تتم عملية إغلاق وحماية الخلية بعد الإدخال.</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="background-color: #a2c4c9;">خطوات العمل :</span> قم بتحديد كافة خلايا ورقة العمل من المنطقة المشتركة بين الصفوف والأعمدة</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzHAPF2MbmIUsTjf5YtUqqkCgwb0d-LytmsFDBVLF4tlv-QS43O3pfG7G8WvPMQj0Y-1BmyI_VIOyp3LA9XZ3yTApn5XoiwVsGATAuX7WjmXlEwwOXZhBw2zkFpcLwFab5eTquJITgwDU/s1600/Lock02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjzHAPF2MbmIUsTjf5YtUqqkCgwb0d-LytmsFDBVLF4tlv-QS43O3pfG7G8WvPMQj0Y-1BmyI_VIOyp3LA9XZ3yTApn5XoiwVsGATAuX7WjmXlEwwOXZhBw2zkFpcLwFab5eTquJITgwDU/s1600/Lock02.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كليك يمين على الخلايا ثم اختر الأمر تنسيق خلايا Format Cells واذهب للتبويب Protection وأزل علامة الصح أو أي علامة داخل مربع الخيار Locked ، وهذا لفك حماية كافة خلايا ورقة العمل قبل وضع الكود.</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhyOV0hUOFVSCNvwjqBttgL29Lc1sm-zaXIFMcT6ph2unrWeRKPBJAY7wy169eRq-dbpkhpTJh0fie0XANLhcDvOPgerbHN63GnwTx7xUZrQj_c3Dy0gnGotEH_Wi1rmbUta5hi2rECoF4/s1600/Lock03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhyOV0hUOFVSCNvwjqBttgL29Lc1sm-zaXIFMcT6ph2unrWeRKPBJAY7wy169eRq-dbpkhpTJh0fie0XANLhcDvOPgerbHN63GnwTx7xUZrQj_c3Dy0gnGotEH_Wi1rmbUta5hi2rECoF4/s1600/Lock03.png" /></a></span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #d9d2e9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً قم بوضع الكود التالي في حدث ورقة العمل ، كليك يمين على اسم ورقة العمل ثم اختر View Code ثم الصق الكود</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Cel As Object
Set Rng = Range("F" & Target.Row & ":F" & Target.Row)
For Each Cel In Rng
If Cel.Value = vbNullString Or Not IsNumeric(Cel) Then Exit Sub
Next Cel
Sheets("Sheet1").Unprotect
Rng.Locked = True
Sheets("Sheet1").Protect
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/uhfqj0qrob3n.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><b><a href="http://www.file-upload.com/rgms0cp4o0dj" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></b></span><br />
<span style="color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: large;"><br /></span></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com7tag:blogger.com,1999:blog-8653421373569687556.post-36383129503803716952016-05-08T11:11:00.000-07:002016-10-28T07:03:19.604-07:00إلغاء زر إغلاق الفورم Disable Close Button UserForm<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم كود يوضع في حدث الفورم ، و<span style="color: red;">يقوم الكود بإلغاء زر الإغلاق Close Button ، وإجبار المستخدم على استخدام زر إغلاق مصمم على الفورم</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiU1wTf6tsIiONf9ohhFTW9aGlcR-UQrWuuybja1wwp94QrZwE-368jT5fEba3Cn_N8Xs3zxhl7OhU2vj_crE7pWBaELFxbjd0BPam0enccDchtrz5Rk5kPL2Sa3JhGRKSlQACGkj1nLXs/s1600/Close01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiU1wTf6tsIiONf9ohhFTW9aGlcR-UQrWuuybja1wwp94QrZwE-368jT5fEba3Cn_N8Xs3zxhl7OhU2vj_crE7pWBaELFxbjd0BPam0enccDchtrz5Rk5kPL2Sa3JhGRKSlQACGkj1nLXs/s1600/Close01.png" /></a></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX20Lwm8IBSNk6U4PxzKKwSND61ri93I9AwGzO2_8y3thXzlUBlOye1pf2QID2aOtmHH7GdEN5rsDCByyhs1iC4gAWY774WJETCBU3DzS05g0nBem5jdNwnihsUzGTLXhyHF5HbQKKC38/s1600/Close02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX20Lwm8IBSNk6U4PxzKKwSND61ri93I9AwGzO2_8y3thXzlUBlOye1pf2QID2aOtmHH7GdEN5rsDCByyhs1iC4gAWY774WJETCBU3DzS05g0nBem5jdNwnihsUzGTLXhyHF5HbQKKC38/s1600/Close02.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #b4a7d6;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">يوضع الكود التالي في موديول عادي ، لإظهار الفورم</span></span></b></span></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub ShowForm()
UserForm1.Show
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #f4cccc;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">يوضع الكود التالي في حدث الفورم (كليك يمين على اسم الفورم في نافذة المشروع ثم View Code)</span></span></b></span></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
MsgBox "Close Button Has Been Disabled", vbCritical
End If
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/jade4qjl4fdp.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/nwj21qic3p37" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com0tag:blogger.com,1999:blog-8653421373569687556.post-65415164978877155772016-05-07T10:45:00.005-07:002016-10-28T07:04:10.816-07:00إدراج التاريخ أتوماتيكياً بمجرد إدخال بيان Insert Date Automatically Worksheet Change<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم<span style="color: red;"> كود يوضع في حدث ورقة العمل ويقوم الكود بإدراج التاريخ بشكل تلقائي.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxCTJJpz6efLrwjdB8GJ7r04H5BC4INs6Qcm-x-uW9kBz9EpVPgzIadDYdKO1Q6_V9m6sGCSszmc4nMwTtb56QNxTzt0htRq0YrHPijl3cCRdYW-2Bru9P8ytqm61yhqtQBaxDV3pNlbA/s1600/InsertDate01.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxCTJJpz6efLrwjdB8GJ7r04H5BC4INs6Qcm-x-uW9kBz9EpVPgzIadDYdKO1Q6_V9m6sGCSszmc4nMwTtb56QNxTzt0htRq0YrHPijl3cCRdYW-2Bru9P8ytqm61yhqtQBaxDV3pNlbA/s1600/InsertDate01.jpg" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك النطاق A2:A20 ، والمطلوب أنه عند أي إدخال جديد في النطاق يتم إدراج التاريخ في الخلية المقابلة لها في العمود الثالث ، وهذا ما يقوم به الكود ،</span></span><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">والكود فيه مرونة في التعامل</span> </span></span></u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">، أي أنه يمكن التعامل مع خلية واحدة فقط أو مجموعة خلايا ، ويتم مسح التاريخ بمجرد مسح الخلية أو الخلايا ، كما أنه يتأثر بعملية النسخ ، أي إذا قمت بنسخ خلية أو أكثر من أي مكان ووضعها في العمود الأول ، يتم إدراج التاريخ في العمود الثالث.</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9tDb3X8CXdv6v6HlFCJy_7PNcwAovTpCqIvIPdmcNlPpH-UYwGz_UmXrnpLhIgATEhyphenhyphenP5fkcOLiwzUYSsQ6AJ5on5ut3eZz9xIUnrs9soAGoOxiTbtiTMCOdVH05rMK8ljKkXy87vXjo/s1600/InsertDate02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9tDb3X8CXdv6v6HlFCJy_7PNcwAovTpCqIvIPdmcNlPpH-UYwGz_UmXrnpLhIgATEhyphenhyphenP5fkcOLiwzUYSsQ6AJ5on5ut3eZz9xIUnrs9soAGoOxiTbtiTMCOdVH05rMK8ljKkXy87vXjo/s1600/InsertDate02.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #a2c4c9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً إليكم الكود ، ويوضع الكود في حدث ورقة العمل</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A20")) Is Nothing Then
VBA.Calendar = vbCalGreg
If Len(Target.Cells(1).Value2) <> 0 Then
Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Date
Else
Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString
End If
End If
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/nlw94ly8odkg" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com10tag:blogger.com,1999:blog-8653421373569687556.post-14755219345115222932016-05-04T16:22:00.001-07:002016-10-28T07:05:30.647-07:00تشغيل ماكرو في وقت محدد Run Macro At Specific Time<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أحياناً يطلب البعض <span style="color: red;">طريقة تشغيل ماكرو في وقت محدد</span> ، لذا آثرت أن أضع الطريقة بأسلوب بسيط جداً لكي تتضح الفكرة.</span></span></b></div>
<div style="text-align: center;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi98b3enhrg_iR5oqe-bO_rEvhlWwCvLjTO4oHBzE8UJPPHZubwDOVPvMHN_ElGLajh9nqL7bv9QBq9AtyhEkc8mhlWAZgogQr8sQC6RTpkmYPuIJ75rSCzynTtEb-ovk5FjfGonh3d-JY/s1600/RunMacro01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi98b3enhrg_iR5oqe-bO_rEvhlWwCvLjTO4oHBzE8UJPPHZubwDOVPvMHN_ElGLajh9nqL7bv9QBq9AtyhEkc8mhlWAZgogQr8sQC6RTpkmYPuIJ75rSCzynTtEb-ovk5FjfGonh3d-JY/s1600/RunMacro01.png" /></a></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لدينا ماكرو أو إجراء فرعي باسم Test ، ويحتوي على كود نريد تنفيذه في وقت محدد وليكن في تمام الساعة الثالثة مساءاً أي الساعة 15:00 ..</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<u><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نضع الكود المراد تنفيذه والمسمى Test في موديول عادي بهذا الشكل</span></span></b></u></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Test()
MsgBox "This Is Test", 64
'Your Code
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<u><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ونضع الكود التالي في حدث المصنف ، ليتم تنفيذ الكود في الوقت الذي نحدده من خلال الكود بهذا الشكل</span></span></b></u></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Workbook_Open()
Application.OnTime TimeValue("15:00:00"), "Test"
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/nggy5bbutloz" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com5tag:blogger.com,1999:blog-8653421373569687556.post-10451012780751212432016-05-03T12:48:00.000-07:002016-10-28T07:06:20.323-07:00انشطار أوراق العمل إلى مصنفات منفصلة Split Worksheets Into Multiple Workbooks<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم<span style="color: red;"> كود يقوم بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار المصنف الحالي</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsIkPLLCFpbzHKrUIv5HqV-YRd5gl2rBcXwwPIjoA5JQX0oB-e1x32QyFbqGhqMNHCjhULqZ93HfnkSQYDFTi9TwKkE1GeEdOdhkXipKi_KvJVks3nHWwllHjuhquq6H_k85nx9eAFLtc/s1600/Split01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgsIkPLLCFpbzHKrUIv5HqV-YRd5gl2rBcXwwPIjoA5JQX0oB-e1x32QyFbqGhqMNHCjhULqZ93HfnkSQYDFTi9TwKkE1GeEdOdhkXipKi_KvJVks3nHWwllHjuhquq6H_k85nx9eAFLtc/s1600/Split01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك أربعة أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) ، وبعض أوراق العمل يحتوي على معادلات ، والبعض يحتوي على أكواد في حدث المصنف</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>والمطلوب</u> تصدير كل ورقة عمل إلى مصنف جديد وتحويل المعادلات إلى قيم ، والتخلص من الأكواد الموجودة في حدث ورقة العمل<br />
<br />
<span style="color: #4c1130;">عند تنفيذ الكود يبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ويحول المعادلات إلى قيم ثم يحذف الكود الموجود في حدث ورقة العمل ، ثم أخيراً يقوم الكود بإغلاقه</span></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<span style="background-color: #d5a6bd;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً إليكم الكود الذي يؤدي هذه المهمة</span></span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Split_Workbook()
Dim xPath As String
Dim Sh As Worksheet
Dim strName As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Copy
ActiveWorkbook.ActiveSheet.UsedRange.Value = ActiveWorkbook.ActiveSheet.UsedRange.Value
strName = Sh.CodeName
With ActiveWorkbook.VBProject.VBComponents(strName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & Sh.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.ActiveWorkbook.Close False
Next Sh
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/d5hhcoqtpau5.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/q2cj1z9ccpqy" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b>
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء </span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com2tag:blogger.com,1999:blog-8653421373569687556.post-3513701168958323062016-05-02T21:41:00.003-07:002016-10-28T07:07:02.727-07:00حذف ورقة عمل وإلغاء رسائل التحذير Delete Sheet & Disable Alerts<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">درس بسيط حول كيفية حذف ورقة عمل بالكود وإلغاء الرسائل التحذيرية.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="color: #660000;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">لربما يسأل البعض ما هذا التدني في المستوى في تقديم محتوى بسيط وسهل؟ والبعض قد يلجأ إلى تسجيل الماكرو ويحذف ورقة العمل ليحصل على الماكرو المطلوب بالشكل التالي ، ويظن أن الموضوع قد انتهى لهذا الحد.</span></span></b></span></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Data").Select
ActiveWindow.SelectedSheets.Delete
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">في الحقيقة أحببت أن أتناول معكم الموضوع بشكل علمي وعملي وممنهج ، لنرتقي بطريقة التفكير التي نفكر بها إلى مستوى أعلى</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إذا أردنا أن نقوم بالبرمجة فعلينا التفكير في كل الاحتمالات الممكنة حتى يكون الكود شامل ولا يحتوي على ثغرات .. فلنبدأ بضرب مثال ، ونفرض الفروض الممكنة ونرى كيف نعالج هذه الاحتمالات</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لدينا ثلاثة أوراق عمل Sheet1 و Data و Report ، والمطلوب حذف ورقة العمل المسماة Data</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKJ4wkW4ZvUcT6W9Ofi3GegrCHo537BMwwUOdxNUylrI0gGFyaRigGJuEtTP21z7kAD-ln1EEHLhnWn5NY5OJYyTGhXRkllnK5ODcIHy2Awxseaca4wHDBGHUXxUHdysZOAJ3qJMkC3Ek/s1600/DeleteSheet03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKJ4wkW4ZvUcT6W9Ofi3GegrCHo537BMwwUOdxNUylrI0gGFyaRigGJuEtTP21z7kAD-ln1EEHLhnWn5NY5OJYyTGhXRkllnK5ODcIHy2Awxseaca4wHDBGHUXxUHdysZOAJ3qJMkC3Ek/s1600/DeleteSheet03.png" /> </a></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="background-color: #b6d7a8;"><span style="color: blue;">أول نقطة</span></span> هو أنه عند الحذف يقوم الإكسيل بإظهار رسالة تحذيرية بهذا الشكل</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4EilB6wXHPofscdVXRVW1rO4RLLadPZC37An99imnShW7Q5uxv1P2Hn-KK4sKSHiS_f3s3UdA93o6PkwDo5ZK7D5xFl6fn54fbI44sx54i98BPTFQbGJXAZ6AIeXFT9haJYbUSxVrSTc/s1600/DeleteSheet01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4EilB6wXHPofscdVXRVW1rO4RLLadPZC37An99imnShW7Q5uxv1P2Hn-KK4sKSHiS_f3s3UdA93o6PkwDo5ZK7D5xFl6fn54fbI44sx54i98BPTFQbGJXAZ6AIeXFT9haJYbUSxVrSTc/s1600/DeleteSheet01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أي أن الإكسيل يقوم بحذف ورقة العمل بشكل نهائي ، هل تود الاستمرار؟ - والتراجع باستخدام Ctrl + Z بعد التأكيد على الحذف لن يجدي ، وعليك إذا كنت تريد التراجع أن تقوم بإغلاق المصنف بدون حفظ وإعادة فتحه من جديد</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ما يهمنا في هذه النقطة أننا نريد ألا تظهر رسالة التحذير أثناء تشغيل الكود ، والأمر ببساطة أننا نقوم بإلغاء خاصية رسائل التحذير DisplayAlerts بوضع القيمة False لها في بداية تنفيذ الأمر ، ولا ننسى أن نقوم بإعادة الخاصية مرة أخرى بوضع القيمة True لها بعد انتهاء عمل الكود</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="background-color: #b6d7a8;"><span style="color: blue;">النقطة الثانية</span></span> نفترض أن ورقة العمل المطلوب حذفها غير موجود ، وقمت بتنفيذ الكود ، ستظهر لك رسالة خطأ ، قم بتجربة الكود التالي</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Delete_Sheet()
Dim strSh As String
strSh = "Data"
Application.DisplayAlerts = False
Sheets(strSh).Delete
MsgBox "Sheet Deleted ...", 64
Application.DisplayAlerts = True
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نفذ الكود لمرة ستحذف ورقة العمل Data ، ثم نفذ الكود مرة أخرى ستظهر لك رسالة خطأ بهذا الشكل</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifkNXmbmih7XZ1w_EMnjWYN2zHXIttKJWIkmI1VrSe9sXFVzEwFTUpvkccBmxKUGouxJ-rRrUY9KHOakuopD98lTL8mQ0E2nd7Wen5Y-FtrnJmu6XIxIyi1RWiBnaKyP4NAS3nMR9T1Ms/s1600/DeleteSheet04.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifkNXmbmih7XZ1w_EMnjWYN2zHXIttKJWIkmI1VrSe9sXFVzEwFTUpvkccBmxKUGouxJ-rRrUY9KHOakuopD98lTL8mQ0E2nd7Wen5Y-FtrnJmu6XIxIyi1RWiBnaKyP4NAS3nMR9T1Ms/s1600/DeleteSheet04.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ولعلاج الخطأ يجب أن نقوم بفحص ما إذا كانت ورقة العمل موجودة أم لا ، فإذا كانت موجودة نقوم بحذفها ، وإذا كانت ورقة العمل غير موجودة يظهر رسالة لنا تفيد بأنها غير موجودة.</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">هنا نستخدم دالة Evaluate ، وهذه الدالة تفيد في الحصول على قيمة من تنفيذ معادلة أو دالة من الدوال المبنية داخل الإكسيل ، على سبيل المثال إذا كان لدينا أرقام في الخلايا A1:A3 ، وفي الخلية A4 أردنا جمع الخلايا نقوم باستخدام دالة الجمع Sum يليها النطاق A1:A3 بين قوسين ، يمكن استخدام الدالة Evaluate للحصول على القيمة بتنفيذ المعادلة بها بالشكل التالي</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Test_Evaluate()
MsgBox Evaluate("=SUM(A1:A3)")
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نلاحظ أننا وضعنا المعادلة بين أقواس ( ) وبين أقواس تنصيص ، ثم بينهما وضعت المعادلة ، وعند تنفيذ الكود نحصل على الناتج أو القيمة.</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نرجع لما كنا بصدده ألا وهو أننا نريد فحص ورقة العمل ، وببساطة نستخدم الدالة ISREF والتي ترجع القيمة True إذا كانت ورقة العمل موجودة ، ولذا يمكن تطوير الكود بهذا الشكل لتفادي الخطأ في حالة عدم وجود ورقة العمل</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Delete_Sheet()
Dim strSh As String
strSh = "Data"
Application.DisplayAlerts = False
If Evaluate("=ISREF('" & strSh & "'!A1)") Then
Sheets(strSh).Delete
MsgBox "Sheet Deleted ...", 64
Else
MsgBox "The Sheet Does Not Exist", vbExclamation
End If
Application.DisplayAlerts = True
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="background-color: #b6d7a8;"><span style="color: blue;">النقطة الثالثة والأخيرة</span></span> وهي احتمال أن تكون ورقة العمل المطلوب حذفها هي ورقة العمل الوحيدة بالمصنف ، بفرض أننا قمنا بحذف ورقتي العمل Sheet1 و Report وأردنا أن نقوم بحذف ورقة العمل الوحيدة Data والتي لا يوجد غيرها</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQAf1PnaSpJT5pBK8FfWs9E_h2teFfxRiQDRLcS3yrbxxB3XpIzUKzC3ya1-bSZ39uhA00uEMjeniZvjnSYko9trA8dlYjMB2UXz-2aluDrwanGjQoN0NcPfFQlPzgeS7m9_uRiNXgEpo/s1600/DeleteSheet05.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQAf1PnaSpJT5pBK8FfWs9E_h2teFfxRiQDRLcS3yrbxxB3XpIzUKzC3ya1-bSZ39uhA00uEMjeniZvjnSYko9trA8dlYjMB2UXz-2aluDrwanGjQoN0NcPfFQlPzgeS7m9_uRiNXgEpo/s1600/DeleteSheet05.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">رغم أننا بالكود وضعنا إلغاء رسائل التحذير إلا أن الأمر لا ينتهي ، إذ أن منطق الإكسيل يخبرنا أنه يجب أن يحتوي المصنف على ورقة عمل واحدة على الأقل ، ولعلاج تلك المشلكة يمكننا إضافة سطر قبل تنفيذ الكود يقوم باختبار عدد أوراق العمل الموجودة ، فإذا كان عدد أوراق العمل = 1 ، نظهر رسالة تفيد بذلك ونستخدم جملة Exit Sub للخروج من الإجراء الفرعي</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #f4cccc;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وها هو الكود بالشكل النهائي له بعد محاولة تفادي كل الاحتمالات الممكنة</span></span></b></span></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Delete_Sheet()
Dim strSh As String
strSh = "Data"
Application.DisplayAlerts = False
If ThisWorkbook.Worksheets.Count = 1 Then MsgBox "There Is only One Sheet. The Deletion Can't Be Done!", vbCritical: Exit Sub
If Evaluate("=ISREF('" & strSh & "'!A1)") Then
Sheets(strSh).Delete
MsgBox "Sheet Deleted ...", 64
Else
MsgBox "The Sheet Does Not Exist", vbExclamation
End If
Application.DisplayAlerts = True
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/ikkue2d0l4zx.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/d7bpidvk45hg" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com3tag:blogger.com,1999:blog-8653421373569687556.post-64791815682813382532016-05-01T14:05:00.000-07:002016-10-28T07:08:47.853-07:00دالة الترتيب حسب درجات الطلاب Ordinal Number UDF Function<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم دالة معرفة للعلامة عبد الله باقشير ، <span style="color: red;">تقوم الدالة بترتيب الطلاب حسب درجاتهم ، وإذا كان لطالبين أو أكثر نفس الدرجة تكتب كلمة مكرر.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك مجموعة طلاب ولهم درجات في العمود الثالث في النطاق C2:C11 ،<u> والمطلوب</u> ترتيب الطلاب حسب الدرجات.</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أولاً نقوم بتسمية نطاق الدرجات لتسهيل التعديل في المعادلة حسب ملفك ، نحدد النطاق C2:C11 ونضع مؤشر الماوس في صندوق الاسم على يسار شريط المعادلات ونكتب اسم للنطاق وليكن Marks ، حيث سنستخدم هذا الاسم في المعادلة.</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiufM_riLGMW3rgmRWg-e6bxyqOVDQJotaqBG2XH-LDZwr6Tz3sSOJ4mnmmKH1FujBkNUh9wb2htd0voszow37SYIbq3zmBZgWuX7vulaX7mgQp6t6Bw9jKNUqvhwPlJNb6TrFvxFE8H9Y/s1600/Ordinal01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiufM_riLGMW3rgmRWg-e6bxyqOVDQJotaqBG2XH-LDZwr6Tz3sSOJ4mnmmKH1FujBkNUh9wb2htd0voszow37SYIbq3zmBZgWuX7vulaX7mgQp6t6Bw9jKNUqvhwPlJNb6TrFvxFE8H9Y/s1600/Ordinal01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قم بوضع الدالة المعرفة التالية في موديول عادي <span style="color: #660000;">(للدخول لمحرر الأكواد اضغط Alt + F11 ، ومن قائمة Insert اختر الأمر Module ثم الصق الدالة المعرفة التالية) </span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Function OrdinalNum(ByVal Num As Variant, Optional ByVal Sex As Byte = 0) As String
Const Male = 0
Const Female = 1
Dim Sings(1 To 11) As String
Dim Tens(2 To 10) As String
Dim Fem As String
On Error Resume Next
OrdinalNum = Num
Num = CDbl(Num)
If Num < 1 Or Num > 100 Or Num <> CLng(Num) Then
Exit Function
End If
Sings(1) = "الأول"
Sings(2) = "الثاني"
Sings(3) = "الثالث"
Sings(4) = "الرابع"
Sings(5) = "الخامس"
Sings(6) = "السادس"
Sings(7) = "السابع"
Sings(8) = "الثامن"
Sings(9) = "التاسع"
Sings(10) = "العاشر"
Sings(11) = "الحادي"
Tens(2) = "العشرون"
Tens(3) = "الثلاثون"
Tens(4) = "الأربعون"
Tens(5) = "الخمسون"
Tens(6) = "الستون"
Tens(7) = "السبعون"
Tens(8) = "الثمانون"
Tens(9) = "التسعون"
Tens(10) = "المائة"
If Sex > Female Then Sex = Male
Fem = IIf(Sex = 0, "", "ة")
Select Case Num
Case 1: OrdinalNum = Sings(Num) & IIf(Sex = Male, "", "ى")
Case 2 To 10: OrdinalNum = Sings(Num) & Fem
Case 11: OrdinalNum = Sings(Num) & Fem & " عشر" & Fem
Case 12 To 19: OrdinalNum = Sings(Num Mod 10) & Fem & " عشر" & Fem
Case Else
Select Case Num Mod 10
Case 0: OrdinalNum = Tens(CLng(Num / 10))
Case 1: OrdinalNum = Sings(11) & Fem & " و" & Tens(Fix(Num / 10))
Case Else: OrdinalNum = Sings(Num Mod 10) & Fem & " و" & Tens(Fix(Num / 10))
End Select
End Select
End Function
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الآن ننتقل لآخر جزئية وهي أننا سنقوم بوضع معادلة في الخلية D2 بهذا الشكل</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=OrdinalNum(RANK(C2,Marks))
</code></pre>
</div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ثم نضع معادلة أخرى في الخلية D3 بهذا الشكل (وبعدها نسحب هذه المعادلة لنهاية النطاق أي إلى الخلية D11)</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=IF(C3=C2,OrdinalNum(RANK(C3,Marks))&" مكرر",OrdinalNum(RANK(C3,Marks)))
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/xsgyutmopncc.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/d2ifrkwmhzq4" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com7tag:blogger.com,1999:blog-8653421373569687556.post-46954208278090656632016-05-01T11:34:00.000-07:002016-10-28T07:09:26.390-07:00ثلاثة طرق لتحديد أوراق العمل بالكود Select Sheets Methods<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">ثلاثة طرق لتحديد أوراق العمل في محرر الأكواد.</span></span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>الطريقة الأولى</u> باستخدام اسم ورقة العمل بالتبويب</span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>الطريقة الثانية</u> باستخدام رقم الفهرس لورقة العمل</span></span></b></div>
<div style="text-align: right;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>الطريقة الثالثة</u> باستخدام الاسم البرمجي</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIkwZIz46aGsVzqK87Zxc0iV35eWW-qvj5e0cSkJ5u2Djcg9Tr8Alfz6hJVJSA1QoDfNeuns88SIWfmAcO5V6aZp35RNdQ9p-D4U3m6dE5SkAjqKJNNSFcqqWIrSIJu3TmNrT7FLrD5W8/s1600/SelectSheets01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIkwZIz46aGsVzqK87Zxc0iV35eWW-qvj5e0cSkJ5u2Djcg9Tr8Alfz6hJVJSA1QoDfNeuns88SIWfmAcO5V6aZp35RNdQ9p-D4U3m6dE5SkAjqKJNNSFcqqWIrSIJu3TmNrT7FLrD5W8/s1600/SelectSheets01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #a2c4c9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وإليكم فيديو يوضح كيفية استخدام الطرق الثلاثة لتحديد أوراق العمل</span></span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><iframe allowfullscreen="" class="YOUTUBE-iframe-video" data-thumbnail-src="https://i.ytimg.com/vi/4rz56EHfm3w/0.jpg" frameborder="0" height="266" src="https://www.youtube.com/embed/4rz56EHfm3w?feature=player_embedded" width="320"></iframe></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #b4a7d6;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وها هو الكود المستخدم للثلاثة طرق</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub SelectSheetByItsTabName()
Sheets("Data").Select
End Sub
Sub SelectSheetByItsIndexNumber()
Sheets(4).Select
End Sub
Sub SelectSheetByItsCodeName()
Sheet4.Select
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/m1ut3ov8xyoo.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/tlkix7ti2fev" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com6tag:blogger.com,1999:blog-8653421373569687556.post-4055572519976171842016-05-01T05:42:00.003-07:002016-10-28T07:10:05.895-07:00استخراج القيم الفريدة أي الغير مكررة في نطاق Unique List By Collection<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">كثيراً ما نحتاج لهذا الأمر ألا وهو <span style="color: red;">استخراج القيم الفريدة أي الغير مكررة من نطاق لاستخدامها في نطاق آخر أو ربما نريدها لتعبئة كومبوبوكس أو خلافه.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك مجموعة من الأسماء فيها أسماء مكررة في النطاق A<span style="font-family: "arial" , "helvetica" , sans-serif;">2</span>:A15 ، والمطلوب استخراج الأسماء الغير مكررة ووضع النتائج في العمود الثالث.</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIFhXV33yn0w4Sh67X1q9zcCCb85Lzy2o99iYkICguH9JTV_MxmZLaktmdKFbUeQMHAJH0lDRZxcRKly-57k-Ix5WeiIz1VphuCM6rixfrmkD0yIHV3H5B_NJ2yY3s0Dll-jlO_IMiNPU/s1600/UniqueList01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIFhXV33yn0w4Sh67X1q9zcCCb85Lzy2o99iYkICguH9JTV_MxmZLaktmdKFbUeQMHAJH0lDRZxcRKly-57k-Ix5WeiIz1VphuCM6rixfrmkD0yIHV3H5B_NJ2yY3s0Dll-jlO_IMiNPU/s1600/UniqueList01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: white;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b>يمكن است<span style="font-family: "arial" , "helvetica" , sans-serif;">خراج القيم المكررة باستخدام معادلة صفيف (أ<span style="font-family: "arial" , "helvetica" , sans-serif;">ي ي<span style="font-family: "arial" , "helvetica" , sans-serif;">جب الضغط عل<span style="font-family: "arial" , "helvetica" , sans-serif;">ى</span></span></span></span></b></span></span></span><br />
<span style="background-color: white;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Ctrl + Shift + Enter<span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="font-family: "arial" , "helvetica" , sans-serif;">بعد إدخ<span style="font-family: "arial" , "helvetica" , sans-serif;">ال المعادلة)</span></span></span></span></span></span></span></b></span></span></span><br />
<span style="background-color: white;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;">نقوم بوضع المعادلة في الخلية H2 على سبيل المث<span style="font-family: "arial" , "helvetica" , sans-serif;">ال بهذا الشكل</span></span></span></span></span></span></span></span></b></span></span></span><br />
<br />
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">=IFERROR(IF(A2<>"",INDEX($A$2:$A$15,MATCH(0,COUNTIF($H$1:H1,$A$2:$A$15),0)),""),"")
</code></pre>
</div>
<span style="background-color: white;"><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><b><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> </span> </span></span></span></span></span></span></span></b></span></span></span><b> </b><br />
<span style="background-color: #b4a7d6;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إليكم الكود المستخدم لتنفيذ المهمة ، ويوضع الكود في موديول عادي</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Unique_List()
'تعريف المتغيرات
Dim Rng As Range
Dim Cel As Range
Dim Coll As New Collection
Dim I As Integer
'تعيين النطاق المراد استخراج القيم الفريدة منه
Set Rng = Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
'سطر لتجنب حدوث خطأ لأنه عند إضافة عنصر موجود من قبل يحدث خطأ
On Error Resume Next
'حلقة تكرارية لكل خلية من خلايا النطاق
For Each Cel In Rng
'إضافة العنصر أو قيمة الخلية ويمثل الجزء بعد الفاصلة مفتاح فريد
'لتحويل قيمة الخلية لقيمة نصية في حالة التعامل مع الأرقام [Cstr] وتم استخدام الدالة
Coll.Add Cel.Value, CStr(Cel.Value)
Next Cel
'وضع قيم الكائن الذي استخدم في تخزين القيم الفريدة في العمود الثالث
For I = 1 To Coll.Count
Sheet1.Cells(I + 1, 3).Value = Coll(I)
Next I
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://www.europeup.com/76j8tthtml46.html" target="_blank"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></a></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/m47us771rd4x" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com3tag:blogger.com,1999:blog-8653421373569687556.post-30157320409248983142016-05-01T03:16:00.001-07:002016-10-28T07:10:40.061-07:00دالة التلوين في محرر الأكواد RGB Tutorial<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم معلومة بسيطة حول<span style="color: #660000;"> الدالة RGB والتي تستخدم في الـ VBA بغرض التلوين</span> ، <u>والدالة لها ثلاثة بارامترات أي ثلاثة مدخلات :</u> <span style="color: red;">الأول هو رقم بين 0 و 255 يمثل اللون الأحمر</span> ، <span style="color: #274e13;">والثاني رقم بين 0 و 255 يمثل اللون الأخضر</span> ، <span style="color: blue;">والثالث رقم بين 0 و 255 يمثل اللون الأزرق.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">حيث R اختصار لكلمة Red ، و G اختصار لكلمة Green ، و B اختصار لكلمة Blue.</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>على سبيل المثال</u> إذا أردنا تلوين خلفية خلية باللون الأصفر ، وليكن الخلية A1 ، فيكون سطر الكود بهذا الشكل</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Test()
Range("A1").Interior.Color = RGB(250, 250, 0)
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">حيث أن كلمة Interior تعني التعامل مع الخلفية للنطاق أو الخلية ، وكلمة Color للتعامل مع اللون ، أي أننا نخبر الإكسيل بأننا نريد لون الخلفية للخلية A1 يساوي قيم الدالة RGB والتي تساوي 250 و 250 وصفر</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhahyphenhyphenOHFfoP1xLpzgUnC9Ng0pEfNvjcuH5Wf5QKF-gu0H5dX12Lzl3uyuKjG2x0-4BkUggmC2x6IvARYsIadFBZB0kxovmG0UBe_NOyffEWzV8TAfACANWmdnLguvNiCpp4jWKyxtqJAUs/s1600/RGB01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhahyphenhyphenOHFfoP1xLpzgUnC9Ng0pEfNvjcuH5Wf5QKF-gu0H5dX12Lzl3uyuKjG2x0-4BkUggmC2x6IvARYsIadFBZB0kxovmG0UBe_NOyffEWzV8TAfACANWmdnLguvNiCpp4jWKyxtqJAUs/s1600/RGB01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وأخيراً إليكم ملف مرفق فيه أرقام عشوائية بين 0 و 255 في الأعمدة الثلاثة الأولى ، وتظهر الألوان في العمود الرابع ، ويوضع الكود في حدث ورقة العمل .. لتجريب الكود يمكنك الضغط على مفتاح F9 من لوحة المفاتيح ولاحظ تغير الألوان في العمود الرابع</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Worksheet_Calculate()
Dim Cel As Range
For Each Cel In Range("D2:D" & Cells(Rows.Count, 1).End(xlUp).Row)
Cel.Interior.Color = RGB(Cel.Offset(, -3), Cel.Offset(, -2), Cel.Offset(, -1))
Next Cel
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/vgmbvw7zk9e3" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com11tag:blogger.com,1999:blog-8653421373569687556.post-89419823558844496592016-04-30T16:05:00.003-07:002016-10-28T07:11:16.308-07:00فصل الناجحين عن الراسبين باستخدام الحلقات التكرارية Transfer Nageh Raseb<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>أقدم لكم بالتفصيل وبالكود المشروح خطوة خطوة</u> <span style="color: red;">طريقة فصل الناجحين عن الراسبين وكذلك من لهم دور ثان</span> ، <span style="color: blue;">بفرض أن</span> لديك ورقة العمل الأولى فيها شيت كنترول وفي العمود Y يوجد حالة الطالب إما "ناجح" أو "راسب" أو "دور ثان".</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ولديك ثلاثة أوراق عمل : ورقة عمل باسم "ناجح" ، وورقة عمل باسم "دور ثان" ، وورقة عمل باسم "راسب"</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: blue;">والمطلوب</span> ترحيل أو فصل بيانات كل قسم إلى ورقة العمل المناسبة.</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhA5nNkCRvh0szm2lijqoRlOYm6pxkG89qrEKcfoxxZ9qKhTCQU_6trvVF6x-g3cDoCV3BoUtUgVr_XBbOWRUP1ThswQVuh6uaTn0nLydv-cNgJerUHA0DqLGJGzCx6OD1qqQAltPGUUQU/s1600/Nageh01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="264" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhA5nNkCRvh0szm2lijqoRlOYm6pxkG89qrEKcfoxxZ9qKhTCQU_6trvVF6x-g3cDoCV3BoUtUgVr_XBbOWRUP1ThswQVuh6uaTn0nLydv-cNgJerUHA0DqLGJGzCx6OD1qqQAltPGUUQU/s400/Nageh01.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #9fc5e8;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إليكم الكود الذي يقوم بمهمة الفصل مع الشرح لكافة أسطر الكود</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Tarhil_Ragab()
'تعريف المتغيرات
Dim Sh As Worksheet
Dim strSh As String
Dim I As Long
Dim AA As Long
'سطر لإيقاف تحديث الشاشة
Application.ScreenUpdating = False
'مسح محتويات النطاق في ورقة العمل ناجح
Sheets("ناجح").Range("A12:X1000").ClearContents
'مسح محتويات النطاق في ورقة العمل دور ثان
Sheets("دور ثان").Range("A12:X1000").ClearContents
'مسح محتويات النطاق في ورقة العمل راسب
Sheets("راسب").Range("A12:X1000").ClearContents
'بدء التعامل مع ورقة العمل الأولى التي تعتبر الورقة الرئيسية
With Sheet1
'[Y] حلقة تكرارية بدايةً من الصف الـ 12 وحتى آخر صف به بيانات بالاعتماد على العمود
For I = 12 To .Cells(10000, "Y").End(xlUp).Row
'[Y] تعيين قيمة المتغير ليساوي قيمة الخلية في الصف المحدد في العمود
'ففي أول حلقة تكرارية سيكون الصف هو رقم 12 [I] المقصود بالصف المحدد الصف الذي يحمل قيمة المتغير
'وفي الحلقة التالية سيكون الصف رقم 13 وهكذا مع كل حلقة تكرارية يتغير الصف
strSh = .Cells(I, "Y").Value
'تعيين المتغير ليساوي آخر صف في الورقة التي سيتم الترحيل إليها
'أو يمكنك القول معرفة رقم صف أول صف فارغ
AA = Sheets(strSh).Cells(10000, 2).End(xlUp).Row + 1
'إذا كان المتغير أقل من 12 الذي من المفترض أنه صف البداية لعمليات الترحيل فإنه يتم تعيين المتغير ليساوي 12
If AA < 12 Then AA = 12
'في حالة حدوث خطأ يتم تجنبه بهذا السطر
On Error Resume Next
'نسخ النطاق في الصف المحدد من العمود الثاني إلى العمود الرابع والعشرون
.Range(.Cells(I, "B"), .Cells(I, "X")).Copy
'لصق النطاق المنسوخ إلى ورقة العمل المناسبة واللصق يكون لصق قيم فقط
Sheets(strSh).Range("B" & AA).PasteSpecial xlPasteValues
'إلغاء خاصية النسخ واللصق
Application.CutCopyMode = False
'هذا السطر يقوم بترقيم الصف الذي تم ترحيله في الورقة الهدف
'حيث يعتمد على إنقاص 11 من رقم الصف الحالي
'فإذا كان الصف الحالي هو رقم 12 ألا وهو رقم البداية فإن الرقم
'المسلسل سيكون 12 - 11 أي سيكون الرقم المسلسل 1
Sheets(strSh).Cells(AA, "A").Value = Sheets(strSh).Cells(AA, "A").Row - 11
'الانتقال للصف التالي في الحلقة التكرارية
Next I
'حلقة تكرارية لكل أوراق العمل لتحديد الخلية الأولى في ورقةالعمل
For Each Sh In ThisWorkbook.Worksheets
Application.Goto Sh.Range("A1")
Next Sh
'تنشيط ورقة العمل الأولى
.Activate
'انتهاء التعامل مع ورقة العمل الأولى
End With
'سطر لإعادة تفعيل اهتزاز الشاشة
Application.ScreenUpdating = True
'إظهار رسالة تفيد بانتهاء عمل الكود
MsgBox "تم الفصل بنجاح", 64
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/1tvyxtutgt7m" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com1tag:blogger.com,1999:blog-8653421373569687556.post-64113485322025077722016-04-30T14:43:00.002-07:002016-10-28T07:11:58.366-07:00تحديد ملف باستخدام مستعرض الملفات Select Single File By File Dialog<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم<span style="color: red;"> كود يقوم بتحديد أي ملف من خلال نافذة مستعرض الملفات File Dialog.</span></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgG-h6vK4LAI2FKXNXLYIInTpg2MQJq49JR0op-sXBbGD03wYb7SyEWY8KSh6wn2NMw4sAtzxUDp680qwEW4GYjEuf5gPe8xdep1ocelMp-3C0gaw6ni_JlJUixMVb2N87Q_D457lNKzuc/s1600/FileDialog01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgG-h6vK4LAI2FKXNXLYIInTpg2MQJq49JR0op-sXBbGD03wYb7SyEWY8KSh6wn2NMw4sAtzxUDp680qwEW4GYjEuf5gPe8xdep1ocelMp-3C0gaw6ni_JlJUixMVb2N87Q_D457lNKzuc/s400/FileDialog01.png" width="400" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">يوضع الكود في موديول عادي ، وإليكم الكود مع شرح تفصيلي لأسطر الكود للاستفادة منه</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">
Sub Open_File_Dialog()
Dim Wb As Workbook
Dim I As Integer
Dim strPath As String
'يمكن تحديد أكثر من ملف [True] السماح للمستخدم باختيار ملف واحد وبتغيير القيمة إلى
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'إظهار نافذة مستعرض الملفات
I = Application.FileDialog(msoFileDialogOpen).Show
'إذا تم تحديد ملف فإن المتغير لن يساوي صفر ويتم تنفيذ التالي
If I <> 0 Then
'تعيين قيمة المتغير ليساوي مسار الملف الذي قمت بتحديده
strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
'إظهار مسار الملف في رسالة
MsgBox strPath
'فتح المصنف بعد معرفة مساره
Set Wb = Workbooks.Open(strPath)
'إظهار قيمة الخلية الأولى في ورقة العمل الأولى في المصنف في رسالة
MsgBox Wb.Sheets("Sheet1").Range("A1").Value
'[True] إغلاق المصنف بدون حفظ وإذا أردت الحفظ قم بتغيير القيمة إلى
Wb.Close False
'أما إذا لم يتم تحديد ملف فإن المتغير يساوي صفر ويتم تنفيذ التالي
Else
'إظهار رسالة تفيد بأن المستخدم قد قام بإلغاء تحديد الملف
MsgBox "Cancelled By The User", 64
End If
End Sub</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/7rmj7hq05b6b" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com0tag:blogger.com,1999:blog-8653421373569687556.post-6831707677087303302016-04-30T06:25:00.002-07:002016-10-28T07:12:42.705-07:00تصدير كل أوراق العمل إلى ملفات بي دي إف منفصلة Export Each Sheet To PDF<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قدمت لكم من قبل كود يقوم بتصدير أوراق عمل محددة إلى ملف PDF واحد ، أي أن الملف الذي تم تصديره يحتوي على جميع الأوراق المحددة من خلال الكود على هذا الرابط</span></span></b></div>
<div style="text-align: center;">
<span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="http://yasserkhalilexcellover.blogspot.com.eg/2016/04/export-specific-sheets-to-pdf.html" target="_blank">الرابط من هنا</a></span></span></b></span></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">استكمالاً للموضوع أقدم لكم <span style="color: red;">كود يقوم بتصدير أوراق العمل بالمصنف الحالي إلى ملفات PDF ، والفرق أن عملية التصدير ستكون لكل ورقة عمل ملف PDF خاص ورقة العمل ، أي يتم التصدير بشكل منفصل لكل ورقة عمل.</span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSNtMh0hg1zb7f8bpAJvDO1h_fjoM9uvriuBlu_XhsEeICg_C-4YWkRJD5v7UorOujKtScYq-GA7D5rKJASb8JhIfv-DaPw4SwaSI3ROYjZhSySquE4CUoE82FCHhRBtdA53RiAzQFUds/s1600/ExportToPDF01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgSNtMh0hg1zb7f8bpAJvDO1h_fjoM9uvriuBlu_XhsEeICg_C-4YWkRJD5v7UorOujKtScYq-GA7D5rKJASb8JhIfv-DaPw4SwaSI3ROYjZhSySquE4CUoE82FCHhRBtdA53RiAzQFUds/s1600/ExportToPDF01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #b6d7a8;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">وإليكم الكود الذي يؤدي المهمة ، ويوضع الكود في موديول عادي</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub Create_PDF_Files_For_Each_Sheet()
Dim Ws As Worksheet
Dim Fname As String
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
On Error Resume Next
Fname = ThisWorkbook.Path & "\Exported " & Ws.Name
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
Next Ws
Application.ScreenUpdating = True
MsgBox "Done...", 64
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/mdqjtnvhb5mw" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com3tag:blogger.com,1999:blog-8653421373569687556.post-63731787108714775732016-04-29T12:39:00.001-07:002016-10-28T07:13:58.679-07:00إخفاء المعادلات عن طريق حماية ورقة العمل Hide Formulas By Sheet Protection<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b> <b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">طريقة بسيطة لإخفاء المعادلات في ورقة العمل</span> في خطوات منسقة :</span></span></b><br />
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">1- قم بتحديد كافة خلايا ورقة العمل بالنقر على هذه المنطقة</span></span></b><br />
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKsMiGXoPoqPD0-SJMDxFlVrK5IcsIBIyWT2ggGhKi9IWtPnihenJVPOU_htrB_alusNBgjysTGx-KB4cJRc2oeGFep9Ub_ajN_E6_0yPmkHNedUu1BkkOcbCxQJhTSluslbdfLu7pNtI/s1600/HideFormulas01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKsMiGXoPoqPD0-SJMDxFlVrK5IcsIBIyWT2ggGhKi9IWtPnihenJVPOU_htrB_alusNBgjysTGx-KB4cJRc2oeGFep9Ub_ajN_E6_0yPmkHNedUu1BkkOcbCxQJhTSluslbdfLu7pNtI/s1600/HideFormulas01.png" /></a></span></span></b></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b> <b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">2- كليك يمين على الخلايا ثم اختر الأمر تنسيق خلايا Format Cells ثم انتقل للتبويب Protection ، وأزل علامة الصح بجانب الخيار Locked أي إذا كانت مظللة قم بإزالة التظليل ثم إزالة علامة الصح ، بحيث يكون مربع الاختيار فارغ</span></span></b><br />
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfAfTtlJX_rrhSurg_xRXXzYuV5OFbII9zHoth2EKNh5mxGS_0gW3xuMZmWfbZb9AWtEevkmdVE8e86glXFVMoDaZEo3WdhBgHIBfV3e-0xHrnnQsD3p4p7smUYJMagWH-j5bnhZ3cU9U/s1600/HideFormulas02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfAfTtlJX_rrhSurg_xRXXzYuV5OFbII9zHoth2EKNh5mxGS_0gW3xuMZmWfbZb9AWtEevkmdVE8e86glXFVMoDaZEo3WdhBgHIBfV3e-0xHrnnQsD3p4p7smUYJMagWH-j5bnhZ3cU9U/s1600/HideFormulas02.png" /></a></span></span></b></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b> <b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">3- حدد الخلايا المراد عمل حماية لها ، والتي تحتوي على المعادلات المراد حمايتها ، ثم كليك يمين عليها واختر تنسيق خلايا Format Cells وانتقل للتبويب Protection وضع علامة صح بجانب الخيار Locked</span></span></b><br />
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b> <b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">4- قم بحماية ورقة العمل من خلال التبويب Review ثم انقر الأمر Protect Sheet ثم OK (يمكنك وضع كلمة سر لورقة العمل)</span></span></b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVucpg2Cx_RdkgKbZAgCS8vp8a-qoWUzzwvlzhD9dqv3R6O_SYgJaQ6AhS0c8LCCgk7DXn6qwiE6SNfnoGyXxXJizbm9bfS3xT7f4mA6tRzQkEeV6ZMKn2Uys8AUJJ3iXV-r66QP4i3t0/s1600/HideFormulas03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVucpg2Cx_RdkgKbZAgCS8vp8a-qoWUzzwvlzhD9dqv3R6O_SYgJaQ6AhS0c8LCCgk7DXn6qwiE6SNfnoGyXxXJizbm9bfS3xT7f4mA6tRzQkEeV6ZMKn2Uys8AUJJ3iXV-r66QP4i3t0/s1600/HideFormulas03.png" /></a></span></span></b></div>
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">5- قم بوضع الكود التالي في حدث المصنف لتتم الحماية عن طريق عدم تمكين المستخدم من اختيار أو تحديد الخلية المحمية</span></span></b><br />
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;"></code>Private Sub Workbook_Open()
Sheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub</pre>
</div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div dir="ltr" style="text-align: left;">
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br /></span></span></u></span></b>
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/pkruz0betvol" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b>
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com5tag:blogger.com,1999:blog-8653421373569687556.post-60051286424793434142016-04-29T05:12:00.002-07:002016-10-28T07:14:39.567-07:00تحديد مدى التنقل أو التصفح في ورقة العمل Limit Scroll Area<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><span style="color: #660000;">هل فكرت من قبل في تحديد مدى التصفح في نطاق معين لورقة العمل؟</span> <u>المقصود هو</u> <span style="color: red;">عملية تحديد أو تحجيم للتنقل بين الخلايا في نطاق تقوم أنت بتحديده.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">على سبيل المثال لو لديك النطاق A1:F10 وتريد تحديد التنقل بين الخلايا في هذا النطاق فقط دون غيره ، كيف يمكن عمل ذلك؟</span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgf8ZGL6o8gEqPS9cFM-BemRlAke9BHe8E0CWxueCizSm6sq_N9HvFxbOgcQrZ_20UlNfSD5X-EnZGxlaeqXHhjT6iuPsnw_5fk3d_x5Zv9h2WRmM3lwtTv4UP7XYZZWPPiA8cE09X68-w/s1600/ScrollArea01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgf8ZGL6o8gEqPS9cFM-BemRlAke9BHe8E0CWxueCizSm6sq_N9HvFxbOgcQrZ_20UlNfSD5X-EnZGxlaeqXHhjT6iuPsnw_5fk3d_x5Zv9h2WRmM3lwtTv4UP7XYZZWPPiA8cE09X68-w/s1600/ScrollArea01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<span style="background-color: #ffe599;"><u><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الطريقة الأولى بدون أكواد :</span></span></b></u></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الذهاب إلى محرر الأكواد عن طريق الضغط على Alt + F11 ثم من نافذة المشروع Project Window تنقر نقر مزدوج (دبل كليك) على ورقة العمل المطلوب تحديد نطاق التنقل بها ، وليكن مثلاً Sheet1</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQiHj8jf5kIF3hn9VTdlu3LBNGIDmRoOfhGpchjvZONztV4myDFrayX0z4ABLuKaohIsB9oYYBBB5TgW95qS-SYSUihkXana_sQ3VvZApJHgHcrlQuclN-fOK3jnLPM7IV-GP_QGoue9U/s1600/ScrollArea02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQiHj8jf5kIF3hn9VTdlu3LBNGIDmRoOfhGpchjvZONztV4myDFrayX0z4ABLuKaohIsB9oYYBBB5TgW95qS-SYSUihkXana_sQ3VvZApJHgHcrlQuclN-fOK3jnLPM7IV-GP_QGoue9U/s1600/ScrollArea02.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الآن من نافذة الخصائص Properties Window ابحث عن الخاصية Scroll Area وفي الحقل المجاور اكتب النطاق المطلوب وهو A1:F10 (أو كما ترغب) ثم اضغط إنتر</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLtfT1KhCMAXV461ODoTAA3ChjFxeELiwoe5nIx-Nt9PuPU1mffKei12f6UdEchRH2bdNLfK6zTOZUNwC4YxoX7Mqt0o9hpv55glVCISiJRRcDdbQmBPhwwWXw5ng-5Q5YYsk1Us2kGp0/s1600/ScrollArea03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLtfT1KhCMAXV461ODoTAA3ChjFxeELiwoe5nIx-Nt9PuPU1mffKei12f6UdEchRH2bdNLfK6zTOZUNwC4YxoX7Mqt0o9hpv55glVCISiJRRcDdbQmBPhwwWXw5ng-5Q5YYsk1Us2kGp0/s1600/ScrollArea03.png" /></a></span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #ffe599;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">الطريقة الثانية بالأكواد :</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">قم بوضع الكود التالي في حدث المصنف ليقوم بتحديد نطاق التنقل بمجرد فتح المصنف</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Private Sub Workbook_Open()
Sheets("Sheet1").ScrollArea = "A1:F10"
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/tx5qsrkh2ie3" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com9tag:blogger.com,1999:blog-8653421373569687556.post-47101038558099859622016-04-29T04:41:00.001-07:002016-10-28T07:15:19.892-07:00إخفاء وإظهار النطاقات المعرفة Hide Show Defined Ranges<div dir="rtl" style="text-align: right;" trbidi="on">
<div style="text-align: center;">
<span style="background-color: lime;"><span style="color: blue;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">السلام عليكم ورحمة الله وبركاته</span></span></b></span></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">أقدم لكم <span style="color: red;">كودين أحدهما يقوم بإخفاء النطاقات المعرفة (أو النطاقات المسماة) Defined Ranges ، والآخر يقوم بإظهارها.</span></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><u>بفرض أن</u> لديك بعض النطاقات المسماة في المصنف ، على سبيل المثال النطاق A1:C10 تم تسمية النطاق باسم MyData<span style="color: #20124d;"> <span style="color: #274e13;">(وتتم التسمية بتحديد النطاق ثم وضع مؤ<span style="font-family: "arial" , "helvetica" , sans-serif;">ش</span>ر الماوس في صندوق الاسم على يسار شريط المعادلات ثم كتابة اسم للنطاق ثم الضغط على مفتاح الإدخال إنتر)</span></span></span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXKKN-N6XhZEI0F0T-ZVvovZVdpaRp3xiWY_OK18p5viRFD3Yey8WOfA5gibNDz41diK6AldpDtopN7cJ78jPS9Tv1XAH8PN6QTQm_nHhOB05Naf7AB4186_GX5k6SqQBHY8tI8Rwj_0c/s1600/Defined01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXKKN-N6XhZEI0F0T-ZVvovZVdpaRp3xiWY_OK18p5viRFD3Yey8WOfA5gibNDz41diK6AldpDtopN7cJ78jPS9Tv1XAH8PN6QTQm_nHhOB05Naf7AB4186_GX5k6SqQBHY8tI8Rwj_0c/s1600/Defined01.png" /></a></span></span></b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">ولديك أيضاً النطاق D11:G14 باسم MyRange </span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiiF0OtKSV0k77LzXh5SuPvNF8KkVPWb1B9zTpYwTnoyBJd06d7C4O5VgFbomS8eRTerW9S9kpoEnllzgAj0atpTR82RafgmNRf1Ca8h_FXIbHguBznGrpa4MVEnIwGXN-wVa6uGOX_E-Q/s1600/Defined02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiiF0OtKSV0k77LzXh5SuPvNF8KkVPWb1B9zTpYwTnoyBJd06d7C4O5VgFbomS8eRTerW9S9kpoEnllzgAj0atpTR82RafgmNRf1Ca8h_FXIbHguBznGrpa4MVEnIwGXN-wVa6uGOX_E-Q/s1600/Defined02.png" /></a></span></span></b></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> يمكن الإطلاع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager لتظهر لك نافذة تحتوي على تفاصيل النطاقات المسماة بهذا الشكل</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3DK8ReaVa39iMMnJG-Z2u3-otPmkqLKV8b0hWfsxCDcuYk2cZ8OQgqkWpC2xk7BqmRwHzptl-7WJbHdr5wN62HkBE0-fAHPDjANq7YyvfQCeI8_UiPUVUf0BTOMWm1Lu48kssa2L-K9k/s1600/Defined03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3DK8ReaVa39iMMnJG-Z2u3-otPmkqLKV8b0hWfsxCDcuYk2cZ8OQgqkWpC2xk7BqmRwHzptl-7WJbHdr5wN62HkBE0-fAHPDjANq7YyvfQCeI8_UiPUVUf0BTOMWm1Lu48kssa2L-K9k/s1600/Defined03.png" /></a></span></span></b></div>
<div style="text-align: center;">
<span style="background-color: #a2c4c9;"><b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">المطلوب إخفاء تلك النطاقات وإظهارها ، وهذا ما أقدمه لكم من خلال هذين الكودين</span></span></b></span></div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div dir="ltr" style="text-align: left;">
<pre style="background: #f0f0f0; border: 1px dashed #cccccc; color: black; font-family: "arial"; font-size: 12px; height: auto; line-height: 20px; overflow: auto; padding: 0px; text-align: left; width: 99%;"><code style="color: black; word-wrap: normal;">Sub HideAllNames()
Dim objName As Excel.Name
If Not Application.ActiveWorkbook Is Nothing Then
For Each objName In Application.ActiveWorkbook.Names
objName.Visible = False
Next objName
End If
End Sub
Sub UnhideAllNames()
Dim objName As Excel.Name
If Not Application.ActiveWorkbook Is Nothing Then
For Each objName In Application.ActiveWorkbook.Names
objName.Visible = True
Next objName
End If
End Sub
</code></pre>
</div>
<div style="text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></b></div>
<div class="separator" style="clear: both; text-align: center;">
<b><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"></span></span></b></div>
<div style="text-align: center;">
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif;"><span style="color: #ff9900;"><a href="http://www.file-upload.com/mxophoj27j4f" target="_blank"><span style="font-size: x-large;">تحميل الملف من هنا</span></a></span></b><br />
<b style="background-color: white; color: #ff9900; font-family: Arial, Helvetica, sans-serif; font-size: 13.2px;"><br /></b></div>
<div style="text-align: center;">
<b><span style="color: red;"><u><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;">إعداد /</span></span></u></span><span style="font-size: large;"><span style="font-family: "arial" , "helvetica" , sans-serif;"> <span style="color: #274e13;">ياسر خليل أبو البراء</span></span></span></b></div>
</div>
Yasser Khalilhttp://www.blogger.com/profile/00968598903695196325noreply@blogger.com4