اذهب الي المحتوي
أوفيسنا

محمد4

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه محمد4

  1. هذا الكود مثلا أين اجد اسمه؟

     [/size]
    
    [size=7] [/size]
    
    
    [size=7]On Error Resume Next
    
    If Me.[T1] Then Exit Sub
    
        If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
    
    	    Application.EnableEvents = False
    
    	    Application.Undo
    
    	    Application.EnableEvents = True
    
        End If
    
    End Sub[/size]
    
    [size=7]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/size]
    
    [size=7]On Error Resume Next[/size]
    
    [size=7]    Dim Rng As Range
    
        Static Cell As Range
    
        Static TheFormula As String
    
        Set Rng = Range("myrange")
    
        If Not Application.Intersect(Target, Rng) Is Nothing Then
    
    	    If Not Cell Is Nothing Then
    
    		    Cell.Formula = TheFormula
    
    	    End If
    
    	    Set Cell = ActiveCell
    
    	    With Cell
    
    		    TheFormula = .Formula
    
    		    .Value = .Value
    
    	    End With
    
        Else
    
    	    With Cell
    
    		    .Formula = TheFormula
    
    	    End With
    
        End If[/size]
    
    
    [size=7]End Sub[/size]
    
    
    [size=7]

  2. السلام عليكم أنا تابعت الموضوع وهذا عمل تشكرون عليه لكني أريد أن أعرف كيف أستطيع نقل الكود لملفي علماً بأني كلما وضعت نسخ ولصق لملفي يظهر مربع الحوار باسم الماكرو ثم أضع أي اسم فيظهر هناك خطأ مالمشكلة فلقد واجهتني المشكلة نفسها في كل الأكواد؟مالحل؟

  3. أشكركم كثيرا لتفاعلكم مع موضوعي أخ عبدالله وأخ محمود لأني بحاجة إليه ضروري

    أما صيغتك أخ عبدالله لم تعمل ولا أدري ماالمشكلة؟!

    واحتمالاتك أخ محمود واقعية ولكن المشكلة مازالت موجودة فأنا أريد عندما أترك مكان الدرجة فارغ يضع لي البرنامج " غياب" وليس "هـ"

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

  4. السلام عليكم ورحمة الله وبركاته

    أريد أن أحل مشكلة مع دالة vlookupحيث يحتسب البرنامج الفراغ كقيمة ويضع لها التقدير المعطى في الجدول "هـ" المخصص للدرجة صفر. بينما أنا أريد ترك الخانة أمام الفراغ فراغ كماهي دون تطبيق الدالة vlookup فمالعمل وجزاكم الله خيراً؟!

×
×
  • اضف...

Important Information