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

جرب الكود بهذا الشكل 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

السلام عليكم ورحمة الله وبركاته بعد إذن الاستاذ الفاضل : عبدالرحمن هاشم تفضل المرفق التالي سوف تجد ما طلبت ان شاء الله رسالة وجوب تحديد السجل.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

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

تم التعديل حسب الحاجة كلما اضفت اسماً غي مكرر يضاف الى اللائحة hide_colums 1.rar

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

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

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

هل تقصد هكذا أخي الكريم Classeur11.rar

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

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

تفضل هذا برنامج صغير للمخازن من اعداد احد اساتذتنا الفضلاء SmallStore.rar

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

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

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