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

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

السلام عليكم ورحمة الله وبركاته إليك الحل بثلاثة طرق مقتبس من بعض علماء الإكسيل الكرام جزاهم الله خيراً الطريقة الأولى بواسطة الدالة VLOOKUP كما يلي: =VLOOKUP(C4;$I$3:$J$6;2;1) الطريقة الثانية بواسطة الدالة INDEX مع MATCH كما يلي: =INDEX($J$3:$J$6;MATCH(C4;$I$3:$I$6;1)) الطريقة الثالثة بواسطة الدالة IF كما يلي: =IF(C4>=$I$6;$J$6;IF(C4>=$I$5;$J$5;IF(C4>=$I$4;$J$4))) لا فضل لي بذلك بل لمن علمني والدال على الخير كفاعله والسلام عليكم ورحمة الله وبركاته منذر محمد.rar

سؤال جميل ! تفضل ومشاركة مع اخي نور Private Sub text1_Change() If Right(text1.Text, 1) <> "_" Then MsgBox ("hi") End Sub

أخى الغالى عبدالعزيز بارك الله فيك شفانا و شفاكم الله من كل سقم أخى محمود كود ادراج الصورة يعمل عندى بلا أخطاء و هو بالفعل كما طليت اضغط فى الفورم على صورة هيفتح Browser حدد الصورة ثم Open لاحظ أنه مش أى صورة يمكن ادراجها الصورة المفضلة تكون بامتداد jpg ( تم اضافة سطر على الكود لتلافى الأخطاء المحتملة ) اليك التعديل الخاص بحساب السن عند الوفاة و حساب المدة بعد الوفاة تحياتى تاريخ الميلاد من القومى والسن عند الوفاة والمدة بعد الوفاة وادراج صورة.rar

اثراءً للموضوع يمكن استعمال هذه المعادلة البسيطة (عدد العمال في الخلية A2) =CHOOSE(IF($A2<7,1,IF($A2<20,2,3)),5,20,100)

هذا الكود اخي عبدالله للفكرة اعلاه : xpath = "a\b\c\d" ypath = CurrentProject.Path & "\" For Each d In Split(xpath, "\") ypath = ypath & d & "\" MkDir ypath Next حيث xpath مجلداتك المراد انشاؤها ! بالتوفيق

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

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

برنامج محاسبة كامل من تصميمي يرجى ابداء الرأي علما أني أحضر نسخة مستودعية أوسع منه https://drive.google.com/open?id=0Bwr7KBsDeEkUY01kOW1NMjBxZEU

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

السلام عليكم و رحمة الله و بركاته اولا : الاساتذة الكرام ارجو المعذرة ان كان العنوان لا يعبر عن المحتوى ثانيا : كم اشتقت الى هذا المنتدى العظيم و الله ما غبت الى مشاغل فى العمل ثالثا : العمل كله فى الاعمدة التالية dr dq dp و المعادلة هنا تعتمد فى تنفيذها على رقم الشهر فاذا كان رقم الشهر 1 فهى معادلة معينة اما اذا كان رقم الشهر ليس 1 فيتم استرجاع قيمة معينة من عمود ko ko kn حسب الشهر الحالى - 1 اى الشهر السابق مباشرة و الملف تم ترتيبه حسب السنة الميلادية و هنا تكون المعادلة منطقية لان السنة الميلادية من 1 الى 12 اى تصاعدية و السؤال هنا ماذا لو تم العمل بالسنة المالية اى من 7 الى 6 فكيف تكون المعادلة فى الاعمدة dr dq dp و عذرا للاطالة اليوزر : صلاح الباس : 24229197 محرر الاكواد : 24229197 salah 2015_2.rar

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الخامس والعشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان أوراق العمل التفاعلية -أزرار التحكم الجزء الأول أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم لمشاهذة دروس دورة مهارات اكسيل 2013 يمكنكم فتح الرابط التالي دورة مهارات اكسيل 2013 دمتم بخير أخوكم م/نضال الشامي https://youtu.be/PWPdTTyE7bA

