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

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

السلام عليكم ورحمة الله وبركاتة استخراج رقم الربع السنوى من تاريخ باستخدام ((معادلات)) الاكسيل لاتنسونا بصالح دعاؤكم المعادلات المستخدمه =CEILING(MONTH(A2)/3;1) =VLOOKUP(MONTH(A2);{1,1;2,1;3,1;4,2;5,2;6,2;7,3;8,3;9,3;10,4;11,4;12,4};2;0) =LOOKUP(MONTH(A2);{1;4;7;10};{1;2;3;4}) =ROUNDUP(MONTH(A2)/3;0) =CHOOSE(MONTH(A2);1;1;1;2;2;2;3;3;3;4;4;4) QUR.rar

طبعا ممكن اجعل كود استدعاء الفورم كالاتى Sub النتائج() Dim x As Variant x = InputBox("أدخل كلمة المرور لفتح الفورم") If x = "" Then Exit Sub If x = "123" Then UserForm1.Show Else MsgBox ("كلمة المرور غير صحيحة") End If End Sub

أخى سعيد أخى ياسر هذا كود آخر بالحلقات التكرارية صحيح أنها تكون بطيئة قليلا فى البيانات الكبيرة ولكن وضعتها لاثراء الموضوع Sub ragab() Dim cl As Range, cll As Range Dim LR1 As Integer, LR2 As Integer Dim sh1 As Worksheet, sh2 As Worksheet '======================================== Set sh1 = Sheet1: Set sh2 = Sheet2 LR1 = sh1.Range("A10000").End(xlUp).Row LR2 = sh2.Range("A10000").End(xlUp).Row sh1.Range("E8:E" & LR1).ClearContents '======================================== For Each cll In sh2.Range("C8:C" & LR1) For Each cl In sh1.Range("B8:B" & LR1) If cll = cl Then cl.Offset(0, 3) = cll.Offset(0, 6) End If Next Next End Sub

