نجوم المشاركات

الأخ الفاضل minor يرجى تغيير اسم الظهور للغة العربية يؤخذ عليك أنك لم توضح المطلوب بشكل كاف ..كان من المفترض وضع بعض النتائج للشكل المتوقع عموما أنا عملت لك ورقة عمل مخفية اسمها Temp ممكن تغير شكلها بس دا هيبتعه تغير في بعض أسطر الكود عموما جرب الكود التالي عله يفي بالغرض الكود يحذف أي ورقة عمل غير ورقة السجل ثم يقوم بإنشاء أوراق عمل جديدة تبعا للقيم الموجودة في منطقة التجنيد ثم يستدعي البيانات في كل ورقة عمل .. جرب الملف بشكل مستفيض وأخبرنا بالنتائج Sub CreateSheets() Dim WS As Worksheet, SH As Worksheet Dim Cell As Range, lRow As Long Set WS = Sheets("السجل") Application.ScreenUpdating = False Application.DisplayAlerts = False Temp.Visible = True For Each SH In ThisWorkbook.Sheets If SH.Name <> "السجل" And SH.Name <> "Temp" Then SH.Delete End If Next SH For Each Cell In WS.Range("J5:J" & WS.Cells(Rows.Count, 10).End(3).Row) For Each SH In ThisWorkbook.Sheets If SH.Name = Cell.Value Then GoTo 1 Next SH Sheets("Temp").Copy After:=Sheets(Sheets.Count) Sheets("Temp (2)").Name = Cell.Value Range("A1").Value = ActiveSheet.Name 1 Sheets(Cell.Value).Activate With ActiveSheet lRow = .Cells(Rows.Count, "F").End(3).Row + 1 .Range("A" & lRow).Value = lRow - 3 .Range("B" & lRow).Value = Cell.Offset(, -8).Value .Range("C" & lRow).Value = Cell.Offset(, -6).Value .Range("D" & lRow).Value = Cell.Offset(, -5).Value .Range("E" & lRow).Value = Cell.Offset(, -4).Value .Range("F" & lRow).Value = Cell.Offset(, -3).Value .Range("G" & lRow).Value = Cell.Offset(, -2).Value .Range("H" & lRow).Value = Cell.Offset(, -1).Value .Range("I" & lRow).Value = Cell.Offset(, 1).Value End With Next Cell Temp.Visible = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة التزاماً بقواعد وتوجيهات المنتدى تقبل تحياتي Transfer Data & Create Sheets.rar

السلام عليكم تفضل أخي جرب الكود التالي Sub dataselect() T = [D21] ' Target Number [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Sm > T Then GoTo 10 If Sm = T Then GoTo 20 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهذا المرفق به الكود SUM.rar

الدرس الثالث: استخدام جهاز قارئ الباركود في الإكسيل كثير من الناس يعتقد أن استخدام جهاز قراءة الباركود يحتاج نظام وأجهزة خاصة للتعامل معه، ولكن الأمر أبسط مما كنت أتوقعه، في ا لدرس الأول حللنا عقدة تكوين شريط الباركود ، لم يبق لدينا إلا أن نربطه في قاعدة البيانات في الإكسيل. كل ما عليك هو التالي: 1- طباعة ملصقات الباركود على ورقة A4. 2- بناء قاعدة البيانات في الإكسيل. 3- بناء صفحة الإدخال في الإكسيل. بالنسبة لآلية عمل جهاز القارئ يكون لو بعملتين هما: كتابة الكود ثم enter. فلذلك ينتقل مؤشر الماوس إلى السطر التالي. ولكي نجعل المؤشر يبقى في مكانه نقوم بحماية الصفحة (انظر الشرح في الملف المرفق) لا أعتقد أنكم تحتاجود درس آخر .. لأننا وصلنا إلى الفكرة ومبرووووك عليكم التعامل مع الباركود. barcode reading.rar

السلام عليكم أخي الكريم أرجو أن يكون المرفق هو ماتريد ملحوظة: صلحت لك شيئا يسيرا في المطلوب 12345_New.rar

