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

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


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

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information