logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





26-08-2018 08:41 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2

لدينا جدول يحتوي على اسماء التلاميذ مع علاماتهم بشكل عامودي


المطلوب تحويله الى جدول مطاطي مع جمع العلامات


 الملف المرفق بوضح كل شيء



​الحج مصطفى أعترض على المتغير K في الماكرو وقال :ما لوش لازمة أيه دا انت عايز تضيعنا ؟؟!!...
معليش يا حج انا أعلنت عنه كرقم متسلسل قلت يعني يمكن احتاجه في شغلانة ، و لم استعمله واذا مش عاجبك امحيه بستين داهية

هو يعني بيل غيتس حا يتعب بالمتغير K دا او حا ينقص من رصيده لو زاد 100 متغير في الكود (ما لمش لازمه) فكلهم حا يصفروا بعد تنفيذ الكود و يرجعوا لاساسهم "" ,NoThing أو صفر حسب اعلانهم في الـــ Dim
CODE

Option Explicit
Private Sub CommandButton1_Click()
salim_transpose
End Sub
'=========================================
Sub salim_transpose()
Application.ScreenUpdating = False
If ActiveSheet.Name <> "My_Data" Then GoTo 1
 Dim i%, k%, c%, lr1%, col%, f%: f = 2
 Dim summ$, t$, s%
Range("a2").CurrentRegion.Offset(, 2).Clear
 i = Range(Range("B3"), Range("B3").End(xlDown)).Count: k = 0: c = i
 Range("c1") = "Name"
 Range("d1").Resize(, i) = Application.Transpose(Range(Range("B3"), Range("B3").End(xlDown)).Offset(, -1))

 Do
  With Range("a" & f)
  If .Value = "" Then Exit Do
  .Offset(-i + c, 2) = .Value
  .Offset(-i + c, 3).Resize(1, c) = _
  Application.Transpose(.Offset(1, 1).Resize(c))
  End With
       i = i + c
       f = f + c + 1
       k = k + 1
 Loop
     Cells(1, c + 4) = "Sum"
   
   '=========================
   lr1 = Cells(Rows.Count, 3).End(3).Row
   col = Cells(1, Columns.Count).End(1).Column
     With Range(Cells(1, 3), Cells(lr1, col - 1))
    .Interior.ColorIndex = 20
    .Borders.LineStyle = 1
    .Interior.ColorIndex = 35
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .InsertIndent 1
    End With
   '=====================
 For s = 2 To lr1
   t = Range("d" & s).Offset(0, c - 1).Address(0, 0)
   summ = "sum(D" & s & ":" & t & ")"
   Cells(s, c + 4) = Evaluate(summ)
 Next
With Range(Cells(1, c + 4), Cells(lr1, c + 4))
    .Interior.ColorIndex = 6
    .Borders.LineStyle = 1
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .InsertIndent 1
 End With

1:
 t = "": summ = ""
   Application.ScreenUpdating = True
End Sub

 
 
  Tanspose_notes.rar   تحميل rar مرات التحميل :(27)
الحجم :(23.762) KB





look/images/icons/i1.gif تحويل البيانات من عامودين الى جدول مطاطي
  27-08-2018 10:44 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 450
الجنس :
تاريخ الميلاد : 19-3-1990
قوة السمعة : 796
الاعجاب : 0
أحسنت استاذ سليم بارك الله فيك




look/images/icons/i1.gif تحويل البيانات من عامودين الى جدول مطاطي
  27-08-2018 10:49 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
تسلم ايديك استاذى الكريم عمل رائع
جزاك الله كل خير



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif تحويل البيانات من عامودين الى جدول مطاطي
  30-08-2018 07:23 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
أحسنت أخي الحبيب سليم ..جزاك الله خيراً




look/images/icons/i1.gif تحويل البيانات من عامودين الى جدول مطاطي
  06-12-2018 08:26 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
جزاك الله كل خير




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دوره متكامله في الأكسس من خلال مشروع عملي شرح و تحليل قاعدة البيانات بكار للأبد
34 6622 alilo
كود بحث مطاطي بأي جزء من البيانات علي بطيخ سالم
11 2004 star
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
147 12693 sharawee707
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 287 YasserKhalil
مشكلة كود حفظ تعديل البيانات في اليوزرفورم شبل
1 442 شبل

الكلمات الدلالية
تحويل ، البيانات ، عامودين ، جدول ، مطاطي ،









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

الساعة الآن 08:37 AM