السلام عليكم انا عامل برنامج لشركه لشئون العاملين وتم ادخال بيانات كل موظف من بيانت اساسيه وتفصيليه خاصه بمكان عمله "وتم عمل ذلك قدر ما انا استطعت " اما المطلوب وهو ما لا اقدر انا عليه اولا ترصيد الاجازات لكل موظف لكل شهر بمعنى : ان الموظف رقم .... اللى اسمه .... خد اجازه بمقدار .... يوم فى شهر مارس مثلا وكذا بالنسبه للاجازات العارضه والمرضى وبالتالى يصبح رصيده فى شهر ابريل نقص بمقدار الاجازات فى شهر مارس وكذا بالنسبه للاجازات العارضه والمرضى وعند الطباعه يقوم بطباعه تاريخ الاجازات من شهر يناير لغايه شهر ديسمبر باخر رصيد الاجازات وعمل بيان لمن تجاوز عدد الاجازات المرضى 90 يوم متتاليه *** يوجد بيان بفئات الاجازات وهى 1ـــــــ> 21 يوم سنوى و 7 عارضه 2ــــــــ>30 يوم سنوى و 7 عارضه 3ـــــــــ>45يوم سنوي و 7 عارضه اعلم انى ما اطلبه من الصعب ولكن ثقتى بالله ثم ثقتى فيكم عاليه ولكم منى الشكر ومن الله التوفيق والعون db1 (2).rar

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

يمكنك ذلك عن طريق الطريقة الاولى : اختيار الخط AGA Arabesque ثم كتابة حرف ال e صغير والنتيجة e كم يمكنك معرفة باقي الاختصارات بتجربة كل حرف فمثلاً ال a يكتب q وهكذا يمكنك تجربة باقي احرف لوحة المفاتيح الطريقة الثانية : عن طريق التبويب ادارج رمز ثم المزيد من الرموز ثم ايضاً اختيار نوع الخط AGA Arabesque واختيار النص الذي تريده الطريقة الثالثة : يمكنك ذلك عن طريق كتابة الحروف fdfa ثم بعدها alt+x وتكون النتيجة ﷺ ولاضافة التشكيل لها يتم اختيار الخط Sakkal Majalla وتكون النتيجة ﷺ

ولك بالمثل أخي مختار.. يعني خلاص أروح أشتري باب تاني.

ما شاء الله اخ ياسر انت كالسحاب تمطر على مواضيع الاخوه بالمطر النافع ونسال الله ان يرسلك لتغيثنا في الامطار

ههههههههههههههههههه والله ياباش ان امك بتدعي لك لأنك سألتني امس وكنت مش عارف الاجابة من صدق ولما شفت اليوم مشاركتك بخصوص مفعوصةالرقبة النماذج قلت اشوف يمكن حد حصل حل ولما شفت كلمة السيد ابو الاء "توسيط النماذج" قلت ليه ماجرب تغيير هذه الخاصية ومشى الموضوع تمام بس يابخيل ماكنت تحط اسم اليوزر والباس بتاعك عشان الواحد يستفيد من الشغل بتاعك والله شغل جامد وممتاز, وعن نفسي في اكواد عمري ماشفتها زي startform تعني ايه ستارت فورم دي ياباش مهندس عبدالمعطي افندي ^_^

بارك الله فيك ممتاز جدا جدا جدا ورائع كعادتك

أقترح فقط إضافة بيانات عشوائية للسماح لمن يريد التقييم الإطلاع على البرنامج بشكل تفصيلي

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. لاحظت أن كل فترة يتم السؤال عن هذا الأمر .. هذا الموضوع يخص الأرقام القومية في مصر ، وقد تم تناول الموضوع أكثر من مرة .. واطلعت على أكثر من موضوع بهذا الشأن ، فما وجدت أفضل ولا أيسر ولا أخف من دالة الأستاذ الكبير / عبد الله باقشير ، دالة يسيرة وسهلة ، ويمكنك ببساطة استخراج كل المعلومات والبيانات التي تريدها من خلال هذه الدالة .. الشكر الكبير موصول للأستاذ الكبير والعالم الجليل عبد الله باقشير .. نرجو من الله أن يحفظه من كل سوء .. الدالة في محرر الأكواد بهذا الشكل : (للدخول على محرر الأكواد اضغط من لوحة المفاتيح Alt + F11) Option Explicit ' بسم الله الرحمن الرحيم ' ******************** ' دالـــــــــــــــة ' Kh_Date_Sex_Province ' ( استخراج تاريخ الميلاد او النوع (ذكر - انثى ' او المحافظة من الرقم القومي '============================================== ' MyTest ' اذا كانت = 1 تقوم باستخراج تاريخ الميلاد ' اذا كانت = 2 تقوم باستخراج النوع ' اذا كانت = 3 تقوم باستخراج المحافظة '---------------------------------------------- ' MyProvinces في متغير الجدول ' بنفس الطريقة الرقم اولا ثم "/" ثم اسم المحافظة ' : مثال على ذلك ' "01/القاهرة" '============================================== Function Kh_Date_Sex_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim r As Integer Dim yy As String Dim ty As String * 1 Dim d As String * 2, m As String * 2, y As String * 2 _ , x As String * 2, xx As String * 2 '============================================== MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") '============================================== Kh_Date_Sex_Province = "" On Error GoTo 1 If Len(Trim(MyNumber)) = 0 Then GoTo 1 End If If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Then Kh_Date_Sex_Province = "" GoTo 1 End If If MyTest = 1 Then d = Mid(MyNumber, 6, 2) m = Mid(MyNumber, 4, 2) y = Mid(MyNumber, 2, 2) ty = Left(MyNumber, 1) Select Case ty Case "2": yy = y Case "3": yy = "20" & y Case Else: yy = "" End Select If yy <> "" Then Kh_Date_Sex_Province = DateSerial(yy, m, d) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then _ yy = "ذكر" Else yy = "أنثى" Kh_Date_Sex_Province = yy ElseIf MyTest = 3 Then x = Mid(MyNumber, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If x = xx Then Kh_Date_Sex_Province = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End If 1: End Function كل ما أضفته في الكود هو أكواد باقي المحافظات ، ليكتمل العمل ويستفيد منه الجميع بإذن الله أترككم مع الملف المرفق ، لتتعلموا منه طريقة استخراج البيانات.... دمتم في طاعة الله و السلام هو مسك الختام ID Information.rar

