إظهار صف تكست بوكس جديد عند الضغط على مفتاح (Enter)

[أنس دروبي]

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

أساتذتي وأخواني الكرام في المف المرفق المطلوب بالشرح

وشكراً

إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

[أبو حنــــين]

السلام عليكم

إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

[أنس دروبي]

الله يجزيك الخير أخي أبو حنين على الملف

ولكن أخي تم أضافة صف واحد فقط

والمقصود أخي هو أضافة صف كلما قم بالضغط على مفتاح enter

يعني مثلاً

عند الكتابة في الصف الثاني الذي أضيف والكتابة في تكسست بوكس رقم (8) والضغط على مفتاح(enter) يقوم الكود بإضافة صف تكست بوكس أخر وبعده كذلك الأمر يضيف الصف الثالث والرابع

وبالنسبة للربط فلم ترتبط إدخال البيانات على الصفحة علماً أن الصف الجديد الذي يضاف يجب أن تضاف إدخالاته في الصفحة

أرجو أن اكون قد أوفيت بالشرح وشكراً

أخوكم

أنس دروبي

[عبدالله المجرب]

ولكن أخي تم أضافة صف واحد فقط

والمقصود أخي هو أضافة صف كلما قم بالضغط على مفتاح enter

يعني مثلاً

عند الكتابة في الصف الثاني الذي أضيف والكتابة في تكسست بوكس رقم (8) والضغط على مفتاح(enter) يقوم الكود بإضافة صف تكست بوكس أخر وبعده كذلك الأمر يضيف الصف الثالث والرابع

تم عمل اللازم ولكن الربط تم بواسطة زر لاضافة سطر جديد وليس الضغط على انتر

وبالنسبة للربط فلم ترتبط إدخال البيانات على الصفحة علماً أن الصف الجديد الذي يضاف يجب أن تضاف إدخالاته في الصفحة

أرجو أن اكون قد أوفيت بالشرح وشكراً

تم عمل اللازم في زر الترحيل

جرب المرفق

إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

[الـعيدروس]

السلام عليكم

بعد اذن الاساتذه الافاضل

تعدد الحلول

تفضل

إظهار تكست_Ali_1.rar

تم تعديل سبتمبر 22, 2012 بواسطه عباد

[أنس دروبي]

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

الله يجزيك الخير أخي ومعلمي عبد الله والله أني أشتقت لعلمك الواسع والمتميز دائماً

كان هذا هو المطلوب بكل معنى الكلمة وحتى إذا لم يكن أثناء الضغط على مفتاح enter

وبالنسبة لعمل الأخ أبو نصار فكان أيضاً متميزا وهو المطلوب ولكن الكود في الملف مرة يعمل وأخرى لا يعمل كأنه في عطل أو نقص فيه

ولا يتم حذف الأدخالات بعد الضغط على زر ترحيل والرجوع الى الأفتراضي وهو صف واحد

أرجو مراجعة الكود وتصحيحه لو عذبتك أخي عباد

والله يجزيكم الخير

تم تعديل سبتمبر 22, 2012 بواسطه Creation World

[الـعيدروس]

السلام عليكم

الاخ الفاضل Creation World

حمل مرفق المشاركة السابقة تم التعديل

ان شاء الله يزبط معك

[عبدالله باقشير]

السلام عليكم

الشكر واصل للاخ الحبيب عبدالله

والاخ الحبيب عباد حفظهما الله

===============

لائراء الموضوع

بميزة اخذ عرض وموقع الليبل عنوان العمود

المرفق 2003 -2007

إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

[الـعيدروس]

السلام عليكم

الاستاذ الحبيب عبدالله باقشير

عمل متقن وجميل

بارك الله فيك

معلومات ناخذها على طبق من ذهب

زاك الله علما ورفعه

[أنس دروبي]

الله يجزيك الخير

أخي وحبيبي الأستاذ عبد الله باقشير

