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

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

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

السلام عليكم ورحمة الله وبركاته نبدأ بعون الله في شرح شيء جديد في عالم البرمجة ، وهو القاموس Dictionary ، وإن شاء المولى يكون مفيد لكم إخواني الكرام. طبعاً عنوان الموضوع جذبكم مش عشان البرمجة أكيد عشان الناموس (وإزاي نقدر نتخلص من الناموس والإزعاج اللي بيسببه ) .. الناموس هنا معناه القانون أو القاعدة .. ودا عنوان كعامل جذب مش أكتر ما هو القاموس Dictionary؟ ---------------------------- من اسمه ممكن نعرفه ..القاموس يعني تجميعة كلمات باللغة الإنجليزية وليها مرادف سواء بنفس اللغة أو بلغة أخرى .. اللي يهمنا في القاموس إني عبارة عن تجميعة Collection القاموس في لغة البرمجة عبارة عن تجميعة ، وبنستخدمه عشان نخزن فيه : أرقام - نصوص - تواريخ - مصفوفات نطاقات - كائنات - متغيرات .. والقاموس عبارة عن عناصر أو بنود Items وكل عنصر له مفتاح مميز Unique Key المفتاح دا فايدته ايه؟ من اسمه بردو نعرف إن المفتاح بيفتح لنا الباب .. بيفتح الباب للعنصر (عشان نتعامل معاه بشكل برمجي .. يعني المفتاح دليلنا أو مرشدنا للعنصر المطلوب التعامل معه) القاموس فايدته إننا بنقدر نتعامل مع البيانات في الذاكرة بعيداً عن ورقة العمل ..يعني مفيش تحديث للشاشة Screen Updating ، مفيش حساب تلقائي Auto Calculation ، بكدا نقدر نفول إنه أسرع في التعامل مع البيانات ++ (فائدة) بما إن القاموس بيحتوي على مفاتيح مميزة ، فيمكن استخدام الخاصية .Keys عشان نستخرج قائمة فريدة Unique List من البيانات ** القاموس ليس ضمن المكتبة القياسية للغة البرمجة VBA ، إنما هي جزء من Microsoft Scripting Runtime library ، وهذه المكتبة توجد في الملف الموجود في المسار التالي \Windows\system32\scrrun.DLL ولذلك إذا أردت استخدام القاموس فيمكنك من خلال محرر الأكواد الذهاب للقائمة Tools ثم References واختر المكتبة المسماة Microsoft Scripting Runtime library إنشاء القاموس Create Dictionary ----------------------------------- أبسط طريقة لإنشاء القاموس استخدام الأسطر التالية With CreateObject("scripting.Dictionary") End With ماذا تعني هذه الأسطر؟ تعني إنشاء كائن جديد بالاعتماد على المكتبة المسماة scripting.Dictionary ، وما بين السطرين سيتم كتابة أسطر وأوامر برمجية الأسطر التي ستبدأ بنقطة تعني التعامل مع خصائص الكائن أي أنها ستتعامل مع الكائن الجديد ## مثال بسيط لإضافة عنصر للقاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" End With الطريقة Method التي تلي النقطة تسمى Add أي أضف .. والمقصود منها إضافة عنصر جديد للقاموس .. ذكرنا في بداية الموضوع أن لكل عنصر مفتاح مميز ، المفتاح هنا First Name ، والعنصر يحتوي على النص Yasser يمكن استخدام متغير للقاموس بهذا الشكل Dim Dict As Object Set Dict = CreateObject("scripting.dictionary") With Dict .Add "First Name", "Yasser" End With الإعلان عن المتغير من النوع كائن ، ثم تعيين قيمة للمتغير ليساوي إنشاء الكائن من المكتبة الخاصة scripting.Dictionary ثم بدء التعامل مع الكائن القاموس .. ## مثال آخر : المثال التالي سيتناول عد العناصر داخل القاموس باستخدام الخاصية Count قم بوضع الكود داخل موديول ثم نفذ الكود ستجد رسالة بها عدد عناصر القاموس وهو في المثال 2 فقط مفتاح العنصر الأول هو First Name ومفتاح العنصر الثاني هو Second Name أما كلمة Yasser وكلمة Khalil فهي محتويات أو عناصر القاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" .Add "Last Name", "Khalil" MsgBox .Count End With وأكتفي بهذ الجزء البسيط .. لكي أجد المتابعة الجيدة منكم وإلى اللقاء في الأسبوع المقبل إن شاء الله مع حلقة جديدة في نفس الموضوع دمتم على طاعة الله