جرب تغيير خاصية توسيط تلقائي للنموذج الى لا وخاصية قابل للنقل الى نعم انا جربتها وظهرت النماذج وسط الشاشة..

السلام عليكم شباب ممكن ان ادلو بدلوي في الواقع ، مع سهولة الدالة ، إلا ان لها استعمالات اكاد لا استغني عنها في اي من برامجي 1.عندنا قيمة الحقل في الجدول ممكن تكون Null ، ومعناه ان مافي اي معلومة دخلت في هذا الحقل ، 2.وممكن ان تكون هناك قيمة في الحقل ، 3.وممكن يكون فاضي ، ومعناه انه تم ادخال قيمة في الحقل ومن ثم تم حذف هذه القيمة. اذا كان اسم الحقل fName مثلا ، واذا اردنا ان نعرف اذا كان الحقل فاضي ، فعادة نقوم بالكود التالي لفحص الطريقتين: if isNull([fName]) or if [fName]="" ولكني استخدم دالة LEN لفحص الطريقتين مرة واحدة ، هكذا: if LEN([fName] & "")=0 جعفر

جرب الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) Dim myrange As Range If Target.Count > 1 Then Exit Sub Set myrange = Sheet1.Range("D10:D13") If Not Intersect(Target, myrange) Is Nothing Then r = Target.Row If r <> 13 Then Target.Offset(1, 0).Select Else Target.Offset(-3, 0).Select End If End If End Sub

أخي الفاضل محمد الخازمي بدون أكواد وبدون معادلات وبدون تعب (الكسل حلو وجميل !!) حدد النطاق D10:D13 بس خلاص (هههههههههه) آه والله زي ما بقولك كدا حددت النطاق ضع مؤشر الماوس في شريط المعادلات وابدأ عملية إدخال البيانات ولما توصل لآخر خلية اللي هي D13 وتضغط مفتاح إنتر هتلاقي الخلية D10 متحددة يبقا كدا من غير تعب ولا أكواد تقبل تحياتي

هذه محاولة أخرى إثراءاً للموضوع Sub ColorSumRange() Dim I As Long, J As Long, LR As Long, SumVal As Double, rSum As Double SumVal = Range("D21").Value LR = Cells(Rows.Count, 2).End(xlUp).Row Columns("B:B").Interior.Color = xlNone For I = 2 To LR rSum = Cells(I, 2) For J = I + 1 To LR rSum = rSum + Cells(J, 2) If rSum = SumVal Then Range(Cells(I, 2), Cells(J, 2)).Interior.ColorIndex = 4 Exit Sub ElseIf rSum > SumVal Then Exit For End If Next J Next I End Sub تقبل تحياتي

في الخدمة دائماً لفريق الموقع والذي لهم الفضل بعد الله في تنوير طريقي للبرمجة.. وجزاك الله خيراً أخي طارق على المجهود الذي تبذله

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

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

