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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...إخوتي الكرام السلام عليكم ورحمة الله وبركاته أحببت أن أعرض عليكم بعض إمكانيات الإكسيل الرائعة في تنسيق الأشكال في حال عدم توفّر الفوتوشوب أو البرامج الرسومية الأخرى ليظهر الملف بشكل أنيق ... حبث أنه يتمتع بجماليات في الخط والشكل وتناسق الألوان لكنه بعود على الملف بشيءٍ من البطء وزيادة حجم الملف .. الارتباطات التشعبية تظهر على شكل شفاف كقطرات الندى في صباح ربيعي مزهر..عند وضع المؤشر عليها تدلك على الورقة الهدف. راجياً من الله تعالى أن ينال إعجاب حضراتكم. اسم المستخدم :admin كلمة السر 123 ...بعض أوراق العمل محمية دون كلمة مرور ... والسلام عليكم ورحمة الله وبركاته. مكابس بلوك.rar

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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي Delete.rar

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

ربما ينفع هذا الكود Option Explicit Sub del_special_cells() Dim cel As Range With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With For Each cel In Range("a10").CurrentRegion If cel.Interior.ColorIndex = 6 Then _ cel.Value = vbNullString Next With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

حاول تلغي الخلايا المدمجة الموجودة في الملف .. بشكل نهائي دي أول خطوة لو عندك معادلات صفيف حاول تتخلص منها وتشوف بديل ... دا بشكل مبدئي

بعد اذن معلمنا العزيز ملك الاكواد ياسر خليل لو احتجت الى كود يمكن استخدام هذا الكود اثناء فتح البرنامج Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False End Sub

جربوا الكود التالي عله يفي بالغرض Private Sub CommandButton1_Click() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Dim lc As Long Dim c As Long Set ws = Sheets("بيانات الطلبة") c = ws.Range("Q1").Value If TextBox1.Text = ws.Range("F1") Then Me.Hide: TextBox1.Text = "" MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب", 64 Application.ScreenUpdating = False Application.Calculation = xlManual If ws.Range("Q1") < 2 Then Exit Sub For Each sh In Sheets(Array("بيانات الطلبة", "إنجاز1", "تحريرى ف 1", "تحريرى ف 2", "أعمال السنة", "كشف ناجح", "الحاله", "كنترول شيت", "رصد الترم الثانى", "كنترول شيت (2)", "رصد الترم الأول", "كشف الدور الثاني")) lr = IIf(LastRowColumn(sh, "R") = 9, 9, LastRowColumn(sh, "R")) lc = LastRowColumn(sh, "C") sh.Range("A" & lr).Resize(1, lc).AutoFill Destination:=sh.Range("A" & lr).Resize(c + 1, lc) Next sh Application.Goto ws.Range("A1") Application.Calculation = xlAutomatic Application.ScreenUpdating = True Unload Me Else MsgBox "عفواً كلمة المرور خاطئه و لن يتم تنفيذ المطلوب", vbExclamation TextBox1.Text = "" TextBox1.SetFocus End If End Sub Function LastRowColumn(ws As Worksheet, rc As String) As Long Dim lng As Long If Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then With ws If UCase(rc) = "R" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row ElseIf UCase(rc) = "C" Then lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column End If End With Else lng = 1 End If LastRowColumn = lng End Function

كم انت طيب القلب استاذي بارك الله فيك وجزاك الله خير الجزاء

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

أعزك الله على تواضعك وحسن خلقك وجميل ردك .. أخى الفاضل / ياسر

وعليكم السلام

جرب المثال بعد التعديل ، scan2.rar

يمكن ان يكون المطلوب انظر الى الصفحة Result EXTRACT_DATA.rar

اتفضل اليك هذا الكود Private Sub ملاحظات_AfterUpdate() If Me.وقت_الدخول > #01:59:59 AM# And Me.وقت_الدخول < #5:00:00 AM# Then Me.نهايه_العقد = Date + 1 End If End Sub واليك ملفك بعد تعديل نن.rar

الان وصلت الفكرة اليك حل افضل بكثير من طريقتك عملت لك هذه الاستعلا الالحاق INSERT INTO Transactions ( Doc, Code, Item, Out, Notes ) SELECT [Forms]![Trans_top10]![Transaction subform].[Form]![Invoice] AS Doc, Order_Sub.Code, Order_Sub.Item, [Forms]![Trans_top10]![Transaction subform].[Form]![Out] AS Out, Order_Sub.Notes FROM Order_Sub WHERE (((Order_Sub.ID)=[Forms]![Trans_top10]![Combo0])); وفي خلف زر استخدمت هذا الكود Private Sub Command95_Click() Me.Transaction_subform.SetFocus DoCmd.SetWarnings False DoCmd.OpenQuery "q1", acViewNormal DoCmd.SetWarnings True End Sub اليك ملفك بعد تعديل Pro.rar