أخي الكريم سعيد جرب الكود التالي Sub TransferMatchingItems() Dim Ws As Worksheet, Sh As Worksheet, Cel As Range, Found Set Ws = Sheet2: Set Sh = Sheet1 Application.ScreenUpdating = False With Sh For Each Cel In .Range("B8:B" & .Cells(Rows.Count, "B").End(xlUp).Row) Set Found = Ws.Range("C:C").Find(What:=Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Found Is Nothing And Not IsEmpty(Cel.Value) Then Cel.Offset(, 3).Value = Found.Offset(, 6).Value End If Next Cel End With Application.ScreenUpdating = True End Sub تقبل تحياتي

جزيت خيراً حاول كما أخبرتك أن تدعم شروحاتك بملفات ليستفيد منها الجميع تقبل الله منا ومنكم صالح الأعمال وإليك فيديو يقوم بالأمر

أخي الكريم أحمد خبرتي ضعيفة في هذا الخصوص نظراً لأنني لم أقم بمشاركة مصنف من قبل .. جرب الكود التالي وهو أحد روائع أخونا الغائب عن العين الحاضر في القلب أبو تراب غفر الله لي وله Sub SharedFile() With ActiveWorkbook Application.DisplayAlerts = False .ExclusiveAccess Application.DisplayAlerts = True ActiveSheet.Unprotect 1 'ضع أكوادك ها هنا ActiveSheet.Protect 1 Application.DisplayAlerts = False .KeepChangeHistory = True .SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared Application.DisplayAlerts = True End With End Sub إن شاء الله يحل المشكلة بالنسبة للمصنف المشترك .. تقبل تحياتي

تفضل جعفر 250توزيع استعلام جدولي2003.zip

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

الصورة تشير إلى أن المتغير غير معرف أي لم يتم تعريفه في بداية الكود ضع اسم المتغير بعد كلمة Dim ثم كلمة As ثم نوع المتغير أي بهذا الشكل Dim Sh as long طالما أنك ستقوم بعد الخلايا التي تحتوي نصوص إذاً فالعدد صحيح فيمكن الإعلان عنه من النوع Interger أو النوع Long ..

أخى الحبيب ياسر قمت بتحديد الخلايا من A3 الى A29 مرة واحدة ثم وضعت المعادلة فى شريط الصيغة ثم ضغط ctrl + enter

هل يوجد أسماء دوائر لا توجد لا هنا ولا هنا ..لا في دائرة البنين ولا في دائرة البنات ؟؟ حيث أنني أقوم ببعض المحاولات ولكن عدد النتائج لكلا التقريرين يساوي 178 فقط ..بينما الدوائر في الورقة الأولى تساوي 270 وعدد الدوائر الموجودة في كلا الورقتين بنين وبنات يساوي 203 .. تقبل تحياتي

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

جرب هذا الملف تاريخ تلقائي SALIM.rar

أخى حمادة جرب المرفق ترحيل بيانات1.rar

هذا يعني أنك تحتاج لتقريرين وليس لتقرير واحد ..تقرير للبنين وآخر للبنات ...؟؟

المهندس الفاضل / محمد طاهر ما زالت المشكلة موجودة

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

وعليكم السلام انا عملت 1-5 ، ولم افهم الطلب 6 ، واعتقد بأنك تستطيع ان تعمله على المرفق ان شاء الله انا قمت بتغيير التواريخ قليلا ، حتى ارى الفرق اساس العمل كله هو هذا الاستعلام . لاحظ التاريخ الذي ساجربه اولا . العمل كله يتم عن طريق هذا النموذج . هذه نتيجة بيانات النموذج . فيكون الرسم البياني ، والذي اساسه الاستعلام اعلاه . بينما اذا غيرنا بيانات النموذج . فالنتيجة . . والان سأشرح لك طريقتي في عمل الرسومات البيانية . الخطوات التالية ، كله اضغط على Next .. Next .. واخيرا Finish ، وبدون ان اهتم بالتفاصيل . والنتيجة . عندها ابدأ العمل الفعلي ، وهو بتغيير Row Source . واخترت الاستعلام اللي عملته في البداية . والنتيجة . واذا اردت ان اغير في الحقول ، اضغط على الزر اللي في الدائرة الحمراء ، والدخول الى الاستعلام ، وتغيير الحقول كما اشاء واذا اردت تغييرات اخرى ، انقر مرتين على الرسم البياني جعفر 251.Database3.accdb.zip

أخى حماده عندما يتم الترحيل الى صفحة D يتم ذلك فى السطر السابع ( تمام كدا ) وفى الترحيل التالى سوف يتم فى السطر الثامن وهكذا الى أن نصل الى السطر 15 ولكن عند الترحيل بعد ذلك ( أين يتم الترحيل ) علما بأن السطر 16 به معادلات كما تقول أرجو التوضيح

تفضل أخى علما بان اسم المستخدم ragab وكلمة المرور 123 ويمكنك تغيرهما من الخلايا A1 و A2 من الصفحة الأولى Book1.rar تفضل أخى علما بان اسم المستخدم ragab وكلمة المرور 123 ويمكنك تغيرهما من الخلايا A1 و A2 من الصفحة الأولى Book1.rar

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

السلام عليكم تم عمل بعض التعديلات على السيرفر برجاء الافادة اذا ما زالت المشكلة مستمرة

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

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

أخي الحبيب رجب جاويش وأخي الغالي مختار بارك الله فيكما وجزاكما الله خيرأً إليكم هذا الحل إثراءً للموضوع ..الحل معقد بعض الشيء لكنه يلبي الغرض من ناحية إظهار كلمة السر على شكل نجوم أولاً يتم إدراج موديول من النوع Class باسم PwdInputBox ويوضع فيه الكود التالي Function PassInputBox(Prompt As String, Optional PasswordChar As String, Optional Title As String, Optional Default As String, Optional XPos As Long, Optional YPos As Long) Dim UF Dim VUF As Object Dim Lb As Object Dim Tb As Object Dim BOk As Object Dim BCancel As Object Dim VBAVisible As Boolean Dim I As Integer If Len(Title) = 0 Then Title = Application.Name VBAVisible = Application.VBE.MainWindow.Visible Application.VBE.MainWindow.Visible = False Set UF = ThisWorkbook.VBProject.VBComponents.Add(3) Set Tb = UF.Designer.Controls.Add("Forms.Textbox.1", "TextBox1") With Tb .PasswordChar = PasswordChar .Left = 4.5 .Top = 69.75 .Width = 254.25 .Height = 15.75 .Value = Default End With Set Lb = UF.Designer.Controls.Add("Forms.Label.1") With Lb .Caption = Prompt .WordWrap = True .Left = 6.75 .Top = 6.75 .Width = 198 .Height = 54 End With Set BOk = UF.Designer.Controls.Add("Forms.CommandButton.1", "BOk") With BOk .Caption = "OK" .Left = 209.25 .Top = 4.5 .Width = 49.5 .Height = 18 .Default = True End With Set BCancel = UF.Designer.Controls.Add("Forms.CommandButton.1", "BCancel") With BCancel .Caption = "Cancel" .Cancel = True .Left = 209.25 .Top = 27 .Width = 49.5 .Height = 18 End With With UF.CodeModule I = .CountOfLines .InsertLines I + 0, "Public MyText as Variant" .InsertLines I + 1, "Private Sub BCancel_Click()" .InsertLines I + 2, " MyText = False: Me.Hide" .InsertLines I + 3, "End Sub" .InsertLines I + 4, "Private Sub BOk_Click()" .InsertLines I + 5, " MyText = TextBox1.Value: Me.Hide" .InsertLines I + 6, "End Sub" .InsertLines I + 7, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)" .InsertLines I + 8, " If CloseMode = 0 Then Cancel = True: MyText = False: Me.Hide" .InsertLines I + 9, "End Sub" End With With UF .Properties("Caption") = Title .Properties("Width") = 273 .Properties("Height") = 108.75 If XPos > 0 Or YPos > 0 Then .Properties("StartUpPosition") = 0 .Properties("Left") = XPos .Properties("Top") = YPos Else .Properties("StartUpPosition") = 1 End If End With Set VUF = VBA.UserForms.Add(UF.Name) VUF.Show PassInputBox = VUF.MyText ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=UF Application.VBE.MainWindow.Visible = VBAVisible End Function ثم يتم إدراج الكود التالي في موديول عادي .. Sub ShowForm() Dim ANS As Variant Dim App As PwdInputBox Set App = New PwdInputBox ANS = App.PassInputBox("Please Enter The Password", "*", "My Application") If ANS = False Or ANS = "" Then Exit Sub Else If ANS = "123" Then UserForm1.Show Else MsgBox "Incorrect Password", vbCritical End If End Sub وإليكم المرفق فيه تطبيق ما سبق تقبلوا تحياتي Show UserForm By Password Mask For InputBox YasserKhalil.rar

