اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

inas aly

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    256

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه inas aly

    إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول)

    في منتدى الاكسيل Excel

    قام بنشر

    في ٢٤‏/٥‏/١٤٣٧ هـ at 15:33, ياسر خليل أبو البراء said:

    أخي العزيز محمد علي سالم

    شرفتنا بتواجدك معنا في الموضوع

    سأقوم بشرح بسيط لكود الأستاذ سليم علها تكون البداية لك 

    
Sub xx()
Columns.Hidden = True
Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False
End Sub

    السطر الأول يبدأ بكلمة Sub يليها اسم الإجراء واسم الإجراء أنت حر فيه سمه بما تريد

    وأفضل أن تكون التسمية معبرة عن الهدف من الكود مثلاً UnhideSpecificColumns ..

    وفي آخر سطر قفلة الكود بالجملة End Sub

    ما بين السطرين البداية والنهاية هذا هو لب الكود (ودا ملوش علاقة بالسوداني .. ولا المصري !!)

    السطر الأول في الكود يقوم بإخفاء الأعمدة كلها ...أينعم حيث أن الخاصية المستخدمة هي الخاصية Hidden وتعني مخفي .. إذاً ترجمة السطر الأعمدة. مخفي =صح يعني إخفاء كل الأعمدة

    لو غيرنا القيمة True إلى False تفتكر ايه اللي ممكن يحصل ؟؟ معروف إن True عكسها False ..إذاً سيقوم السطر في هذه الحالة بإظهار كل الأعمدة

    السطر الأول إذاً يقوم بإخفاء كل الأعمدة مرة واحدة (دفعة واحدة وفي نفس واحد)

    ثم السطر الثاني يأتي ليحدد اعمدة يعينها للتعامل معها وإظهارها .. وهنا أخونا الغالي سليم استخدم أول خلية في كل عمود من الأعمدة المراد إظهارها ، فالخلية a1 تمثل العمود الأول ..

    المهم جمع الخلايا في نطاق واحد كما هو مشار في الكود بهذا الشكل 

    
Range("a1,c1,e1,j1,o1,z1")

    ثم استخدم الخاصية EntireColumn والتي تتعامل مع العمود بالكامل ثم الخاصية Hidden والتي تحدثنا عنها ، وهنا إشارة لكل الأعمدة المطلوبة وفي النهاية تم وضع القيمة False لها لإظهارها دون سواها

    أرجو أن أكون وفقت في توصيل المعلومة

    تقبل تحياتي

    شكرا

    الاشعار بقرب انتهاء العقود

    في منتدى الاكسيل Excel

    قام بنشر

    في ١٣‏/٥‏/١٤٣٨ هـ at 10:34, ناصر سعيد said:

    ============================================= 

    
Sub ExpiredDate()
Dim LastRow As Integer
Dim LastRow2 As Integer
Dim Datecounter As Integer
Dim SnNo As Integer
Dim Mtype As String
Dim Cname As String
Dim Idate As Date
Dim PhNo As String
Dim Adrs As String
Dim Nvisit As Date

expd = Worksheets("Main").Range("A1")
MyDate = Date
Datecounter = 0
i = 0
Worksheets("Notifications").Range("A2:G1001").ClearContents
Worksheets("Main").Counterlbl.Caption = 0

    LastRow = Worksheets("Machines_card").Range("A2").End(xlDown).Row
    For irow = 2 To LastRow
'find data....................
        With Worksheets("Machines_card")
           If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then
              
                SnNo = .Cells(irow, 1)
                Mtype = .Cells(irow, 2)
                Cname = .Cells(irow, 3)
                Idate = .Cells(irow, 4)
                PhNo = .Cells(irow, 5)
                Adrs = .Cells(irow, 6)
                Nvisit = .Cells(irow, 7)
                i = i + 1
                Datecounter = Datecounter + 1
                Worksheets("Main").Counterlbl.Caption = Datecounter
                
'Moving data.................
                      With Worksheets("Notifications")
                      LastRow2 = Worksheets("Notifications").Cells(.Rows.Count, "A").End(xlUp).Row
                              .Cells(LastRow2 + 1, 1) = SnNo
                              .Cells(LastRow2 + 1, 2) = Mtype
                              .Cells(LastRow2 + 1, 3) = Cname
                              .Cells(LastRow2 + 1, 4) = Idate
                              .Cells(LastRow2 + 1, 5) = PhNo
                              .Cells(LastRow2 + 1, 6) = Adrs
                              .Cells(LastRow2 + 1, 7) = Nvisit
                       End With
           End If
        End With
    Next irow
