أكاديمية الصقر للتدريب

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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





وضع رقم تسلسل الاسم التالي في التكست بوك ١

السلام عليكم اساتذتنا الكرام فضلاً وليس امراً التعديل على كود الفورم حاولت اظهار الرقم ولم انجح المطلوب ان يقوم بوضع رقم ..


موضوع مغلق

الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »


26-08-2020 08:23 صباحا
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم اساتذتنا الكرام
فضلاً وليس امراً التعديل على كود الفورم حاولت اظهار الرقم ولم انجح المطلوب ان يقوم بوضع رقم تسلسل الاسم التالي في التكست بوك ١ مع امكانية تغيير الرقم يدويا الى رقم اخر كما موضح في المرفق
مع جزيل الشكر
 
 
  نموذج المطلوب-1.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(21.173) KB



أفضل إجابة مقدمة من salim وهي:
هذه الصورة توضح الكود
a8HAK_Screenshot_1الملف مرفق


 
عرض الإجابة




26-08-2020 10:13 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
وعليكم السلام
عند تحميل الملف لم يظهر الفورم لدي ولا أعلم السبب ، حاول إعادة رفع الملف وحفظ الملف بتنسيق قديم 

26-08-2020 03:36 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
استاذ ياسر العزير قمت برفع الملف مره اخرى تحياتي
 
 
  نموذج المطلوب-1.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(21.173) KB


26-08-2020 04:41 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
إن شاء الله أحاول الإطلاع على الملف ليلاً إلا إذا تدخل أحد الأعضاء.

28-08-2020 02:31 مساء
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
 
 ان يقوم الكود بعرض الرقم فقط . اي ان  العمود A يكون مرقم مسبقا وكود التكس بوكس يظهر فقط  رقم خلية العمود A التي تقابل اخر خلية فارغة في العمود B
مع جزيل الشكر

29-08-2020 03:31 صباحا
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
اتفضل أخى الكريم
الملف المرفق به المطلوب حسبما فهمت من طلبكم
مع العلم تم أضافة زر ( إضافة ) وذلك لأضافة البيانات من الفورم إلى ورقة العمل + المطلوب الذى أشرتم به
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  M_D.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(22.328) KB


29-08-2020 07:34 صباحا
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif وضع رقم تسلسل الاسم التالي في التكست بوك ١
المشاركة الأصلية كتبت بواسطة: محمد الدسوقى
اتفضل أخى الكريم
الملف المرفق به المطلوب حسبما فهمت من طلبكم
مع العلم تم أضافة زر ( إضافة ) وذلك لأضافة البيانات من الفورم إلى ورقة العمل + المطلوب الذى أشرتم به
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

بعد اذنك استاذ محمد
1 -لا ضرورة لتكرار نفس التعريف لــــ Sh  و  Lr
   يكفي ادراج ماكرو بسيط في بداية الـــ  Module قبل أول Sub
كما في الصورة المرفقة 

tNFC8_My_pic

2- بالنسبة لحدث الـــ  TextBoxe1  من الأفضل وضعه Exit 
       لا Change 
     
3 -اضافة الرقم 0 الى كود اظهار اليورز (UserForm1.Show 0)
     .مما يعطي امكانية التحرك في الشيت حتى ولو كان اليورز ظاهراً
4- مرفق الكود كما أتخيله أنا



Option Explicit
Dim sh As Worksheet
Dim lr
'++++++++++++++++++++++++++++++++++++++
Sub One_For_All()                         '+
Set sh = Sheets("Customer")           '+
 lr = Sheets("Customer"). _
 Cells(Rows.Count, 2).End(3).Row   '+
End Sub
'++++++++++++++++++++++++++++++++++++++++

Private Sub cmdSave_Click()
   Unload Me
  Exit Sub
End Sub
'=======================================
Private Sub CommandButton1_Click()
One_For_All
UserForm1.Hide
With ActiveSheet
.PageSetup.PrintArea = _
.Range("A1:D" & lr).Address
.PrintPreview '<<<<<<====== REMOVE TO .PrintOut
End With
UserForm1.Show 0
End Sub
'========================================
Private Sub CommandButton2_Click()
One_For_All
 sh.Cells(lr + 1, 2).Value = Me.tbxName.Text
 sh.Cells(lr + 1, 3).Value = Me.tbXMobile.Text
  Me.TextBox1.Text = lr + 1
 Me.tbxName.Text = ""
 Me.tbXMobile.Text = ""
 sh.Cells(lr + 1, 1) = lr + 1

End Sub
'=============================================
Private Sub TextBox1_afterUddate()
One_For_All
'---------------------------------------------
  If Me.TextBox1.Text <> lr + 1 Then
   Me.TextBox1.Text = sh.Cells(lr, 1)
  End If
End Sub
'=================================================
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
One_For_All
 If Me.TextBox1.Text <> lr + 1 Then
 Me.TextBox1.Text = lr + 1
  End If
 End Sub
 '==========================================
Private Sub UserForm_Activate()
One_For_All
  Me.TextBox1.Text = lr + 1
End Sub




   
 
 



الصفحة 1 من 4 < 1 2 3 4 > الأخيرة »


الكلمات الدلالية
تسلسل ، الاسم ، التالي ، التكست ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:19 صباحا