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

جرب الكود بهذا الشكل Sub Save_as_pdf() Dim FSO As Object Dim s(1) As String Dim sNewFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") s(0) = "C:\Users\" & Environ("UserName") & "\Desktop\" & ThisWorkbook.Name If FSO.FileExists(ThisWorkbook.FullName) Then '//Change Excel Extension to PDF extension in FilePath s(1) = FSO.GetExtensionName(s(0)) If s(1) <> "" Then s(1) = "." & s(1) sNewFilePath = Replace(s(0), s(1), ".pdf") '//Export to PDF with new File Path ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=sNewFilePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End If Else '//Error: file path not found MsgBox "Error: this workbook may be unsaved. Please save and try again." End If Set FSO = Nothing End Sub

السلام عليكم تجدون في المرفق ان شاء الله الأسماء كلها نصف يدوي كما اقترحت من قبل قد يكون مازال أخطاء بنسبة لن تتجاوز 1% انجاز اخر العام2.rar

بعد إذن أستاذنا سليم حاصبيا وهو مشكور على الحل الجميل مرفق طريقة ثانية لتعم الفائدة. Hide and Filter.rar

تفضل تحياتي progressbar.rar

السلام عليكم هذه محاولة المرفق عبارة عن مجلد به أربع ملفات ثلاثة فرعية وواحد رئيسي يتم التجميع فيه تحياتي 222#1.rar

السلام عليكم سأشرح كيف اني أشير الى مكان وجود الجداول (سواء المضمنة او المرتبطة)، والذي سيكون مجلد الصور سيكون معه في نفس المجلد ، يعني مجلد الصور دائما يجب ان يكون في نفس مجلد قاعدة البيانات التي تحتوي على الجداول (بغض النظر ، سواء أكانت قاعدة البيانات واحدة او مقسمة). نضع هذا الكود في وحدة نمطية: Public Function GetDBPath() As String Dim strFullPath, Table_Name As String Dim rst As DAO.Recordset 'check for a linked table Set rst = CurrentDb.OpenRecordset("SELECT Name FROM msysObjects WHERE Type=6 AND Left([Name],2) Not In ('~t','ms')") If rst.EOF Then 'Table doesn't exist Exit Function Else 'linked Table exists Table_Name = rst(0) End If rst.Close Set rst = Nothing 'now get the path strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs(Table_Name).Connect, 11) GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\")) End Function Public Function BE_or_FE() ' to use: ' BE_or_FE ' 'if BE exits, use its path, 'otherwise use the Application path 'get the BE Path BE_or_FE = GetDBPath If Len(BE_or_FE & "") = 0 Then BE_or_FE = Application.CurrentProject.Path End If End Function Function Images_Location() 'If we want the Backend Folder Images_Location = BE_or_FE & "\archive" 'or we can assign any location we want 'Images_Location = "c:\Temp" & "\archive" End Function وعندما اريد ان اعرف مسار الجداول (بغض النظر في كون الجداول مضمنه او مرتبطة) ، فاناديه هكذا: msgbox BE_or_FE وعندما اريد ان اعرف مسار مجلد الصور ، فاناديه هكذا: msgbox Images_Location وعندما اريد ان اشير الى الصورة التي اشرت اليها انت ، فاناديه هكذا: Images_Location & "\" & txt1 & ".jpg" جعفر

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

أخوتي الكرام اقدم لكم هذا الملف الذي يحتوي علي (User Form) يثقوم بعملية نسخ بيانات من أي صفحة الي أي صفحة مع تعدد المدي يمكن لكم أضافة اكثر من مدي بتعديل الفورم و بطؤيقة سهلة جدا كما يمكن اللصق في أي مكان بالصفحة الفكرة تمت بناء على طلب من احد الاصدقاء أتمني أن ينال أعجابكم أرجو منكم أن لا تنسوا الدعاء لى فأنا في أمس الحاجة لهذا الدعاء أشكركم و أتمني لكم التوفيق و يحفظكم الله من كل مكروة المرفقات ================ Copy and past.rar =============== المشاركة القادمة للمهندسين و شركات المقاولات (Monthly Payments) أوعدكم أن يكون هناك أشياء مميزة فية

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

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

تفضل اخي الكريم =IIf([T1]=5 And [T2]=5 And [T3]=5;"All Records = 5";IIf([T1]>=5 And [T2]>=5 And [T3]>=5;"All Records are greater than 5";"Ali Elmasry")) دا مثال بسيط على التركبات الخاصة بقاعدة IIF ولكن انتبه لعدد الاقواس في نهاية الدالة لابد ان يساوي عدد ال iif الموجود في الدالة الفكرة بسيطة اكتب قاعدةة iif عادي ثم الشرط ثم النتيجة في حالة تحقيق الشرط وبعده ابدأ ب iif مرة اخرى ثم اكتب الشرط ثم اكتب النتيجة في حالة تحقق الشرط الثاني وهكذا حتى نهاية ما تريده في الاخر تكتب االنتيجة المطلوبة اذا لم يتحقق أي من الشروط السابقة AliElmasry.rar

