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

بسم الله الرحمن الرحيم الحمد لله الذي عز جلاله فلا تدركه الإفهام، وسما كماله فلا يحيط به الأوهام، وشهدت أفعاله أنه الحكيم العلام، الموصوف بالعلم والقدرة والكلام، سبحانه هو الله الواحد السلام، المؤمنون حبب إليهم الإيمان وشرح صدورهم للإسلام، ويقبل التوبة ويكشف الحوبة ويغفر الإجرام، تبارك اسم ربك ذي الجلال والإكرام واشهد إن لا اله إلا الله, وحده لا شريك له, له الملك, وله الحمد, وهو علي كل شيء قدير شهادة من قال ربى الله ثم استقام الله ربـى لا أريــد ســواه هل في الوجود حقيقة إلا هو يـا من وجب الكمال بذاته فالكل غاية فوزهم لقياه عجز الأنام عـن امتداحك انـه تتصاغر الأفكار دون مـداه من كان يعرف انـك الحق الذي بهر العقول فحسـبه وكفـاه وأشهد أن سيدنا وحبيبنا وشفيعنا محمد عبد الله ورسوله وصفيه من خلقه وحبيبه لم يزل صلى عليه الله وسلم يقاتل في الله بعزم واهتمام، حتى انقشع عن سماء الحق تراكم الغمام، وظل في أفق الإيمان بدر التمام إذا أرد أن تفـوز وتـرتـقي درج العلى أو تنال منه رضاه ادم الصلاة على محمد الـذي لولاه مـا فـتح المكـبر فـاه وله الوسيلة واللـواء وكوثـر يروى الورى وكذا يكون الجاه وعلي اله وأصحابه ومن سار على نهجه وتمسك بسنته واقتدى بهديه واتبعهم بإحسان إلي يوم الدين ونحن معهم يا أرحم الراحمين ثم أما بعد /: اليوم ندخل الى ارض جديدة داخل عالم البرمجة وهي لغة الفيجوال بيسك دوت نت طبعا احبتي لن اكون انا الاساس في هذا الموضوع باذن الله كلنا سنشارك في هذا الموضوع باذن الله فمن لديه معلومة ملحوظة مشروع فكرة يتم وضعها في الردود او ارسالها لنا ويتم وضعها في السلسلة او شرحها باذن الله يرجى ترك الردود والاستفسارات على الرابط المخصص لها بالاسفل رابط الردود الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت رابط البرنامج نسخة Visual Studio 2012 Ultimate ISO رابط جديد  لنسخة 2012 الحجم 1.5 جيجا دي اللي هنعتمدها اي حد نزل نسخة تانية مفيش مشكلة الا اذا وجد خلاف او بعض الامور الغير متشابهه لو طلبت سيريال SERIAL KEY: RBCXF-CVBGR-382MK-DFHJ4-C69G8 بسم الله نبدأ طريقة فتح البرنامج ومكوناته وطريقة التعامل معه اولا من قائمة البدأ نختار كما بالشكل Visual Studio 2012 ثم تفتح معنا هذه النافذة وهي نافذة بداية البرنامج نختار منها مشروع جديد اما من القائمة FILE & NEW PROJECT او من الاختصار داخل الصفحة نفسها تحت كلمة START NEW PROJECT لتظهر نافذة جديدة ومنها نختار Windows Forms Application ثم تفتح لنا نافذة البرنامج الرئيسية مكونات الصفحة 1- شريط الادوات 2- مستعرض الحلول وهي نافذة المشروع 3- الخصائص وهي خصائص الادوات والفورم المستخدمة 4- صندوق الادوات وهو صندوق الادوات المستخدمة على سطح الفورم مثل الLABEL & TEXTBOX وغيرها 5- شاشة التصميم او مساحة العمل على الفورم 6- شاشة محرر الاكواد بعد عرض شاشة البرنامج الاساسية ومثل أي شرح لاي لغة برمجة يتم عمل المثال التمهيدي والافتتاحي واول برنامج لنا جميعنا على لغة برمجة الفيجوال دوت نت وهو مثال بسيط جدا في غاية السهولة ولكن يترتب عليه بعض الاساسيات التي تتضح لنا لمجرد بناء هذا البرنامج البسيط وهو برنامج الترحيب بالعالم الجديد Hello World ولكن هيبقي ترحيبنا باللغة الجديدة هي برنامج بسم الله الرحمن الرحيم طبعا البرنامج سهل ولا يحتاج لشئ هو مجرد رسالة تظهر فيها ما نكتبه عند تشغيل البرنامج او الضغط على زر ولكن يترتب علي عمل البرنامج فهم طريقة انشاء برنامج وضع الادوات على الفورم كتابة الاكواد داخل المحرر تشغيل البرنامج لاختباره حفظ مشروع البرنامج تحويل البرنامج لملف تنفيذي تحزيم البرنامج معرفة خصائص المشروع برنامج الترحيب بفتح مشروع جديد نقوم كما وضحنا سابقا نقوم بوضع زر امر على الفورم ونختار الزر من صندوق الادوات بعد ان نضع الزر على الفورم نقوم بالضغط عليه دبل كليك ليظهر محرر الاكواد هكذا ثم نكتب بداخله الرسالة الافتتاحية لهذا العالم الجديد Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'يتم عرض رسالة عن طريق هذا الكود MessageBox.Show("بسم الله الرحمن الرحيم") 'ومن الممكن ان نسترجع ذاكرتنا ونكتبها كما تعلمناهكذا MsgBox("الحمد لله") End Sub ثم نقوم بالضغط على start من شريط الادوات او الضغط على F5 لاختبار البرنامج ولحفظ المشروع من قائمة File & Save all وبعد كدا نكتب اسم المشروع ونحدد مكانه زي كدا وبيظهر المشروع بالشكل دا بعد الحفظ الملف المحدد دا ملف المشروع الاساسي يتم تشغل المشروع منه بعد حفظه في اي وقت وبمجرد تشغيل البرنامج الخاص بنا عن طريق f5 or start يتم انشاء نسخه تنفيذية للبرنامج داخل المجلد bin\Debug او نستطيع تحوله لتنفيذي وتحزيمه عن طريق بناء وتحزيم البرنامج من الخيار الاول ثم الثاني المحددين كما تستطيع التعديل على خصائص المشروع كما تعلمنا سابقا في الفيجوال6 هكذا 1- اسم المشروع 2- نوع النت فريم وورك المستخدم للبرنامج والذي سيعتمد عليه بمعنى انه عند اختيارك اصدار النت فريم وورك يشترط وجود نفس الاصدار او احدث على الجهاز الذي سيعمل عليه البرنامج 3- نوع مشروع البرنامج 4- طبعا كلنا عارفينها الفورم اللي هيبدأ عند تشغيل البرنامج نستطيع وضع اي فورم ليبدأ اولا 5- ايقونة البرنامج ونستطيع هنا اختيار ايقونات بدقة عالية عكس فيجوال 6 محدد على عدد الوان وبكسلات معينة مرفق مشروع البرنامج التمهيدي طبعا انا متعود على ان الردود تسبق الدروس بكثير مستني الابداع منكم اتمنى من الله ان اكون قد وفقت في تقديم البداية لدخول عالم الدوت نت بشكل مقبول الى هنا انتهى الدرس يتبع باذن الله تقبلوا تحياتي ياسر العربي test prog.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ----------------------------- الحالة الحالية لاوفيسنا ارى اننا فى مجتمع اوفيسنا نهمل كل ماهو حديث فى الاكسيل ونركز فقط على حل الاسئلة و طرح موضوعات حول المعادلات وال VBA فقط ونهمل كل ماهو حديث بل ومازال البعض يعمل على الاصدارات القديمه وخصوصا 2003 ولايرغب فى التحديث ابدا ودائما مانهمل الحديث على سبيل المثال لا الحصر اصدار EXCEL 2016 والجديد فى هذا الاصدار لغة DAX PIVOT TABLE Manage Data Model Power Pivot Power Query Power View Power Map Power Bi ايضا لانهتم بالرسوم والمخططات البيانية والتقنيات المتقدمه لها ايضا لانهتم بالمزايا المتقدمه وربط ملفات العمل بالانترنت ....الخ ------------------------------------------------- ارى اننا مازالنا نركز على الصيغ وال VBA ونهمل كل ماهو حديث ولانتطرق اليه ارىد ان لايزعج رايى احدا وخصوصا اننى اعلم انه سيزعج البعض واعتذر اليهم مقدما --------------------------------------------------- وبما اننى حاولت عرض المشكلة عليكم وحان دور مقترحات الحلول وابدا بالاتى -ان ياخذ كل عضوا واساتذة فى مجتمع اوفيسنا موضوعا من الموضوعات الحديثه التى ذكرت بعضا منها ويتناوله فى شكل دروس مكتوبة او مرئية اى كانت الوسيله المهم البداية ثم يطرح لها نقاشات واسئلة وتمارين كنظام ورش العمل - التنوع فى حلول الاسئلة باستخدام المزايا الحديثه وليس التركيز فقط على الصيغ وال VBA وارجو من الجميع وضع رايه ومقترحه ------------------------------------------------------ خاتمة كان هذا تقديم تشخيص لحالة اراها واحلم بان يتغير الى الحاله الافضل حتى لانكون فى مؤخرة العالم بل فى المقدمه وان لانكون مجرد مستخدمين فقط للاكسيل بل محترفين فى الاكسيل واشكركم جميعا لسعة صدركم تقبلوا منى خالص التحية والاحترام اخوكم فى الله محمد الريفى

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله ومع كل جديد في الإكسيل تقع عليه عيني اقوم على الفورم بإفادة إخواني به لنرتقي سوياً أقدم لكم اليوم طريقة نسخ بيانات نطاق محدد من مصنف مغلق ـ والموضوع إلى هنا ليس بجديد ... أم الجديد في الموضوع هو إمكانية نسخ النطاق إلى المصنف المفتوح الحالي بدون فتح المصنف المغلق على الإطلاق .. أي في الأكواد المستخدمة لن تجد كلمة Open ... إليكم الطريقة : قم بعمل مصنف وليكن باسم Sample.xlsx وضع به بعض البيانات في الـ 10 صفوف الأولى وفي الـ 10 أعمدة الأولى (هذا هو النطاق الذي سيتم نسخه إلى المصنف الحالي) ضع الكود التالي في موديول Sub GetDataFromClosedWorkbook() Dim FilePath$, Row&, Column&, Address$ 'Change Constants & Filepath Below To Suit '*************************************** Const FileName$ = "Sample.xlsx" Const SheetName$ = "Sheet1" Const NumRows& = 10 Const NumColumns& = 10 FilePath = ActiveWorkbook.Path & "\" '*************************************** DoEvents Application.ScreenUpdating = False If Dir(FilePath & FileName) = Empty Then MsgBox "The File " & FileName & " Was Not Found", , "File Doesn'T Exist" Exit Sub End If For Row = 1 To NumRows For Column = 1 To NumColumns Address = Cells(Row, Column).Address Cells(Row, Column) = GetData(FilePath, FileName, SheetName, Address) 'Columns.AutoFit Next Column Next Row ActiveWindow.DisplayZeros = False Application.ScreenUpdating = True End Sub Private Function GetData(Path, File, Sheet, Address) Dim Data$ Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Address).Range("A1").Address(, , xlR1C1) GetData = ExecuteExcel4Macro(Data) End Function وإليكم الملف المرفق فيه تطبيق الأكواد ... . أرجو أن ينال الملف إعجابكم وتستفيدوا منه إن شاء الله تعالي ... حمل الملف من هنا تقبلوا وافر تقديري واحترامي

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

