محمد يحياوي

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

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

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

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

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

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

بعض الدوال المهمة للرجوع الى ورقة عمل عن طريق الصيغ الرجوع إلى ورقة عمل من الصيغ.rar

كود مراجعة الصيغة في الخلية المحدة مراجعة الصيغ تحديد الخلايا.zip

شكرا اخي "سعد عابد" شكرا اخي "تلميذ ابو هاجر" .... ملاحظة : يمكن استعمال الدالة subtotal ان تعمل عمل عدة دوال مع الفلترة مثل .. MAX / MIN/ AVERAGE / PRODUCT / SUM .... الخ و ذلك بتيير الرقم 9 حيث ام لكل دالة رقما

اخي الكريم و هذه محاولة باستعمال subtotal تصفية لاحد الحقول ويجمع فقط ما ظهر في التصفية.rar

الاخ الفاضل "هشام شلبي" هذه وصلة لتحميل البرنامج و هو يحتوي على الباتش ... ملاحظة لا تحدث البرنامج عند طلب التحديث التحميل

الاخ الحبيب "الحسامي" بارك الله فيك فكرة رائعة ابداع و تميز لا نظير له

الاخ الكريم ابو الشرف تم عمل ذلك و لكن بالاكواد تغيير حجم صورة بتغير قيمة خلية

الاخ الكريم "سعد عابد" بارك الله فيك دالة جميلة و مفيدة

اخي "ابو احمد" شكرا على المرور

الاخوة الافاضل : ابو الحارث سعد عابد محمود اشكركم جزيل الشكر الاستاذ الفاضل محمد صالح شكرا على الكود الجميل اخي الحبيب ابو نصار اشكرك على الكود الجميل ===================================== هذا ايضا كود تغيير حجم صورة بتغير قيمة خلية Option Explicit Option Compare Text Public ScrWidth&, ScrHeight& Declare Function GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex&) As Long Sub SizePic() Dim SizeFactor, x SizeFactor = Range("A1").Value ActiveSheet.Shapes(1).Width = SizeFactor * (GetSystemMetrics32(0)) End Sub تغيير حجم صورة حسب تغير قيمة خلية.rar

او يمكن استعمال الكود التالي Sub Wrap_text() Selection.WrapText = Not Selection.WrapText End Sub

كود الاحتواء التلقائي للورقة النشطة Public Sub AutoFitSheet() If ActiveWorkbook Is Nothing Then Exit Sub Dim i# If ActiveWindow.SelectedSheets.Count > 1 Then For i = 1 To ActiveWindow.SelectedSheets.Count ActiveWindow.SelectedSheets(i).Cells.EntireColumn.AutoFit Next Else Cells.EntireColumn.AutoFit End If End Sub

الاخ الكريم الملف الثاني مفتوح يمكنك الدخول الى محرر الاكواد

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

ادراج زر تصغير في اليوزر فورم (Minimize) هذا الكود في standar Module Private Declare Function FindWindowA Lib "USER32" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLongA Lib "USER32" _ (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLongA Lib "USER32" _ (ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Option Explicit Sub FormatUserForm(UserFormCaption As String) Dim hWnd As Long Dim exLong As Long hWnd = FindWindowA(vbNullString, UserFormCaption) exLong = GetWindowLongA(hWnd, -16) If (exLong And &H20000) = 0 Then SetWindowLongA hWnd, -16, exLong Or &H20000 Else End If End Sub هذا الكود في UserForm1Code Private Sub UserForm_Initialize() Call FormatUserForm(Me.Caption) End Sub Add Minimize Button To Userform.zip

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

عفوا اخي "ابو احمد" في الوقت الذي كنت اجهز الرد يبدو انك سبقتني ... القلوب عند بعضها

شكرا جزيلا اخي "ابو احمد" زيادة في اثراء الموضوع عد االاحرف دون احتساب الفراغات استعمل الصيغة التالية =LEN(SUBSTITUTE(A1;" ";""))

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