ضاحي الغريب

أخي // يونس السلام عليكم ورحمة الله وبركاته اولا لك دعوة طيبة بتغير اسم الظهور للعربية حسب سياسة المنتدي ثانيا : بالمرفقات مثال يقوم بتغير الوقت عن طريق SpinButton بزيادة / نقصان دقيقة واذا كنت ترغب ان تكون الزيادة بمقدار 5 دقائق (+/- 5)عند الضغط علي SpinButton قم بتغير الكود من Private Sub SpinButton1_Change() Tex_Time.Text = Format(SpinButton1.Value / 1440, "hh:mm") End Sub الي Private Sub SpinButton1_Change() Tex_Time.Text = Format(SpinButton1.Value / 288, "hh:mm") End Sub مع تحياتي المثال بالمرفقات Time.rar

اخي الحبيب أ/ ياسر السلام عليكم ورحمة الله وبركاته وبعد اذن استاذنا الحبيب ومعلمنا واخينا الأستاذ // عبدالله باقشير يمكنك عدم غلق الفورم الا بعد انتهاء الـ Progress Bar كما بالمثال التالي Option Explicit Dim bOK As Boolean Private Sub UserForm_Activate() Dim i As Integer, j As Integer For i = 1 To 100 For j = 1 To 1000 DoEvents Next j Me.Text.Caption = i & "% Completed" Me.Bar.Width = i * 2 Next i bOK = True End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If bOK Then GoTo 1 If CloseMode = 0 Then Cancel = True 1: End Sub مع تحياتي progress.rar

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

اخي // الجموعي بارك الله فيك في اكثر من موضوع تم طرحه عن استخدام خصائص الادوات في الفيجوال والتحكم فيها ومنها ادراج الصور باختصار قم بتصميم الشكل الذي تريد ان يكون عليه العمل ثم احفظه بصيغة Jpg و من خصائص الفورم اختار picture ثم قم بتركيب الادوات حسب التصميم واضبط خصائص كل اداة بما يتناسب مع التصميم والاخراج النهائي للعمل مع تحياتي

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

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

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

نفس الحال حدث معي المشكلة حدثت عندما كانت نسبة تكبير عرض الشاشة بأكثر من 100% (في ويندز7 = لوحة التحكم - العرض – جعل النص والعناصر الاخرى اكبر او اصغر ) ربما نحن بحاجة الى كود لمعرفة نسبة تكبير الشاشة ونسبة التكبير او جدت مشكلة اخرى كبيرة في البرنامج وايضا في برنامجكم ادارة صلاحيات المستخدمين وهى: ان ازرار وادوات الفورم لا تطابق موقعها على الصورة حيث اني لم استطع ادخال كلمة سر البرنامج والنقر على الازرار واعتقد انه عند تكبير نسبة عرض الشاشة يصبح الفورم اكبر بنفس النسبة الا ان الصورة في الفورم لا تكبر بنفس النسبة مما يؤدي الى ان تكون الازرار والادوات ليس في الموقع المناسب من الصورة , وقد حلت المشكلة معي من خلال الخيار fmPictureSizeModeZoom في الخاصة PictureSizeMode ولا اعلم ان كان هذا حل نهائي ام لا لكم الشكر راجيا لكم التوفيق في امان الله أخي الحبيب استاذنا // الخالدي السلام عليكم ورحمة الله وبركاته اسعدنا وشرفنا مروركم وملاحظاتكم ان شاء االه خلال الاصدار الثاني يكون الفورم ملائما للمقاسات وطرق العرض المختلفة حتي لا يتاثر التصميم بتغيير المقاس وتكون اختيارية من خلال الفورم تختار المقاس المناسب للروسيشين ويسعدنا دائما ملاحظاتكم بارك الله فيكم وجزاكم خيرا تقبل الله منا ومنكم صالح الاعمال مع تحياتي وتقديري

اخواني الأعزاء اخي / رفعت ... أخي / أبو آلاء أخي // الجموعي اخي // محمد السيد الشاطر اخي الحبيب // سعد عابد بــارك الله فيكم ... علي مروركم العطر ودعائكم الطيب اللهم يتقبل منا ومنكم الصالحات تقبلوا تحياتي جمعيا

أخي في الله أ/ ياسر خليل اداءة جميلة جدا والاجمل جمال روحك وطيب اصلك جزاك الله خيرا وزادك نورا وعلما وبارك الله لك في شتىَ امور حياتك مع تحياتي