للأسف سيكون هناك تضارب في النسخ التي سيتم تنزيلها ..أرى عبد العزيز 2013 وإمبارح أحمد منزل عدد 2 من الروابط واحد 2012 وواحد 2015 إخواني الرجاء من الأخ ياسر العربي الاستقرار على نسخة واحدة وبلغة واحدة وتفضل الإنجليزية ليكون العمل موحد ..يمكن بعدما نصل لمرحلة التمكن أن نجرب نسخ أخرى ولكن في مرحلة التعلم الرجاء الاستقرار على نسخة واحدة فقط

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

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

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

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

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

الحمدلله اليك طريقة اخرى: . . . جعفر

السلام عليكم ورحمة الله وبركاته الأكواد في حدث المصنف WorkBook Option Explicit Private Sub Workbook_Open() 'Test To Ensure Access Is Allowed (For 2002 Onward) If Application.Version > 9 Then Dim VisualBasicProject As Object On Error Resume Next Set VisualBasicProject = ActiveWorkbook.VBProject If Not Err.Number = 0 Then MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook " & vbNewLine & _ " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _ "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _ " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _ " 1. Select Tools - Macro - Security." & vbNewLine & _ " 2. Click The 'Trusted Sources' Tab" & vbNewLine & _ " 3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _ " 4. Save - Then Close And Re-open The Workbook", vbCritical End If End If 'Disable The Esc Key And Start Timer Application.EnableCancelKey = xlDisabled Run "StartTimer" End Sub 'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head 'Of The Code And Run "StartTimer" At The End As Per The Examples Below. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DisableTimer" End Sub أما الموديول: Option Explicit Public IdleTime As Date Private Sub DeleteAllVBA() 'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time 'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal 'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These 'Three Procedures When Finished. '------------------------------------------------------------------------------------ With ThisWorkbook If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then 'In This Case Both Passwords Are Entered Correctly, So 'The Timer And The Rest Of This Procedure Are Redundant Run "DisableTimer" Exit Sub Else If .VBProject.Protection = 0 Then 'Unlocked Run "DisableTimer" 'Use Late Binding So No GUID Reference Is Needed Dim Component As Object 'Delete All VBA For Each Component In .VBProject.VBComponents With Component.CodeModule .DeleteLines 1, .CountOfLines End With Next Component 'Save And Close To 'Fix' The Changes .Save MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)" Workbooks.Open (.FullName) '< Open 2nd Instance Of Saved Book .Close '< Close The 1st Instance Else 'Restart The Timer If The Project's Locked Run "StartTimer" End If End If End With Exit Sub End Sub Private Sub StartTimer() 'This Procedure Interferes With Work In The VBE If Accidentally Set Running, 'So We Disable It So The Developer Can Work There Uninterrupted... If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub '<< Set Your Own Idle Time Below >> IdleTime = Now + TimeValue("00:00:05") Application.OnTime IdleTime, "DeleteAllVBA" End Sub Private Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False End Sub قمت بنسخها ثم بعد إرفاقها جربت الملف وفتحه بكلمة السر ...كل ما ترونه بأعينكم أصبح في خبر كان كل هذه الكمية الهائلة من الأكواد والشروط أصبحت أثراً بعد عين ...بل لم يعد لها أثر ...ماهذا حتى الأثر زال ...عفوك يارب ...أين جثته ..رميمه ...تبخر...زال ...سبحان الذي أبدع العقول أما من سيكتشف ويسبر أغوارها فهم المختصون أمثالكم أيها الكرام والسلام عليكم.

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

