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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح

بسم الله الرحمن الرحيم احبابنا في الله نرجو مثل هذا الكود الرائع ولكن بدون عمليه المسح يعني يضيف الصفوف بعد بيانات الطل ..



25-08-2017 02:46 صباحا
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
بسم الله الرحمن الرحيم
احبابنا  في الله
نرجو مثل هذا الكود الرائع ولكن بدون عمليه المسح يعني يضيف الصفوف بعد بيانات الطلاب

Private Sub CommandButton1_Click()
    If TextBox1.Text = Sheets("إدخال بيانات أساسية").Range("F1") Then
        Me.Hide
        TextBox1.Text = ""
        MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب"
        If MsgBox("هل تريد ان تكمل ?", vbQuestion + vbYesNo) <> vbYes Then: Exit Sub
        Application.ScreenUpdating = False
        
        '=*=*=*=*=*=*=*=*=*=*=*=*
        'يستدعى الكود المطلوب تنفيذه
            Call DoIt
        '=*=*=*=*=*=*=*=*=*=*=*=*
           
        Application.ScreenUpdating = True

        Unload Me
    Else
        MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب"
        TextBox1.Text = ""
        TextBox1.SetFocus
    End If
End Sub
Private Sub UserForm_Click()

End Sub



توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 08:58 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
السلام عليكم 
الموضوع غير مكتمل لكن الفكرة التي تريدها سيكمن حلها في أمر بسيط وهو حذف أسطر الكود التي تحتوي على Clear أو تحتوي على ClearContents
جرب وإذا لم يفلح الأمر ارفق ملف بالكود بدون تعليقات .. لأن التعليقات تشتتني والله ، ووضح المشكلة بالضبط




25-08-2017 12:01 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح

 الكود الموجود يمسح كل بيانات الصفحات ابتداء من الصف التاني بعد الترويسه .. تمام

الكود الذي يطلبه المعلمون الان

هو نفس الكود في عمله ولكن لايمسح اي بيانات

لاننا سنحافظ عليها

وهي بيانات الطلاب ..

بعد مده من الزمان سياتي طالب محول

المطلوب اضافه صف او العدد الجديد من الصفوف تحت الصفوف الموجوده

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



تم تحرير المشاركة بواسطة :ناصر سعيد
بتاريخ:25-08-2017 12:04 مساء




توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 12:57 مساء
مشاهدة مشاركة منفردة [3]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
 
 
  نسـخ صفوف في صفحات مختلفه 1.rar   تحميل rar مرات التحميل :(7)
الحجم :(221.652) KB




توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 01:52 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
أخي العزيز ناصر
تفضل الملف التالي عله يفي بالغرض إن شاء الله
 
 
  نسـخ صفوف في صفحات مختلفه 1.rar   تحميل rar مرات التحميل :(10)
الحجم :(210.972) KB





25-08-2017 03:08 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
فضلك الله بالجنه
كود اكثر من رائع
خاص لنسخ صفوف في بدايات مختلفه بدون مسح البيانات السابقه
Option Explicit
'هذا الكود للمحترم ياسر خليل
' الهدف من الكود نسخ صفوف بالعدد في يدايات مختلفه من صفحات مختلفه
'يعمل الكود بدون مسح بيانات الطلاب القديمه
'يعمل الكود في بدايات صفوف مختلفه في صفحات متعدده
'تم هذا الكود في   25/8/2017

Sub CopyRow_Procedure()
    CopyRow "بيانات الطلبة", 9
    CopyRow "رصد الترم الثانى", 10
    CopyRow "كنترول شيت", 10
    CopyRow "الحاله", 11
    CopyRow "كشف ناجح", 9
    CopyRow "أعمال السنة", 7
    CopyRow "تحريرى ف 2", 7
    CopyRow "إنجاز1", 7
    CopyRow "تحريرى ف 1", 7
    CopyRow "كشف الدور الثاني", 9
    CopyRow "رصد الترم الأول", 10
    CopyRow "كنترول شيت (2)", 11

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    Application.Goto Sheets("بيانات الطلبة").Range("A1")
End Sub

Sub CopyRow(sSheet As String, sRow As Long)
    Dim ws      As Worksheet
    Dim lr      As Long
    Dim lc      As Long
    Dim i       As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    On Error Resume Next
        Set ws = Sheets(sSheet)
        If ws Is Nothing Then
            MsgBox "Sheet " & sSheet & " Doesn't Exists In The Workbook.", vbExclamation, "Sheet Not Found!"
            Exit Sub
        End If
    On Error GoTo 0

    i = Sheets("بيانات الطلبة").Range("Q1").Value - 1
    lc = LastRowColumn(ws, "C")
    lr = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

    On Error GoTo Skipper
    ws.Range(ws.Cells(sRow, 1), ws.Cells(sRow, lc)).Copy
    ws.Range("A" & lr).Resize(i + 1).PasteSpecial xlPasteAll
    ws.Range("A" & lr).Resize(i + 1, lc).SpecialCells(xlCellTypeConstants, 3).ClearContents
Skipper:
    Application.Goto ws.Range("A1")
End Sub

Function LastRowColumn(ws As Worksheet, rc As String) As Long
    Dim lng     As Long

    If Application.WorksheetFunction.CountA(ws.Cells) <> 0 Then
        With ws
            If UCase(rc) = "R" Then
                lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
            ElseIf UCase(rc) = "C" Then
                lng = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column
            End If
        End With
    Else
        lng = 1
    End If
    LastRowColumn = lng
End Function

 



توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 03:29 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
ملف به الكودين الرائعين للمحترم الاستاذ ياسر خليل
حفظه الله ورعاه
كود لنسخ الصفوف بمسح البيانات القديمه
والكود الاخر بدون مسح البيانات القديمه لاضافه طالب محول بعد الطلاب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  نسـخ صفوف في صفحات مختلفه 11.rar   تحميل rar مرات التحميل :(22)
الحجم :(225.319) KB




توقيع :ناصر سعيد
جزاكم الله خيرا


25-08-2017 03:39 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif نسخ صفوف الى صفوف مختلفه البدايه ولكن بدون مسح
بارك الله فيك وجزاك الله خيراً أخي العزيز ناصر
مشكور على اهتمامك بتوثيق الملفات والأكواد






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حذف الصفوف المحددة من خلال checkbox fathy
5 117 YasserKhalil
تحويل الصفوف لأعمدة باستخدام المصفوفات Transpose Rows To Columns Using Arrays YasserKhalil
6 148 YasserKhalil
تعبئة الصفوف من الليست بوكس Populate ListBox Rows To Worksheet YasserKhalil
5 174 YasserKhalil
شرح كود دالة ubound & lbound مع المصفوفات المبتدأ
1 105 المبتدأ
ترحيل خلايا متفرفه عبر مصفوفة هاوي برمجه
3 183 YasserKhalil

الكلمات الدلالية
لا يوجد كلمات دلالية ..


 








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

الساعة الآن 06:56 مساء

أعلن هنا
أعلن هنا
أعلن هنا