عمل رائع جزاك الله خيرا

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

جرب هذا الكود Sub extract_data() Dim x, i, lr As Integer Dim My_sheet As Worksheet Dim Source_sheet As Worksheet Set Source_sheet = Sheets("البيانات") Set My_sheet = Sheets("ارقام الجلوس") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual My_sheet.Columns(2).ClearContents My_sheet.Columns(5).ClearContents lr = My_sheet.Cells(Rows.Count, 1).End(3).Row x = 1 For i = 2 To lr My_sheet.Range("b" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i).Resize(1, 5)) My_sheet.Range("b" & x + 4).NumberFormat = "m/d/yyyy" My_sheet.Range("e" & x).Resize(5, 1) = Application.WorksheetFunction.Transpose(Source_sheet.Range("a" & i + 1).Resize(1, 5)) My_sheet.Range("e" & x + 4).NumberFormat = "m/d/yyyy" i = i + 1 x = x + 6 Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

اخبار التجربة اخ محمد !؟! تحياتي

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

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

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

اكتب الكود التالى فى الحدث AfterUpdate If Len([Text0]) = 4 Then هنا ضع الكود المطلوب End If الدالة len تستخدم لمعرفة عدد الحروف بالتكست

ترتيب جميل و جهد واضح ... جاري الفحص ...

كنترول متكامل للتيرمين الاول والثاني لاغلى احبه منتداي الغالي واهله : يتم الضغط على زر البيانات الاساسيه : وكتابه البيانات الاساسيه لهذا العام من اسم مدرسة وعام وخلافه : ثم اختيار الصف من خانه اختر الصف اولا : ثم ادخال بيانات التلاميذ ولا يهم سواء كانت تم ابجدتها ام لا فهو فى المرحله القادمه يقوم بعمليه الابجده : بعد ذلك يتم الضغط على زر ارقام الجلوس : ويتم كتابه اول رقم جلوس مطلوب والضغط على الزر فيقوم هنا بادخال ارقام الجلوس تلقائيا لجميع الطلاب مع ملاحظه انه يقوم بعمليه الابجده لاسماء الطلاب تلقائيا هنا م : وبعد ارقام الجلوس يتم وضع عدد الطلاب فى كل لجنه ويقوم البرنامج تلقائيا بتوزيع الطلاب على اللجان بعد ذلك رصد ملف الانجاز حيث ستجد اسماء الطلاب موجوده تلقائيا فيه وتقوم برصد الدرجات : وكذلك العملى : وكذلك الدرجات على الارقام السريه التى سبق ادخالها يدويا من زر ارقام الجلوس واللجان : وبعد ذلك طبع النتائج : والبرنامج مصمم ليقبل الصفين الاول والثانى الاعدادى معا فى آن واحد : اى تختار الصف ثم تنفذ الاوامر التى تريدها عليه : وكذلك اختر الفصل الدراسى سواء الاول او الثانى ليكون العمل كله على هذا الفصل الدراسى الذى تختاره : اعتقد ان هذا ملخص سريع وعاجل للغايه : وبالتجربه قد تكتشف المزيد سواء ايجابيا او سلبيا mojahed xp دعواتكم الصادقة a005.rar

شكرا جزيلا استاذ محمد ... ربي يحفظك و يسلمك ...

جزاك الله خيرا" اخى الفاضل وجعلة الله فى ميزان حسناتك

