أخي العزيز حرصا ً على أخواني المسلمين ألألذين أنارو لي هذا الطريق ليأخذو أجرهم مضاعف
لأقوم بتوصيل ماعلمني هؤلاء الشباب من الذكور و الإناث سأقوم بأذن الله شرح كيفية انتقال البيانات من الفورم إلى الإكسل
الشرح :
نقوم بإنشاء form داخل الإكسل
بعد ذلك نقوم بإنشاء text داخل form
ثم نقوم بإنشاء زرار داخل form
ثم نضغط على الزرار مرتين ستأتي البرمجة الخاصة بالإزرار
تأتي الشفرة التالية :
Private Sub CommandButton1_Click()
End Sub
هكذا تكون فارغة من الأوامر تمام
نقوم بإضافة بداية تنزيل البيانات
من الصف و العمود
Cells(5, 3).Select
5 هي الصف ستبدأ الكتابة في الصف التالي و هو 6
3 هو العمود ستبدأ الكتابة في العمود نفسه و هو 3
و هذا أمر الإدخال
ActiveCell.Offset(0, 2) = TextBox1.Value
2 هو العمود ستبدأ الكتابة في العمود نفسه
و هذا امر مسح في الأخير
TextBox1.Value = ""
الصورة النهائية للشفرة هي
Private Sub CommandButton1_Click()
Cells(5, 3).Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveCell.Offset(0, 1) = TextBox3.Value
Columns.AutoFit
TextBox1.Value = ""
End Sub
ويعطيك العافية