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

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

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

وعليكم السلام و رحمة الله وبركاته طلبك غير واضح ممكن توضح

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

السلام عليكم غير العدد والتوقيت بداية الكود ' عدد الحكم Private Const iCont As Integer = 57 ' التوقيت بالثانية Private Const MyTime As Double = 30 المرفق 2010 Hikam.rar

أخى الكريم / إسلام الشيمي اشترك فى خدمة Microsoft SkyDrive ويمكنكم تخزين 10 جيجا ويتم الاستدعاء والتعديل وكافة الأمور حتى ولم يكن بالجهاز المستخدم أوفيس جرب وقول

السلام عليكم ورحمه الله وبركاته جرب وضع هذا الكود فى نهايه الكود عند الكود الذى يقوم بتفعيل الحمايه على الصفحه وان شاء الله يكون به ما تطلب ActiveSheet.Protect (123), DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True

السلام عليكم ورحمة الله أخي الكريم أحمد، إن فكرة الفرز باختيار الترتيب التصاعدي أو التنازلي في ورقة محمية لا يتم إلا بطريقتين (حسب اعتقادي) الأولى هي بإزالة الحماية عن الورقة ثم القيام بالترتيب (وإزالة الحماية لا يتم بالنقر بالماوس على الأسهم الموجودة عند رأس الجدول -هذا ما أعرفه-) والثانية بإزالة الحماية عن الخلايا من الورقة التي يتم فرزها (وفي هذه الحالة حماية الورقة لا معنى له) مع تعديل في الكود، وهذا ما قمت به في الملف المرفق... وكود الحماية هو نفسه الذي وضعه أخي الكريم إبراهيم أي 123... أرجو أني وفقت في المطلوب... أخوك بن علية ملاحظة: يمكن أن يتم تغيير كود الفرز حسب المحطات بمضمون خلية متغيرة بدلا من خلية الفرز C2 التي وضعتها في الكود (بزرين أحدهما للفرز التصاعدي والآخر للفرز التنازلي حسب مضمون الخلية المتغيرة أو يمكن أن يكون يزر واحد متغير تارة تصاعديا وتارة تنازليا) مع ترك مبدأ الأكواد السابقة... هذا مجرد رأي... الملف المرفق: ترتيب المحطات2.rar

تفضل اخي المرفق كلمه السر للحمايه هى 123 ترتيب المحطات.rar

أخى الغالى الحبيب / ضاحى الغريب تسلم ايديك ولاثراء الموضوع هذه محاولة أخرى ترحيل مع mach.rar

أخي الحبيب // اذا كنت تقصد ان البيانات ثابتة تم الاستغناء عن مصدر البيانات شيت 2 والبيانات كلها من داخل الفورم تفضل بالمرفقات ترحيل مع vlookup.rar

أخى الفاضل /nagy sadek وجود العلمى مع الأدبى يصعب الأمر على مسئول الكنترول أنا فضلت فصل كل منهم فى شيت منفصل لسهولة العمل

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

الاخ ايسم شكرا لك كثيرا الصفحه عندي خاصه بالداتا حيث ان برنامجي من حيث الادخال والاستعلام والتعديل وغيرها كلها من خلال فورم اي انني لا احد يدخل الى الداتا الا انا فما اريده هنا عدم وجود زر ولا يكون مرتبط بتحديد المدى واريده فقط في العمود a بمعنى اخر لا اريد ماكرو وانما اريد كود في حدث الصفحه نفسه وان يكون حالة change وليس selection اي عندما اضع ادخل الرقم 1 يعطيني التعليق مباشره دون التحديد او بزر امر انا بصراحة عندي كود بس المشكله انني اتعامل مع 50 رقم وكل رقم له اسم مختلف الطريقه ادناه اعطتني الحل بشكل ممتاز ولكنها طويله حيث ان الكود سيتم تكراره 50 مره فهل توجد طريقه تسهل عدم التكرار Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1,a1000")) Is Nothing Then On Error Resume Next If Target.Value = 1 Then Target.AddComment ("ahmad") End If If Target.Value = 2 Then Target.AddComment ("aysam") End If End If End Sub

الله يحفظك ويجزاك خير و يحفظك من كل مكروه ، نعم انا اعاني من موضوع تحميل الملفات و شكر الله سعيك وبارك الله فيك أنت والأخ الكريم محمد طاهر