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

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

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

السلام عليكم الشكر واصل لاخي الحبيب عباد..واخي النشيط احمد ناصر واخي بن عليه وائراءا للموضوع فيه مثال لعكس معطيات المصفوفة لاستثمار التغيير في البعد الاخير ثم نستخدم الغرض .Column لوضع المصفوفة المعكوسة في اللست Private Sub CommandButton1_Click() Dim Ary() Dim LastRow As Long, v As Long Dim c As Integer, cc As Integer Dim M As String, f As String Dim q As Range '''''''''''''''''' ListBox1.Clear M = TextBox1.Value '''''''''''''''''' With Sheets("DB") LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row Set q = .Range("B2:B" & LastRow).Find(M) If Not q Is Nothing Then f = q.Address Do If InStr(1, q, M, vbTextCompare) = 1 Then v = v + 1 ReDim Preserve Ary(1 To 12, 1 To v) For c = 1 To 12 cc = Choose(c, 0, 1, 2, 3, 4, 8, 5, 9, 6, 10, 7, 11) Ary(c, v) = q.Offset(0, cc).Value Next End If Set q = .Range("B2:B" & LastRow).FindNext(q) Loop While Not q Is Nothing And q.Address <> f End If End With '''''''''''''''''''''''' '''''''''''''''''''''''' If v Then Me.ListBox1.Column = Ary End If Erase Ary Set q = Nothing End Sub المرفق 2003/2010 زيادة اعمدة الست بوكس.rar في امان الله

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

السلام عليكم جربي اختي الكريمة الملف المرفق وان كان فيه خطأ كما لديك ام لا او قومي اختي الكريمة بارسال الملف نفسه للوقوف علي الخطأ جزاكي الله خيرا استمارة الاستبيان 2013++sama.rar

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

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ ابو محمد اعطاك الله الصحة والعافية مرورك شرف لي بارك الله فيك دمتم برعاية الله وحفظه

أخى الحبيب ( أبو عبد الرحمن ) طبعا أنا دمجت طريقة أستاذى العظيم وعميد منتدانا ( دغيدى ) بالأضافة إلى طريقة جديدة أتمنى أن يكون المرفق كافيا لتلبية طلبك تقبل تحياتى وتحيات أستاذى ( دغيدى ) دمج خلايا.rar دمج خلايا 2.rar

=CONCATENATE(A1;B1) أو =A1&B1 أخى الكريم ضع الدالة فى أية خليلة واسحبها

السلام عليكم الاخت الفاضلة / dayslife بارك الله فيكي ================================ اخي الجميل / احمد عبد الناصر ... تم ارسال ردي دون ان اري ردك وبالفعل استخدمت طريقة جميله جزاك الله خيرا ================================ وبعد اذن اخي الحبيب / ابومحمد اشرف ... جزاه الله خيرا الملف المرفق منكي اختي الكريمة لا يوجد به اي اكواد او ماكروهات فبالتالي لن يعمل معك الازرار او الطريقة الاخري اليكي المرفق به في الشيت الاول طريقة لاضافة رقم 1 عند الضغط دبل كليك في الخليه والشيت الثاني به طريقة الضغط كليك يمين لاضافة 1 شاهدي المرفق واي تعديل ... كلنا معك باذن الله جزاك الله خيرا استمارة الاستبيان 2013-sama.rar

السلام عليكم هذه محاولة تعتمد علي تحريك الزر علي حسب الخلية بحيث يكون زر و احد علي كل الخلايا . استمارة الاستبيان 2013+.rar

السلام عليكم الاخ الكريم / احمد عبد الناصر بارك الله فيك دائما مشاركاتك في اي موضوع تكن اثراء للموضوع بلا شك وهذا تعديل بسيط علي الكود المرفق منكم ولكن بالضغط 2 كليك علي اي خلية في المدي c1:c100 كأنه ازرار . وبالطبع الحقوق محفوظة جزاك الله خيرا Boook1++.rar

السلام عليكم الاخت الفاضلة / dayslife بارك الله فيكي [a1] هذه تعني الاشارة الي الخلية A1 لتحديد اسم الخلية المراد اظهار القيمة بها ويمكن الاشارة اليها بعدة طرق ومنها علي سبيل المثال ما هو موجود بالكود وكذلك الشكل التالي لكتابة اسم الخلية Range("A1") وبالطبع لا يختلف استخدام الحروف في اسماء الخلايا ان كانت الحروف كبيرة ام صغيرة ارجو ان اكون وفقت في توصيل المعلومة جزاكي الله خيرا

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

أنظر أخى المرفق معادلة حساب السن.rar

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