السلام عليكم الظاهر ان أخي كرار كان مستعجل لما كتب الكود ، وترك فيه شوية علامات زائدة الكود بعد التصحيح ، طبعا على اعتبار ان حقل الاسم في النموذج هو نص1: "تم حفظ بيانات الطالبة " & [نص1] & " بنجاح" جعفر

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

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

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

الحمد لله الذي بنعمته تتم الصالحات وجزيت خيراً أخي الكريم حراثي بمثل ما دعوت لي ..

و الله جربت الان و نجحت العملية فبارك الله فيك يا استاذي الفاضل ياسر خليل أبو البراء و دمت ذخرا لنا Private Sub CommandButton1_Click() Sheets(1).Activate UserForm1.Hide Range("a1:u87").PrintPreview UserForm1.show End Sub

السّلام عليكم و رحمة الله و بركاته نفس القصّة أخي الغالي " ياسر خليل أبو البراء " بعد 8 ساعات تحميل .. زائد ساعة أبحث عن شقّة داخل جهازي تلم شمل العروس ذات تقريبا ال 4 جيغا .. زائد ساعة و أنا أقوم بالتّصطيب .. لكن صدّقني للمرّة الثالثة و أنا أعيد في قصّة التّصطيب .. لا أعرف لماذا .. التورنت .. فكّرت به أخي الحبيب أبو البراء .. و سبقتك بذلك ..

