الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل بيانات من تكست بوكس الى اكسل شيت

بدأه persoon في 26 يوليو 2010 · 8 رد · 1,739 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا عندي مشكله وأتمنى أحد منكم يساعدني

أنا عامله فورم واحد فقط

فيه أدخال الاسم العميل

ورقمه

وهذا الفورم راح أعبيه عند كل زبون راح يشتري مني

وأبغاه كل مره أسجل فيه بيانات

بشكل ضمني ينشئ لي أكسل شيت في جهازي

فيه البيانات

يعني يكون فيه ثلثة أعمده

الأول أسم العميل

والثاني رقمه

مثل ماهو بالفورم

وعلى فكره أنا خلصت من عمل الفورم وسويت 2 تكست بوكس علشان أعبي البيانات

لكني عندي مشكلتينأقدر أحصرها لكم

1- خليت الفورم بعد ما اعبي بيانات أول زيون .. مثلا أضغط زر " زبون أخر" ويطلع لي نفس الفورم السابق بس طبعا بدون بيانات وأعبي بيانات الزبون الجديد

وهكذا ..لكن مشكلتي .. أنه مايكون بنفس المكان يعني يوم أعمل ديبق وأحط زر زبون أخر ,, صح تطلع الفورم زي ما ابي لكن مكانها أبيه نفس مكان الفورم السابق

يعني يظهر لمستخدم البرنامج حقي , انه كأنه نفس الفورم وبنفس المكان .

2- انه كل ما أعبي بيانات زبون أضغط على زر حفظ و في هذا الزر " يكون ضمنيا يكمل تعبئة بيانات على نفس الاكسل شيت

يعني append

اتمنى فهمتوني

ملاحظه:

أنا اعرف كيف أنقل البيانات الى ملف وورد ,, لكن أبيه أكسل

وشكرا

تم تعديل هذه المشاركة بواسطة persoon في 26 يوليو 2010 في 17:44

You CAN

#2
persoon كتب:

1- خليت الفورم بعد ما اعبي بيانات أول زيون .. مثلا أضغط زر " زبون أخر" ويطلع لي نفس الفورم السابق بس طبعا بدون بيانات وأعبي بيانات الزبون الجديد

وهكذا ..لكن مشكلتي .. أنه مايكون بنفس المكان يعني يوم أعمل ديبق وأحط زر زبون أخر ,, صح تطلع الفورم زي ما ابي لكن مكانها أبيه نفس مكان الفورم السابق

في حدث الـ Click الخاص بـ زر "زبون آخر " .. أكتبي كود يمسح البيانات .. و ما يحتاج تسوين فورم ثانية ..

مثلاً :

TextBox1.Clear()

وسؤالج الثاني .. أكتبي الكود الخاص بالحفظ ..

واضح ؟

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#3

يعطيك العافيه أشراقه

لكن أنا أقصد في سؤالي الأول..

أنه يتكرر له الفورم اذا ضغطت زر " زبون أخر" وناديت نفسه شوفي الكود



F.TextBox1.Text = ""
F.TextBox2.Text = ""
F.TextBox3.Text = ""
F.TextBox4.Text = ""
F.TextBox5.Text = ""
F.TextBox6.Text = ""

F.ShowDialog()
 Dim F As New Form1()

عادي مشى معاي زي الجلاوه ..لكن الاشكاليه عندي الأن

هي أنه

الفورم هذي تجي مرتفعه عن الفورم السالبقه بالمكان

أبيها نفس المكااان السابق يعني بأحداثيات x و y

فهمتي علي

اللوكيشن مايجي نفس الفورم الأولى

..

وسؤالي الثاني وهو الأهم .. بديت فيه وياليت تساعدوني..

أول شغله عرفت هالمتغيرين


Dim Et As New Excel._ExcelApplication
  Dim Ex As New Excel._ExcelSheet

بعد كذا رحت لزر الحفظ

وحطيت فيه



Et = Ex.workbooks.item(1).worksheets("المصنف")
Et.Cell(1, 2) = "اكتب ما شاءت حيث سنكتب بالعمود 1 الحقل 2"
     Ex.WorkBooks.open("C:\Requests.els")

يعني أنا مصلحه أكسل من قبل فاضي و بخلي كل مره أعبي زبون يعمل لهذا أبديت ويعبي فيه كل مره أضيف زبون..

وقفت لحد هنا

وبكمل

وان شاء الله يطلع معاي ,,واذا عارفين ,, تفضلوا بالاجابه هنا وأكون ممنونه لكم من قلبي

You CAN

#4

up

:unsure:

You CAN

#5

بالنسبة لأن الفورم يكون نفس المكان ، ممكن تغيرين الخاصية StartPosition للفورم الى CenterScreen ،،

بكذا كل ما انفتحت الفورم بتكون في منتصف الشاشة ،،

#6

أنت أحسن واحد ,, شككككرا لك..

الان انا جالسه على الأكسل

وان شاء الله يضبط

وبنزله هنا للفائدده :)

والى الان أنتظر أحد يسعفني ..

:wub:

You CAN

#7

أنحلت المشكله

الحمدلله

ان شاء الله أنزل الحل لتعم الفائده :)

شكرا لك

profesor-xp

دائما تساعدني :)

You CAN

#8

فى انتطار الحل

#9

ابشر اخوي..

بس اخلص برنامجي

أنزل الكود .. وأي سؤال أنا حاضره

خلال هاليومين أن شاء الله بنزله :)

You CAN

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…