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

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

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



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


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


نتائج البحث عن ردود العضو :ابراهيم الحداد
عدد النتائج (75) نتيجة
27-11-2018 12:57 مساء
icon حساب السن | الكاتب :ابراهيم الحداد |المنتدى: اكسيل شروحات ودروس
 السلام عليكم اخى الكريم هشام
اليك الملف و به التاريخ المذكور بالمشاركة
و تم فيه حساب السن بدقة
 
18-11-2018 02:10 مساء
icon ناتج الخليه نص كيف يمكن ادخاله بصيغه | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
اجعلها هكذا
=SUM(INDIRECT(B3&":"&D3))
15-11-2018 11:27 صباحا
icon نسخ البيانات الى صفحات مختلفة | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
استبدل هذه العبارة :
ws.Range("C5:D" & ws.Range("C" & Rows.Count).End(xlUp).Row).Copy 

بهذه العبارة :
Selection.Copy
15-11-2018 11:18 صباحا
icon تعديل الكود_ليصبح نسخ البيانات فى الشيتات بدون فراغات | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
استخدم هذا الكود
Sub Rectangle1_Click()
Dim i As Integer, j As Integer, p As Integer
p = 4
For i = 5 To Worksheets("تكويد_بيانات").Range("A5000").End(xlUp).Row
If Not IsEmpty(Worksheets("تكويد_بيانات").Range("A" & i)) Then
p = p + 1
Worksheets("رصيد_الصنف").Range("A" & p) = Worksheets("تكويد_بيانات").Range("A" & i)
Worksheets("رصيد_الصنف").Range("B" & p) = Worksheets("تكويد_بيانات").Range("B" & i)
End If
Next

p = 6
For i = 5 To Worksheets("تكويد_بيانات").Range("C5000").End(xlUp).Row
If Not IsEmpty(Worksheets("تكويد_بيانات").Range("C" & i)) Then
p = p + 1
Worksheets("رصيد_المورد").Range("A" & p) = Worksheets("تكويد_بيانات").Range("C" & i)
End If
Next

p = 6
For i = 5 To Worksheets("تكويد_بيانات").Range("D5000").End(xlUp).Row
If Not IsEmpty(Worksheets("تكويد_بيانات").Range("D" & i)) Then
p = p + 1
Worksheets("رصيد_العميل").Range("A" & p) = Worksheets("تكويد_بيانات").Range("D" & i)
End If
Next
End Sub
14-11-2018 10:43 مساء
icon اكسل:- | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
ضع الكود الاول فى موديول
و الكود الثانى فى حدث الورقة الاولى
يعمل الكود بالضغط مرتين على الخلية ( دوبل كليك)
 الكود الاول :
Sub SelRng()
Dim X As Integer, Y As Integer
Dim Arr() As String, C As Variant
If ActiveSheet.Name = "Sheet1" Then
X = ActiveCell.Row
Y = ActiveCell.Column
End If
If X > 0 And Y > 0 Then
Sheet2.Activate
Sheet2.Cells(X, Y).Select
End If
End Sub


الكود الثانى :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call SelRng
End Sub

 
14-11-2018 12:18 صباحا
icon نسخ البيانات الى صفحات مختلفة | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بارك الله فيك اخى الحبيب ياسر

و رجاءا من الاخ خالد اضافة هذه التعليمة فى نهاية الكود
ws.Range("D2").ClearContents
13-11-2018 10:46 مساء
icon نسخ البيانات الى صفحات مختلفة | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم و رحمة الله
استخدم الكود الاتى 
Sub AddNewSh_data()
Dim ws As Worksheet, Sh As Worksheet
Dim XDate As String
Set ws = Sheets("Sheet1")
XDate = Format(Sheet1.Range("D2"), "DD-MM-YY")
ws.Range("C5:D" & ws.Range("C" & Rows.Count).End(xlUp).Row).Copy
Set Sh = Sheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Range("B5").PasteSpecial xlPasteAll
ActiveSheet.Name = XDate
Application.CutCopyMode = False
End Sub
13-11-2018 10:00 مساء
icon ترحيل بيانات بناءا على القسم | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
باركالله فيكم جميعا
الحمد لله على تمام المطلوب
وما توفيقى الا بالله
13-11-2018 08:17 مساء
icon ترحيل بيانات بناءا على القسم | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
استخدم هذا الكود
Sub Depart()
Dim Sh As Worksheet, ws As Worksheet, C As Range
Dim x As Long, y As Long, z As Long
Dim WsNam
Application.ScreenUpdating = False
Set ws = Sheets(ActiveSheet.Name)
WsNam = Right(ws.Name, Len(ws.Name) - 4)
For Each Sh In Sheets(Array("تفقيط1", "تفقيط2", "تفقيط3"))
For Each C In Sh.Range("D11:D" & Sh.Range("C" & Rows.Count).End(xlUp).Row)
If C.Value = WsNam Then
x = x + 1
ws.Cells(x + 10, 1) = C.Offset(0, -3).Value
ws.Cells(x + 10, 2) = C.Offset(0, -2).Value
ws.Cells(x + 10, 3) = C.Offset(0, -1).Value
ws.Cells(x + 10, 4) = C.Value
ws.Cells(x + 10, 5) = C.Offset(0, 1).Value
End If
Next
Next
Application.ScreenUpdating = True
End Sub
08-11-2018 12:19 صباحا
icon شيت كنترول الصف الثانى الثانوى التجارى | الكاتب :ابراهيم الحداد |المنتدى: اكسيل شروحات ودروس
 السلام عليكم ورحمة الله
شكرا لكم احبتى و اخوانى الكرام
اتمنى ان اكون دائمت عند حسن ظنكم
هذا و بالله التوفيق
22-10-2018 11:17 صباحا
icon البحث بمجرد كتابه اول حرف | الكاتب :ابراهيم الحداد |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
استخدم هذا الكود فى حدث الفورم
Private Sub TextBox1_Change()
   ListBox1.Clear
   ListBox1.RowSource = ""
Dim C As Range, i As Integer
For Each C In Range("b5:b10000")
If Left(C.Value, Len(Me.TextBox1)) = Me.TextBox1.Value Then
         Me.ListBox1.AddItem
         Me.ListBox1.List(i, 0) = C.Offset(0, -1)
         Me.ListBox1.List(i, 1) = C.Value
                  i = i + 1

    End If
Next C
If Me.TextBox1.Value = "" Then Me.ListBox1.Clear
End Sub

 
15-10-2018 01:12 صباحا
icon برنامج ملاحظى اللجانبرنامج ملاحظى اللجان | الكاتب :ابراهيم الحداد |المنتدى: اكسيل شروحات ودروس
 السلام عليكم ورحمة الله
بناءا على طلب الاخ الكريم   yehya mahmoud .
تم اضافة فترة ثالثة لفترات الامتحان فبدلا من صباحى - مسائى
اصبحت فترة اولى فم فترة ثانية و هكذا
هنا يجب التفرقة بين الفترة الثانية التى سيؤدى فيها الطالب بعد الاستراحة من اداء المادة الاولى 
حالة وجود مادتين امتحان فى نفس اليوم وبين فترات الامتحان حيث تحل مجموعة جديد من الطلبة
لاداء الامتحان عقب رحيل المجموعة السابقة
لعلم اضيف للبرنامج رسالة تنبيه حالة وقوع ملاحظين معا مرة اخرى فى لجنة واحدة
ولكنك لست مرغما على التغيير يكفى تجاهل الرسالة اذا اردت عدم التغيير
هذا و الله من وراء القصد
اليكم الملف

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





الساعة الآن 03:55 مساء

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