السلام عليكم شباب في الرابط التالي http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 استعملت الكود التالي: Dim Image_Path As String '1 Image_Path = Application.currentProject.Path '2 Image_Path = Image_Path & "\photo\" 'if the photo Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If '3 Image_Path = Image_Path & "\" & [ID] & "\" 'if the [id] Dir dose not exist, creat it If Dir(Image_Path, vbDirectory) = "" Then MkDir Image_Path End If وهنا قبل ان أنشأ المجلد الجديد ، يتأكد الكود بوجوده ، فان لم يكن موجودأ ، فانه يستحدثه ، وإن كان موجودا لا يفعل شئ (طبعا لم اكن اريد المستخدم ان يرى اي رسالة هنا) ، وتلاحظ ان عمل المجلدات هو بالتسلسل ، ومن خلال نفس مجلد البرنامج ، هكذا: -1- مجلد البرنامج (الموجود ، لذلك لم اقم بعمل شئ له) ، -2- مجلد الصور photo (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد البرنامج ، ومجلد الصور photo هذا سيُستحدث مرة واحدة فقط ، -3- مجلد ID (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد الصور photo ، وهناك عدة مجلدات بحسب قيمة ID ، داخل مجلد الصور photo. جعفر

وهذا مثال بعد التعديل بكود معلمنا الاستاذ ابو خليل اممم للعلم تم اضافة بعد الاكواد مثلا 1- لعدم اضافة اى لغة غير موجوده فى الكمبوكس او تجاهل اختيار احد الغتين الوجودتين الان 2- كود لازرار " نسخ - قص - لصق - مسح " التى لم اكن اعلمها وبحثت عنها فوضعتها لتعم الفائدة وايضا قمت بارفاق قاعدة البيانات بتنسيق 2000-2003 حتى يتثنى للكل الاستفادة _updateعن اللغات.rar

اخى الفاضل الملف لم يتم تغييره ما زال على 2007

السلام عليكم ورحمة الله تفضل اخي اظن اني فهمت ماتريد إن شاء الله يكون المطلوب جرب وإذا فيه اي ملاحظة اشرحها بالتفصيل. اخيك في الله / أبو الحسن والحسين ادارة المحلKHMB.rar

جرب هذا لملف Chidren.zip

جرب هذا الملف معلومات الاسرةsalim.zip

جرب الكود التالى حدد النطاق المراد تصويره ثم الخلية لوضع الصوره بجوارها Option Explicit Sub paste_Picture() Dim UserRange As Range, OutputRange As Range Dim MyPrompt As String, MyTitle As String MyPrompt = "Select the range you would like to capture." MyTitle = "User Input Required" On Error Resume Next Set UserRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If UserRange Is Nothing Then End On Error GoTo 0 UserRange.CopyPicture MyPrompt = "Select the range on which you would like to paste." MyTitle = "User Input Required" On Error Resume Next Set OutputRange = Application.InputBox(Prompt:=MyPrompt, Title:=MyTitle, Default:=ActiveCell.Address, Type:=8) If OutputRange Is Nothing Then End On Error GoTo 0 OutputRange.PasteSpecial Selection.Formula = UserRange.Address End Sub

جرب هذا الملف قائيمة منسدلة اخفاء عمودsalim.zip

بعد إذن لااساتذة الكرام و حتى لا يتغير التاريخ بعد غلق الملف تم فتحه من جديد و لتسجيل وقت الادخال بالخلية لأول مرة و بطريقة ثابتة اقترح هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Or Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b100")) Is Nothing Then If Target(1, 0).Value = "" Then Target(1, 0).Value = Time End If End If End Sub

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

اولا اضبط لغة الكتابة في خصائص مربع النص = النظام ثم الصق هذه الجمل داخل محرر النموذج باعتبار combo هو مربع التحرير ورقم واحد هو قيمة المربع ويمثل اللغة الانجليزية و 2 يمثل اللغة العربية Option Compare Database Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub combo_AfterUpdate() If combo.Value = 1 Then Call LoadKeyboardLayout("00000409", 1) ElseIf combo.Value = 2 Then Call LoadKeyboardLayout("00000401", 1) End If End Sub لا حظ انه يمكنك اضافة العديد من اللغات