End Sub

    هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

    هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

    وداعاً لدمج الخلايا

    في منتدى الاكسيل Excel

    قام بنشر

    وداعاً لدمج الخلايا

    موضوع دمج الخلايا من المواضيع المهمة و التي يجب التعامل معها بنوع من الحذر و الحيطة, و ذلك لمى تسببه عملية دمج الخلايا من مشاكل خصوصاً إذا تم إستخدامها داخل قواعد البيانات في الإكسيل.
    و موضوعنا هنا يتوجب علينا التقليل من إستخدامها أو إستخدام البديل الذي سنعرضه الآن, فعلى سبيل المثال لدينا البيانات التالية
    عند إستخدام دمج الخلايا في المثال أعلاه يكون الهدف من هذه العملية إمتداد الإسم احمد من الخلية B1الى الخلية D1ليظهر بالشكل التالي :
    و لكن هنا إستخدمنا عملية الدمج بحيث أصبحت الثلاث خلايا خلية واحدة,  و سوف نقوم بتطبيق الخطوات التالية للحصول على نفس النتيجة و لكن بدون إستخدام الدمج ,  و علمل ذلك سنتبع الخطوات التالية :

    سنقوم بتحديد الخلايا التي نرغب بوضعها تحت اسم احمد.

    . نقوم بفتح تنسيق الخلايا Format Cells, رايت كليك و نختتار تنسيق الخلايا .

    .  من التاب الثانيAlignment و من ضمن خيارات Horizontalنختار من القائمة المنسدلة Center Across Selection

    نضغط OK و ستكون النتيجة بالشكل التالي :


    3. و نكرر نفس العملية على باقي أسماء الموظفين.
    و بذلك نكون قد حصلنا على ما نريده و بما يتوافق مع طبيعة الإكسيل و آلية عمله .
     
    دمتم في حفظ الله
    يحيى حسين

    http://yahyahussien.blogspot.com.eg/2014/10/blog-post.html

    • Like 1

    تصفيه بالكود وبشروط

    في منتدى الاكسيل Excel

    قام بنشر

    درس عباره عن تصفيه بالكود وبشروط – الصوره توضح

    السلام عليكم اخوانى واخواتى الكرام

    حبيت اشاركم درس خفيف لقيته بالصدفه منقول للامانه رابط

    1-300x228.png

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Public Type product
        name As String
        pages As String
    End Type
     
    Sub GroupProducts()
    Dim products() As product
    Dim lastRow, i, j, n As Long
    ReDim products(1 To 1)
     
    lastRow = Range(“a1”).End(xlDown).Row
     
    For i = 2 To lastRow
        found = False
        For j = LBound(products) To UBound(products)
            If Cells(i, 1).Value = products(j).name Then
                found = True
                products(j).pages = products(j).pages & “, “ & Cells(i, 2).Value
            End If
        Next j
        
        If found = False Then
            n = n + 1
            ReDim Preserve products(1 To n)
            products(n).name = Cells(i, 1).Value
            products(n).pages = Cells(i, 2).Value
        End If
        
        Cells(i, 1).Value = “”
        Cells(i, 2).Value = “”
    Next i
     
    For i = LBound(products) To UBound(products)
        Cells(i + 1, 1).Value = products(i).name
        Cells(i + 1, 2).Value = products(i).pages
    Next i
     
    End Sub

    منقول

    كنترول شيت ابتدائي ..دور اول وثاني ..اصدار2

    في منتدى الاكسيل Excel

    قام بنشر

    لو تكرمت عايزين طباعة الشهادات  بالفصل وليس كل الشهادات بتاعة المدرسة

    وكذلك ارقام الجلوس

     

    عايزينها كل طلاب الفصل

    وتستريح الطابعة ثواني ثم الفصل الاخر وهكذا

    بجوار امر الطباعة قائمة منسدله نختار منها الفصل

     

    جزاك الله خيرا

×
×
  • اضف...

Important Information

  I accept