جرب هذا الكود لو اردت ان تبقى القيمة في الخلايا A1 & C1 امسح السطر السادس من الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$C$1" Then Application.EnableEvents = False x = Target.Value Range("b2") = x Target.Value = "" End If Application.EnableEvents = True End Sub

جرب المعادلة التالية =IF(B1<>"",B1,IF(A1<>"",A1,"")) يرجى تغيير اسم الظهور للغة العربية تقبل تحياتي

السلام عليكم ورحمة الله لا توجد اى مشاكل على اوفيس 2016

اثراءً لموضوع هذه المعادلة =IF(N(A1)>0,CHOOSE(MONTH(A1),"Quarter:1","Quarter:1","Quarter:1","Quarter:1","Quarter:2","Quarter:2","Quarter:2","Quarter:2","Quarter:3","Quarter:3","Quarter:3","Quarter:3","Quarter:4","Quarter:4","Quarter:4","Quarter:4"),"")

سلام عليكم نعم تستطيع العمل ذلك وهذا بانشاء تقرير عن طريق استعلام المراد البحث عن اسم( سجل9) ثم تقوم export ver word فقط وتضهر التسجيلة في الوود

ان داله sumproduct لها استخدامات كثيره و مهام تغنيك عن استخدام الكثير من الدوال فانها ليست مجرد داله للجمع او الضرب والان نقوم بسرد بعض هذه المهامواطلب من الجميع المشاركه واضافه مهام اخرى1- تستخدم فى العمليات الرياضيه ( جمع - طرح - ضرب - قسمه)2- تستخدم فى عمليات الجمع الشرطى والجمع الشرطى المتعدد 3- تستخدم فى عمليات العد كبديل للداله count 4- تستخدم كبديل للداله vlookup بشرط ان يكون ناتج البحث رقم و ليس نص 5-لاغنى عنها فى اعداد الحسابات و القوائم الماليه

يمكن وضع مسافة قبل المعادلة أو علامة التنصيص المنفردة ' ..

