عامر ياسر قام بنشر أغسطس 6, 2016 مشاركة قام بنشر أغسطس 6, 2016 هذ ملف قمت بعمله من خلال متابعتي لهذا المنتدى ومواضيعه الشيقة قمت بهذا العمل البسيط الذي هو قطرة في بحر علمكم ارجو اعطائي رأيكم بالعمل واتمنى ان يكون ذا فائدة لبعض الاخوان واخذا ً بنصيحة الاستاذ ياسر خليل أبو البراء الرقم السري هو 11111 قاعدة بيانات المدرسة 1.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 6, 2016 مشاركة قام بنشر أغسطس 6, 2016 بارك الله فيك أخي العزيز عامر وجزيت خيراً واصل بلا فواصل .. 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر أغسطس 6, 2016 مشاركة قام بنشر أغسطس 6, 2016 السلام عليكم ممتاز استاذ عامر 1 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أغسطس 6, 2016 مشاركة قام بنشر أغسطس 6, 2016 مجهود رائع اخي الكريم عامر ياسر وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم حبيت اسهل عليك بعض الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال يبسط ليك الترحيل في كام سطر كدا صغيرين بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا والوقت الكود Private Sub CommandButton1_Click() Dim LR As Long Dim I As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 20 Application.ScreenUpdating = False Cells(LR, I).Value = Me.Controls("TextBox" & I).Value Me.Controls("TextBox" & I) = "" Next Application.ScreenUpdating = True End Sub الكود بسيط باذن الله عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20 ترحيل.rar 3 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 6, 2016 الكاتب مشاركة قام بنشر أغسطس 6, 2016 4 ساعات مضت, ياسر خليل أبو البراء said: بارك الله فيك أخي العزيز عامر وجزيت خيراً واصل بلا فواصل .. شهادة اعتز بها من استاذ مبدع ورائع 4 ساعات مضت, محمد الخازمي said: السلام عليكم ممتاز استاذ عامر وعليكم السلام .... تقديري واحترامي اخي الكريم محمد الخازمي 3 ساعات مضت, ياسر العربى said: مجهود رائع اخي الكريم عامر ياسر وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم حبيت اسهل عليك بعض الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال يبسط ليك الترحيل في كام سطر كدا صغيرين بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا والوقت الكود Private Sub CommandButton1_Click() Dim LR As Long Dim I As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 20 Application.ScreenUpdating = False Cells(LR, I).Value = Me.Controls("TextBox" & I).Value Me.Controls("TextBox" & I) = "" Next Application.ScreenUpdating = True End Sub الكود بسيط باذن الله عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20 ترحيل.rar شكري وتقديري استاذ ياسر العربى شهادة اعتز بها من استاذ مبدع وشكرا لكم لدعمنا بالكود جزاك الله كل خير منكم نتعلم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان