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

عبدالفتاح في بي اكسيل

الخبراء
  • Posts

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

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

  • Days Won

    1

عبدالفتاح في بي اكسيل last won the day on فبراير 21 2020

عبدالفتاح في بي اكسيل had the most liked content!

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

358 Excellent

5 متابعين

عن العضو عبدالفتاح في بي اكسيل

  • تاريخ الميلاد 17 أغس, 1981

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

  • Gender (Ar)
    ذكر
  • Job Title
    اكسيل
  • البلد
    فلسطين
  • الإهتمامات
    برمجة الاكسيل

اخر الزوار

875 زياره للملف الشخصي
  1. هذه محاولة على حسب الشرح في موضوعك الاصلي على الرغم من شح المعلومات قم بنسخ رؤوس العناوين اولا قبل تنفيد الكود Sub merge_sheets() Dim MUL As Variant Dim Ws As Worksheet MUL = Array("1", "2","3","4","مني","هناء" ) For Each Ws In Worksheets(MUL) Ws.UsedRange.Offset(1).copy Sheets("مجمع شيتات").Range("A" & Rows.Count).End(xlUp).Offset(1) Application.DisplayAlerts = False Application.DisplayAlerts = True Next Ws End Sub
  2. جرب هذا الشي من خيارات التنسيق ولكن يجب تحديد الخلايا اولا واتبع ما في الصورة يمكنك تغيير صيغة التاريخ كما تشاء
  3. لا ادري اذا كنت افهمك جيدا لكن هذا الخيار يجعلك تختار اكثر من خيار عند الاختيار بالتشيك بوكس
  4. لا اعتقد ذلك ممكن بالكومبوبوكس فقط بالليست بوكس الا اذا اردت ان تقوم بانشاء اكثر من كومبوبوكس والفلترة لنفس العمود واجدها غير عملية اعتقد خيار الليست بوكس افضل في هذه الحالة
  5. نقر مرتين على اليوزرفورم والصق هذا الكود لا ادري اذاكان هذا يفي بالغرض Private Sub UserForm_Activate() With Application Me.Top = .Top Me.Left = .Left Me.Height = .Height Me.Width = .Width End With End Sub
  6. اذا كان هناك معادلات كثيرة وخصوصا عند الربط بملفات خارجية اقترح عليك بلا ستعانة بالكود خصوصا ان الكود يتجاهل الصفوف او الخلايا الفارغة وعمليا اسرع واقل مشاكل من المعادلات اذا كانت البيانات ضخمة
  7. جرب هذا الماكرو Sub CONCATENATE_CELLS() Dim CONCELL, myvariant As String Dim LR As Long Dim i As Integer LR = Cells(Rows.Count, 1).End(xlUp).Row CONCELL = Range("A2").Value Range("f:f").Value = "" Range("f" & 1).Value = "RESULT" For x = 2 To LR If Range("A" & x).Value <> "" Then CONCELL = Range("A" & x) End If Range("F" & x).Value = CONCELL & Range("B" & x).Value & Range("C" & x).Value & Range("D" & x).Value & Format(Range("E" & x).Value, "YYYY/MM/DD") Next End Sub MERGE CELLS.xlsm
  8. وهل تاكدت من ان الماكرو موجود في الاصل وتاكد ان الملف من هذه الانواع XLSM,XLS,XLSB التي تمكن من تشغيل الماكرو والا لايوجد ماكرو على الاطلاق ؟
  9. لا اعلم ماذا تعني بهذا ثم اجبتك بناء على الصورة .ضع الصورة النهائية للقيمة في الخلية
  10. جرب هذا الشيء Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) msgbox ChrW(163) & LR End Sub
  11. ما فائدة ارفاق ملف محمي كيف سنضع لك الكود جرب هذا الكود على حسب ما فهمت Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("a1:b10")) Is Nothing Then Exit Sub MsgBox "this cell is protected,pleace unprotect it " & Target.Address End Sub
  12. على حسب صورتك يجب الحساب ايضا في العمود e ليس فقط في العمود d ؟
  13. اكتب المعادلة بالارقام وناتجها حتى يفهمها البعض ويطبقها على الاكسيل اعطينا مثال رقمي وليس تخميني
×
×
  • اضف...

Important Information