أبي الغالي ابو يوسف وعليكم السلام ورحمة الله يشرفني أن تكون أول من يرد على الموضوع .. الموضوع أصبح مميزاً بردك الجميل تقبل تحياتي

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

السلام عليكم أخي الحبيب أبو البراء بدأت الدرر تخرج من أكمامها Smart Indenter من Smart ياسر بارك الله. أعوذ بالله وأعيذكم بالله من الألزهايمر...لأنه مرض أرذل العمر...." لكي لا يعلم من بعد علم شيئا" حيث تفسد الحواس ويختل فيه النظام العقلي والفكري...لا فكر ولا منطق...وقاكم الله منه أخي الحبيب أبو البراء وكل من يقرأ مشاركتي هذه..والسلام عليكم.

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

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

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

أحسنت أحسنت أحسنت بارك الله فيك , دائما في القمة لأنك صاحب همة زادك الله من فضله

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

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

السلام عليكم و رحمة الله و بركاته .. بارك الله فيك و لك مقدّمًا ..

السلام عليكم ورحمة الله أخي مصطفى هلال وأهلا بيك بين اخواتك أولا" من تعليمات الموقع ان يكون اسم العضو باللغة العربية وللتسهيل على الاخوة حتى يستطيعوا مساعدتك ان ترفق ملف للعمل علية واخيرا" تفضل اخي المرفق علة يفي بالغرض mywael.rar

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

نعم .. تمام التمام ..بارك الله فيك .. وجعل لك بكل حرف ألف حسنة

وعليكم السلام أستاذ علي عذرا على التأخر في الرد ، كنت في ابوظبي من يوم الاثنين ، وبعيد عن كمبيوتري هذا هو التقرير: . وعلشان يعمل ، فيجب النقر على الزر الجديد لطباعة التقرير: . وهذا الزر يستعمل الكود التالي: Private Sub cmd_rpt_Absent_Late_Click() If Len(Me.cmb_Month & "") = 0 Then MsgBox "Can't leave the Month Empty" Exit Sub ElseIf Len(Me.Grades & "") = 0 Then MsgBox "Can't leave the Grades Empty" Exit Sub ElseIf Len(Me.Sections & "") = 0 Then MsgBox "Can't leave the Sections Empty" Exit Sub End If 'Delete the data from MySQL = "Delete * From tbl_Absent_Late" CurrentDb.Execute (MySQL) DoCmd.SetWarnings fasle 'DoCmd.OpenQuery "Absents_Crosstab_1-3" DoCmd.OpenQuery "Absents_Crosstab_2-3" DoCmd.OpenQuery "Absents_Crosstab_3-3" 'DoCmd.OpenQuery "Late_Crosstab_1-3" DoCmd.OpenQuery "Late_Crosstab_2-3" DoCmd.OpenQuery "Late_Crosstab_3-3" DoCmd.SetWarnings True DoCmd.OpenReport "rpt_Absent_Late", acViewPreview End Sub جعفر 221.Folow up V.2.accdb.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل KHMB ..تخمينك طلع مضبوط 200% .. مواضيع كهذه تعتبر كنز ثمين .. خالص إحتراماتي

السلام عليكم ورحمة الله وبركاته من المعروف ان الاوفيس يأتي بصيغة 32 بت وصيغة 64 بت ، ونظام التشغيل وندوز كذلك يأتي بصيغة 32 بت و 64 بت ، وقد يختلط الأمر على بعض الاشخاص فيعتقدون بأنه يجب تنصيب الاوفيس 64 بت على الوندوز 64 بت ، بينما في واقع الامر ، فإن مايكروسوفت توصي بإستخدام الاوفيس 32 بت على جميع نظم التشغيل ، الرابط التالي من مايكروسوفت يوضح هذا: https://technet.microsoft.com/en-us/library/ee681792.aspx وهناك حالات خاصة لتنصيب الاوفيس 64 بت (كذلك المعلومة موجودة في الرابط اعلاه) ، وهذه الحلات لا تنطبق على الاكسس. ومن المعروف انه اذا كان لديك الاوفيس 64 بت ، فإن معظم البرامج السابقة والتي تحتوي على دالة API المحتوية على 32 بت ، فإن البرنامج لن يشتغل وسيعطيك أخطاء لذلك ، وكما يقول المثل: الباب اللي يجيك منه ريح ، سده واستريح فاذا عندك اوفيس 64 بت على جهازك ، فآن الاوان ان تمسح/تلغي تنصيبه ، وتنصب اوفيس 32 بت ---------------------------------------------------------------------------------------------------------------- تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر

