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

نظرا لكبر حجم الملف فقد وضعت لك ملفاً مشابهاً يمكنك اقتياس المعادلة منه (المعادلة هي معادلة صفيف اي يلزمها Ctrl_Shift+Enter و ليس Enter وحدها) اللوحات المكررة salim.xlsx

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

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

تفضل عملت مثالا بسيطا لنقل الاسم داخل متصفح قوقل Write In google.rar

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

إخوتي الأحبة الملف المرفق به عدة صفحات لخيارات مختلفة لمعالجة النصوص في إكسل قمت بسحبة من هذا المندى الرائع .. كان قد رفعه أحد الأخوة في المنتدى لا أذكر من هو ( وفقه الله ... كائنا من كان ) ووفقكم الله أردت رفعه لتعم الفائدة لكم حبي معالجة النصوص.xls

السلام عليكم ورحمة الله استخدم هذا الكود Sub AddRows() Dim x As Integer, i As Integer Application.ScreenUpdating = False x = Sheets("ورقة1").Range("D7") - 2 For i = 1 To x Sheets("ورقة1").Range("A13").EntireRow.Insert Next Application.ScreenUpdating = True End Sub

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم أحبتي في الله اليوم هديتي لإدارة ومشرفي وأعضاء وزوار منتدانا الرائع هدية كبيرة الحجم قليلا (فأنا معروف بسلسلة ما خف وزنه وغلا ثمنه "الماس" ) برنامج أوفيس 365 وهو تحديث أوفيس 2016 بأحدث إصدار 16.0.8431.2110 بصيغة img وهي مثل iso تحميل مباشر من موقع ميكروسوفت (يعني أصلية ومش ملعوب فيها) ويوجد روابط اللغتين اللغة العربية O365ProPlusRetail_ar.img واللغة الإنجليزية O365ProPlusRetail_en.img حجم الاسطوانة الوهمية img حوالي 2.5 جيجابايت والآن مع روابط التحميل اللغة الإنجليزية http://swiftation.com/9612849/mso365en2018 اللغة العربية http://swiftation.com/9612849/mso365ar2018 وفي الأخير لو بخل بهذه المعلومة غيرك ما وصلت إليك فلا تبخل على غيرك بما عرفت وشارك هذه الصفحة قدر استطاعتك فلا خير في كاتم علم ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة

طبعا طبعا استاذى الجليل ومعلمى القدير استاذ @أبو آدم الاصل فى بداية افكارى من هذا الموضوع قد طرح- قبل فترة فى المنتدى لاستاذى الجليل ومعلمى القدير الاستاذ جعفر اسأل الله تعالى ان يجمعنا به على خير ويرده الينا سالما غانما ان شاء الله ولاننى هاوى وغير محترف وقعت وتعثرت فى الاتى 1- عند محاولة وضع الصور داخل القاعدة تكبر القاعدة جدا حتى بحجم اكبر من الصورة ( مشكلة كبيرة ) 2-عند استخدام الصور بجانب القاعدة وتمرر للكائنات من خلال الرابط فتكون مرتبطة بالقاعدة وليست مضمنة قد تمحى الصور بالخطأ او قد تنقل القاعدة الى جهاز اخر دون الصور ( مشكلة كبيرة) 3-عند محاولة استخدام خطوط خاصة او مكتبات خارجية تحدث مشاكل عند فقدانهم من مسارهم بالحذف ( مشكلة كبيرة ) 4-تحزيم قاعدة البيانات كان الحل الامثل ولكن وجدت الشروحات تعتمد على برامج خارجية واجهت معها بعض المشاكل او قد يكون سوء فهم منى وقلة حيلة خطر فى بالى حمل الملفات الهامة بطريقة استاذى الجليل @jjafferr كما اشار فى موضوعه سالف الذكر الا اننى قمت ببعض التعديلات الطفيفة جدا والتى تناسب الية العمل التى فكرت بها ووقفت عند مشكلة افراد الملفات دفعة واحدة عند فتح البرنامج فى مسارات محددة سلفا تبعا للتصميم دون ادنى تدخل من المستخدم وتعثرت اكثر فى الكود الخاص باللوب موضع سؤالى فى الموضوع والذى تفضلتم انتم بعد رب العزة سبحانه وتعالى بحل المشكلة وبناء عليه استكلمت افكارى كما فى المرفق

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