السلام عليكم ورحمة الله وبركاته .. حياك الله اخي كرار ... انت قمت بتغيير اغلب مسميات الحقول والذي يعتمد عليه الكود الذي قام به الأستاذ جعفر ... هنا مثال Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") جملة select في الريكورد ست تختار من الجدول sh وانت قمت بتغييره الى tb_sh كذلك tash انت قمت بتغييرها إلى تاريخ الوصل .. وهكذا .. ما عليك فعله هو احد امرين .. 1-تغيير المسميات في الكود بما يتناسب مع مسميات الحقول لديك .. 2- إرجاع تسميات حقول الجداول الى ماكانت عليه .. بإمكانك ارجاعها الى ماكانت عليه مع الإستعانه بالتسمية التوضيحية للحقل ... لكي تظهر باللغة العربية .. اما اسم الحقل نفسه فأنصحك بأن يكون باللغة الإنجليزية .. اتمنى اني افدتك .. وفقنا الله واياك ..

السلام عليكم اتفضل استاذنا معادلة صفيف =IFERROR( INDEX($A$2:$D$902; MATCH(SMALL(IF(($A$2:$A$902>=$G$1)*($A$2:$A$902<=$G$2);ROW($A$2:$A$902);"");ROW($A1));ROW($A$2:$A$902);0); COLUMN(A$1)); "") ابايوسف.rar

لعله المطلوب ذكر اثنثى.zip

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

السلام عليكم ورحمة الله وبركاته بعد اذن الجميع من أساتذة المنتدى ممكن أن نجعل القيمة الافتراضية لهذا الحقل هي تاريخ اليوم ويمكن التعديل بكتابة date() امام القيمة الافتراضية للحقل

السلام عليكم بالنسبة للتاريخ : فكأنك تريد كتابة تاريخ اليوم لان السؤال المتبادر ما الشهر والسنة التي تريد ان تدرجها تلقائيا ؟ ان كان جوابك هو : المطلوب ادخال تاريخ اليوم الحالي فاكتب الكلمة التالية في حدث بعد التحديث للحقل الذي يسبق حقل التاريخ textDate=Date() باعتبار ان textDate هو حقل التاريخ النتيجة سيتم كتابة التاريخ الحالي في حقل التاريخ ويمكنك بعدها التعديل ايضا

جرب عزيزي في حدث بعد التحديث: Private Sub Category_AfterUpdate() On Error Resume Next Me.cobClient.Visible = (Me.Category = "الشركات") Me.cobEmployee.Visible = (Me.Category = "العمال") Me.Category.SetFocus End Sub وفي حدث الحالي للنموذج : Private Sub Form_Current() Call Category_AfterUpdate End Sub هذه فقط للاكواد ! اما كفكرة للتصميم فيكون عمود واحد في الجدول ! سيحتوي الاسم ! وطبعا سنعرف نوعه من خلال عمود الفئة! وهنا سيكون مصدر الكمبو في النموذج جملة اس كيو ال متغيرة حسب اختيار الفئة ! هنا عزيزي حبيت افيدك بفكرة وكمعلومة اضافية ! جنبا الى انك مؤدي كما تريد وبطريقتك وهي صحيحة الى حد ما! ولكن انبهك الى انه بطريقتك ستضيف اعمدة في الحركات حسب نوع الفئة وهذا به تحدي كبير خصوصا لما يكون هناك فئة جديدة بعد اغلاق البرنامج وتسليمه للمستخدم ! هذا واتمنى ان افدتك وبالتوفيق

Private Sub Worksheet_Change(ByVal Target As Range) Dim X If Target.Address = "$A$1" Then Application.ScreenUpdating = False Application.EnableEvents = False X = [A1].Value If X <= 0 Or X = 1 Or Not IsNumeric(X) Then GoTo Skipper1 Range("A3:G3").AutoFill Destination:=Range("A3:G" & X + 2), Type:=xlFillDefault Range("A4:G" & X + 2) = Range("A4:G" & X + 2).Value Range("A" & X + 3).Resize(70000, 7) = "" Application.Goto Target End If GoTo Skipper2 Skipper1: Range("A" & 4).Resize(70000, 7) = "" Application.Goto Target Skipper2: Application.EnableEvents = True Application.ScreenUpdating = True End Sub أخي الحبيب أبو عيد بارك الله فيك وجزيت خيراً ..لما جعلت الكود في حدث تنشيط ورقة العمل وليس في حدث التغير في ورقة العمل جرب الكود بهذا الشكل عله يفي بالغرض Copy Formula In Row 3 Based On The Value In A1 Officena.rar

