اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

m_khg2000@hotmail

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

00201201792967

مجاناً

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

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

 

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

محمد غزال

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

الشكل الأول:

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

تم تعديل بواسطه 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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

ولايهمك

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

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

تم تعديل بواسطه Mohamed_Ghazal
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information