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


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


نتائج البحث عن ردود العضو :زيزو العجوز
عدد النتائج (10) نتيجة
09-12-2017 08:47 مساء
icon السلام عليكم : نقل عدة خلايا (ارقام) في خلية واحد | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
اخى الكريم الكود التالى يقوم بتحقيق طلبك بشرط
العمل على كل سيارة على حدة
لأن العمل على جميع السيارات دفعة واحدة سيأخذ وقتا طويلا
ارجو أن يفى هذا بالغرض
Sub joins()
Dim x As String, C As Range
For Each C In Sheet1.Range("C2:C500")
If ActiveCell.Column <> 1 Then Exit Sub
If C.Value = ActiveCell.Value Then
x = x & C.Offset(0, -2).Value & "-"
ActiveCell.Offset(0, 8) = x
End If
Next
End Sub

03-12-2017 12:13 مساء
icon اسماء طلاب الدور التاني | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 
السلام عليكم جميعا ورحمة الله
بارك الله فيكم جميعا على هذا الاطراء الذى اتمنى ان اكون استحقه فعلا
و الله اخجلتم تواضعى
هذا و بالله التوفيق
02-12-2017 01:00 مساء
icon اسماء طلاب الدور التاني | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بالنسبة للاخ الكريم محمد الدسوقى
اليك شرح الكود

Sub CallingStuds()
Dim ws As Worksheet, sh As Worksheet ' الاعلان عن المتغيرات لتحديد الشيتات التى سوف يتم العمل عليها
Dim Rng As Range, C As Range ' الاعلان عن النطاقات التى سيتم العمل عليها "دون المستوى"
Dim Subj As String, LR As Long, Y As Long, Z As Long, p As Long ' الاعلان عن معيار استدعاء البيانات "دون المستوى"
Set ws = Sheets("رصد الترم الثانى")
 ' التعريف بالشيت الاول                       '                       
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
 ' التعريف بطول النطاق بالشيت الاول
Set sh = Sheets(" مناداة")
  '  التعريف بالشيت الثانى الخاص بالكشوفات
sh.Range("B6:C1000").ClearContents
 '  مسح القوائم استعدادا لاستدعاء البيانات الجديدة
Subj = sh.Range("C5").Value
 '  التعريف بالخلية التى تحتوى على معيار الاستدعاء
If Subj = "" Then Exit Sub
If Subj = "اللغه العربيه" Then
 '   عند تحقق الشرط حيث يم تبديل حدود النطاق حيث لكل مادة النطاق الخاص بها
Set Rng = ws.Range("O7:O" & LR)
Y = -13
  ' بعد عمود رقم الجلوس عن النطاق
Z = -12
   '  بعد عمود الاسم عن النطاق
   '  وهكذا مع باقى النطاقات
ElseIf Subj = "الرياضيات" Then
Set Rng = ws.Range("Z7:Z" & LR)
Y = -24
Z = -23
ElseIf Subj = "الدراسات" Then
Set Rng = ws.Range("AK7:AK" & LR)
Y = -35
Z = -34
ElseIf Subj = "اللغه الاجنبية" Then
Set Rng = ws.Range("AV7:AV" & LR)
Y = -46
Z = -45
ElseIf Subj = "العلوم" Then
Set Rng = ws.Range("BI7:BI" & LR)
Y = -59
Z = -58
ElseIf Subj = "نشاط إختيارى1" Then
Set Rng = ws.Range("BQ7:BQ" & LR)
Y = -67
Z = -66
ElseIf Subj = "نشاط إختيارى2" Then
Set Rng = ws.Range("BX7:BX" & LR)
Y = -74
Z = -73
ElseIf Subj = "فنى" Then
Set Rng = ws.Range("CE7:CE" & LR)
Y = -81
Z = -80
ElseIf Subj = "رياضى" Then
Set Rng = ws.Range("CL7:CL" & LR)
Y = -88
Z = -87
ElseIf Subj = "دين" Then
Set Rng = ws.Range("DF7:DF" & LR)
Y = -108
Z = -107
ElseIf Subj = "مستوى E" Then
Set Rng = ws.Range("DQ7:DQ" & LR)
Y = -119
Z = -118
ElseIf Subj = "مستوى F" Then
Set Rng = ws.Range("EB7:EB" & LR)
Y = -130
Z = -129
End If
For Each C In Rng
 ' حلقة تكرارية داخل النطاق
If C.Value = "دون المستوى" Then
   '   عند تحقق الشرط
p = p + 1
   ' عدد الصفوف التى ينطبق عليها الشرط
sh.Cells(p + 5, 2) = C.Offset(0, Y)
 ' استدعاء بيانات رقم الجلوس
sh.Cells(p + 5, 3) = C.Offset(0, Z)
 ' استدعاء بيانات الاسم
End If
Next
Call CallingStuds2
  ' استدعاء الكود الثانى وهو شبيه الاول ويختلف فقط فى مكان وضع البيانات
End Sub

02-12-2017 12:57 مساء
icon اسماء طلاب الدور التاني | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
الان يمكنك عرض قائمتين لمادتين مختلفتين
اليك الملف

 
01-12-2017 11:30 مساء
icon اسماء طلاب الدور التاني | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
فعلا كلامك صحيح اخى الكريم بن علية
اشكرك وبارك الله فيك
01-12-2017 09:35 مساء
icon اسماء طلاب الدور التاني | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
اخى الكريم اليك الملف بعد اضافة ورقة جديدة تحت مسمى مناداة
وتم استخدام كشف واحد لجميع المواد
ما عليك الا ان تختار من الخلية "C5" اسم المادة وتضغط على زر عرض
 
30-11-2017 10:20 مساء
icon عد الخلايا التي تحتوي على معادلات (البحث الأول) | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
ربما هذا الكود يؤدى الغرض
Sub CountFormulas()
Dim C As Range
Dim x As Integer
For Each C In Range("A1:E10")
If C.HasFormula Then
x = x + 1
End If
Next
MsgBox x
End Sub

29-11-2017 01:25 مساء
icon كيفية اخفاء عمودين بشرط عمل عمل اسم | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بارك الله فيكم جميعا و اشكركم على حسن اخلاقكم
وتشجيعكم الدائم والمستمر
اتمنى ان اكون دائما عند حسن ظنكم
هذا وبالله التوفيق
 
28-11-2017 12:52 مساء
icon كيفية اخفاء عمودين بشرط عمل عمل اسمكيفية اخفاء عمودين بشرط عمل عمل اسم | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
انسخ هذا الكود و الصقه فى موديول جديد
Sub HidUnhide()
If Range("O2").Value = "مفتشية التربية والتعليم الابتدائي" Then
Columns("I:J").EntireColumn.Hidden = False
ElseIf Range("O2").Value = "مفتشية ادارة المدارس الابتدائية" Then
Columns("I:J").EntireColumn.Hidden = True
End If
End Sub




ثم انسخ الكود التالى والصقه فى حدث الورقة حتى تغنيك عن الزر
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$2" Then
Call HidUnhide
End If
End Sub


 
24-11-2017 10:48 صباحا
icon كورس كامل مجاني لتعلم الـ VBA بالأمثلة العملية والتطبيقية (موضوع حصري) | الكاتب :زيزو العجوز |المنتدى: اكسيل شروحات ودروس
 بارك الله فيك
جعلها الله فى ميزان حسناتك





الساعة الآن 10:34 مساء