البرنامج المحاسبي "المحاسب" الإصدار الثاني

[Mohamed_Ghazal]

مُرفق بالملف ملف وورد لشرح كيفية التعامل مع البرنامج

لطلب برامج أو شيتات إكسيل لأي نظام يُرجى التواصل علي البريد التالي:

m_khg2000@hotmail

أو الإتصال على الرقم الخاص

00201201792967

مجاناً

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

أو تتناسب مع إحتياجاتكم

 

تحياتي للجميع

محمد غزال

المحاسب الإصدار الثاني.rar

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ العزيز محمد غزال جزاك الله خيرا

عمل رائع وجهد كبير

جعله الله في ميزان حسناتك

وفقك الله ورعاك

تقبل فائق احترامي وتقديري

[حمادة عمر]

[ريان أحمد]

عمل رائع ومجهود كبير

 

هل يمكن تزويدنا بكودvba

[Mohamed_Ghazal]

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

[ريان أحمد]

السلام عليكم

 

أريد كود ظهو الفورم التي في علامة الإستفهام فهي حركوة جميلة ومحترفة

[Mohamed_Ghazal]

من عيوني أخي ريان جرب الأشكال التالية:

الشكل الأول:

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

[Mohamed_Ghazal]

الشكل التاني:

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

[Mohamed_Ghazal]

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

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

[Mohamed_Ghazal]

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

[ريان أحمد]

السلام عليكم

شكرا وجزاك الله كل خير

 

الأشكال جميلة   الشكل الثاني لم ينجح

 

ظهر الخطا

Sans titre.rar

[Mohamed_Ghazal]

الشكل التاني:

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

[Mohamed_Ghazal]

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

[ريان أحمد]

السلام عليكم

 

 

الكود  التالي تبعك

 

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

[Mohamed_Ghazal]

وعليكم السلام أخي ريان

ولايهمك

جرب الكودين هما هما بس بالشكل ده  في كود واحد:

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

[جلال الجمال_ابو أدهم]

بارك الله فيك_ عمل جميل

 

يرجى اضافة كود طباعه_التقارير و القيود

[omar shideed]

صراحة اشكال الفورم رائعة

يا ريت لو المزيد

[Mohamed_Ghazal]

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

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