جرب المرفق تنقيط تلاميذ Salim .xlsm

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

السلام عليكم .. استاذ سيد تفضل لعل يكون هذا مطلبك حدد رابط حفظ المرفقات فى مربع نص المسمى pate ثم اضغط على زر ادراج مرفقات من الكمبيوتر (خلفية الزر هتلقيها شاشة كمبيوتر) واختار المرفقات التى تريد ارفقها (يمكنك اختيار اكثر من مرفق وسوف يتم ادراجهم) وشوف كيف يتم الادراج ملحوظة كل الاكواد هى من عمل المبدع الاستاذ جعفر بارك الله فيه MS.12345.rarMS.12345.rar

وعليكم السلام أخى مرحبا بك فى منتدانا الكريم لو إفترضنا ان الرقم المستخدم فى المعادلة موجود فى الخلية B1 فالمعادلة كالتالى : IF((B1*28/100)>100,100,(B1*28/100))= بارك الله فيك

ممكن تجرب هذا Book1.xlsx

شكرا ابوزاهر الله يعينك المطلوب يتم الجمع في الفورم الاجمالي، الاجمالي بعد الخصم، ومبلغ الدين وإذا أمكن تكون البيانات في الجداول

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

ولإثراء الموضوع جرب هذا خطابات الضمان 2018.xls

جرب هذا الملف الكود Option Explicit Sub copy_data() Dim i%, My_Str$: My_Str$ = "OK" Dim My_SH As Worksheet Dim Source_Sh As Worksheet: Set Source_Sh = Sheets("الاجمالى") Dim lr As Long: lr = Source_Sh.Cells(Rows.Count, 2).End(3).Row If lr < 6 Then lr = 6 Dim lr2 As Long For i = 6 To lr If Source_Sh.Cells(i, "GR") <> My_Str Then Set My_SH = Sheets(Source_Sh.Cells(i, 2) & "") lr2 = My_SH.Cells(Rows.Count, 2).End(3).Row + 1 My_SH.Cells(lr2, 2).Resize(1, 19).Value = Source_Sh.Cells(i, 2).Resize(1, 19).Value Source_Sh.Cells(i, "GR") = My_Str End If Next End Sub الملف مرفق خطابات Salim.xls

سوف أجرب المرفق و أخبركم

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

مرفق فى نموذج بدرج اكتر من صوره يمكن يفيدك تحياتي ادخال اكتر من صوره.rar

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

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

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

جرب أخى بعد عمل التنسيق المطلوب التقويم الهجري3.rar

تم معالجة الامر و ذلك باستبدال الرقم 5 بالرقم 6 في هذا السطر last_col = Cells(6, Columns.Count).End(1).Column ريما ينال اعجابك هذا الملف ايضاً Date_without_days_by_colums_and_month2.xlsm

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