ممكن هذا طلبلك - هذا البرنامج موجود بالمنتدى برنامج ادارة المبيعات النقدية وبالاقساط.rar

أخي الكريم لم أقصد أن تغير الصورة .. فالأمر يرجع إليك بالنسبة للكود يمكنك تجربة الكود التالي Sub ClearRanges() Range("E3:E7").ClearContents Range("H9:J12").ClearContents End Sub للمزيد حول البدايات وكيفية وضع الأكواد شاهد الفيديو التالي

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

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا Access Import_ up 2.rar

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه قسم أكواد فيجوال بيزيك التطبيقات - VBA_ منتدى اوفيسنا محفظة اكواد منوعة_ بدأه _ أ / عبدالله باقشير موضوع مميز _ مكتبة اكواد _ أ / ياسر خليل أبو البراء _ مشاركات الاعضاء افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) أ /ياسر خليل المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد _ أ / ياسر خليل بداية الطريق لإنقاذ الغريق _ أ / ياسر خليل فهرس بتعليمات وبرمجيات الفيجوال بيزيك للاكسل _ أ / طارق محمود مكتبة أكواد-300كود _ مشاركة _ أ / عبدالعزيز محمد-محب البرمجة هدية للموقع تجميعية ملف به اكواد vba جاهزة _ أ / عبدالعزيز محمد-محب البرمجة بنك أكواد _ أ / abo mohamad هدية للموقع تجميعية ملف به اكواد vba جاهزة _ أ / قلم-الاكسل(عبدالعزيز) لاول مره على الانترنت- كتاب تعلم لغه ال VBA باللغه العربيه (إكسيل) _ أ / خالد الرشيدى افضل موافع الاكسيل على مستوى العالم _ أ / محمد الريفى *** دوال مستحدثة - برامج - أدوات ذكية ***_ أ / أبو تامر_عمر الحسينى الحلول الذكية لمشاكل الاكسل _ أ / أبو تامر_عمر الحسينى موسوعة الاكواد _ أ / أبو تامر_عمر الحسينى اجابات للموضوعات التى يكون عنوانها ( سؤال فى VBA ) _ أ / أبو تامر_عمر الحسينى سلسلة دروس الفيجوال بيسك 6 والاكسيل من علي مصطبة ياسر العربي _ أ / ياسر العربى دروس فى VBA Excel _ نتعلم معا برمجه اكسل _ أ / محمود الشريف مش مهم تكون محترف vba ولكن مهم يكون عندك معلومات عن vba _ أ / إبراهيم ابوليله قسم مكتبة الاكواد فى المكتبة _ أ / محمد طاهر دورة شرح الفيجول بيسك للتطبيقات VBA _ أ / عبدالله المجرب كتاب الكتروني : دورة المبتدئين في ال VBA _مشاركة الاستاذ / محمد يحياوي اهداء الى الاستاذ / ياسر خليل أبو البراء كتاب الكتروني : دورة في الVBA وتطبيقاته في الاكسل 2 _مشاركة_ أ / محمد يحياوي كتاب الكتروني : دورة للمتوسطين في الVBA للاستاذ هادي _مشاركة_ أ / محمد يحياوي (موضوع مميز ) بعض الاكواد المنفصلة قد تهم البعض_بدأه_ أ / محمد يحياوى كل شيئ عن VBA _ مشاركة_ أ / محمد يحياوي حصريا : تعرف على VBA .... ببساطة_ أ / ابو هاجر المصرى ( موضوع مميز ) معالم على طريق البرمجة بلغة VBA _ أ / زياد على موضوع مميز_مجموعة ملفات بالاكواد عن طريق الارتباط التشعبى بشيت اكسيل _ أ / زياد على شرح الماكرو و القوائم بالصور مع برنامج _ أ / هادى محمد المامون سالم شرح الفيجوال بيزيك للمتوسطين_ أ / هادى محمد المامون سالم دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة _ أ / حمادة عمر أضع لكم بعض الاكواد البسيطة المطلوبة لتعم الفائدة _ أ / رؤوف1951 الطريق الى تعلم فيجوال بيسك الاوفيس _ مشاركات الاعضاء أول الغيث قطرة_ تعلم VBA _ مشاركات الاعضاء ماذ تفعل لو .... سلسلة تعليمية _ أ / طارق محمود شرح دوال الاكسل للاستاذ خبور _ أ / عبدالله باقشير خواطر إكسيلية _ أ / محمد حسن المحمد و مشاركات الاعضاء أمثلة على دوال هامة بالعربي مصنفة حسب عمل الدوال _ أ / أبوعبد الله_اكسلجى موضوع مميز_مكتبة تجميعيه للدوال بالعربى _ أ / أبوعبد الله_اكسلجى كتاب VISUAL BASIC للجميع بالعربي - هدية للجميع _ أ / أبوعبد الله_اكسلجى سلسلة فتح باب الإبداعات للناس العسل في تعريب معادلات الإكسيل _ أ / أبوعبد الله_اكسلجى أكواد أعجبتني _ أ / أبوعبد الله_اكسلجى سلسلة فتح باب الإبداعات للناس العسل في تعريب معادلات الإكسيل _ أ / أبوعبد الله_اكسلجى مكتبة دوال ومعادلات _ أ / محمد الريفى مكتبة دوال ومعادلات الاكسيل (سابقا:مقدمه هامه فى الصيغ) _ أ / محمد الريفى مكتبة كتب اكسيل باللغه العربيه _ أ / محمد الريفى ملف من احد المنتديات الاجنبيه به معادلات شتى وصفيف رائعه_ بدأه _ أ / ابو اياد ( الاسيوطى ) دوال اعجبتنى _ أ / هشام شلبى (موضوع مميز) شرح بعض المعادلات وبعض الخصائص فى الاكسيل_ بدأه _ أ / جمال الفاار اضخم كتاب لتعلم الصيغ والدوال في Excel 2007_ مشاركة من أ / mebsat2 مواضيع قديمة ومهمة جدا بمنتدى الاكسيل_ أ / قنديل الصياد الدوال فى Excel (حسب الفئة) _ أ / قنديل الصياد دوال الإكسيل المختلفة مع شرح مبسط جداً لوظيفة كل دالة _ أ / ا بو سليمان ملف رائع للكثيرمن دوال الاكسل _ أ / ا بو سليمان الدوال بالأكسل _ أ / نزار سليمان عيد لنتعلم سويا _ أ / dangerman2 أفضل ما قرأت _ أ / dangerman2 دروس مترجمة في ( VBA ) _ أ / dangerman2 لنطور أنفسنا _ أ / dangerman2 شرح لبعض دوال الاكسيل باللغة العربية _أ / bahraini مجموعه دوال وافكار للاكسل _أ / abo mohamad قاموس شرح دوال الإكسل (ملف تعليمي) _ أ / محمد عسكر حصرياً ولأول مرة على مستوى المنتديات العربية- الدورة المتميزة- اكسيل 2013 المستوى المتقدم (موضوع متجدد) _ أ / nedal_shami دروس vba_درس رقم 1 _ أ / الخضر ترجمة 339 معادلة إلى أربع لغات _ أ / أبوطارق Excel Function Dictionary v.2 _ أ / ابو اسامة العينبوسي بعض دوال اكسيل باللغة العربية - ملف جميل و سهل _ أ / يحيى حسين فنبلة الموسم لعام 2017 ، كتاب يحتوي على 1200 مثال لتطبيق الماكرو على الإكسيل _ أ / الزباري مجموعة دوال اكسيل _ أ / h63 مشاركة متواضعة _ أ / asmo200666

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

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

أخي الحبيب محمد تفضل الملف المرفق ...كل ما عليك أن تضع أوراق العمل المطلوب جلب البيانات منها في مصفوفة بالترتيب الذي ترغب التعامل معه Sub CollectDataFromSheets() Dim MyArray As Variant, Item Dim LR As Long MyArray = Array("خط التعبئة والتغليف", "خط الاستلام والتجهيز", "1", "2", "3") Application.ScreenUpdating = False Sheets("شيت مجمع").Range("A3:H1000").ClearContents For Each Item In MyArray With Sheets(Item) .Activate LR = .Cells(300, 2).End(xlUp).Row .Range("B5:H" & LR).Copy With Sheets("شيت مجمع") .Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 2).End(xlUp).Row) = Sheets(Item).Name End With End With Next Item Sheets("شيت مجمع").Activate: Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ويتم ذلك من خلال السطر الرابع إليك الملف المرفق للتجربة ولا تنسى أن تحدد المشاركة التي تعجبك كأفضل إجابة ليظهر للأخوة الأعضاء أن الموضوع مجاب ، وعشان آخد نقطة (بعد التعب دا كله) تقبل تحياتي Collect Data From Sheets V2.rar

كتاب اخر لشرح الاكسس vb