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

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

جرب هذا الماكرو Sub hide_col() Application.ScreenUpdating = False Range("e1:ai1").EntireColumn.Hidden = True My_Match = Application.Match(Range("c2"), Range("e4:ai4"), 0) + 4 Cells(4, My_Match).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub

ترقيم تلقائي يتجدد مع بداية كل سنة على النحو التالي 1300001 1300002 1300003 1400001 1400002 وهكذا ................. باعتبار الرقم 13 ، 14 هو السنة والترقيم لاشك سيكون تبعا للسنة الحالية Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = Right(DatePart("yyyy", Date), 2) prtTxt = Left(DMax("ID", "tbl1"), 2) xLast = DMax("ID", "tbl1", prtTxt = prtyr) If IsNull(xLast) Then xNext = 1 Else xNext = Val(Mid(xLast, 3, 5)) + 1 End If Me!ID = prtyr & Format(xNext, "00000") End Sub ترقيم تلقائي جديد كل سنة.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

اريد عمل تنسيق باستخدام vba لدي الخلية C2 بها الرقم اما 1 او 2 إذا كان الرقم الموجود 1 اريد تنسيق الخلية كما يلي الخط = times newroman Bold font.size =14 واما اذا كان الرقم 2 فإن الخط يكون Candara والباقي كما هو انا استخدمت التالي ولكن لم يعمل وتظهر رسالة خطأ with Cells(2,3).font .name ="Times New Roman" .Fontstyle="Bold" .size=14 end with

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

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

الأخ الكريم al.djaballah ارجو ان يفى الملف بالمطلوب ورمضان كريم على كل الأخوة بالمنتدى abo_abary_دوائر حمراء.rar

الاخ سليم حاصبيا احسنت اخي سليم حاصبيا

تفضل هل تقصد هكذا؟؟؟ Book1.rar

الحمد لله ان تم المطلوب وكل عام وانتم بخير تقبل تحياتي

اشــكرك شـــكراً جــــزيلاً اخــي الفـــاضل ياســر العـــربي تقـبل تحيــاتي لك من وافـــر التحــية وكل عــام وانتـــم بخـــــير

تفضل اخي 1213123.rar