أخي الغالي ياسر فتحي مشكور على مرورك العطر بالموضوع .. وجزيت خيراً على دعائك الطيب المبارك

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

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

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

السلام عليكم ورحمة الله وبركاته جرب استخدام الكود التالي : Attribute VB_Name = "HideAccessWindows" Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function 'وهو فقط لاستدعاء الوحدة النمطية السابقة 'ثالثاً :نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف النموذج 'Private Sub Form_Open(Cancel As Integer) 'fSetAccessWindow (SW_HIDE) 'End Sub

أخي الكريم المشاركات متاحة للجميع يقرأها ... حاول تكون عملي وابدأ في طرح طلباتك .. طلب واحد في كل مرة في انتظار عرض موضوعك بشكل أفضل كي يساهم الأعضاء في حل مشكلتك تقبل تحياتي

ربما كان هذا ما تريد count_in _All salim advenved.zip

جرب الكود بهذا الشكل Sub PrintIt() Application.ScreenUpdating = False With Sheets("Sheet1") .Visible = True .Activate .PrintOut .Visible = False End With Application.ScreenUpdating = True End Sub

أخي الكريم أبو أحمد أهلاً بك في المنتدى ونورت بين إخوانك يرجى مراجعة رابط التوجيهات لمعرفة كيفية التعامل بشكل أفضل مع المنتدى (خصوصاً التوجيه الثالث عشر) من هنا

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

السلام عليكم بعد إذنكم إخواني سيتم نقلك إلى آخر خلية في العمود A تفضل جرب المرفق active1.rar

وعليكم السلام تفضل =DCount("*","[tabel2]","[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'") او =DCount("*";"[tabel2]";"[contact no]=" & [contact no] & " And [Type speech]='خطاب وارد'")

اشكرك اخي عبد العزيز جمعة مباركة

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

السلام عليكم ورحمة الله وبركاته الأستاذ طارق ليك الحق تقول up up بس ما فكرتش ليه لحد دلوقتى مفيش ردود ؟! المهم جرب الكود ده ومتنساش ان حماية الملفات قاصرة وأى ناشئ اكسل يدوب لسه بيعرف اكسل يقدر يفقع لك الملف الكود يوضع فى حدث الورقة من خلال هذا الكود تستطيع تعديل البيانات فى النطاقين ("B7:B106,F7:F106") اذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أكبر أو يساوى تاريخ اليوم واذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أقل من تاريخ اليوم لن تستطيع التعديل بالا بادخال الرقم السرى الموجود بالكود 123 Private Sub Worksheet_Change(ByVal Target As Range) ' Protect Range from change After specific Date ' By Mokhtar 8/10/2015 Dim pwd As String: pwd = 123 If Not Application.Intersect(Target, Range("B7:B106,F7:F106")) Is Nothing Then If Target.Offset(, 1).Value < CVDate(Date) Then If Application.InputBox("برجاءإدخال كلمةالمرور لتعديل البيانات", "تصريح تعديل بيانات", "***") <> pwd Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفواً... ليس لديكم الصلاحية لتعديل البيانات" Else Exit Sub End If End If End If End Sub تحياتى عدم السماح للمستخدم بتعديل ائ بيانات 2 .rar

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

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

ببساطة حدد النطاق A1:H8 ثم اذهب للتبويب Home ثم Conditional Formatting ثم اختر New Rule ثم من النافذة اختر آخر خيار المسمى Use a formula to determine which cells to format ثم ضع المعادلة التالية في المستطيل بالأسفل =$F1=0

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

بعد ادن الأستاد المحترم عادل حنفي الكود المقترح يعمل Selection لكنه لا يعمل السكرول و لا يدهب الى الخلية المقصودة أقترح الكود البديل التالي Private Sub Workbook_Open() Application.Goto Sheets("Sheet3").Range("H6"), True End Sub

