أبو هادي

السلام عليكم بعد إذن أخي رضوان ، هذ مثال آخر : Sub Test() Dim txtInput As String Dim txtOutput As String txtOutput = "mncbs81351w157167" txtInput = InputBox("أدخل رقم الهاردسك", , "b813w") If txtOutput Like _ "???" & Mid(txtInput, 1, 1) & _ "?" & Mid(txtInput, 2, 3) & _ "??" & Mid(txtInput, 5, 1) & _ "??????" Then MsgBox "إدخال صحيح" Else MsgBox "إدخال خاطئ .. حاول مرة أخرى" End If End Sub تحياتي .

السلام عليكم لا مانع أخي tameromar مع ملاحظة أن جهازي الخاص تحت الصيانة منذ فترة ولا يزال . تحياتي .

السلام عليكم أعجبتني فكرة الدالة فقمت باختصارها : Function myIF(ParamArray Arg_A_B()) As Variant Dim Max As Integer Dim index As Integer On Error Resume Next Max = UBound(Arg_A_B) For index = 0 To Max Step 2 If Arg_A_B(index) = True Then myIF = Arg_A_B(index + 1) Exit Function End If Next index If (Max + 1) Mod 2 = 1 Then myIF = Arg_A_B(Max) End Function تحياتي .

السلام عليكم سبحان الله ، هذا السؤال أجبت عليه في منتدى الفيجوال في جامعة أهلا عرب قبل أيام قليلة . أكيد صدفة تم التعديل على المثال ، يمكنكم البحث بثلاث طرق كالتالي : ب ب ب 111 ببب 111 ببب111 التعديل في الإستعلام مع إضافة وحدة نمطية . تحياتي . Pass_20060901.rar

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

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

السلام عليكم الأخ tameromar ، ممكن ترفق لنا ملف من الملفات الأجنبية التي أخبرت عنها حتى يمكننا دراسته ومحاولة فهمه . تحياتي .

ممتاز يا euro_999 . ممكن تشرح لنا هذا السطر : Cancel = -3

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

السلام عليكم لقد ردا عليك اثنان من الأعضاء ، وها أنا أرفع الموضوع من جديد حتى يلفت انتباهك . تحياتي .

السلام عليكم قد يكون عنوان موضوعك غير محبب ، لذا حاول الإبتعاد عن الإثارة ودفع الأعضاء دفعا للمشاركة . كما لا تسأكل أكثر من سؤال في موضوع واحد . آمل أن تقرأ شروط المشاركة بالقسم وبالتوفيق . تحياتي .

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

السلام عليكم الحمد لله ، أخي saeedmg لتوسيط الرمز ، ضع هذا السطر بعد الكود الذي قمت بتعديله : Me("label" & !mhnum).TopMargin = IIf(Lbl = 1, 0, 200) على أن تقوم بالتعديل على الرقم 200 بالزيادة أو النقصان حتى تحصل على التوسيط المطلوب . تحياتي .

السلام عليكم الأمر هيّن أخي saeedmg ، أدخل على الكود في التقريرين وعدل في الكود . أنا واثق أنك ستفعلها . تحياتي .

السلام عليكم لم أنتبه أخي أنك تريد تطبيق الفكرة ، على كل حال يمكنك التعديل على الكود في تقليص طول الرمز إذا أحببت . تحياتي . Eval_20060808b.rar

السلام عليكم بارك الله فيك أخي saeedmg ووفقك . لا توجد هذه الخاصية في الأكسس ، ولكن يوجد حل معقد قديم في موقع الفريق العربي ولكنه يحتاج إلى قدرة في السيطرة عليه ولذلك لا أنصحك به . يمكنك عرض الرمز كالتالي : 2 1 3 أو 2 - 1 - 3 وذلك باستخدام الكود التالي : ramz = mad_mhar!mhnum & vbNewLine & _ "-" & vbNewLine & _ mad_mhar!madnum & vbNewLine & _ "-" & vbNewLine & _ mad_mhar!alsaf تحياتي .

السلام عليكم الملف بعد التعديل . تحياتي . Eval_20060808.rar

السلام عليكم بعد إذن إخوتي ، الصورة المرفقة غير ظاهرة ، ولا أعلم ما عملته يطابق ما طلبته أم لا . تحياتي . db4_20060808.rar

السلام عليكم يبدو أن الكرة لا زالت في ملعبي . (( أبشر )) تم حل المشكلة ولله الحمد . تم تبديل أسماء الحقول من أسماء المهارات إلى أرقام المهارات في الإستعلام وبالتالي تجاوزنا مشكلتي الطول والنقطة . تهانينا . تحياتي . Eval_20060807c.rar

السلام عليكم لقد فحصت البيانات واختبرتها واتضحت مسببات المشكلة وحلها كالتالي : - طول حقل المهارات يجب أن لا يتعدى 64 حرفا . - يجب عدم استخدام النقطة "." في أسماء المهارات . الكرة في ملعبك الآن . تحياتي .

السلام عليكم مرفق مثال بعد تطبيق الكود . يجب أن تكون النماذج منبثقة وإخفاء علامة التصغير . تحياتي . OnTop_20060807.rar

السلام عليكم جرب الآن ، مع ملاحظة التالي : - سوف تظهر نفس الرسالة في أسماء الحقول "نقاط التقويم" لما تحتويه من حروف ممنوعة قد تكون مثل النقطة أو الفاصلة ، تحتاج إلى مراجعة منكم . - التقرير يستطيع إظهار حتى أربعين حقلا "نقطة تقويم" فقط . - إذا لم تعجبك الفكرة فهناك فكرة أخرى ولكن بتصميم مجموعة تقارير حسب عدد نقاط كل مادة ومسمياتها . تحياتي . Eval_20060807b.rar

السلام عليكم إرفقه أخي شاهر ، بارك الله فيك . تحياتي .

السلام عليكم بعد إذن إخوتي الأفاضل ، المثال بعد التعديل . تحياتي . الملفات المرفقة Eval_20060807.rar ( 182.9k ) عدد مرات التحميل: 11

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