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

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




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

Preview

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


نتائج البحث عن ردود العضو :سعد عابد
عدد النتائج (91) نتيجة
27-02-2021 11:36 مساء
icon عرض البيانات داخل لست بطريقه معينة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 توصلت لضبطه دون فواصل
وجارى المحاوله
Private Sub UserForm_Activate()
''''''''''''''''''''''''''''''''''''''
    With Me.ListBox1
        .ColumnWidths = "100,100,50,50,50,50"
    End With
    Dim collon_d As Collection
    Set collon_d = New Collection
    '====================================================
    For Each dd In data1.Range("f5:f" & data1.Range("f" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        collon_d.Add dd.Value, dd.Text
    Next dd
    For g = 1 To collon_d.Count
        ListBox2.AddItem
        ListBox2.List(g - 1, 0) = collon_d.Item(g)
    Next
End Sub

Private Sub CommandButton11_Click()
    ListBox1.Clear
    Dim ws As Worksheet: Set ws = data1
    With Me.ListBox2
    For gg = 0 To .ListCount
     With Me.ListBox1
     For a = 5 To 39
     On Error Resume Next
    If ListBox2.List(gg, 0) = Cells(a, "f") Then
            .AddItem
            .List(.ListCount - 1, 0) = ListBox2.List(gg, 0)
            .List(.ListCount - 1, 1) = Cells(a, "d")
'            .List(.ListCount - 1, 0) = collon_d.Item(g)
'            .List(.ListCount - 1, 1) = collon_d2.Item(a)
            End If: Next a: End With
        Next gg: End With
End Sub
27-02-2021 10:08 مساء
icon عرض البيانات داخل لست بطريقه معينة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 اخى العزيز ياسر
احاول ان تكون كل التقارير معتمده على الفورم
بس الكود لم يضبط والفكره موجوده فى الكود المرسل
22-01-2021 07:26 مساء
icon كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 اظن انه يحتاج ورقه منفصله
تستخدم فيها اسماء الحسابات دون تكرار مع استخدام دوال ومعادلات الجمع بشروط
اظن ان الامر يحتاج لتدخل استاذ كبير لانه من ورقات عديده 
يمكن ذلك بالمعادلات بدمجها
 
22-01-2021 05:56 مساء
icon كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 التقرير حسب فهمى للمطلوب
بحث فى كل الاوراق بمتغيرات
اذا لم تختار المتغير سيتجاهلوه الكود
Sub saad()
Dim ws As Worksheet, shnam As Worksheet
Dim h As Long, g As Long
Set ws = Sheets("ÇáÊÞÑíÑ")
''''''''''''''''''''''''''''''''''
ws.Range("a6:f2000").ClearContents
h = 6
For Each shnam In ActiveWorkbook.Worksheets
If shnam.Name <> "ÇáÇÏÎÇá æÇáÊÑÍíá" And shnam.Name <> "ÇáÊÞÑíÑ" Then
'''''''''''''''''''''''''''''''''''''''
For g = 3 To shnam.Range("a" & Rows.Count).End(3).Row
If ws.Range("a3") = "" Then GoTo 1
If shnam.Cells(g, 1) >= ws.Range("a3") Then
1: If ws.Range("b3") = "" Then GoTo 2
If shnam.Cells(g, 1) <= ws.Range("b3") Then
2: If ws.Range("e3") = "" Then GoTo 3
If shnam.Cells(g, 4) = ws.Range("e3") Then
3: If ws.Range("f3") = "" Then GoTo 4
If shnam.Cells(g, 3) = ws.Range("f3") Then
4: '''''''''''''''''''''''''''''''''''''''
ws.Cells(h, 1) = shnam.Name
ws.Cells(h, 2) = shnam.Cells(g, 1)
ws.Cells(h, 3) = shnam.Cells(g, 2)
ws.Cells(h, 4) = shnam.Cells(g, 4)
ws.Cells(h, 5) = shnam.Cells(g, 5)
ws.Cells(h, 6) = shnam.Cells(g, 6)
h = h + 1
End If: End If: End If: End If
Next
'''''''''''''''''''''
End If
Next
''''''''''''''''''''''''
End Sub

21-01-2021 12:08 مساء
icon كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 كود الاستاذ  ابراهيم الحداد
بعد نقل سطر الصف الاخير للورقه المرحله لها
لانه اقوى وخصوصا اذا كثرت الداتا
Sub TranserData()
Dim ws As Worksheet, Sh As Worksheet
Dim Lr As Long, Ls As Long, ShNam As String
Dim Arr As Variant, Tmp As Variant, i As Long, j As Long, p As Long
Dim a, b
Set ws = Sheets("ÇáÇÏÎÇá æÇáÊÑÍíá")
Lr = ws.Range("C" & Rows.Count).End(3).Row
a = ws.Range("A2"): b = ws.Range("B2")
ShNam = ws.Range("G2")
Set Sh = Sheets(ShNam)
Arr = ws.Range("A3:F" & Lr).Value
ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 5) > 0 Or Arr(i, 6) > 0 Then
p = p + 1
For j = 1 To UBound(Arr, 2)
Tmp(p, j) = Arr(i, Choose(j, 1, 3, 3, 4, 5, 6))
Tmp(p, 1) = a
Tmp(p, 3) = b
Next
End If
Next
Ls = Sh.Range("a" & Rows.Count).End(3).Row
Sh.Range("A" & Ls + 1).Resize(p, UBound(Tmp, 2)).Value = Tmp
End Sub

الكود يعمل بشكل صحيح وسرعه ما شاء الله
20-01-2021 08:32 مساء
icon كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 لاثراء الموضوع
كود ترحيل بالتعامل مع الخلايا مباشرة 
لكى يسهل التعديل عليه من اى شخص
Sub s()
Dim ws As Worksheet, Sh As Worksheet, ShNam
Dim h As Long, g As Long
Set ws = Sheets("ÇáÇÏÎÇá æÇáÊÑÍíá")
ShNam = ws.Range("g2")
For g = 3 To ws.Range("c" & Rows.Count).End(3).Row
h = Sheets(ShNam).Range("a" & Rows.Count).End(3).Row + 1
If ws.Range("a2") <> "" And ws.Range("b2") <> "" Then
Sheets(ShNam).Cells(h, 1) = ws.Range("a2").Value
Sheets(ShNam).Cells(h, 2) = ws.Cells(g, "c").Value
Sheets(ShNam).Cells(h, 3) = ws.Range("b2").Value
Sheets(ShNam).Cells(h, 4) = ws.Cells(g, "d").Value
Sheets(ShNam).Cells(h, 5) = ws.Cells(g, "e").Value
Sheets(ShNam).Cells(h, 6) = ws.Cells(g, "f").Value
End If
Next g
End Sub
13-01-2021 01:34 مساء
icon الترحيل من فورم لاى فورم يتم اختياره | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 استاذ حسين مامون
اشكرك كل الشكر تحياتى لحضرتك
الكود يعمل بشكل صحيح وهذه هى اليه الترحيل فعلا
اشكرك
=====================
ما ابحثه عنه هو
ستزيد الفورمات المرحل اليها الى اكثر من عشرة
لذلك اريد التعامل مع اليه  ان اسم الفورم المرحل اليه متغير
بعد البحث والتفكير وجدت
على فورم دليل الحسابات
انشاء تكست سيظهر فيه اسم اى فورم يستدعى فورم الدليل
داخل فورم يوزر1
Private Sub CommandButton1_Click()
form_acc.Show
test Me.Name
End Sub
Sub test(str)
form_acc.TextBox1.Value = str
End Sub

داخل فورم دليل الحسابات
Private Sub Lbx_Ligne_Click()
'On Error Resume Next
Dim fus As Object
Set fus = TextBox1
fus.ActiveControl.Value = Me.Lbx_Ligne
End Sub

النتيجه
يعطى خطا فى السطر
fus.ActiveControl.Value = Me.Lbx_Ligne
12-01-2021 10:00 مساء
icon الترحيل من فورم لاى فورم يتم اختياره | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 الترحيل
اختيار قيمه من الست ترحل لاول تكست فارغ a1
وهكذا تختار قيمه اخرى ترحل الى التكست الذى يليه
12-01-2021 08:41 مساء
icon الترحيل من فورم لاى فورم يتم اختياره | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
الملف لدى به فورم ادخال اكثر من فورم 
كل فورم به اماكن تكستات لتسجيل اى حركة باسماء الحسابات فى سند صرف وقبض وقيود
ففكرت فى عدم التكرار واعمل فورم خارجى لاسماء الحسابات 
واستخدمه بنفس الفكره فى فورم الاخراج
==============
فكره نراها فى البرامج الجاهزه
الصعوبه فيها
انا لو عايز ارحل لفورم1 لابد من عمل مفتاح للفورم بعينه
وكذلك فورم2 وكذلك 3 وهكذا
فلو فيه فكره للترحيل للكنترول الفورم النشط 
هيبقى كود واحد ومفتاح واحد يرحل لاى فورم نشط
12-01-2021 08:10 مساء
icon الترحيل من فورم لاى فورم يتم اختياره | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
الفورم المرحل منه
هو فورم form_acc
القيم المرحله القيم المختاره من  form_acc.Lbx_Ligne
====================
المرحل اليه الثلاث فورم يوزفورم1  وكذلك يوزرفورم2 وكذلكيوزرفورم3
فى التكستات a1
a2
a3
a4
a5
===============================
بطريقه عملى
شغال على يوزفورم1 واستدعى الفورم form_acc لادخال اسماء الحسابات فى تكستات a1 ثم a2
واذا اشتغلت على يوزرفورم2 هكرر نفس السابق
اتمنى ان اكون وصلت وشرحت ما اريد
عذرا اخى ربما لا اجيد الشرح
 
12-01-2021 06:50 مساء
icon الترحيل من فورم لاى فورم يتم اختياره | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 اخى ياسر
اشكرك على توجيهات
المطلوب 
الترحيل من فورم form_acc.Lbx_Ligne ( لست بوكس Lbx_Ligne الموجود بفورم form_acc)
الى
كل التكستات الموجود على الفورم 
على سبيل المثال userform1.a1
وكذلك كل الفورم
وهذا مثال لما اريد تنفيذه
=========================
الطريقه العادية 
فى فورم دليل الحسابات (form_acc) اللى هيرحل الى كل الفورم 
اضع مفتاح للترحيل لكل فورم حتى يذكر به اسم الفورم والكنترول
هل ممكن
كود واحد للترحيل للفورم والكنترول النشط اى كان اسم الفورم
اشكرك
27-11-2020 12:37 مساء
icon زيادة عدد الاعمده اكثر من10 فى الترحيل للست | الكاتب :سعد عابد |المنتدى: اكسيل اسئله واجابات
 ربما لا اجيد الشرح بطريقه جيده
المطلوب
ترحيل التكستات 13 الى اللست بوكس
ملحوظه
الترحيل هيتم حوالى 50مره حتى يكون اللست به خمسون صف و13 عمود
اشكرك لسعة صدرك 
تحياتى

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





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

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