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

a.kawkab

03 عضو مميز
  • Posts

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

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

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

53 Excellent

عن العضو a.kawkab

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

  • Gender (Ar)
    ذكر
  • Job Title
    cairo
  • البلد
    مصر

وسائل التواصل

  • Yahoo
    a.kawkab@yahoo.com

اخر الزوار

1,193 زياره للملف الشخصي
  1. السلام عليكم اضف userform1.show unload me فى نهاية الكود فى حدث activate ليصبح الكود كالتالى Private Sub UserForm_Activate() Dim dTime As Date Dim i As Integer For i = 1 To 100 Step 100 / 8 dTime = Now + TimeValue("0:00:01") Application.Wait TimeValue(dTime) ProgressBar1.Value = i Next i UserForm1.Show Unload Me End Sub مرفق الملف endsplash error.xlsm
  2. الاخوة الافاضل فى منتدى اوفيسنا السلام عليكم مطلوب تحويل المعادلة التالية الى كود برمجى وجزاكم الله خيرا [A5]=IFERROR(SEQUENCE(COUNTA(B:B)-1);"") كتبتها بهذة الطريقة [A5].formula="=IFERROR(SEQUENCE(COUNTA(B:B)-1),"")" لكن لم تشتغل حذفت iferror وكتبتها بهذا الشكل [A5].formula="=SEQUENCE(COUNTA(B:B)-1)" وعند تنفيذ الكود تظهر بهذا الشكل فى الخلية =@SEQUENCE(COUNTA(B:B)-1) وبالتالى المعادلة لا تعمل
  3. السلام عليكم اخى عبد العزيز تفضل تم المطلوب Option Compare Text Private Sub TextBox1_Change() [A2].AutoFilter field:=2, Criteria1:=Me.TextBox1 & "*" If TextBox1.Value = "" Then [A2].AutoFilter End Sub A_aziz.xlsb
  4. السلام عليكم يمكنك الاستفادة من الفيديو التالى للاستاذ عماد غازى https://www.youtube.com/watch?v=M3APTvZ0nfw
  5. تفضل اخى الكريم الملف بعد ازالة التحديد كود نسخ البيانات.xlsm
  6. تفضل اخى الملف اى بيان يضاف فى شيت رصد2 بمجرد فتح شيت 2 ستجد البيانات تم نسخها تركت لك زر المسح شغال واوقفت زر الترحيل كود نسخ البيانات.xlsm
  7. السلام عليكم للنسخ بدون زر ضع نفس الكود فى حدث change لشيت رصد2 او فى حدث activate لشيت 2
  8. السلام عليكم mmagedmemo انا بشتغل على اوفيس365 ولا توجد تلك الاضافات فما الحل
  9. السلام عليكم ورحمه الله وبركاته بارك الله فيك وجزاك الله خيرا استاذنا الفاضل استاذ ضاحى وياريت تجعل رايط الصور فى فولدر فى نفس مسار الملف هيكون افضل واسهل
  10. السلام عليكم تفضل الشيت بعد التعديل يعمل جيدا Test2.xlsm
  11. السلام عليكم تم التوصل الى الكود باقتباس من احد اعمال العلامة خبور تم رفع الشيت بالكود للاستفادة وشكرا لكم Private Sub CommandButton1_Click() ' أمر ترحيل بيانات Dim LR As Long Dim Adr As String Dim r As Integer, c As Integer ''''''''''''''''''''''''''''''' With Sh1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With '''''''''' For r = 1 To 10 Adr = Cells(r, 1).Address(0, 0) For c = 1 To 5 Adr = Cells(r, c).Address(0, 0) Sh1.Range("A" & LR).Cells(r, c).Value = Me.Controls(Adr).Value Next Next '''''' End Sub Book101Add.xlsm
  12. السلام عليكم مطلوب ترحيل بيانات الخمسيين تكست بوكس مرة واحدة للشيت فى مدى مطاط من(a:e"& lr") بحيث يبدا من a2فى الادخال الاول ثم من(lr+1)فى الادخال التالى وهكذا بمعنى لو تم ملئ بيانات الخمسين تكست بوكس يكون ادخال البيانات فى الخلايا من (a2:e10)ثم من (a11:e20) وهكذا Book101.xlsm
  13. السلام عليكم الدالة موجوده فى اوفيس 2021
×
×
  • اضف...

Important Information