شوقي ربيع

السلام عليكم هذه طريقة نحايلية نوعا ما ارجو ان تفي بالغرض 557.rar

السلام عليكم الاخ الحبيب ضاحي الغريب (القلب النابض للمنتدى) مذا عساى ان اقول لانسان جميلا مثلك سوى ان ادعو الله ان يجازيه بالخير ويسكنه جنات النعيم شكرا احي الحبيب لكلماتك ولدعائك الجميل تقبل تحياتي وشكري

السلام عليكم الاخ احمد فؤاد شكرا جزيلا لمرورك ولعباراتك الجميلة تقبل تحياتي وشكري

السلام عليكم الاخ ابو هاجر شكرا جزيلا لمرورك ولعباراتك الجميلة تقبل تحياتي وشكري

اسم المستخدم المحسن الباسورد 123

السلام عليكم الاخ الحبيب حمادة عمر كما قلت لك من قبل انا اسعد كثيرا بمرورك وبتعليقاتك شكرا جزيلا لمرورك العطر وعباراتك الجميلة تقبل تحياتي وشكري

السلام عليكم الاخ الحبيب ضاحي الغريب والله الواحد لايجد من كلمات يرد بهاعليك بعد كلماتك الجميلة هته سعدت بمرورك اخي الكريم جزاك الله خيرا

السلام عليكم الاستاذ الغالي عبد الله باقشير يفرحني ويشرفني مرورك دائما تقبل تحياتي وشكري

السلام عليكم احي الحبيب جمال عبد السميع لجمال روحك ترى الاشياء جميلة شكرا جزيلا لمرورك العطر ولكلماتك الحميلة تقبل تحياتي وشكري

شاهد المرفق اسم المستخدم المحسن الباسورد 123 تخزين+تعديل لصادر و الوارد2.rar

السلام عليكم استاذي الفاضل عبد الله باقشير يفرحني ويشرفني تعقيبك بالمناسبة انا اقيم اعمالي بواسطة تعليقاتك تقبل تحياتي وشكري

الاح محمد المحسن بخصوص طلبك الاول يمكنك كتابة الرقم مباشرتا فيComboBox لعملية البحث في الجزاء الخاص بالتعديل بعد اختيار الصنف بواسطة OptionButton اما الطلب الثاني يمكنك اخفاء الشيت بالكامل ان لم تكن بحاجة لدخول اليه بواسطة هذا الكود ضعه في حدث Workbook_Open On Error Resume Next Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show ثم انشاء CommandButtonجديد في الفورم في اي مكان يريحك اكنب في الحدث Click الخاص به هذا الكود وهذه العملية اجابة السؤال الثالث UserForm1.Hide ThisWorkbook.Close ولاي استفسار نحن في الخدمة

السلام عليكم الاخ العزيز اسلام الشامي شكرا جزيلا لكلماتك الجميلت تقبل تحياتي وشكري

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

بسم الله الرحمان الرحيم السلام عليكم ورخمة الله وبركاته بعد النسخة الاولى لبرنامج القران الكريم اولاين احببت طرح النسخة الثانية للبرنامج الجديد فيها هو اضافة 3 مقرئين + تلاوات خاشعة راديو القران الكريم البث الحي للحرم المكي المصحف الفلاشي امكانية اضافة مقرئين جدد الى غاية 100 مقراء ملاحضة اذا ضهرة لك الصورة المقابلة اختر الخيار الثاني كما في الصورة ثم اضغط متابعة ليس لديا مانع من نشر المرفق بذكر المصدر او عدم ذكره المهم هو التعميم مع تحيات اخوكم شوقي ربيع _ سخة الثانيةالقرأن الكريم_اونلاين.rar

السلام عليكم الاخ العزيز ابو عبدالله (الجزيرة) شكرا جزيلا لكلماتك الجميلة و لدعائك الاجمل وغايتنا هي تعميم الفائدة على الجميع وسعادتنا في مساعدت الغير جزاك الله خيرا تقبل تحياتي وشكري

السلام عليكم اخي الحبيب حمادة عمر والله بكسر الهاء اسعد جدا بتعليقاتك تقبل تحياتي وشكري

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

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

السلام عليكم لاخ محمد الحسن هذا برنامج بسيط صممته لك عل السريع لاي اضافات نجن في الخدمة تخزين+تعديل لصادر و الوارد.rar

ماشاء الله تلميذة نجيبة ملف جميل بحق الى الامام اختاه وستكونين من المحترفين انشاء الله

السلام عليكم تشرفت بتعقيبك استاذي الفاضل دغيدي اخي ابو جيداء بفضل الله الان انت تعرف تقبلو تحياتي وشكري

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

السلام عليكم الاخ ابو ادم اولا اشكرك لمرورك ولكلماتك الجميلة ثنيا انا سعيدا جدا لتطبيقك الشرح و نجاحك فيه اما بخصوص طلبك بعد جهدا حهيد اليك الحل اولا ضع هذا الكود في بداية الاكواد الخاصة باليوزر فورم Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Const GW_CHILD = 5 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYOUTRTL = &H400000 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function InvalidateRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long Private Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Sub ListRTL(Liv As ListView) Dim rClientRect As RECT Dim ReturnStyle As Long Dim Header_hWnd As Long ReturnStyle = GetWindowLong(Liv.hwnd, GWL_EXSTYLE) SetWindowLong Liv.hwnd, GWL_EXSTYLE, ReturnStyle Or WS_EX_LAYOUTRTL GetClientRect Liv.hwnd, rClientRect InvalidateRect Liv.hwnd, rClientRect, True Header_hWnd = GetWindow(Liv.hwnd, GW_CHILD) ReturnStyle = GetWindowLong(Header_hWnd, GWL_EXSTYLE) SetWindowLong Header_hWnd, GWL_EXSTYLE, ReturnStyle Or WS_EX_LAYOUTRTL GetClientRect Header_hWnd, rClientRect InvalidateRect Header_hWnd, rClientRect, True End Sub ثانيا ضع هذا الكود في حدث UserForm_Activate ListRTL ListView1 الثا ستضهر لديك مشكلة عند تشغيل الفورم هي مشكلة تعريف المتغيرات استبدل الاكواد الاولى اي المتغيرات في UserForm_Initialize بهذه الاكواد Dim I As Integer, Y As Integer, LastRow As Integer, LastColumn As Integer Dim cel, Rng, sh جرب ولاحض بنفسك مع تحياتي وشكري

حمدا لله لاشتغال الملف لديك واعتز كثيرا بشهادتك استاذ خالد القدس تقبل تحياتي وشكري