فأنت لك فضل علي في تعلمي المحاسبة على إكسل

كان هو المطلوب بكل معنى الكلمة ولكن المشكلة ذاتها عند الضغط على زر ترحيل وبعد وضع البيانات في الورقة لايرجع الكود الى الحالة الإفتراضية وهي الصف الواحد

وبالنسبة لملف الأخ أبو نصار نفس المشكلة لم تتغير

الذي بقي في الكود هو الإرجاع الى الحالة الإفتراضية

والسلام عليكم

أنس دروبي

[الـعيدروس]

جربته الان

شغال مزبوط

بعد ضغط الزر يبقى السطر الافتراضي فقط

ماهي المشكله التي تواجها ؟؟

[أنس دروبي]

أخي أبو نصار أرجع أغلق الفورم وأعيد فتحه من جديد وإدخل البيانات في السطر الأول وعند الضغط على مفتاح enter

لأيضيف صف ثاني

هذا الذي يحصل معي في ملفك

ونشكركم على تعاونكم معناوأرجو أن لا أكون قد أزعجكم بطلبي

والسلام

أنس دروبي

[الـعيدروس]

فعلا اخي انس

الان مزبوط اعتقد

جرب مرفق نفس المشاركه السابقة

[أنس دروبي]

الله يجزيك الخير أخي أبو نصار

الآن أشتغل الكود بطريقة صحيحة وفعالة

شكراً لك على المعلومات التي قدمتها لي

وصل المطلوب

والسلام عليكم

أنس دروبي

[عبدالله باقشير]

السلام عليكم

الاستاذ الحبيب عبدالله باقشير

عمل متقن وجميل

بارك الله فيك

معلومات ناخذها على طبق من ذهب

زاك الله علما ورفعه

اكرمك الله اخي الحبيب عباد

تقبل تحياتي وشكري

=====================================

الله يجزيك الخير

أخي وحبيبي الأستاذ عبد الله باقشير

فأنت لك فضل علي في تعلمي المحاسبة على إكسل

كان هو المطلوب بكل معنى الكلمة ولكن المشكلة ذاتها عند الضغط على زر ترحيل وبعد وضع البيانات في الورقة لايرجع الكود الى الحالة الإفتراضية وهي الصف الواحد

وبالنسبة لملف الأخ أبو نصار نفس المشكلة لم تتغير

الذي بقي في الكود هو الإرجاع الى الحالة الإفتراضية

والسلام عليكم

أنس دروبي

جزاك الله خيرا

تحتاج اضافة هذه الاسطر نهاية كود الترحيل فقط

Me.FrameList.Controls.Clear

MyCont = 0

MyTop = Frmtop

kh_AddContl

هذا كود الترحيل مع اضافة الاسطر

Private Sub CommandButton1_Click()

Dim LastRow As Long

Dim Addrs As String

Dim cotl As Control

''''''''''''''

LastRow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1

