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()

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

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

الشكل الثالث:

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