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

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




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


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


نتائج البحث عن ردود العضو :أباالحسن
عدد النتائج (190) نتيجة
27-03-2019 12:48 صباحا
icon طريقة او كود لجعل الــ  Frame يظهر بشكل شفاف على اليوزرفورم | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 جزاكم الله خيرا
25-03-2019 08:43 مساء
icon مشكلة فى كود لصق بيانات من ملف اكسيل لاخر | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 شكرا للاخوة الافاضل
أما عن الخطوات ت التى اقوم بها او المطلوبة فهى :
1- فتح الملف الاصلى + فتح الملف الذى به الارقام القومية المطلوب لصقها فى الملف الاصلى (فى هذا المثال اسمه School)
2- نسخ عمود الارقام القومية من الملف School
3- تنشيط الملف الاصلى
4- الضغط على زر الترس ليظهر اليوزروم الاحمر (كما بالشكل)
5- الضغط على زر لصق الموجود باليوزرفور
والذى به كود مجهز للصق ماتم نسخه


ملحوظة مهمة جدا : اسماء الملفات وارد جدا ان تتغير من مدرسة لاخري 
حتى لا نضعها بشكل ثابت فى الكود 

 
21-03-2019 01:13 مساء
icon برنامج حماية محرر الاكواد VBA protection | الكاتب :أباالحسن |المنتدى: منتدى اعلانات وخدمات بالمقابل
 وبالمناسبة السعر يعتبر مناسب جدا
لان برامج الحماية المشابهه بـ 100 دولار للمستخدم الواحد
21-03-2019 01:09 مساء
icon برنامج حماية محرر الاكواد VBA protection | الكاتب :أباالحسن |المنتدى: منتدى اعلانات وخدمات بالمقابل
 موفقين ان شاء الله 
اقترح ارفاق ملف تم حمايته بهذا البرنامج 
حتى يختبر المستخدم مدى قوة الحماية 
وامكانية اختراقه بالطرق والأدوات الشائعة
19-03-2019 10:12 صباحا
icon تفعيل الدالات المصممة لجميع ملفات الاكسيل | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 يمكن استخدام 
ActiveSheet
للتطبيق علىالشيت النشط (المفتوح حاليا)
18-03-2019 10:31 مساء
icon مشكلة فى كود لصق بيانات من ملف اكسيل لاخر | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 انا أسف جدا 
ارفقت الملف الاصلى ونسيت ارفاق الملف الخارجى 
على العموم هو ملف اكسيل عادى يكون بامتداد اكسيل 2003 XLS  القديم
وتسلمه المدارس كل شهر للحسابات بالادارة 


هذا هو الملف الذى يتم نسخ الارقام القومية منه الموجود فى العمود A
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
18-03-2019 05:27 مساء
icon مشكلة في حفظ ملف اكسيل | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 

جرب تشغيل الملف على اصدار اخر من الاوفيس او الويندوز 
وعلى جهاز ثانى 

17-03-2019 10:53 مساء
icon التشفير والسماح | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 انا استخدم هذا الكود لحماية الورقة 
وبه خيارات الحماية المختلفة 
يمكنك ان تتحكم فيها من خلال True/False


Sub P_One_Sheet()

If ActiveSheet.ProtectScenarios = False Then

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingColumns:=False, AllowInsertingRows:=False, AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, AllowDeletingRows:=False, AllowSorting:=False, _
AllowFiltering:=True, AllowUsingPivotTables:=False

End If

End Sub


لاحظ  AllowFiltering:=True



 
05-03-2019 01:20 صباحا
icon كود لتغيير لغة الكتابة داخل مربع TextBox   | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 جزاكم الله خيرا أخى ياسر

وانا جربت الكود على جهازى  Windows 10  - 64bit  فاشتغل الكود
وجربته على جهاز المدرسة  Windows 7 - 32 bit  فعمل ايضا 
والحمد لله
03-03-2019 07:23 مساء
icon كود لتغيير لغة الكتابة داخل مربع TextBox   | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 جزاكم الله خيرا أخي ياسر
الكود يعمل بشكل جيد

