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

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


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





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

السلام عليكم ..الصورة توضح المطلوب و الملف المرفق لتنفيذ المطلوب ..



27-06-2020 07:39 مساء
mostachar
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 1-1-1979
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 36
 offline 

                                              السلام عليكم ..الصورة توضح المطلوب و الملف المرفق لتنفيذ المطلوب

                                                        مكتبة منزلية بها صفحة بيانات باسم  " فهرس الكتب "   باصنافها وعناوينها ...وغيرها.

1- اريد نقل كل صنف الى وريقة تحمل نفس اسم الصنف ( مثلا الكتاب صنفه "اجتماعيات" واريد نقله الى وريقة شيت يحمل إسم أيضا  "اجتماعيات"   وهكذا لبقية أصناف الكتب مهما تعددت

2- اريد نقل العمود الذي به "حالة الكتب" الى وريقة-شيت- تحمل نفس الاسم " حالة الكتب " وذلك لغرض الاطلاع على كل الكتب التي بها ملاحظات فقط
 
                                                   النتيجة المراد الحصول عليها في الملف المرفق (كل شيت او وريقة لها بياناتها كما نريدها )

sDqOG_%D8%AA%D8%B1%D8%AA%D9%8A%D8%A8%20%D9%88%D8%AA%D8%B5%D9%86%D9%8A%D9%81%20%D9%85%D9%83%D8%AA%D8%A8%D8%AA%D9%8A لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
  ترتيب وتصنيف مكتبتي.jpg   تحميل jpg ترتيب وتصنيف مكتبتي.jpg مرات التحميل :(3)
الحجم :(234.344) KB
 
  ترتيب وتصنيف رفوف مكتبتي.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(21.04) KB


27-06-2020 08:33 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نموذج رفوف مكتبتي المنزلية
وعليكم السلام أخي الكريم
المنتدى الهدف منه تعليمي لذا يجب أن تظهر لنا محاولاتك وما توصلت إليه وأين تعثرت لتتعلم ..
أمر آخر لا يجب طرح الموضوع بأكثر من نقطة ، بل يجب التركيز على نقطة واحدة فقط

بالنسبة للنقطة الأولى ولن أتناقش في النقطة الثانية لأنني أعمل على نقطة واحدة فقط في الموضوع
جرب الكود التالي وإذا نجح الكود في تنفيذ ما تريده قم بدراسة الكود ، وإذا صعب عليك فهمه اسأل في الكود واستخدم مفتاح F8 لتتبع أسطر الكود سطر بسطر لتتعرف على كيفية التنفيذ
Sub Test()
    Dim ws As Worksheet, sh As Worksheet, sName As String, lr As Long, r As Long, m As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        lr = ws.Cells(Rows.Count, "B").End(xlUp).Row
        For r = 2 To lr
            sName = ws.Cells(r, 3).Value
            If Evaluate("ISREF('" & sName & "'!A1)") Then
                Set sh = ThisWorkbook.Worksheets(sName)
                m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                sh.Cells(m, 1).Resize(, 11).Value = ws.Cells(r, 1).Resize(, 11).Value
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

27-06-2020 09:32 مساء
مشاهدة مشاركة منفردة [2]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif نموذج رفوف مكتبتي المنزلية
جرب هذا الملف

Option Explicit

Sub tranfere_books()
Dim H As Worksheet: Set H = Sheets("فهرس الكتب")
Dim Temp_sh As Worksheet
Dim Cur_range
Dim m%, i%, Max_row%, X%, k%
Dim Arr(1 To 5): Dim Arr2(1 To 2)
Arr(1) = "اجتماعيات": Arr(2) = "معلوماتية": Arr(3) = "اطالس"
Arr(4) = "ديانات": Arr(5) = "هندسة"

Arr2(1) = "حالة الكتاب": Arr2(2) = "المصدر"

Max_row = H.Range("A1").Cells(Rows.Count, 2).End(3).Row
For X = 1 To 5
 Set Temp_sh = Sheets(Arr(X))
 Set Cur_range = Temp_sh.Range("A1").CurrentRegion
  If Cur_range.Rows.Count > 1 Then _
   Cur_range.Offset(1). _
   Resize(Cur_range.Rows.Count - 1).ClearContents
  m = 2
  For i = 3 To Max_row
    
      If H.Cells(i, 3) = Temp_sh.Name Then
        Temp_sh.Cells(m, 2).Resize(, 10).Value = _
        H.Cells(i, 2).Resize(, 10).Value
        Temp_sh.Cells(m, 1) = m - 1
        m = m + 1
      End If
  Next i
Next X
'++++++++++++++++++++++++++++++++++++++++++
For X = 1 To 2
 If X = 1 Then k = 10 Else k = 11
 Set Temp_sh = Sheets(Arr2(X))
 Set Cur_range = Temp_sh.Range("A1").CurrentRegion
  If Cur_range.Rows.Count > 1 Then _
   Cur_range.Offset(1). _
   Resize(Cur_range.Rows.Count - 1).ClearContents
  m = 2
  For i = 3 To Max_row
  
  If H.Cells(i, k) <> vbNullString Then
    Temp_sh.Cells(m, 2).Resize(, 10).Value = _
    H.Cells(i, 2).Resize(, 10).Value
    Temp_sh.Cells(m, 1) = m - 1
    m = m + 1
  End If
 Next i
Next X
'+++++++++++++++++++++++++++++++++++++++++
Erase Arr: Erase Arr2: Set Cur_range = Nothing
Set Temp_sh = Nothing: Set H = Nothing
End Sub

الملف مرفق
 
 
  My_library.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(49.558) KB


27-06-2020 09:53 مساء
مشاهدة مشاركة منفردة [3]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif نموذج رفوف مكتبتي المنزلية
شكر من القلب اساتذة افاضل عباقرة

27-06-2020 11:59 مساء
مشاهدة مشاركة منفردة [4]
mostachar
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-10-2019
رقم العضوية : 15241
المشاركات : 33
الجنس : ذكر
تاريخ الميلاد : 1-1-1979
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif نموذج رفوف مكتبتي المنزلية
روعة ..فعلا انه سحر الاكسل..و الله مشوقين جدا  لتعلمه ومعرفة اسراره وخباياه..شكرا للجميع

28-06-2020 07:40 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نموذج رفوف مكتبتي المنزلية
بارك الله فيك أخي الحبيب سليم ولا حرمنا الله منك ومن إبداعاتك
بارك الله فيك أخي الكريم هواري والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات.

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

اخي ياسر
منذ مدة ونحن نعاني من هذه المشكلة    لا أعلم هل هي من السيرفر او مشكلة بالموقع
 انظر الى الصورة

MjI0NTM4MQ5252Yasser
 
 
 





الكلمات الدلالية
المنزلية ، مكتبتي ، رفوف ، نموذج ،


 










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

الساعة الآن 05:20 صباحا