شكرا للجميع شكرا لكم ( الملف قمت بتصميمه و هو أول ملف لي في اكسل اتمنى مساعدتي بتطويره ) ( عنوان معدل )

[rosealshamasad]

بتشكركم كتير معلوماتكم مفيدة و بفضلكم تعلمت معظم الأكواد و تصميم البرامج

صديقتكم روز‫المحاسبة - نسخة.xlsm

هذا الملف قمت بتصميمه و هو أول ملف لي في اكسل اتمنى مساعدتي بتطويره جماليا و استخدامه 

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / rosealshamasad

بارك الله فيكي

واهلا وسهلاً بك بين اخوانك بالمنتدي

وان شاء الله ستسعدين بالانضمام الي اسرة هذا الصرح العملاق

لان الجميع فيه يخدم بعضه ويحب بعضه البعض ابتغاء مرضاة الله فقط

وبعد اذنك سوف اضع الرقم السري لفتح ملفك وهو  : 123

وبالنسبة للتعديلات برجاء تحديد المطلوب من التطوير وخلافه ليمكن للجميع مساعدتك

تقبلي خالص تحياتي

[rosealshamasad]

شكرا  لردك على مشاركتي 

ارجو منك الاطلاع عليه و توجيهي لتطويره او تعديله من ناحية الشكل  العرض فهو ملف محاسبي و لا اعلم كيفية تطويره و اضافه الميزات اليه

 

[سليم حاصبيا]

أول تعديل يمكن اجراؤه هو استبدال الماكرة لتعبئة البيانات 

يهذا الكود القصير

Private Sub CommandButton2_Click()
Dim lastrow As Integer
Dim i%
lastrow = [b1000].End(xlUp).Row + 1
For i = 2 To 11
 Cells(lastrow, i).Value = Me.Controls("TextBox" & i - 1).Value
  Me.Controls("TextBox" & i - 1) = ""
 Next
MsgBox " تم الحفظ  ", vbInformation, "Rose Alsham Asad"
End Sub