بارك الله فيكم وجزاكم خيرا ان شاء الله جاري الانتهاء من الاصدار الثاني ومعالجة جميع الملاحظات التي وردتني

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

اخواني الأعزاء أ/ جلال الجمال - أ/ ابراهيم ابوليلة - أ/ محمد لطفي بارك الله فيكم جمعيا علي مروركم العطر، ودعائكم الطيب جزاكم الله خيرا بالنسبة لملاحظة اخي أ/ ابراهيم ابوليلة البرنامج يعمل مافيه مشكلة وجربته علي اكثر من جهاز واصدار ويندوز واوفيس حاول تحمل الملف الاخري ان شاء الله يضبط معك تقبلوا تحياتي جمعيا

قبل ما تقم بالنسخ تاكد ان لغة الجهاز هي العربية وبعد قم بالنسخ وثم كليك يمين واختار من لصق خاص (قيم ) وان شاء الله يضبط معك

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

ايه الحاجات الكتيرة يلي غير موجودة ؟؟ حمل الملف مرة من المشاركة الاولي

تم اصلاح الخطأ في الفورم يمكنك تحميل البرنامج مرة اخري من المشاركة الاولي

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

تفضل شرح الكود الكود مقسم الي نسخ التنسيق وترحيل البيانات من الليست ثم معاينتها تمهيدا لطباعتها Sub Tenants_LstAdaMPrint() Set Frm = Tenants 'اظهار الشيت المخصصص لفورم الطباعة Sheet6.Visible = True Set SH = Sheet6 'اظهار تطبيق Application.Visible = True With SH .Activate For mm = 0 To Frm.LstAdaM.ListCount 'الجزء التالي مسئول عن نسخ التنسيق من الصف الخامس لبقية الصفوف حسب صفوف الليست بوكس Dim Last As Long 'اظهار الصف الخامس Rows("5:5").Hidden = False 'نسخ التنسيق بما يساوي صفوف االليست بوكس Last = Range("b" & Rows.Count).End(xlUp).Row + 1 + mm On Error Resume Next With Rows(Last) .FillDown .SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 Next 'هذا الجزء خاص بترحيل البيانات من الليست بوكس الي الشيت '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' LsRow = .Cells(Rows.Count, "b").End(xlUp).Row + 1 On Error Resume Next For AA = 0 To Frm.LstAdaM.ListCount .Cells(AA + LsRow, 2) = Frm.LstAdaM.Column(5, AA) .Cells(AA + LsRow, 4) = Frm.LstAdaM.Column(3, AA) .Cells(AA + LsRow, 5) = Frm.LstAdaM.Column(1, AA) Next: '""""""""""""""""""""""""""""""""""""""""""""""""""""""" 'بعد الانتهاء من ترحيل صفوف الليست بوكس اضافة سطر المجموع LR = .Cells(Rows.Count, "b").End(xlUp).Row .Cells(LR + 1, 5) = Frm.T_Total1.Value: .Cells(LR + 1, 2) = "الـمجمـوع " '.Cells(LR + 1, 6) = Frm.Paid.Value '.Cells(LR + 1, 7) = Frm.T_Total1.Value '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'اخفاء الصف الخامس Rows("5:5").Hidden = True 'تحديد مدي الطباعة ER = WorksheetFunction.CountA(Range("A:E")) + 1 RR = .Cells(.Rows.Count, "A").End(xlUp).Row RN = "A1:E" & ER 'تحديد عنوان التقرير .[A3].Value = Frm.Lb_Information.Caption Tenants.Hide 'اخفاء الفورم .Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True 'تنفيذ عملية المعينة تمهيد الطباعة .Range("A6:E" & Rows.Count).Clear: .[A3].Value = "" 'مسح البيانات من الشيت Sheet6.Visible = False 'اخفاء الشيت Sheet1.Activate Application.Visible = False 'اخفاء التطبيق Tenants.Show 'اظهار الفورم بعد الانتهاء من الطباعة End With: End Sub

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

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

التحميل في المشاركة الاولي ومافيه مشكلة انا حملت منه للتجربة الان ويعمل غيري المتصفح

تابعنا لتحميل الاصدار الثاني قريبا ان شاء الله

بارك الله فيك وجزاك خيرا علي مرورك الكريم ودعائك الطيب مع تحياتي

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