Mohamed_Ghazal

شكراً لكل اخوتي في المُنتدى، أسعدتني تعليقاتكم حقاً، وبارك الله فيكم.

كل عام وأنتم بخير Acc 2015.rar

هدية لإخوتي بالمنتدى المبارك أغلى شيت إكسيل بالتاريخ أسألكم الدعاء تحياتي للجميع محمد غزال Islamic_Radio.rar

تم عمل كود ترحيل جديد أسرع من مثيله في النسخة السابقة كما تم إضافة ميزة جديدة في الإستعلام عن كشوفات الحسابات التفصيلية حيث تم ربط الإستعلام بتغير إسم الحساب بدون الحاجة للضغط على كلمة إستعلام وأرجو من إخوتي تزويدي بأفكار جديدة لشيتات إحترافية 01201792967 m_khg2000@hotmail.com تحياتي لكل إخوتي في المنتدى ACCOUNTANT.rar

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

وعليكم السلام أخي ريان ولايهمك جرب الكودين هما هما بس بالشكل ده في كود واحد: Private Sub UserForm_Activate() For N = 1 To 550 Me.Width = 0.7 * N Me.Height = 0.4 * N Next N Dim s As Integer For s = 1 To Sheets.Count Me.CmbSheet.AddItem Sheets(s).Name Next s End sub

عذراً أخي ريان تم إستدراك الخطأ ، مشكور على الملاحظة والإهتمام .

قم بعمل ثلاث فورم وضع داخل كل فورم شكلاً من الأشكال ثم شغل الفورم ، تحياتي للجميع

الشكل الثالث: Private Sub UserForm_Activate() Me.Left = Application.ActiveWindow.Width / 2 - 125 For m = 1 To 2300 * (Application.ActiveWindow.Height / 2) - 75 Me.Top = 0.0005 * m / 2 Next m End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For m = 1 To 1500 Me.Left = Me.Left - 0.001 * m Me.Width = Me.Width - 0.0004 * m Next m Unload Me End Sub

الشكل التاني: Private Sub UserForm_Activate() For N = 1 To 550 Me.Width = 0.7 * N Me.Height = 0.4 * N Next N Me.F1.Visible = True Me.F2.Visible = True Me.F3.Visible = True If Sheet6.Range("A6").Value = "" Then Me.T1.Value = 1 Else Me.T1.Value = Sheet6.Range("A999").End(xlUp).Value + 1 End If End Sub _________________________________ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For N = 1 To 9900 Me.Width = Me.Width - 0.0375 * N Me.Height = Me.Height - 0.025 * N Next N End Sub

من عيوني أخي ريان جرب الأشكال التالية: الشكل الأول: Private Sub UserForm_Activate() Me.Height = 1 Me.Width = 1 Me.Top = 0 Me.Left = 0 For m = 1 To 1100 Me.Width = 0.5 * m Me.Height = 0.25 * m Me.Left = 0.25 * m Me.Top = 0.15 * m Next m End Sub ___________________________________________ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For m = 1 To 500 Me.Width = 500 - 1.4 * m Me.Height = 255 - 0.7 * m If Me.Top > 0 Then Me.Top = Me.Top - (m / 280) If Me.Left > 0 Then Me.Left = Me.Left - (m / 175) Next m Unload Me End Sub

عذراً أخي ريان تم عمل باسوورد لمحرر الأكواد لحماية الشيت من التلاعب بالأكواد ليس إلا.

مُرفق بالملف ملف وورد لشرح كيفية التعامل مع البرنامج لطلب برامج أو شيتات إكسيل لأي نظام يُرجى التواصل علي البريد التالي: m_khg2000@hotmail أو الإتصال على الرقم الخاص 00201201792967 مجاناً كما يسعدني تعليقاتكم وإقترحاتكم بأفكار مشاريع إكسيل جديدة أو تتناسب مع إحتياجاتكم تحياتي للجميع محمد غزال المحاسب الإصدار الثاني.rar

للأخوة الأعزاء يسعدني تلقي طلباتكم وإقتراحاتكم لعمل مشاريع إكسيل جديدة وإحترافية لخدمة الجميع بمعنى أي حد عنده فكرة لمشروع إكسيل مش متوافر يقدر يبعتلي الفكرة على m_khg2000@hotmail.com أو يتواصل معايا على 01201792967 عشان ننفذها ونعرضها بالمنتدى لخدمة السادة الأعضاء والزوار وأي حد محتاج مشروع إكسيل إحترافي لخدمة نشاطه أياً كان يقدر يتواصل معي لتنفيذه (مجاناً). تحياتي للجميع