الاخ أيمن ابراهيم ( ألن تحتاج الي رأس للشيت ايضا ( ال 9 صفوف في اول الورقة ناجح

تفضل test1.rar

اخى الكريم thefarmer السلام عليكم ارجو ان يفى الملف التالى بالغرض abo_abary_date.rar

اخى الكريم thefarmer بعد التحية ارجو ان يفى الملف بالمعادلات بالملطلوب abo_abary.rar

تسلم حبيبي بس واضح انك مشغول جامد بعيد عننا ربنا يعينك ياريس

جرب هذا الشيء sales salim.rar

السلام عليكم ورحمة الله وبركاته اخوانى الاحبه كل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال وجدت موضوع به 101 مثال مفتوح المصدر للفيجوال فاحببت ان اشارككم اياهم لتعم الفائده بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أثناء تصفحي لموقع مايكروسوفت وجدت 101 مثالا مفتوحي المصدر لبرنامج الفاجوال بيزك 2005 طبعا بعد تحميل الملف الذي يضمهم كلها , يكون على شكل ملف Setup حمله واختر المسار أو يمكنك أن تقوم بتحميل كل على حدى .. وتشمل الأمثلة عدة أقسام : Base Class Libraries - Group 1 :download: Changing ACL (Access Control Lists) on files Console Enhancements including buffer control, simple animations and colors Downloading files using FTP (File Transfer Protocol) Network Programming including PING, UDP, and TCP network statistics Using the new Stopwatch class to measure time Compressing and decompressing files in the GZip format Retrieving Drive Information Using Generic Collections Creating Regular Expressions to parse text Base Class Libraries - Group 2 Samples :download: Building a tracing infrastructure to track errors and application performance Controlling cache policies with the new System.Net.Cache namespace Creating a process viewer Creating a Windows service manager Using the data protection API Encrypting and decrypting data Using platform invoke to access legacy or unmanaged code from within managed code Building in support for localization Using the NGEN utility Using the new SecureString class Using new socket class methods Using serial ports with the new Port class Working with the file system Working with threads to manage multiple tasks simultaneously Building a simple web server with HTTPListener Data Access Samples :download: Asynchronous Queries Attaching a database with your application Creating and using User Defined Types with SQL Server 2005 DataReader vs. DataSet comparision DataSet and DataTable Enhancements Performing Batch Updates and Data Paging Performing Bulk Updates Reading and Writing Images from a Database Using Factory Classes Using Managed Stored Procedures and User Defined Functions with SQL Server 2005 Using Multiple Active Result Sets with SQL Server 2005 Using Notifications with SQL Server 2005 Using the XML data type with SQL Server 2005 XPath and XSLT Transformations Enhancements Web Development Samples :download: Using SQLCacheDependency for caching DataBinding using the ObjectDataSource, SqlDataSource, and XmlDataSource objects Create a Master/Details view using the DataGridView and DetailsView controls Basic Master Pages, Nested Master Pages, and Browser-specific Master Pages Using the new membership controls including the LoginStatus, LoginName, LoginView, CreateUserWizard controls Using the Menu and SiteMapPath controls Using Profiles to store user properties Using the Membership and Roles API for custom roles Using the TreeView control dynamically and responding to TreeView events Creating a custom portal using Web Parts Windows Forms Samples :download: Running Asynchronous Tasks Storing Custom Client Settings Creating Master/Detail Forms Playing, Looping, and asynchronously using Sounds Using BindingNavigator for static and dynamic data Using BindingSource for static and dynamic data including objects Extending ClickOnce to programmatically check for updates Customizing the DataGridView control with different column control types Using LayoutPanels Using the MaskedTextBox control for built-in data types and custom data types Controlling a simple rich texteditor using the Menus, StatusStrips and ToolStrips controls Using My for application, computer, settings information and more. Note: This sample is only available for Visual Basic Using the SplitContainer control WebBrowser control basics and using the WebBrowserControl HTMLDocumentModel for Form-to-browser two-way communication. Visual Studio Tools for Office Samples :download: Creating custom menus in Outlook Creating smart tags in documents Creating custom toolbars Data islands and caching Integrating Windows forms into Outlook Using bookmarks in Word Using managed controls in Excel Using VBA and VSTO together Working with charts in Excel Working with contacts and tasks in Outlook Working with InfoPath 2003 Working with named ranges in Excel Working with the In Box Working with XML in Excel Working with XML in Word Using the List object Tablet PC Samples :download: Utilizing the back of pen erase feature Creating a content enabled form Working with drawing attributes Enabling gestures An ink-enabled text box Creating power aware applications Simple text recognition Speech recognition .NET Compact Framework Samples :download: Creating a setup CAB Creating a data-centric application Creating a data-centric application (part 2) Using the date/time picker feature in the month calendar Document list Embedded resources Handling the screen orientation Handling the hardware button screen orientation Help and notifications Registry sample Creating a SQL CE result set Using Microsoft Message Queue (MSMQ) Web browser sample هذا كل ما في المجموعة ولمزيد من المعلومات يمكن زيارة للتحميل اضغط هنا ولزيارة صفحة الامثله https://msdn.microsoft.com/en-us/vstudio/aa718334.aspx منقول للامانه من الفريق العربى للبرمجه تقبلوا تحياتى العطره بذكر الله اخوكم احمد

هناك كود في حذث الصفحة Private Sub Worksheet_Activate() Cells.EntireRow.Hidden = False End Sub يجب ان توفقه غن العمل وذلك باضافة فاصلة بأوله او ان تحذفه

من أسرار الصيام هذه قصة قصيرة يرويها طبيب عراقي، اسمه أحمد الحميّري، تتعلق ببعض أسرار الصيام، قام بتدوينها تعقيباً على درس التفسير، الذي نزل أخيراً في قناة إسلام نون على اليوتيوب، والمتعلق بتفسير آيات الصيام:في أواخر آذار من العام 2008م، وقبل التحاقي كطالب للدكتوراه في جامعة طوكيو للطب وطب الاسنان، تلقيت دعوة من الجامعة لحضور حفل تخرج للطلاب الأجانب والذي سيقام في أحد فنادق العاصمة طوكيو القريبة من الجامعة. وقد ألح علي صديقي الهندي أنوب كومارAnoop Kumar) ) للحضور الى الحفل بصحبة زوجتي وابني، من باب الترويح عن النفس وتغيير الأجواء. وقد استجبت لإلحاح صديقي علي الرغم من معرفتي به كونه غير لحوح، وفي العادة لايحبّ حضور مثل هذه المناسبات!بعد وصولي إلى الحفل وجدت صديقي الهندي وقد بدى عليه القلق وهو يبادرني بالسؤال عن سبب تأخري، فأبلغته أسفي ووضحت له بأني قد غيّرت سكني حديثاً وقمت بصعود القطار الخطأ وإضطراري للأنتظار 20 دقيقة لوصول القطار التالي!بعدها غادرني صديقي الهندي مهرولاً بعد أن طلب مني عدم التحرك من مكاني. وإذا به يعود بعد قليل ليسألني اذا كان بأمكاني التحدث الى أستاذه (البروفيسور ميزوشيما) وعلى الفور أبلغتهُ بسعادتي وإستغرابي بنفس الوقت. وبعد دقائق عاد وبصحبته البروفيسور، والذي بادر بالسؤال عني وعن عائلتي. وبعد السلام والتحيّة أبلغني البروفيسور أنه عرف عن طريق صديقي الهندي، لما سأله عن أصدقائه في الجامعة، بأني من العراق. وسألني البروفيسور إن كنت مسلماً؟ فأجبته بنعم! وأتبعه بسؤال ثان عما إذا كنت أقوم بصيام شهر رمضان؟ وأجبته بنعم!! وسؤالهُ الأخير كان: "لماذا تصوم رمضان، وهل تعرف هناك أي فائدة من الصيام؟". وكان جوابي إن الصيام من الجانب الديني هو للإحساس بمعاناة الفقراء ولتهذيب النفس بتجنب الشهوات، وأما من الجانب الصحي فهناك قول منقول عن النبي محمد صلى الله عليه وسلم: "صوموا تَصِحّوا". وهنا استوقفني البروفيسور سائلا: "كيف؟ كيف تصبحون بصحة جيدة؟"، فأجبته: "لا أعرف!"، فأبتسم البروفيسور وقال مستغرباً: "كيف تكونون بهذا العدد وتقومون بالصيام وأنتم لاتعرفون لماذا هو مفيد للصحة!!!". وبعدها اعتذر البروفيسور عن مواصلة الحديث لأنشغاله بأعمال في الجامعة، ومتمنياً لي ولأسرتي طيب الأقامة في بلده.ذهب صديقي الهندي ليودّع أستاذه وعاد إليّ مهرولاً فوددت منه أن يبلغني ماهو المغزى من تلك المقابلة؟! فأجابني مندهشاً: "ألا تعرف من هو البروفيسور ميزوشيما؟! وماهو تخصصه؟!"، فقلت له "قطعاً لا أعرف!!!" .... فصعقني صديقي حين أخبرني بأنّ هذا البروفيسور هو واحد من أربعة في العالم؛ اثنان من أمريكا واثنان من اليابان، يعملون في مجال الإلتهام الذاتي للخلية (Autophagy) وإذا بصديقي يسأل: كيف لي أن لا أعرف عن هذا الموضوع وعلاقته بالصيام؟! وأرشدني بالبحث والأستقصاء عن الـ(Autophagy) على أن نلتقي بعد عطلة نهاية الأسبوع.قمت بالبحث مستفيداً من حسابي الجامعي الذي يسمح لي بتصفح وتحميل معظم الأبحاث المنشورة ولم أكمل صفحتين من أحد مراجعات البروفيسور ميزوشيما حتى عرفت علاقة الـ (Autophagy) بالصيام.فالـ(Autophagy) يتحفز عن طريق الجوع (عن الغذاء والماء) ولمدة لاتقل عن 8 ساعات، وذلك بشرط ان يكون الجسم في حالة نشاط (مو نايم الى أن يضرب الطوب) وعند التحفيز يقوم الجسم بتحديد الخلايا المريضة (سرطانية او غيرها) لكي تقوم بتحليل ذاتي لنفسها فيتم التخلص من تلك الخلايا وفي نفس الوقت توفير الغذاء للخلايا السليمة في الجسم!! ولتحقيق أقصى فعل من هذه العملية يجب أن تكون متكررة (تراكميّة) أي بمعنى أدق مستمرة لفتره من الزمن، وأيضاً أن لا يتخللها عملية إعادة بناء أو تدعيم للخلايا المريضة عن طريق الإفراط في الطعام الذي يحتوي على الدهون والسكريات!بعد انقضاء عطلة نهاية الأسبوع التقيت بصديقي وأخبرته بماحصل، واذا به يعطيني الضربة القاضية عندما أخبرني بأنّ أستاذهُ يصوم شهر رمضان وكذلك يومين إلى ثلاثة أيام في الأسبوع!! فأبلغته بأنْ يوصل رسالة الى أستاذه مفادها أنّ النبي محمد صلى الله عليه وسلم كان يصوم يومي الأثنين والخميس من كل إسبوع!.وهذه قائمة بسيطة عن كم الأبحاث المنشورة في مجلات علمية، عالمية، رصينة كالـ Science و Cell و Nature وPNAS وNEJM توضح أهميّة وعلاقة الـ(Autophagy) بكثير من الأمراض وعلى رأسها السرطان وبعمليات الأيض والشيخوخة وغيرها:Nutrient starvation elicits an acute autophagic response الشيخ بسام جرار https://www.facebook.com/الشيخ-بسام-جرار-209764045712475/?ref=ts&fref=ts