أخي الكريم عزيز عرابي إليك هذا التعديل البسيط Sub FilterAndCopy() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim lngLastRow As Long Dim OKSheet As Worksheet, ErrorSheet As Worksheet Set OKSheet = Sheets("Sheet2") Set ErrorSheet = Sheets("Sheet3") lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row 'مسح محتويات النطاق الذي سيتم إدراج النتائج به OKSheet.Columns("A:E").ClearContents ErrorSheet.Columns("A:E").ClearContents With Range("A1", "E" & lngLastRow) .AutoFilter .AutoFilter Field:=5, Criteria1:=">0" .Copy OKSheet.Range("A1") .AutoFilter Field:=5, Criteria1:="<0" .Copy ErrorSheet.Range("A1") .AutoFilter End With Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub تم وضع تعليق على السطرين المطلوبين

السلام عليكم ورحمة الله وبركاته اضافة بسيطة يمكنك اضافة حقل في جدول المحذوفات وتسميته تاريخ الحذف ( نوع تاريخ/وقت ) وجعل قيمته الافتراضية هي تاريخ اليوم Date() لكي تتمكن من معرفة التاريخ الذي تم حذف هذا السجل فيه واذا كانت قاعدة البيانات تستخدم من اكثر من مستخدم يمكنك وضع حقل آخر باسم المستخدم الذي حذف هذا السجل ( لم اجربه حتى الآن ) شكرا

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

- اولا تروح لحسابات المستخدمين - انقر على ايقونة : تغيير اعدادات التحكم في حساب المستخدم - يفتح لك مربع حوار : اسحب الشريط الموجود الى ادنى نقطة في الاسفل ثم احفظ واخرج - اعد تشغيل الحاسب -------------------------------- بما ان نظامك 64 الصق ملف DBPix20.ocx داخل مجلد النظام syswow64 انقر على ابدأ ( او بحث في win8 ) اكتب في البحث كلمة cmd سيظهر لك ملف cmd.exe انقر عليه بالزر الايمن واختر تشغيل كمسؤول سيفتح مربع حوار كتابة الاوامر اكتب الامر c:\windows\syswow64\> regsvr32 DBPix20.ocx هنا لابد يكون لديك خبرة بسيطة بطريقة الكتابة والتراجع وللتراجع الى c:\ اكتب cd ثم مسافة ثم \ وانقر انتر وللدخول من مجلد الى آخر اكتب cd ثم مسافة ثم اكتب المجلد وانقر انتر

السلام عليكم و رحمة الله و بركاته .. khezzanifiltre.rar

السلام عليكم جرب المرفق Key.rar

بعد اذن اخي بن علية اليك هذه المعادلة و تستطيع ان تكتبها في اي مكان (ليس بالضرورة A2) =INDIRECT("A"&ROWS($A$1:A1))+INDIRECT("C"&ROWS($A$1:A2))-INDIRECT("B"&ROWS($A$1:A2))

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع كل جديد ومفيد في عالم الإكسيل الشيق ، أقدم لكم دالة معرفة UDF ، تقوم الدالة بإظهار المعادلات في أي خلية ، وتعرضها كنص ... الدالة بالشكل التالي Function FormText(CellRef As Range, Optional RefIndicator As Integer) As String Dim N As Integer, F As Integer If IsNull(RefIndicator) = True Then RefIndicator = 0 End If FormText = CellRef.Formula If RefIndicator > 0 Then FormText = "[" & CellRef.Address & "] " & FormText End If N = 1 F = InStr(1, FormText, "]") Do While N < F If RefIndicator = 1 And Mid(FormText, N, 1) = "$" Then FormText = Trim(Left(FormText, N - 1) & Mid(FormText, N + 1, 200)) End If If Mid(FormText, N, 1) = "," Then FormText = Trim(Left(FormText, N) & " " & Mid(FormText, N + 1, 200)) End If N = N + 1 Loop End Function وفي الملف المرفق شرح بالأمثلة لكيفية استخدام الدالة ، حتى لا أطيل عليكم حمل الملف من هنا دمتم في رعاية الله كان معكم أخوكم ياسر خليل أبو البراء

مش لاقى عبارات تقدر ما تقوم به من أعمال يا أ / ياسر بارك الله فيك وأكثر من أمثالك

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال المعادلة التالية كحل أول بدل معادلاتك.... =INDIRECT("A"&ROW()-1)+INDIRECT("C"&ROW())-INDIRECT("B"&ROW()) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بالمعادلات وفيها تم مراعاة العلامة العشرية (فاصلة أو نقطة)، ضع المعادلة التالية في E4 واسحب إلى F4 ثم إلى الأسفل على طول البيانات: =ABS(SUBSTITUTE(SUBSTITUTE(B4;"*";"");".";",")) في هذه المعادلة يجب مراعاة "الفاصلة المنقوطة" و"الفاصلة" حسب تخصيصات الويندوز والأفيس... أخوك بن علية

