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

محي الدين ابو البشر

03 عضو مميز
  • Content Count

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

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

السمعه بالموقع

146 Excellent

1 متابع

عن العضو محي الدين ابو البشر

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    eng

اخر الزوار

1,227 زياره للملف الشخصي
  1. أخ عاطف آسف على التأخير أولا بالنسبة B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2) لقراءة الأرقام الجديدة والقديمة في "الأرقام" وتتم بعذ ذلك مقارنة القيم في العمود c (مصفوفة A)مع العمود الأول من المصفوفة B , في حال التطابق يقوم بتغيير القيمة في A بالقيمة في العمود الثاني من المصفوفة B بالنسبة لـ "لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4 هل هذا صحيح ؟" آسف أن اقول لك ان هذا غير صحيح
  2. استبدل الكود بـ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e:e")) Is Nothing Then With Target On Error GoTo 1 If Target <> "" Then .Offset(, -3) = "BFL" .Offset(, 2) = 0 .Offset(, 3) = "398" End If End With End If 1 End Sub أو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e:e")) Is Nothing Then With Target If Target.Count > 1 Then Exit Sub If Target <> "" Then .Offset(, -3) = "BFL": .Offset(, 2) = 0: .Offset(, 3) = "398" End If End With End If End Sub
  3. Sub test() With Cells(6, 4).Resize(Cells(Rows.Count, 3).End(xlUp).Row - 5) .FormulaR1C1 = _ "=IFERROR(R6C3:R4329C3,INDEX(ÇáÇÑÞÇã!R3C4:R42C4,MATCH(R6C3:R4329C3,ÇáÇÑÞÇã!R3C5:R42C5,)))" .Value = .Value End With End Sub
  4. السلام عليكم اولا ملفك او الشيت محمي بكلمة سر لا يمكن العمل عليه ثانياً مشكلتك تحل بتنسيق الخلايا calender Type>>Hijri
  5. الحمد لله اني استطعت المساعدة وشكراً لك
  6. السلام عليكم ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Environ("USERPROFILE") & "\Desktop\" & ID & ".Pdf", _ IgnorePrintAreas:=False, _ Openafterpublish:=False
×
×
  • اضف...