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 عشان ننفذها ونعرضها بالمنتدى لخدمة السادة الأعضاء والزوار وأي حد محتاج مشروع إكسيل إحترافي لخدمة نشاطه أياً كان يقدر يتواصل معي لتنفيذه (مجاناً). تحياتي للجميع

مشكور جداً أخي جلال رجاء لا تبخل علي بأي ملحوظة . تقبل تحياتي//

أخي الأسيوطي أسعدني تعليقك جداً ويسعدني أُلفَتُكَ لي أتمنى منك ومن كل إخواني عدم البخل علي بالتعليقات أو الأخطاء أو القصور الذي قد يواجهه البرنامج لتفاديه في النسخة المقبلة ولولا التعليقات ، لن تكون هناك نسخة مقبلة تحياتي لك . . . . .

برنامج محاسبي دقيق جداً لكنه يحتاج إلى خبراتكم وتعليقاتكم حتى أتمكن من تطويره لأفضل درجة ممكنة يعتمد هذا البرنامج في بيئته على جداول الإكسيل ، ويعتمد على فورم واحد فقط يمكنك هذا الفورم من إدخال حسابات الأستاذ الرئيسية وإلحاق الحسابات المساعدة لها إدخال قيود اليومية قيد قيد وترحيلها بضغط زر فقط بمنتهى الدقة الإستعلام عن أي حساب أستاذ وأرصدته من خلال صفحة إستدعاء مخصصة لحسابات الأستاذ الأستعلام عن أي حساب مساعد وبياناته من خلال صفحة مخصصة لذلك ترصيد الحسابات المساعدة في حالة كثرة البيانات في حالة أي إستفسار برجاء التواصل على رقم الهاتف 00201201792967 كما يسعدني تلقى تعليقاتكم وإقتراحاتكم محمد غزال _ القاهرة 30 / 11 / 2013 ACCOUNTANT.rar