تفضل اخي الكريم طاهر مشتريات - جديد2 - Copy.rar

يمكن وعلى نحو ما تفضلت به ولكننا نحتاج الى بعض التعديلات التعديل الاول على نوع الحقل id داخل الجدول الى نص بدلا من رقم حتى يقبل الرموز التعديل الثاني : هو اجراء المقارنة على الارقام الثلاثة الاخيرة بدلا من مقارنة الرقم كاملا والسبب وجود الرمز الفاصل وتعديلات اخرى يمكنك ملاحظتها عند المقارنة مع الكود السابق Private Sub Form_BeforeInsert(Cancel As Integer) On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = DatePart("yyyy", Date) prtTxt = CLng(Left(DMax("ID", "tbl1"), 4)) xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 3)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = prtyr & "/" & Format(xNext, "000") End Sub ترقيم مع السنة.rar

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

اخي اليك مرفق من اعمال اساتذة المنتدى ، ومن مقتنياتي لأعمالهم الذهبية .. احاول رفع المرفق ،، ولكن يوجد عطل يعيق الرفع Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo t_time If Target.Column = 1 Then Cells(Target.Row, 3) = Now t_time: Application.EnableEvents = True Application.ScreenUpdating = False End Sub تعذر ارفاق الملف .. فأرسلتلك الكود عسى ان يفيدك .. دعواتك .. ربنا يهدي الحال auto date.rar auto date.rar