هذه صفحتى على الفيس Ragab Gaweesh

طريقه لاخفاء محتويات الخلايا و جعلها لاتظهر دون الحاجه الى اخفاء الصف او العامودلإخفاء البيانات قم بتحديدها أولاً، ثم أذهب home->font ثم ستجد سهم صغير فى الركن الأيمن السفلى أضغط عليه ثم أختار نافذة number->custom ثم أكتب (;;;)، ستجد أن البيانات قد أختفت ولكنها تظهر فى نافذة العرض بجوار زر function

وعليكم السلام اخى ياسر بارك الله فيك مرفق الشيت الخاص بالموضوع sumproduct.rar

بارك الله فيك وإليك فيديو فيه شرح لكيفية إخفاء محتويات الخلايا أرجو أن ينال إعجاب الجميع تقبلوا تحياتي

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

عند استخدام احد دوال البحث مثل Vlookup و Hlookup ينبغى ان يكون الشئ المراد البحث عنه مكتوب بنفس الطريقه التى فى الجدول الاخر و لتفادى مشكله رسائل الخطا فى دوال البحث يمكن اتباع الاتى 1-اذا كان المراد البحث عن اسم معين مثل اسم عميل او موظف يستحسن البحث عنه بكوده وليس اسمه 2-استخدام القوائم المنسدله 3استعمال داله IFERROR 4- تثبيت الجدول الذى نبحث فيه باستخدام F4 5-لابد ان يكون الشئ الذى نبحث عنه فى اول عمود بالجدول الذى نبحث فيه

جزاك الله خيرا أخى ياسر بالتوفيق اخوانى الكرام

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

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

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

بعد اذن اخواني في المنتدى هذا الكود البسيط الذي يعكس كل شيء (ارقام ونصوص) معادلة عكس الارقام salim.rar Function RevText(s As String) If Len(s) = 1 Then RevText = s Else RevText = RevText(Mid(s, 2, 99)) & Left(s, 1) End If End Function

لنبدأ على بركة الله مجموعة اكواد متنوعة تخص تغير عنوان التطبيق بطريقة مرنة 1- لإدراج إسم الفورم من بيانات المدرجة في العمود 1 , الصف 1 من الصفحة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ActiveSheet.Cells(1, 1) أو UserForm1.Caption = ActiveSheet.Range("A1") End Sub 2- لإدراج إدراج إسم افورم من إسم الورقة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub 3- إدراج إسم الفورم إختياري من أي ورقة تريدها مثلا الورقة 2 : الصف 1 ; العمود 2 Private Sub UserForm_Initialize() UserForm1.Caption = Sheets(2).Cells(1, 2) End Sub

تفضل المرفق 2003 ترتيب العشرة الاوائل حسب المجموع والعمر2.rar

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

السلام عليكم ورحمة الله أخي الكريم، لم أفهم عليك الملاحظة "خطوط قلب الارقام تعمل مع برنامج وورد" لأنه إذا تم تنصيب أي خط من الخطوط فتجدها تعمل مع أي برنامج في الويندوز... ونوع الخط الذي حضرته وسميته Inverse.ttf في ردي السابق قمت بتدوير حروف وأرقام ورموز الخط المعروف Times New Roman أفقيا ثم عموديا بزاوية 180 درجة (وهو الذي يريده أخونا أحمد في طلبه -على ما أعتقد-) بينما نوع الخط الذي اقترحته في ردك فهو يقوم بقلب الحروف والأرقام عموديا بزاوية 180 درجة... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم وهذا عمل آخر مختلف تماما عما سبق، قمت بتحضير نوع خط جديد سميته Inversed.ttf يقوم بقلب أي حرف أو رقم أو علامة بعد تطبيق هذا النوع عليها وتجد اسم الخط في قائمة الخطوط مقلوبا هو أيضا... في الملف المرفق تجد ملفين أحدهما هو نوع الخط يجب تنصيبه مع خطوط ويندوز والملف الثاني هو مثال تطبيقي على قلب الأرقام وقد استعملت معه دوال تقوم بكتابة الأرقام بالعكس (من اليمين إلى اليسار) (والحد الأعلى لأرقام العدد الذي تريد قلبه هو 6 أرقام)... أخوك بن علية قلب الأرقام بالخط.rar