أحبابي وأصحابي في كل مكان يسعدني أن أهدي لهواة ومحترفي برمجة vba في الأوفيس دالة جديدة لترجمة النصوص من أي لغة إلى أي لغة في إكسل 2013 باستعمال ترجمة جوجل بطريقتين وهذا رابط ملف الإكسل الموجود في الفيديو http://adf.ly/1GFYwU قائمة برموز اللغات * * 'AFRIKAANS' : 'af', * 'ALBANIAN' : 'sq', * 'AMHARIC' : 'am', * 'ARABIC' : 'ar', * 'ARMENIAN' : 'hy', * 'AZERBAIJANI' : 'az', * 'BASQUE' : 'eu', * 'BELARUSIAN' : 'be', * 'BENGALI' : 'bn', * 'BIHARI' : 'bh', * 'BULGARIAN' : 'bg', * 'BURMESE' : 'my', * 'CATALAN' : 'ca', * 'CHEROKEE' : 'chr', * 'CHINESE' : 'zh', * 'CHINESE_SIMPLIFIED' : 'zh-CN', * 'CHINESE_TRADITIONAL' : 'zh-TW', * 'CROATIAN' : 'hr', * 'CZECH' : 'cs', * 'DANISH' : 'da', * 'DHIVEHI' : 'dv', * 'DUTCH': 'nl', * 'ENGLISH' : 'en', * 'ESPERANTO' : 'eo', * 'ESTONIAN' : 'et', * 'FILIPINO' : 'tl', * 'FINNISH' : 'fi', * 'FRENCH' : 'fr', * 'GALICIAN' : 'gl', * 'GEORGIAN' : 'ka', * 'GERMAN' : 'de', * 'GREEK' : 'el', * 'GUARANI' : 'gn', * 'GUJARATI' : 'gu', * 'HEBREW' : 'iw', * 'HINDI' : 'hi', * 'HUNGARIAN' : 'hu', * 'ICELANDIC' : 'is', * 'INDONESIAN' : 'id', * 'INUKTITUT' : 'iu', * 'ITALIAN' : 'it', * 'JAPANESE' : 'ja', * 'KANNADA' : 'kn', * 'KAZAKH' : 'kk', * 'KHMER' : 'km', * 'KOREAN' : 'ko', * 'KURDISH': 'ku', * 'KYRGYZ': 'ky', * 'LAOTHIAN': 'lo', * 'LATVIAN' : 'lv', * 'LITHUANIAN' : 'lt', * 'MACEDONIAN' : 'mk', * 'MALAY' : 'ms', * 'MALAYALAM' : 'ml', * 'MALTESE' : 'mt', * 'MARATHI' : 'mr', * 'MONGOLIAN' : 'mn', * 'NEPALI' : 'ne', * 'NORWEGIAN' : 'no', * 'ORIYA' : 'or', * 'PASHTO' : 'ps', * 'PERSIAN' : 'fa', * 'POLISH' : 'pl', * 'PORTUGUESE' : 'pt-PT', * 'PUNJABI' : 'pa', * 'ROMANIAN' : 'ro', * 'RUSSIAN' : 'ru', * 'SANSKRIT' : 'sa', * 'SERBIAN' : 'sr', * 'SINDHI' : 'sd', * 'SINHALESE' : 'si', * 'SLOVAK' : 'sk', * 'SLOVENIAN' : 'sl', * 'SPANISH' : 'es', * 'SWAHILI' : 'sw', * 'SWEDISH' : 'sv', * 'TAJIK' : 'tg', * 'TAMIL' : 'ta', * 'TAGALOG' : 'tl', * 'TELUGU' : 'te', * 'THAI' : 'th', * 'TIBETAN' : 'bo', * 'TURKISH' : 'tr', * 'UKRAINIAN' : 'uk', * 'URDU' : 'ur', * 'UZBEK' : 'uz', * 'UIGHUR' : 'ug', * 'VIETNAMESE' : 'vi', مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

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

لما عجز لساني عن شكركم اساتذتي.... اتجهت الى رب العرش داعيا اياه عز وجلّ ان يتولاكم برعايته وعنّا يجزيكم بما هو اهل له سبحانه + عرفاني وامتناني+

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

سبحان الله والحمدلله ولا إله الا الله والسيسي اخذ الرئاسه، وانتم ماساعدتونا .:*_*:.

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