استاذ ياسر جزاك الله خيراً

الله يسعدك أخوي ياسر متابعة جدا رائعة

تم عمل كل شيء و زيادة حبتين يمكنك منع تكرار البيانات و نقل المعلومات الى صفحة ثانية او مسحها fix data.rar

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

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

الأخوة الكرام ما أهدف إليه الآن ليس المسافات فقط بين الأسماء إنما هي عملية تصحيح شاملة إن شاء الله ..كل ما في الأمر أن يتم تغذية ورقة العمل Con بالتصحيح لكل خطأ لاحظوا كيف تمت كتابة الأسماء في المرفق .. وكيف تم التغلب على هذه المشكلة .. منصــــــــــــــــــــــــــــــــور تكتب هكذا .. معظم الأسماء فيها هذه الحركة ..(هل ضايقك الأمر أخي أيمن أم أن هذا الأمر لم يضايقك) Fix Names V3.rar

السلام عليكم سؤالي وفقكم الله هو : اريد حماية البيانات من العبث والتغيير ولا يمكن التغيير الا برقم سري ، وبنفس الوقت تتم عملية البحث والاستدعاء ، إذ قمت بحماية البيانات برقم سري ولكن عملية البحث لا تنفذ ، اريد الحماية وبنفس الوقت تتم عملية البحث وارفق ملف بهذا الخصوص وليكن الرقم السري 123456 - والاسم : مصطفى سلمكم الله مصطفى نت.rar

تمام اشكرك

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

جرب رمز الحماية 123456 مصطفى نت.rar

السلام عليكم أنا أيضا أميل لحل المهندس / طارق محمود تم تعديل الأسماء بالكامل مع الالتزام بالتدقيق اللغوى بمعنى احمد تكتب أحمد ابراهيم تكتب إبراهيم و هكذا... سليم ان شاء الله بنسبة 95 % الأسماء بالكامل بعد التعديل.rar

ا/ خالد عمل رائع جدا و كثيرا ما طلبته بنفس هذا الشكل لكثرة السؤال عن الترحيل و تنوعه و لكن يوجد مشكلة اعتقد انها فى الاوفيس ( 2010 ) علما بان انا عندى اوفيس 2013 فى المنزل error.rar

شكرا أستاذ ياسر الله يجزاك الخير ضبطت تمام

بارك الله فيك أخي الغالي عمرو إليك الملف بتنسيق 2003 الأسماء مقسمة 2003.rar

الأخ الحبيب أيمن اعذرني يبدو أنني نسيت إرفاق ملف التقسيم في المشاركة رقم 14 لقد قمت بتقسيم الأسماء إلى عدة أوراق عمل لكي يتبرع الأعضاء بتناول الأخطاء وتصحيحها كما أسلفت .. بالنسبة لمشاركتك رقم 16 ..طبيعي أن يكون هناك المزيد من الأخطاء ..فأنا قمت بالتعامل مع 300 اسم فقط وما زال هناك الكثير من الأسماء ومن ثم الكثير من الأخطاء .. بنظرة ثاقبة يعتبر وصلنا لحل ولكن يحتاج لمجهود لوضع الأخطاء في عمود وتصحيحها في عمود آخر ، يعني يعتبر الموضوع منتهي من هذه الناحية ولكن لكثرة الأسماء اقترجت أن يتبرع كل عضو بتصحيح ورقة عمل في الملف المرفق ، وقد بدأت حملة التبرع وصححت الأسماء في ورقة العمل 001 نرجو من الأعضاء المساهمة في الموضوع ليكتمل في النهاية بفضل الله ثم بفضلكم تقبلوا تحياتي الأسماء مقسمة.rar

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

أخي الأستاذ ياسر (أبو البراء) ..بارك الله فيك وفي مجهودك الطيب.. رب اغفر لنا وأدخلنا في رحمتك وأنت أرحم الراحمين

جرب الملف التالي ...تم الانتهاء بحمد الله من تصحيح 300 اسم (الورقة التي تبرعت بها) في ربع ساعة تقريباً إليك الملف التالي ..تم وضع الأسماء في العمود A وبالنقر على زر Process سيتم تصحيح الأسماء وفقاً لورقة العمل الشروط والأسماء الصحيحة إن شاء الله في العمود D أتمنى أن تكون قد وصلت الفكرة .. وأعتقد بعد هذا الكم من الأسماء يمكن أن يكون الملف مرجع لتصحيح الأسماء :dance1: Fix Names.rar

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