يزيدك عافية اخي الكريم بما انه اصبح لدينا استعلام يقوم باستخراج النتيجة بشكل صحيح فيمكننا استخدامه في اي تقرير سواء كان تقرير كروكي او غيره استخدم: =DLookUp("[Result]","[Qry]","chair_No=1") مع تغيير رقم الكرسي بحسب مكانه في التقرير :: تحياتي

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

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى sql برمجيا حيث سنقوم بانشاء قاعدة البيانات على السيرفر و تصدير الجداول لها باستخدام SQL scripts ملاحظة هامة : العمل سيتم على SQL 2005 وما فوق بعد البحث و التجريب وصلت الى كود يقوم بانشاء قاعدة بيانات SQL وتصدير كافة الجداول لها Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String Dim TableName As String Dim Tdf As TableDef ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=HP-PC\SQLEXPRESS" Str_Data = "Create database DB1" Str_Use = "Use DB1" ConData.Execute (Str_Data) ConData.Execute (Str_Use) For Each Tdf In CurrentDb.TableDefs If Left(Tdf.Name, 4) <> "MSys" Then If Len(Tdf.Connect) = 0 Then DoCmd.TransferDatabase acExport, "ODBC Database", "ODBC;Driver={SQL Server};Server=HP-PC\SQLEXPRESS" & _ ";Database=DB1" & ";Trusted_Connection=Yes", acTable, Tdf.Name, Tdf.Name End If End If Next الكود السابق يقوم بانشاء قاعدة بيانات باسم DB1 ويصدر كافة الجداول لها عظيم جدا و تمام التمام لكن هناك مشكلة صغيرة جدا المفاتيح الاساسية و الفهارس و العلاقات لم يتم تصديرها !!!!!! وبالتالي لن تعمل قاعدة البيانات ابدا بحثت كثيرا و حاولت تعديل الكود السابق و لكن دون جدوى لذلك كان لا بد من البحث عن طريقة اخرى لنصل للمطلوب و الطريقة هي انشاء الجداول و المفاتيح و الفهارس و العلاقات عن طريق اكواد SQL او ما يسمى SQL scripts , سيتسائل البعض كيف ذلك ؟؟ البداية : عند الانتهاء من تصميم قاعدة البيانات سنستخدم معالج التكبير لمرة واحدة فقط من اجل الحصول على الكود او ملف SQL scripts وبعد ذلك سنضيف الكود الى ملف ونستخدم ذلك الملف متى اردنا نفتح قاعدة البيانات التي نرغب بتحويلها و نضغط على ادوات قاعدة البيانات ثم نختار (خادم SQL) 1- انشاء قاعدة بيانات جديدة ( في هذا المثال اسم قاعدة البيانات test SQL 1 ) 2- نحدد اسم السيرفر و اسم قاعدة البيانات المطلوبة ( الاتصال موثوق ) ( التالي ) 3- نحدد كافة الجداول ( التالي ) 4- نحدد ( فهارس - قواعد التحقق من الصحة - افتراضيات - علاقات الجداول ) و نستخدم (مشغلات عوضا عن DRI) ( التالي ) 5- نحدد (عدم اجراء اية تغييرات للتطبيق) (انهاء) سيبدا المعالج بترحيل كافة الجداول الى السيرفر بعد الانتهاء نغلق برنامج الاكسس و نذهب الى برنامج SQL Server Management Studio (ملاحظة هذا البرنامج لادارة قواعد البيانات و يختلف عن برنامج SQL server ) نحدد السيرفر ونختار نوع المصادقة (حسابات ويندوز) ثم اتصال سيفتح البرنامج نختار Databases ثم نحدد قاعدة البيانات المطلوبة نضغط بالزر الايمن للفارة و نختار من القائمة Tasks ثم Generate Scripts تظهر نافذة جديدة نختار منها التالي ونحدد قاعدة البيانات Test SQL 1 ثم التالي تعدل الخيارات التالية: include if not exists = false script defaults = false scripts extended properties = false scripts owner = false scripts full-text indexes = true scripts indexes = true ثم التالي نحدد (tables) ثم التالي نحدد كافة الجداول ثم انهاء و نضغط انهاء مرة اخرى سيظهر لنا السكريبت الخاص بانشاء الجداول و المفاتيح و الفهارس و العلاقات ننسخ الكود بشكل كامل و نحفظه ضمن ملف نصي نسميه مثلا (Test1) نعود الى صديقنا الاكسس ننشئ نموذجا جديدا ونضع فيه حقلي نص باسم (tservername - tdatabasename) وزر امر نكتب الكود التالي في زر الامر Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String ' فتح الاتصال مع السيرفر ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.tservername ' انشاء قاعدة البيانات Str_Data = "Create database " & Me.TDataBaseName Str_Use = "Use " & Me.TDataBaseName ConData.Execute (Str_Data) ConData.Execute (Str_Use) MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbCrLf & "جاري تصدير الجداول", vbInformation + vbMsgBoxRight ' تنفيذ السكريبت ضمن قاعدة البيانات لانشاء الجداول و الفهارس و العلاقات Shell "sqlcmd.exe -S " & Me.tservername & " -d " & Me.TDataBaseName & " -i " & CurrentProject.Path & "\test1.txt", 0 MsgBox "تم انشاء الجداول بنجاح", vbInformation ' اغلاق الاتصال ConData.Close طبعا الملف test1.txt يجب ان يكون في نفس مسار قاعدة البيانات المرفق يختلف قليلا عن الشرح فهو يساعدك في اختيار السيرفر تلقائيا اعتذر على الاطالة في الشرح رابط البرنامج مع فيديو للشرح http://www.mediafire.com/file/x14w1p4qbqewd4k/SQL1.rar بانتظار التجريب و النتائج منكم اصدقائي SQL1.rar

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