أخي الكريم ممكن توضح طلبك بشكل أكثر تفصيلاً

تفضل جرب المرفق Copy of 10#3.rar

لفتة جميلة استاذ جعغر اشكرك على الايضاح فاالأمر كان ملتبس علي بالفعل تقبل تحياتي

مجرد فكرة خفيفة لية تلوووووووووووووووووب في المدى خلية خلية وانت ممكن تعمل اللي انتة عاوزة بالفلترة الفكرة بالمرفق Book1.rar

تشكر اخي وائل بعد اذنك اضافة بسيطة Book1 salim.zip

اخى واستاذى محمد فكره رائعه وكود جميل ولكن لنا عتاب معك غيابك يطول لاتحرمنا منك ولى ملاحظه ارجو من حضرتك تداركها بعد ما يتم فتح الملف وتظهر الرساله التى تفيد بتغير التاريخ او انتهاء الصلاحيه جرب فتح الملف مره ثانيه يحدث خطأ انا حليت المشكله دى بالطريقه البسيطه ولكن عايز اعرف طريقة حضرتك فى الحل هتكون ازاى للاستفاده اكثر تقبل تحياتى السلام عليكم ورحمة الله أشكرك جدا على ملاحظتك القيمة فعلا أنا لم أختبر فتح الملف مرة ثانية فقد كتبت الكود وتأكدت من عمله مرة واحدة ولم أفتحه مرة ثانية وعند مراجعته أيضا اكتشف عيب ثاني وهو لم تم الفتح في يوم لاحق لليوم المحدد فكان حل المشكلة بسيط جدا بإضافة اشار < على الكود إليك الكود الجديد فقط اضافة اشارة < On Error GoTo 1 If Sheets("test_my_date").Range("A1") >= DateValue("27/09/2015") Then If Date >= DateValue("27/09/2015") Then MsgBox "تم الكشف عن تغير في تاريخ الجهاز مفكر مالنا كاشفينك -_- " ThisWorkbook.Save Application.Quit Exit Sub End If End If1 If Date >= DateValue("27/09/2015") Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = "test_my_date" Range("a1") = DateValue("27/09/2015") MsgBox "هذا الملف منتهي الصلاحية" ThisWorkbook.Save Application.Quit End If End Sub كما اني بانتطار حلك وشكرا على الملاحظة مرة ثانية بالنسبة للغياب فهو خارج عن ارادتي وكم احب التواجد هنا وفي كل مكان يمكن فيه نشر العلم والفائدة لك كل التحية والاحترام

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

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

اخواني الاكارم >> السلام عليكم وبعد الموضوع قديم وجديد بنفس الوقت >> فهو قديم قدم اقامتي في هذه المنتديات ، فقد طرحته من سنين في منتدى الفريق العربي الفقيد >> وجديد انه لا يوجدعلى الساحات العربية ولا الاجنبية مثل هذا العمل على اكسس المطلوب / المحاولة بعمل تطبيق مشابه لا يوجد شروط >> الاحداث بلا عدد >> والاكواد مفتوحة اكتبوا من الخليج الى المحيط المدة المحددة>> مفتوحة حتى توقف التفاعل الفئة المستهدفة >> جميع الاعضاء وفي مقدمتهم الخبراء ملحوظة >> يجب اضافة المكتبة المصاحبة YsVedPic.OCX الى النظام وتسجيلها myPic.rar

الاخ / الاستاذ يحياوي : لقد قمت بتجميع بعض من الاكواد التي ارفقتها حضرتك واضفت اليها بعض من الاكواد التي تعلمتها من اساتذة هذا المنتدى الرائد ضمن ملف واحد ( والحقيقة لا اعرف ان كنت قد وفقت في هذا التجميع والشرح ) ولكن الغاية ان يطلع عليها ويستفيد منها الاخوة الاعضاء المبتدئين في الاكواد امثالي اشكرك اخي يحياوي على الفكرة ... وارجوا بداء الرأي ان كان الملف المرفق يستطيع الاخوة الاستفادة منه وفقك الله والسلام ياسر الحافظ اكواد متفرقة.rar

السلام عليكم إستخدم معادلة =ROUNDUP(A1,0) بفرض أن الرقم الذي تريد تحويله موجود في الخلية A1