هل جربت إضافة السطر التالي في نهاية الكود UserForm1.Show .. إذا لم يعمل معك فأرجو إرفاق الملف للعمل عليه والإطلاع عليه بحيث تتضح الصورة

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

اخي الغالي / ابو البراء تحية طيبه لك علي مشاركتك ونقاشك لان هذا هو هدف المنتدي طرح العديد من الرؤي ومناقشتها للوصول للافضل واضافة المزيد من الخبرات انا اتفق معك تماما ان الحلقات التكرارية تسبب بطء الكود في حالة كم البيانات الكبير لكن الكود بوضعه الاول ايضا سيسبب بطء كبير لك ان تتخيل 1000 دالة في الملف تتغير بتغير كل قيمه فالشيت لكن :- مع اضافة السطر الذي اقترحته يكون هو الحل الامثل والاسرع تقبل تحياتي

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

وعليكم السلام أخي ابوحاتم انا عملت لك استعلامين ، وفيك البركة انك تعمل التقرير 1. الاستعلام: qry_Bahar_No_12 ، لا يشمل البحر1 والبحر2 ، 2. الاستعلام: qry_Bahar_12 ، ويشمل البحر1 والبحر2 ، جعفر 333.Current_CostProg6.mdb.zip

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية D4 واسحب نزولا بشيت السجل =IF(C4="";"";VLOOKUP(C4;'اسم المادة والسعر'!$B$2:$C$16;2;0)) واكتب هذه المعادلة بالخلية C26 واسحب نزولا لاسفل بشيت كشف خلاصة العميل =INDEX(السجل!$C$2:$AP$2;0;MATCH($B26;السجل!$C$4:$AN$4;0)+1)