'''''''''''''''

For Each cotl In Me.FrameList.Controls

If Len(Trim(cotl)) Then

Addrs = cotl.Name

Sheets("Data").Cells(LastRow, "A").Range(Addrs).Value = cotl.Value

End If

Next

Me.FrameList.Controls.Clear

MyCont = 0

MyTop = Frmtop

kh_AddContl

End Sub

[Akram Galal]

أستاذي الفاضل عبد الله بقشير

عمل رائع جداً

ولك كل الشكر والإحترام

ولكن لدي طلب صغير

وهو اريد أن لا يزيد عدد صفوف التكست بوكس عن 20 صف فقط لاغير

وجزاكم الله خيرا.

[عبدالله باقشير]

أستاذي الفاضل عبد الله بقشير

عمل رائع جداً

ولك كل الشكر والإحترام

ولكن لدي طلب صغير

وهو اريد أن لا يزيد عدد صفوف التكست بوكس عن 20 صف فقط لاغير

وجزاكم الله خيرا.

تحتاج اضافة هذه السطر بداية الكود kh_AddContl

If MyCont = 20 Then Exit Sub

هذا الكود بعد اضافة السطر اعلاه

Private Sub kh_AddContl()

Dim MyName As String

Dim MyFrmLeft As Double, ScHght As Double

Dim MyLeft As Double, MyWidth As Double

Dim i As Integer

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

If MyCont = 20 Then Exit Sub

MyCont = MyCont + 1

ScHght = (MyCont * iTop) + Frmtop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

With Me.FrameList

    If ScHght > .Height Then .ScrollHeight = ScHght

    MyFrmLeft = .Left + .Width - .InsideWidth

End With

''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    For i = 1 To 4

        MyWidth = Me.Controls("LabelZ" & i).Width

        MyLeft = Me.Controls("LabelZ" & i).Left - MyFrmLeft

        MyName = Cells(MyCont, i).Address

        With Me.FrameList.Controls.Add("Forms.TextBox.1", MyName, True)

            .Move MyLeft, MyTop, MyWidth, iHt

            .TextAlign = 3

        End With

    Next

    MyTop = MyTop + iTop

'''''''''''''''''''''''''''''''''''''''''''''''''

End Sub

[عبدالله المجرب]

السلام عليكم

الاستاذ الحبيب عبدالله باقشير

عمل متقن وجميل

بارك الله فيك

معلومات ناخذها على طبق من ذهب

زاك الله علما ورفعه

بالفعل عمل موفق وفكرة زر الانتر جميلة

بارك الله لك وعليك وحواليك يا ابا علي على هذه الاعمال الرائعة

[أنس دروبي]

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

الله يجزيك ألف خير أخي وأستاذي الحبيب عبد الله باقشير على هذه الإضافة الرائعة والمتميزة

فكان هذا هو المطلوب والمقصود تماماً بدون زيادة أونقصان

وإن شاء الله سوف تشاهدون هذا الكود في برنامج لي سوف أضيفه على المنتدى قريباً بإذن الله تعالى

لن أتكلم عليه الآن وأنما هو مشروع تخرج لي في دراستي

مرة أخرى الله يجزيك الخير

وكل من ساهم معنا في إكمال هذه الفكرة الجميلة

والسلام عليكم

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

تم تعديل سبتمبر 23, 2012 بواسطه Creation World

[عبدالله باقشير]

السلام عليكم

بالفعل عمل موفق وفكرة زر الانتر جميلة

بارك الله لك وعليك وحواليك يا ابا علي على هذه الاعمال الرائعة

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

تقبل تحياتي وشكري

[عبدالله باقشير]

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

الله يجزيك ألف خير أخي وأستاذي الحبيب عبد الله باقشير على هذه الإضافة الرائعة والمتميزة

فكان هذا هو المطلوب والمقصود تماماً بدون زيادة أونقصان

وإن شاء الله سوف تشاهدون هذا الكود في برنامج لي سوف أضيفه على المنتدى قريباً بإذن الله تعالى

لن أتكلم عليه الآن وأنما هو مشروع تخرج لي في دراستي

مرة أخرى الله يجزيك الخير

وكل من ساهم معنا في إكمال هذه الفكرة الجميلة

والسلام عليكم

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

الله يوفقك في مشروعك

وجزاكم خيرا وبارك فيكم

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

تعديل بسيط لمظهر الفورم في الملف

المرفق 2003-2007

Enter.rar

[أنس دروبي]

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

أخي الحبيب عبد الله

التعديل في الملف أعطاه مرونة في العمل وسهولة الأداء

الله يجزيك الخير وأدعو الله أن يجعلك منارة للعلم نهتدي بها في طريقنا

أخي لو سمحت وتكرمت علي أرجو مشاهدة هذا الرابط والمشاركة رقم(9)

http://www.officena.net/ib/index.php?showtopic=43349&st=0#entry250437

والسلام عليكم

أخوكم انس دروبي