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


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


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


نتائج البحث عن ردود العضو :زيزو العجوز
عدد النتائج (50) نتيجة
26-04-2018 01:39 صباحا
icon ترحيل حسب الشهر | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
جرب هذا الكود
Sub Tarhil1()
Application.ScreenUpdating = False
Dim sh As Worksheet
LR = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For Each sh In ThisWorkbook.Worksheets
For R = 2 To LR
y = Year(Cells(R, 1))
m = Month(Cells(R, 1))
If Len(m) = 1 Then
m = "0" & m
Else
m = m
End If
ym = m & "-" & y
If sh.Name = "Sheet1" Then GoTo 2
If Cells(R, 1).Value <> Empty Then
If ym = sh.Name Then
Range(Cells(R, 1), Cells(R, 3)).Copy
QQ = sh.Cells(1000, 1).End(xlUp).Row + 1
sh.Range("A" & QQ).PasteSpecial xlPasteValues
End If
End If
Next
2
Next
Application.CutCopyMode = False
Sheet1.Activate
Range("b5").Select
Application.ScreenUpdating = True
End Sub

24-04-2018 08:18 مساء
icon عد القيم بدون تكرار في عمود بناء على قيمة تاريخ في عمود آخر | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بارك الله لى فيكم جميعا و اشكركم على هذا الاطراء
و اتمنى ان اكون عند حسن ظنكم دائما بأمر الله


 
24-04-2018 01:01 مساء
icon عد القيم بدون تكرار في عمود بناء على قيمة تاريخ في عمود آخر | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
اخى الكريم مهند  النتائج ثابتة لان التاريخ تم تحديده بالفعل فى الكود
قم بتغيير التاريخ بالكود و سترى نتائج مختلفة
بالنسبة للاخ 
nyfmpha فى التعليمة التى اوردتها فى المشاركة السابقة هى الخاصة بعد تكرار كل عميل
ثم طلبنا من الكود ان يتعامل مغ العميل مرة و احدة فى التاريخ الواحد
هذا وبالله التوفيق

 
23-04-2018 11:31 مساء
icon عد القيم بدون تكرار في عمود بناء على قيمة تاريخ في عمود آخر | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
استبدل الكود المرفق باليوزر فورم بهذا الكود
Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer, p As Integer
Dim y As Date
y = "5 / 1 / 2018"
For i = 2 To 9
x = WorksheetFunction.CountIf(Range(Cells(2, 2), Cells(i, 2)), Cells(i, 2))
If x = 1 And Cells(i, 3) = y Then
p = p + 1
End If
Next
TextBox1 = p
End Sub

20-04-2018 02:46 مساء
icon ترحيل من الشيت إلى Listbox بناء على شرط | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بارك الله فيكم جميعا فقد كنتم اول من انار انار لنا الطريق بعد ان سرنا على دربكم
جعلنا الله دائما عند حسن ظنكم


 
20-04-2018 10:48 صباحا
icon ترحيل من الشيت إلى Listbox بناء على شرط | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
ضع الكودين الآتيين فى حدث الفورم
Private Sub UserForm_Initialize()
Const NoSet = "غير مقيد"
Dim Arr()
Dim C As Range, i As Integer
For Each C In Range("B6:B" & Range("B" & Rows.Count).End(xlUp).Row)
If C.Offset(0, 1).Value = NoSet Then
i = i + 1
ReDim Arr(i)
Arr(i) = C.Value
ListBox1.AddItem Arr(i)
End If
Next
End Sub
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For j = 1 To ListBox1.ListCount
If Me.ListBox1.Selected(j) = True Then
Me.Label1.Caption = Me.ListBox1.Value
End If
Next
End Sub


18-04-2018 01:46 مساء
icon حصري : كورس : Excel VBA - بالعربي | الكاتب :زيزو العجوز |المنتدى: اكسيل شروحات ودروس
 السلام عليكم ورحمة الله
بارك الله فيك و جعلها فى ميزان حسناتك

 
09-04-2018 02:57 مساء
icon كود لجلب البيانات من ملفين للثالث بشرطين أو ثلاثة | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
اخى الكريم 
جرب هذا الكود
Sub ImportData()
Application.ScreenUpdating = False
Dim wbBook1 As Workbook, wbBook2 As Workbook
Dim Path As String
Dim Arr As Variant, i As Long, x As Long, LR As Long, LS As Long
Dim a As String, b As String, d As String
Sheets("Get").Range("C6:I" & Sheets("Get").Range("D" & Rows.Count).End(xlUp).Row).ClearContents
Set wbBook1 = ThisWorkbook
Path = wbBook1.Path & "\"
Arr = Array("DATA1", "DATA2")
For x = LBound(Arr) To UBound(Arr)
Set wbBook2 = Workbooks.Open(Path & Arr(x) & ".xlsm")
Dim wsSheet1 As Worksheet
Dim wsSheet2 As Worksheet

Set wsSheet1 = wbBook1.Worksheets("Get")
a = wsSheet1.Range("F1").Value
b = wsSheet1.Range("F2").Value
d = wsSheet1.Range("F3").Value

Set wsSheet2 = wbBook2.Worksheets("Data")
LR = wsSheet2.Range("D" & Rows.Count).End(xlUp).Row
For i = 6 To LR Step 1
If Trim(wsSheet2.Range("C" & i)) = Trim(a) And _
Trim(wsSheet2.Range("D" & i)) = Trim(d) And _
Trim(wsSheet2.Range("I" & i)) = Trim(b) Then
p = p + 1
wsSheet1.Range("D" & p + 5 & ":I" & p + 5).Value = wsSheet2.Range("D" & i & ":I" & i).Value
wsSheet1.Range("C" & p + 5) = p
End If
Next
wbBook2.Close True
Next
Application.ScreenUpdating = True
End Sub

08-04-2018 02:45 مساء
icon ايجاد اقل قيمة بشرط- أكاديمية الصقر للتدريب | الكاتب :زيزو العجوز |المنتدى: اكسيل شروحات ودروس
 السلام عليكم ورحمة الله
بارك الله فيك 
ابداعات لاتتوقف باذن الله
08-04-2018 02:38 مساء
icon سؤال في دالة SUMIFS عند تطبيقها لا تقبل معي في هذا المثال مالسبب | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
  السلام عليكم ورحمة الله
استخدم المعادلة الآتية و لا تنسى الضغط على 
    "CTRL+SHIFT+ENTER"
=SUM(IF(B1:F1=$G$5;$B$2:$F$16;""))
30-03-2018 10:36 صباحا
icon التنقل بين الصفحات بالكمبوبكس من خلال اليوزر فورم | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بعد اذن اخى الكريم ابو نور
الكود التالى يوضع فى حدث الفورم ليتم اضافة اسم اى شيت جديد تلقائيا
Private Sub UserForm_Initialize()
Dim ws As Worksheet, Sh As String
Dim i As Integer
Dim Arr()
For Each ws In Worksheets
Sh = ws.Name
If Len(Sh) > 0 Then
i = i + 1
ReDim Arr(i, 1)
Arr(i, 1) = Sh
End If
Me.Combo_Elan.AddItem Arr(i, 1)
Next
End Sub

28-03-2018 11:20 مساء
icon ترحيل لبعض الخلايا | الكاتب :زيزو العجوز |المنتدى: اكسيل اسئله واجابات
 السلام عليكم ورحمة الله
بارك الله فيك اخى الكريم محمد الدسوقى
شرفنى المرور العطر من استاذ كبير مثلك

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





الساعة الآن 09:12 مساء

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