...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then 1 r = 1 LR = Range("E65436").End(xlUp).Row Range("$c$1:$c$" & LR).ClearContents For x = 1 To LR If Cells(x, "E") <> "" Then Cells(x, "C") = r r = r + 1 End If Next End If End Sub اثراءا للموضوع حل اخر باستخدام الاكود دون ادراج دالة في ملف الاكسل ترقيم تلقائي3.rar

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

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

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

ما شاء الله عليك استاذي الجميل جعفر ... نفذت مني اللايكات ...

أخي ياريت تغير اسمك إلى اللغة العربية هذه محاولة بالمعادلات أرجو أن تنال إعجابك k2 mido1.rar

وعليكم السلام 3. انا درايتي بـ SQL قليلة ، لذا دائما استعين بالاستعلام لعمل SQL لي ، هنا ترى كيف حصلت على الكود الاصل ، وسترى في النهاية كيفية إضافة شرط اخر مثلاً الاسم في الجدول الاول = الاسم في الجدول الثاني بالاضافة الى الشرط السابق: . 2. الطريقة الافضل لعمل الكود ، هو معرفة الخطأ الذي يمكن ان ينتج اذا كان في الكود خطأ ، لذا docmd.runsql سيعطيك رسائل انذار ، ورسائل خطأ اذا وُجدت ، ولما كل شئ يكون تمام ، فانت لا تريد المستخدم ان يرى هذه الرسائل ، لذا تطلب من الاكسس عدم إظهار هذه الرسائل: docmd.setwarnings false docmd.runsql docmd.setwarnings true بينما currentdb.execute تُنفذ الامر ، واذا في اخطاء ، فإنك لا تراها ، لذا يجب ان لا تستخدمها إلا بعد التأكد ان الكود يعمل كما يجب وبدون رسائل خطأ 1. الظاهر ان اخي سعيد بارع في SQL ، فاعطاك الحل باستعلام فرعي ، وإضافة شرط جديد معناه إضافة استعلام فرعي آخر ، يعني عندك استعلامك الرئيسي واستعلامين: . جعفر

ان لم يكن هذا مرادك ... فيرجى التوضيح ... test2.rar

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

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

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

حبيبـــــــــــى

كل الشكر والتقدير والامتنان اخى الحبيب تحياتى

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

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

وجرب هذا الكود ايضا CurrentDb.Execute ("DELETE DISTINCTROW leave.* FROM leave INNER JOIN record ON leave.d = record.Date") كلام صحيح ، وهذا ينطبق على الحقل name كذلك ولكن للتخلص من هذه المشكلة ، ضع الحقل بين قوسين مربعين ، بهذه الطريقة يعرف الاكسس انه حقل docmd.runsql "DELETE leave.* FROM leave WHERE d IN (SELECT [date] FROM record)" جعفر

عليكم السلام والرحمة جرب هذا السطر وقم بتغيير الحقل date الى مسمى اخر لأنه من الكلمات المحجوزة في المثال انا غيرته الى ddate DoCmd.RunSQL "DELETE leave.* FROM leave WHERE d IN ( SELECT ddate FROM record)" بالتوفيق

أخى العزيز هل هذا ما تريد اسم المستخدم : حسام كلمة السر : 1964 ملفات مرفقة الشاشة الافتتاحية.rar