ياسر خليل أبو البراء

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

وجزيت خيراً أخي الكريم عبد الواجد بمثل ما دعوت لي هل من الممكن معرفة الغرض من معرفة رقم المفتاح ALt .. ماذا تريد أن تفعل بهذا الرقم؟

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

بارك الله فيك أخي الكريم أبو عبد الرحمن وجزيت خيراً بمثل ما دعوت لي .. تقبل تحياتي

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

أعتذر أخي الحبيب أحمد الفلاحجي عن نسيان وضع كلمة السر لفك الضغط .. تم وضع الكلمة مع المشاركة السابقة ..

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

أخي الكريم ابن بنها وجزيت خيراً بمثل ما دعوت لنا .. تقبل تحياتي

أخي العزيز صلاح الدين تفضل البرنامج Passware Password Recovery Kit Professional 11.1.4 ومعه السيريال ويا رب يساهم في حل مشكلتك .. أخبرنا بالنتائج بعد التجربة كلمة السر لفك الضغط officena حمل البرنامج من هنا

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

أعطني رابط تحميل البرنامج وأبحث لك عن كراك له إن شاء الله

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

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

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

جرب هذا السيريال أخي الحبيب عبد العزيز 2KQT8-HV27P-GTTV9-2WBVV-M7X96

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

أخي الكريم صلاح ممكن تضع كل الكلمات التي تستخدمها في كلمات المرور ...؟؟ بفكر في شيء لربما تنجح .. مجرد فكرة وإن شاء الله أعمل عليها وإذا اكتملت سأقوم بوضعها ها هنا

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

أول مشاركة أهلاً بك في المنتدى .. وكلمة واحدة لا تكفي .. اتعلم الرغي طالما عضو في المنتدى .. تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الموضوع ليس بجديد ولكن عند إطلاعي على الموضوع القديم ووجدت بعض القصور في أكواد المحافظات وإضافة التحقق من صحة المدخلات ..فقمت بالتعديل على الدالة المعرفة ، والأصل في الدالة أنها للعلامة الكبير عبد الله باقشير ولكن تم التعديل عليها لتتلافى الأخطاء التي كانت في الإصدار السابق إليكم الدالة المعرفة .... والدالة المعرفة User Defined Function توضع في موديول ويمكن بعدها استخدامها كدوال الإكسيل العادية Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim R As Long Dim YY As String Dim TY As String * 1 Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2 MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) Select Case TY Case "2": YY = "19" & Y Case "3": YY = "20" & Y Case Else End Select Kh_Date_Gender_Province = "" On Error GoTo 1 If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _ Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then Kh_Date_Gender_Province = "" GoTo 1 End If If MyTest = 1 Then If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى" Kh_Date_Gender_Province = YY ElseIf MyTest = 3 Then X = Mid(MyNumber, 8, 2) For R = LBound(MyProvinces) To UBound(MyProvinces) XX = MyProvinces(R) If X = XX Then Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3) Exit For End If Next End If 1: End Function أرجو أن ينال الموضوع إعجابكم إن شاء الله تقبلوا تحياتي حمل الملف من هنا

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

أخي الكريم حراثي جرب الكود التالي في حدث الفورم .... أي كليك يمين على اسم الفورم ثم اختر View Code وضع الكود التالي Private Sub CommandButton1_Click() Dim lRow As Long lRow = Application.WorksheetFunction.Match(Val(ComboBox1.Value), Columns(1), 0) Cells(lRow, 2).Value = TextBox1.Value Cells(lRow, 3).Value = TextBox2.Value Cells(lRow, 4).Value = TextBox3.Value Cells(lRow, 5).Value = TextBox4.Value End Sub Private Sub UserForm_Initialize() Dim cel As Range For Each cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) ComboBox1.AddItem cel.Value Next cel End Sub وإليك الملف المرفق فيه تطبيق الكود .. أرجو أن يكون المطلوب حمل الملف من هنا

أخي الكريم ناصر إليك شرح الكود الأخير لتتمكن من تطويعه لخدمة ملفك Sub KH_Copy() 'الإعلان عن المتغيرات Dim Last As Long, A As Long Dim Count As Integer 'سطر لتفادي حدوث خطأ في حالة أن الخلايا التي سيتم مسحها أي الخلايا الثابتة كانت فارغة On Error Resume Next 'تعيين قيمة للمتغير ليساوي 1 Count = 1 '[F10] تعيين قيمة للمتغير ليساوي قيمة الخلية Count = Sheets("KHBOOR").Range("F10").Value 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تعيين رقم الصف الذي يمثل أول صف فارغ بعد آخر صف به بيانات A = .Cells(1, 1).End(xlDown).Offset(2, 0).Row 'حذف صفوف النطاق بداية من الصف رقم 13 .Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete 'تعيين آخر صف به بيانات وهو الصف رقم 12 والذي يعتبر أول صف به المعادلات المطلوب نسخها Last = .Range("A" & .Rows.Count).End(xlUp).Row 'نسخ الصف الهدف بامتداد قيمة المتغير أي بالعدد المحدد أو العدد المطلوب .Rows(Last).Copy .Rows(Last).Resize(Count) 'مسح الثوابت والإبقاء على المعادلات .Rows(Last).Resize(Count).SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub ها هو الشرح طالما أن الأخوة يعجزون عن تقديم حل للموضوع .. تقبل تحياتي