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

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


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





تعديل كود الاستاذ سليم منه وله واستدعاء البيانات

استاذى الغالى / salim الملف هذا بميزان حسناتك اقسم بالله واعمل عليه وهو تمام التمام -عندى بالعمل كمحاسب يوميات وتسويات ..



26-06-2020 09:42 مساء
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 

استاذى الغالى /  salim
الملف هذا بميزان حسناتك اقسم بالله واعمل عليه وهو تمام التمام
-عندى بالعمل كمحاسب يوميات وتسويات
واعمل ملفين واحد لليوميات وواحد للتسويات
وساعات اتلغبط بينهم واضع هذا هنا وذلك هناك
فجأتنى فكرة لو امكن تنفيذه اكون شاكر لك 
واذا لم يمكن اكون شاكر لك ايضا
الفكرة هى
اضفت شيتين اخرين وغيرت الاسماء الشيتس الى Laho y-Menho y-والجداد الى Menho T-Laho T
وعملت قائمة منسدلة للاختيار بين Y- T
هل يمكن تنفيذ هذه الفكرة ليكون اليوميات والتسويات لدى بملف واحد ام لا يمكن
مع الشكر
 
 
  Abo_hasan.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(37.074) KB


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

Option Explicit
'+++++++++++++++++++++++++++++++++++++++++
    Dim R As Worksheet, _
     L As Worksheet, M As Worksheet
    Dim Date1 As Date, Date2 As Date
    Dim Ro_r%, Ro_sh%, x%, col%, t%, i%
    Dim Look_Range As Range, Bol As Boolean
    Dim My_sum#, SuM_Befor#, arr(1 To 4)
'+++++++++++++++++++++++++++++++++++++++++
Sub My_Summ()
     With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
 
 arr(1) = "Laho T": arr(2) = "Laho Y"
 arr(3) = "Menho T": arr(4) = "Menho Y"
    
    For i = 1 To 4
     Sheets(arr(i)).Range("A1"). _
     CurrentRegion.Interior.ColorIndex = xlNone
    Next

Set R = Sheets("Repport")
R.Range("B2:E26").ClearContents
R.Range("B1:E1").ClearContents
Date1 = Application.Min(R.Range("F2:G2"))
Date2 = Application.Max(R.Range("F2:G2"))
Ro_r = R.Cells(Rows.Count, 1).End(3).Row
    Select Case UCase(R.Range("F6"))
       Case "T"
        Set L = Sheets("Laho T")
        Set M = Sheets("Menho T")
       Case "Y"
        Set L = Sheets("Laho Y")
        Set M = Sheets("Menho Y")
       Case Else: GoTo End_Me
     End Select
 With L
  R.Cells(1, "B") = .Name & " _Befor"
  R.Cells(1, "C") = .Name
   Set Look_Range = .Range("A1:Ac1")
   Ro_sh = .Cells(Rows.Count, 1).End(3).Row

  For x = 2 To Ro_r - 1
    If Not Bol Then
     col = Look_Range.Find(R.Cells(x, 1), lookat:=1).Column
     Bol = True
    End If
    For t = 2 To Ro_sh
        If .Cells(t, 1) < Date1 Then
        SuM_Befor = SuM_Befor + Val(.Cells(t, col))
        .Cells(t, col).Interior.ColorIndex = 6
        End If
      If .Cells(t, 1) >= Date1 And .Cells(t, 1) <= Date2 Then
        My_sum = My_sum + Val(.Cells(t, col))
       .Cells(t, col).Interior.ColorIndex = 35
      End If
Next t
     R.Cells(x, 2) = SuM_Befor: SuM_Befor = 0
     R.Cells(x, 3) = My_sum: My_sum = 0: Bol = False
   
  Next x
 End With
'+++++++++++++++++++++++++++++
With M
  R.Cells(1, "D") = .Name & " _Befor"
  R.Cells(1, "E") = .Name
   Set Look_Range = .Range("A1:Ac1")
   Ro_sh = .Cells(Rows.Count, 1).End(3).Row

  For x = 2 To Ro_r - 1
    If Not Bol Then
     col = Look_Range.Find(R.Cells(x, 1), lookat:=1).Column
     Bol = True
    End If
    For t = 2 To Ro_sh
        If .Cells(t, 1) < Date1 Then
        SuM_Befor = SuM_Befor + Val(.Cells(t, col))
        .Cells(t, col).Interior.ColorIndex = 6
        End If
      If .Cells(t, 1) >= Date1 And .Cells(t, 1) <= Date2 Then
        My_sum = My_sum + Val(.Cells(t, col))
       .Cells(t, col).Interior.ColorIndex = 35
      End If
Next t
  R.Cells(x, 4) = SuM_Befor: SuM_Befor = 0
  R.Cells(x, 5) = My_sum: My_sum = 0: Bol = False
Next x
 
 End With
 
End_Me:
    With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    End With

End Sub

الملف مرفق
 
 
 
  Abo_hasan_2_choise.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(50.032) KB


27-06-2020 09:41 صباحا
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود الاستاذ سليم منه وله واستدعاء البيانات
الله يرضى عنك وعن والديك ويبارك لك فى علمك ومالك وحياتك يارب 
استاذ سليم حضرتك رائع
البرنامج يعمل تمام 
استاذن حضرتك بس
امكانية ان يكون ترتيب الاعمدة هكذا-
Laho T _Befor بعده Menho T _Befor ثم Laho T ثم Menho T
وعند التغير كذلك 
Laho y _Befor- بعده Menho y _Befor ثم Laho y ثم Menho y

اى تغير العمود c مكان D
حيث ان منه لابد ان يكون بجانب له 
واذا كان الناتج 0 يترك الخلية فارغة لايضع 0
واشكرك من قلبى وادعوا الله ان يديم عليك الصحة والستر اللهم امين
اخيك باحترام

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

غير الأرقام كما في الصورة
MzU3NTQwMQ88Hasan
 
 


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

27-06-2020 11:20 مساء
مشاهدة مشاركة منفردة [5]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود الاستاذ سليم منه وله واستدعاء البيانات
واجهت مشكلة استاذى وهى اسماء الاعمدة فى التسويات يوجد اختلاف عن اليوميات
هل بالامكان استدعاء التقرير اعتمادا على التاريخ بعد اختيار y or T
ان يستدعى كمان اسماء الاعمدة لعمود البيان
يعنى عمود البيان يكون فارغ اكتب التاريخ من والتاريخ الى يستدعى الارقام وكمان اسماء الاعمدة للعمود a
مع الاعتذار والشكر والتقدير
 
 
 
  Abo_hasan_2_choise.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(39.617) KB


28-06-2020 12:10 صباحا
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تعديل كود الاستاذ سليم منه وله واستدعاء البيانات
تم معالجة الأمر
لتفريغ البيانات امسح محتويات الخلية F6 واضغط الزر
 
 
 
  Abo_hasan_Final.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(50.506) KB



تم تحرير المشاركة بواسطة :salim
بتاريخ:28-06-2020 07:23 صباحا





الكلمات الدلالية
تعديل ، الاستاذ ، سليم ، واستدعاء ، البيانات ،


 










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

الساعة الآن 12:46 صباحا