الأخ والمعلم المبدع / أبو آدم هذا العمل به مجهود ضخم , وفى رأى الشخصى يحتاج لبعض الشروحات للإ ستخدام لأنه بالفعل يحاكى برنامج الأوفيس الشهير"Outlook Express" ولكنه أبسط فى تعامل الأفراد أكثر من برنامج الأوفيس , فلك كل التقدير على هذه الإضافة المبدعةوالتحدى الرائع والمثمر والذى يجعلنا جميعآ نتفكر كثيرآ فى بانوراما الأوفيس وكيف يصمم ويفكر المبرمجون الغرب بحيث لايقف المبرمج العربى مجرد مستهلكآ لتلك السلع البرمجية !!!! فقد آن الأوان لأن نثور ونتمرد على هذه التركة الموروثة من سلوكياتنا الخاطئة . وأخيرآ تقبل منى تهنئتى الحارة يا أخى المعلم والثائر . مع فائق تقديرنا وخالص عرفاننا جميعآ ,

الاخوة الكرام اعذروني لقد اطلت عليكم و هذا الجزء الثالث من خصائص صندوق الادوات

شرح جميل ووافى زادك الله علما ونورا ولى سؤال ما الفرق بين sheets 1 - sheets2-sheets3 وبين this workbook

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

جزاكم الله خيرا واعانكم ولدي سؤال حول الملف الذي ارفقه الاخ العزيز ابو عبدالله في الكود الاول فقرة ThemeColor = xlThemeColorAccent6 وفي الكود الثاني فقرة التلوين كانت Color = 65535 فما الفرق بينهما وكيف يتم التمييز ومعرفة ان الكود يحتوي على خاصية المراجع المرتبطة - ريلتيف - عند قراءة الكود ولكم جزيل الشكر والتقدير

بسم الله الرحمن الرحيم الدرس الثالث : إضافة توقيع رقمي للماكرو و إضافة زر لتشغيل الماكرو من شريط الوصول السريع Quick Access Toolbar في المرفقات يوجد ملفان، كل ملف يتناول موضوع على حدة أعتذر عن التأخر في طرح الموضوع فيديو عن كيفية تنفيذ الماكرو بالتوفيق للجميع الدرس الثالث - دورة الفيجول بيسك في الإكسل.rar

إخواني الأعزاء أحببت أن أضيف معلومة رأيت أنه هامة ومرتبطة بموضوع تسجيل الماكرو وقمت بشرحها فيديو ، وأرجو أن تلتمسوا لي العذر في الإطالة بعض الشيئ والغير متعمدة بكل تأكيد ولكنها نتيجة أول تجربة لي مع فكرة التسجيل بالصوت والصورة ، وإن شاء الله سأعمل على تحسين الأداء في المرات القادمة ، في انتظار مقترحاتكم واستفساراتكم بكل سرور . مرفق نفس الملف الذي تم العمل عليه بالشرح لتوضيح الفكرة وأرجو الاطلاع على الكودين الموجودين بالملف وتحديد الخلاف بينهما ومناقشة ذلك لتوضيح الفكرة . تحياتي http://youtu.be/peiRPK0lEwI المراجع الثابتة والمراجع المطلقة في تسجيل الماكرو.rar

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

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