وعشان نبدأ تنفيذ الفكرة .. أنا قسمت الأسماء لـ 26 شيت .. وإن شاء الله هاخد الشيت رقم 001 ... نشوف مين المتبرع الثاني (العمل هيكون كالآتي ... بصرف النظر عن الأسماء كل المطلوب من الأعضاء المتبرعين إنهم يستخرجوا الأخطاء الموجودة ويصححوها يعني مثلا في العمود الأول هيكتب آية وفي العمو الثاني العمود B هيكتب تصحيح الاسم ايه أو حسب ما سيتم الاتفاق عليه

اهلين اخ محمد أتوقع في الاكسس اسهل بكثير !! والعملية سهلة جدا ساعمل لك رقم 2 و هو نفسه 3 !! رقم 1 تحتوي على حركة دورانية فلاشية ! راح اشوف كيف ممكن عملها تحياتي

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

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

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

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

السلام عليكم ورحمة الله وبركاته.. حمل ملف منسق لمفاتيح الاختصار في Excel 2013 تقبلوا مني أطيب التحيات.. والتقدير. Excel (بي دي أف) مفاتيح الاختصار في.rar Excel (وورد) مفاتيح الاختصار في.rar

وعليكم السلام مافي داعي لإستخدام Dlookup في الاستعلام اللي تطلبه ، فربط الجدولين يحقق المطلوب ولكني وضعت لك الطريقتين: طريقة Dlookup (الاستعلام في اعلى الصورة): 1. سيكون بطيئ اذا عندك آلآف السجلات ، 2. لاحظ حقل الارقام ، فإنه يعامله كنص ، وذلك لأن نتيجة Dlookup لا تعتمد على نوعية الحقل 3. وهذا حقل المدينة حتى ترى الاشارات بطريقة صحيحة: City: DLookUp("[cc]","tab1","[aa]= '" & [aa] & "'") جعفر 48.دالة dlookup.mdb.zip

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

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

السلام عليكم ورحمة الله وبركاته بارك الله فيك وذادك من فضله وعلمه

الأخ الفاضل أشرف .. جرب الملف التالي Copy Rows.rar

السلام عليكم هل هذا المطلوب؟ 1. نعمل استعلام نحسب فيه عدد الوظائف: 2. وهذه نتيجة الاستعلام: 3. والآن للاعداد الافتراضية: يمكنك ان تدخلين هذا الرقم يدويا في الجدول ، ولكني ادخلتهم بالطريقة التي اعتقد بأنها صحيحة ، وهي العدد المطلوب لكل ادارة: 4. نعمل استعلام نحسب فيه عدد الوظائف الافتراضية: 5. وهذه نتيجة استعلام عدد الوظائف الافتراضية: 6. والآن عندنا استعلامين بهما المعلومات التي نريد ، لذا سنربطهما مع بعض ، لنحصل على النتائج: 7. وهذه النتيجة: 8. الآن للنتائج في الاستعلام: 9. والنتيجة: هل هذا المطلوب؟ جعفر 40.tast66.accdb.zip

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

استاذ : بن عليه انت رائع ، واعمالك مثلك

اضفت تنبيه يظهر بعد اكتمال العملية .. وز لتنفذ منه الكود اضفت لك تعليقات فى الكود يمكنك رؤيتها بالضغط على alt + f11 ويمكن تغيير الخلية a1 الى اي خلية بتغييرها فى الكود اولا . فى هذا السطر strFindMe = Worksheets("Sheet1").Range("A1").Value اتمنى ان يكون هذا المطلوب . ان شاء الله تقبل وافر تحياتى واحترامي . prof.rar

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

السلام عليكم الاخت الفاضلة / dayslife بارك الله فيكي ================================ اخي الجميل / احمد عبد الناصر ... تم ارسال ردي دون ان اري ردك وبالفعل استخدمت طريقة جميله جزاك الله خيرا ================================ وبعد اذن اخي الحبيب / ابومحمد اشرف ... جزاه الله خيرا الملف المرفق منكي اختي الكريمة لا يوجد به اي اكواد او ماكروهات فبالتالي لن يعمل معك الازرار او الطريقة الاخري اليكي المرفق به في الشيت الاول طريقة لاضافة رقم 1 عند الضغط دبل كليك في الخليه والشيت الثاني به طريقة الضغط كليك يمين لاضافة 1 شاهدي المرفق واي تعديل ... كلنا معك باذن الله جزاك الله خيرا استمارة الاستبيان 2013-sama.rar

أفضل إصدار من رائي هو ما تستطيع توظيفه لاخراج أفضل عمل والفرق بين الاصدرات على ما أظن هو مجرد تسهيلات فى العمل والله أعلم

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