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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الاصدار الأول لشيت المرتبات الاوتوماتيك - حسام خطاب اكسيل اسئله واجابات



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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :salim
عدد النتائج (95) نتيجة
18-11-2018 02:29 مساء
icon مساعدة في كتابة سنوات تلقائياً | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
لا اعلم اذا كان هذا المطلوب
 
18-11-2018 08:10 صباحا
icon نسخ البيانات الى صفحات مختلفة | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
لنسخ بيانات في نطاقات متفرقة 
يمكن استعمال هذا الكود

Option Explicit

Sub copy_nonContinue_range()
Dim my_range As Range
Dim final_range As Range
Dim x, y, r
Set my_range = Selection
x = my_range.Areas.Count
 For y = 1 To x
  r = my_range.Areas(y).Rows.Count
   If final_range Is Nothing Then
    Set final_range = my_range.Areas(y).Cells(1, 1).Resize(r, 3)
    Else
    Set final_range = Union(final_range, my_range.Areas(y).Cells(1, 1).Resize(r, 3))
   End If
   Next
  
   final_range.Copy Sheets("Sheet3").Range("a1")
End Sub




Resize(r, 3           الرقم 3 هنا هو عدد الاعمدة (يمكن التغيير)
17-11-2018 07:35 مساء
icon كود لحذف جميع الصور والاشكال من شيت الاكسيل | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 

جزاكم الله خيرا


14-11-2018 12:39 صباحا
icon نسخ البيانات الى صفحات مختلفة | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
رائع اخي زيزو لكن عندي ملاجظة ارجو تقبلها
في حال تم تنفيذ الكود اكثر من مرة ( نفس التاريخ) تحصل على خطأ لانه لا يجوز ادراج اكثر من ورقة واحدة بنفس الاسم
تداركاً لهذا الخطأ وضعت هذا الكود الذي ينبهك الى ذلك مع حرية حذف الصفحة القديمة وانشاء صفحة جديدة تنقل اليها البيانات
 أو   اضافة  مزيد من البيانات الى الصفحة القديمة
الكود

Option Explicit
Sub ad_sheets()
Application.ScreenUpdating = False
 Dim source As Worksheet
 Dim Rg_To_Copy As Range
 Dim targ As Worksheet
 Dim sh_name$
 Dim t$, Laste_Row%
 Dim r%, c%
 Dim Answer%
 Set source = Sheets("Sheet1")
 t = Replace(CStr(source.Range("d2")), "/", "-")
 Set Rg_To_Copy = source.Range("c5").CurrentRegion
 r = Rg_To_Copy.Rows.Count: c = Rg_To_Copy.Columns.Count
 On Error Resume Next
  Set targ = Sheets(t)
  
If targ Is Nothing Then
   Sheets.Add after:=source
    With ActiveSheet
      .Name = t
      .Range("a5").Resize(r, c).Value = _
       Rg_To_Copy.Value
       .Columns("A:B").AutoFit
    End With
     Exit Sub
 '============================
Else
    Answer = MsgBox("This shetts is Allready exit" & Chr(10) & _
    "do you want to replace it??", vbYesNo)
   'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
    If Answer <> 6 Then
      Laste_Row = targ.Cells(Rows.Count, 1).End(3).Row + 2
       targ.Cells(Laste_Row, 1).Resize(r, c).Value = Rg_To_Copy.Value
      Exit Sub
    End If
  'xxxxxxxxxxxxxxxxxxxxxxxxxxxx
   Application.DisplayAlerts = False
   targ.Delete
   Application.DisplayAlerts = True
   Sheets.Add after:=source
   With ActiveSheet
       .Name = t
       .Range("a5").Resize(r, c).Value = _
        Rg_To_Copy.Value
        .Columns("A:B").AutoFit
    End With
 End If
 '=========================================
  Rg_To_Copy = Nothing
  source.Activate
  Application.ScreenUpdating = True
End Sub

الملف مرفق
13-11-2018 10:01 مساء
icon تلوين المعادلات | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah »
لاثراء الموضوع انشاء اسم معرف بالمعادلة التالية
حيث الخلية A1 بالصيغة تعود للخلية النشطة اثناء تعريف الاسم
ومن ثم استخدام الاسم المعرف بالتنسيق الشرطى

=GET.CELL(48,A1)

وبدون انشاء اسم معرف بالمعادلة التالية
حيث الخلية A1 بالصيغة تعود للخلية النشطة

=ISFORMULA(A1)

هذه الدالة تعمل بعد الاصدار 2010
12-11-2018 07:29 صباحا
icon ادخال بيانات مرتين متتاليتين | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
هناك حل اخر بواسطة جعل الصفحة VeryHidden

12-11-2018 07:15 صباحا
icon ادخال بيانات مرتين متتاليتين | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
لا اظن انه يوجد حل بدون الماكرو
اليك هذا الاقتراح
قم بانشاء ماكرو(عند حدث تنشيط الصفحة فصل11) (Private Sub Worksheet_Activate)    يقوم بالخطوات التّالية
1- فك الحماية عن الصفحة (بواسطة باسورد قوي)
2- مسح  البيانات  من الصفحة (جزئياً أو جميعها كما تريد)
3- نسخ بيانات جديدة من الصفحة فصل1 (PasteSpecial Paste:=xlPasteAll) نسخ القيم والنتسيق
4- اعد الحماية للصفحة (بنفس الباسورد)

نمزذج عن الماكرو المقترح

Option Explicit

Private Sub Worksheet_Activate()
With Me
.Unprotect "salim_123"
.Cells.ClearContents
 Sheets("فصل1").UsedRange.Copy .Cells(1, 1)
.Protect "salim_123"
 End With
End Sub
11-11-2018 11:41 مساء
icon أود جمع خليتين أو أكثر احداها أو أكثر تحتوى على حرف   غ     بدون ما يكون الناتج  خطأ أو ERROR  جمع | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 انا لا افهم هذا الجدال الطويل حول الموضوع (عملية الجمع تعطي خطأ اذا كان هناك نصوص)
اما الدالة  SUM  فانها  تتجاهل  للنصوص
تكفي هذه المعادلة

=IF(SUM(M14,Z14)=0,"",SUM(M14,Z14))
11-11-2018 05:22 صباحا
icon Useful Macro Codes - كتاب شرح VBA | الكاتب :salim |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك
11-11-2018 12:36 صباحا
icon نقل البيانات من ورقة واحدة إلى أخرى على أساس خلية | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
جرب هذا الملف

Option Explicit
Sub Give_Data()
Dim source As Worksheet: Set source = Sheets("اسماء الشركات")
Dim Targ As Worksheet: Set Targ = Sheets("استلام البضاعة")
 Dim st: st = Targ.Cells(1, 2)
 Dim My_Rg As Range
 Dim r%, col%
 Targ.Range("a10").CurrentRegion.ClearContents
  If IsError(Application.Match(st, source.Range("a:a"), 0)) Then
  MsgBox "that code not existes"
   With Targ
  .Range("b2") = vbNullString: .Range("b3") = vbNullString
  .Range("e1") = vbNullString: .Range("e2") = vbNullString
  .Range("e3") = vbNullString
   End With
  Exit Sub
  End If
 r = Application.Match(st, source.Range("a:a"), 0)
 col = Application.CountA(source.Rows(r))
   
 With Targ
  .Range("b2") = source.Cells(r, 3): .Range("b3") = source.Cells(r, 5)
  .Range("e1") = source.Cells(r, 2): .Range("e2") = source.Cells(r, 4)
  .Range("e3") = source.Cells(r, 6)
   End With
 If col <= 6 Then Exit Sub
 With Targ

   Set My_Rg = source.Cells(r, 1).Offset(, 6).Resize(1, col - 6)
  .Cells(10, 2).Resize(col - 6, 1) = Application.Transpose(My_Rg)
   .Cells(10, 1) = 1
   .Range("A10").AutoFill Destination:=.Range("A10").Resize(col - 6, 1), Type:=xlFillSeries
End With
End Sub



الملف مرفق
 
04-11-2018 05:41 صباحا
icon البحث عن حضور وانصراف موظف فى فترة معينة | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 السبب في التاريخ    اني وضعت Validation من اصغر تاريخ الى اكبر تاريح موجود في الصفحة 1
 لذلك لا يمكن ادراج اي تاريخ خارح هذين التاريخين     (هنا يمكنك التغيير أو الغاء  Validation)
بالنسبة للاسماء القائمة لا تذكر المكرر الا مرة واحدة
في حال تريد العمل بواسطة كود الموظف يمكن ذلك من خلال التعديل على أول معادلة 
الملف بعد التعديل
 
03-11-2018 09:11 مساء
icon البحث عن حضور وانصراف موظف فى فترة معينة | الكاتب :salim |المنتدى: اكسيل اسئله واجابات
 
الملف الذي رفعته مضروب فيروس و قد رفض الحهاز فتحه
لذلك قمت بعمل ملف جديد (نفس النموذج لكن بالمعادلات )لاني لا ارى اي حاجة لليوزر
نسخ الى اليوزر ثم الى الورقة من جديد ( لما لا يكون مباشرة الى الشيت)
الصفحة 2 من هذا الملف )  فقط حدد الاسم من القائمة المنسدلة واكتب تاريخ البداية والنهاية واترك الباقي على الاكسل
 

الصفحة 1 من 8 < 1 2 3 4 8 > الأخيرة »





الساعة الآن 01:52 صباحا

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