وقد حاولت فهمت الكود لكن يبدو انه معقد بعض الشىء

وسؤال هل سيتأثر تنفيذ الكود باصدار ال Windows  
أو بنوع النواه 32 - 64
03-03-2019 12:33 صباحا
icon ممكن معرفة سبب عدم عمل هذا الماكرو لملف ما عند نقل الملف لجهاز اخر | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 واجهتنى مثل هذه المشكلة الخاصة بعمل فرز وترتيب
قد يكون السبب وجود خلايا مدمجه فى النطاق او الورقة المطلوب فرز وترتيب اعمدة فيها 
جرب الغاء دمج الخلايا فى حال وجودها
26-02-2019 10:16 مساء
icon الدوائر الحمراء للطالب الراسب في الشهادة المدرسة | الكاتب :أباالحسن |المنتدى: اكسيل اسئله واجابات
 الاخ / خيري 

هذه الصورة من برنامجى (كنترول أبى الحسن)
ويكون الدوائر على اساس كلمة راسب / راســـبا 
وليس الدرجة لانه بعض الطلاب يحصلوا على اعلى من نصف الدرجة ويكون راسب ايضا (فى 30% تحريري اخر العام)

MTEzNTM3MQ7474Capture12
هذا هو الكود المستخدم 

Sub DrawRedCircles_FailedOnly()

Application.ScreenUpdating = False
Application.EnableEvents = False
    
    Dim myArray     As Variant
    Dim rng         As Range
    Dim cell1, cell2       As Range
    
    Dim L           As Long
    Dim T           As Long
    Dim W           As Long
    Dim H           As Long

    'مصفوفة بالنطاق المراد وضع دوائر حمراء به
    myArray = Array("Y11:AJ610")

                            Call UP_One_Sheet

       Call RemoveCircles_FailedOnly

        With Sheets("Failed only")

 Set rng = Range("Y11:AJ610")
 For Each cell In rng
      If cell.Value = "راسب" Then
                    With .Shapes.AddShape(msoShapeOval, L, T, W, H)     ' ' تحديد الدوائر الحمراء لراسب
                           .Fill.Visible = msoFalse
                           .Line.Transparency = 0
                           .Line.ForeColor.RGB = RGB(200, 0, 0)
                           .Line.Weight = 2
                           .Line.Style = 1

                             L = cell.Offset(0, -13).Left + 2
                             T = cell.Offset(0, -13).Top + 2
                            W = cell.Offset(0, -13).Width - 2
                             H = cell.Offset(0, -13).Height - 2
                       End With
                End If
          Next cell
      
 Set rng = Range("Y11:AJ610")
 For Each cell In rng
         If cell.Value = "راســـبا" Then
                        With .Shapes.AddShape(msoShapeOctagon, L, T, W, H)     ' ' تحديد الدوائر الزرقاء لراسبــا
                          .Fill.Visible = msoFalse
                          .Line.Transparency = 0
                          .Line.ForeColor.RGB = RGB(0, 0, 125)
                          .Line.Weight = 3
                          .Line.Style = 1
                       L = cell.Offset(0, -13).Left + 2
                       T = cell.Offset(0, -13).Top + 2
                       W = cell.Offset(0, -13).Width - 2
                       H = cell.Offset(0, -13).Height - 2
             End With
          End If
      Next cell
       
                                Call P_One_Sheet
End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub

Sub RemoveCircles_FailedOnly()
    
    Dim ws As Worksheet
    Dim Shp As Shape
  
  Application.ScreenUpdating = 0
  
    Set ws = Sheets("Failed only")
    For Each Shp In ws.Shapes
        If Shp.Type = msoAutoShape Then Shp.Delete
    Next Shp
    
   Application.ScreenUpdating = 1
      
End Sub



 

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





الساعة الآن 07:22 مساء

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