أهلا بيك تفضل التعديل تخفيف حجم الملف2.rar

تفضل وعفوا على الإزعاج تخفيف حجم الملف1.rar

برنامج الاكسيل: هو أحد البرامج الموفرة ضمن حزمة أوفيس وهو مخصص للعمليات الحسابية حيث انه عبارة عن أوراق افتراضية يمكن أضافة معادلات حسابية عليها ومن ثم إضافة الارقام حبت يقوم البرنامج بالعمليات الحسابية بشكل آلي وفي نفس الوقت يمكن ان تستخدم لتخزين البيانات إليكترونية حيث يمكن الاحتفاظ بها أو طبعها على اوراق. وهو البرنامج الأشهر في العالم وذلك لقدرته على انجاز العمليات المستحيلة بواسطة الصيغ والتي لا توجد في اغلب برامج الانتشار او صفحات العمل الأخرى. ومن وجهة نظري الشخصية ان الصيغ تشكل مالا يقل عن 75% من إمكانيات الاكسيل. لا تزيد نسبة مستخدمي الصيغ بشكل احترافي عن 10% فقط ولذلك ندعوك للانضمام الى هذه النخبة فهل تستعد لذلك؟ . مر الاكسيل بالعديد من التحديثات والتطوير على مر السنين في العناصر وفى الشكل العام له . ولكن ماذا كان يتم العمل قبل ظهور الاكسيل وماذا حدث بعد ذلك . قبل ظهور الاكسيل كان الناس يقضون ساعات طويله جدا في حساب وتجميع كشف حساب على الاله الحاسبة ولكن مع استخدام الاكسيل فان الأمور اصبح يستغرق دقائق او ربما ثواني معدودة . في نهاية السبعينات ظهر برنامج VISI CALAC ثم جاء برنامج LOTS (1.2.3) في الثمانينات ثم دخلت ميكروسوفت في 1982 ببرنامج MULTIPALNE وأخيرا وصل ما يسمى بالاكسيل وكانت النسخة الأولى عام 1987 وحتى وصل الى الإصدار الحالي 2013 وهو الإصدار رقم 12 لشركة وكانت الإصدارات كالتالي ( EXCEL 2 EXCEL3 EXCEL4 EXCEL5 EXCEL95 EXCEL97 EXCEL2000 EXCEL2002 EXCEL2007 EXCEL2003 EXCEL2010 EXCEL2013 EXCEL2016 ) وننوه انه تم اصدار النسخة التجريبي 2016 في يوليو 2015 . بالرغم من ذلك قد تجد تسميات ميكروسوفت مختلفة ومربكة فتجد انها تسمى 2007 الإصدار رقم 12 و 2010 الإصدار رقم 14 و 2013 رقم 15 و 2016رقم 16 وهكذا............ المصدر https://en.wikipedia.org/wiki/Microsoft_Excel#Early_history

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

السلام عليكم كل عام وانتم بخير استكمالا للموضوع الذى بدأه الاستاذ المبدع ياسر خليل فقد قمت ببرمجة نسخة مستقلة من مكتبة الاكواد (ملف تنفيذى لا يحتاج الاكسل) ومزودة بامكانيات اكبر للبحث والتصنيف بواسطة المجموعة او جزء من العنوان او الكود ... وكذلك يقوم بفتح ملفات الأمثلة المرفقة بواسطة زر يتم تفعيله اذا كان هناك ملف مرفق وكنت اتمنى ان استكمل الامثلة والاكواد لكن الوقت لم يسعفنى..... ارجو تجربته واخبارى عن اى اخطاء برمجية وسوف احاول استكمال الامثلة واضافة اكود جديدة ونشرها بعد التعديل رابط التحميل: http://www.bscenter.co/downloads/vbaforexcelcodes.rar

اكواد اكسس حمل من هنا

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