Mohamed_Ghazal قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 مُرفق بالملف ملف وورد لشرح كيفية التعامل مع البرنامج لطلب برامج أو شيتات إكسيل لأي نظام يُرجى التواصل علي البريد التالي: m_khg2000@hotmail أو الإتصال على الرقم الخاص 00201201792967 مجاناً كما يسعدني تعليقاتكم وإقترحاتكم بأفكار مشاريع إكسيل جديدة أو تتناسب مع إحتياجاتكم تحياتي للجميع محمد غزال المحاسب الإصدار الثاني.rar رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 السلام عليكم ورحمة الله وبركاته الاخ العزيز محمد غزال جزاك الله خيرا عمل رائع وجهد كبير جعله الله في ميزان حسناتك وفقك الله ورعاك تقبل فائق احترامي وتقديري 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر ديسمبر 20, 2013 مشاركة قام بنشر ديسمبر 20, 2013 عمل رائع ومجهود كبير هل يمكن تزويدنا بكودvba رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 عذراً أخي ريان تم عمل باسوورد لمحرر الأكواد لحماية الشيت من التلاعب بالأكواد ليس إلا. رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر ديسمبر 21, 2013 مشاركة قام بنشر ديسمبر 21, 2013 السلام عليكم أريد كود ظهو الفورم التي في علامة الإستفهام فهي حركوة جميلة ومحترفة رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 (معدل) من عيوني أخي ريان جرب الأشكال التالية: الشكل الأول: 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 تم تعديل ديسمبر 21, 2013 بواسطه Mohamed_Ghazal رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 الشكل التاني: 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 رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 الشكل الثالث: 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 رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 قم بعمل ثلاث فورم وضع داخل كل فورم شكلاً من الأشكال ثم شغل الفورم ، تحياتي للجميع رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر ديسمبر 21, 2013 مشاركة قام بنشر ديسمبر 21, 2013 السلام عليكم شكرا وجزاك الله كل خير الأشكال جميلة الشكل الثاني لم ينجح ظهر الخطا Sans titre.rar رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 الشكل التاني: Private Sub UserForm_Activate() For N = 1 To 550 Me.Width = 0.7 * N Me.Height = 0.4 * N Next N 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 رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 21, 2013 الكاتب مشاركة قام بنشر ديسمبر 21, 2013 عذراً أخي ريان تم إستدراك الخطأ ، مشكور على الملاحظة والإهتمام . رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر ديسمبر 21, 2013 مشاركة قام بنشر ديسمبر 21, 2013 السلام عليكم الكود التالي تبعك Private Sub UserForm_Activate() For N = 1 To 550 Me.Width = 0.7 * N Me.Height = 0.4 * N Next N End Sub تعارض مع كود آخر عندي فكيف يتم التعديل Private Sub UserForm_Activate() Dim s As Integer For s = 1 To Sheets.Count Me.CmbSheet.AddItem Sheets(s).Name Next End Sub رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 22, 2013 الكاتب مشاركة قام بنشر ديسمبر 22, 2013 (معدل) وعليكم السلام أخي ريان ولايهمك جرب الكودين هما هما بس بالشكل ده في كود واحد: 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 تم تعديل ديسمبر 22, 2013 بواسطه Mohamed_Ghazal رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر ديسمبر 22, 2013 مشاركة قام بنشر ديسمبر 22, 2013 بارك الله فيك_ عمل جميل يرجى اضافة كود طباعه_التقارير و القيود رابط هذا التعليق شارك More sharing options...
omar shideed قام بنشر ديسمبر 22, 2013 مشاركة قام بنشر ديسمبر 22, 2013 صراحة اشكال الفورم رائعة يا ريت لو المزيد رابط هذا التعليق شارك More sharing options...
Mohamed_Ghazal قام بنشر ديسمبر 22, 2013 الكاتب مشاركة قام بنشر ديسمبر 22, 2013 سأحاول أخي عمر بإذن الله التفكير ف أشكال جديدة للفورم وإنت لو ليك تصور معين ف شكل الفورم تقدر تقوله وأنا أنفذه بإذن الله. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان