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

أبو عبد النور

03 عضو مميز
  • Posts

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

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

  • Days Won

    1

أبو عبد النور last won the day on نوفمبر 22 2016

أبو عبد النور had the most liked content!

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

38 Excellent

2 متابعين

عن العضو أبو عبد النور

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

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    أرض الله واسعة
  • الإهتمامات
    هاوي برمجة

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

  • ICQ
    0
  • Skype
    inptec

اخر الزوار

1,998 زياره للملف الشخصي
  1. بارك الله فيكم جميعا على الردود المفيدة. 1) هل يمكن الحصول على النص مباشرة بدون ان يظهر الرقم ؟ 2) هل يمكن ان تكون المعادلة عامة بحيث تعالج اي رقم ترتيبي ولا تتوقف عند العدد العشرين فقط ؟ تفقيط ارقام ترتيبية.xlsm
  2. السلام عليكم، لدي عمود يقوم بترتيب مثلا الطلاب في صف ما، من 1 الى 20. فكيف يمكنني تحويل الترتيب بالارقام الى نص ؟ 1 -> الاول 2 -> الثاني 3 -> الثالث 4 -> الرابع وهكذا. بارك الله فيكم.
  3. بارك الله فيك اخي حسونة بالنسبة لحل مشلكة النص العربي في محرر اكواد VBA، تم حله يتغيير الخط الى خط عربي : بقيت مشكلة ظهور اسماء الاوراق بالعربية فانها ما زالت تظهر بحروف غريبة.
  4. السلام عليكم، عند تحميل اي ملف اكسل يكون فيه نصوص عربية في كود الـ VBA لا يستطيع اكسل 2019 لدي ان يتعرف على الحرف العربي. فكيف يمكنني ان اجعل الاكسل يتعرف على النص العربي في الكود ؟ بارك الله فيكم.
  5. السلام عليكم، استعمل التعديل التالي : Private Sub CmbNum_Change() If Rs.RecordCount > 0 Then Rs.MoveFirst For i = 0 To Me.CmbNum.ListCount - 1 If CInt(Me.CmbNum.Value) = Rs(0).Value Then Me.TextBox2.Value = Rs(1).Value '.Fields(1) Me.TextBox3.Value = Rs.Fields(2) Me.TextBox4.Value = Rs.Fields(3) Me.TextBox5.Value = Rs.Fields(4) End If Rs.MoveNext Next Else MsgBox "áíÓ åäÇß ÊÓÌíáÇÊ", vbCritical + vbOKOnly Exit Sub End If Me.CmdTarheel.Enabled = True End Sub جلب وتسجيل بيانات من مصنف مغلق_ن002.rar
  6. هل تقصد انه يتم تنفيذ المعادلة بدون الادخال في العمود A ؟ لان الصفر يعتبر عدد زوجيا.
  7. كيف لم يعمل ؟ هل من اخطاء ؟ وفي اي سطر ؟ يجب التوضيح.
  8. السلام عليكم، ضع هنا ما توصلت اليه في آخر ملف ليستفيد الجميع.
  9. السلام عليكم، جرب التعديل التالي. 2017_v003.1.rar
  10. السلام عليكم، محاولة : ترتيب_احرف_انس80.rar
  11. حاول تغيير التنسيق : .Range("C17") = Format(CDate(TextBox9), "dd/mm/yyyy") .Range("H17") = Format(CDate(TextBox12), "dd/mm/yyyy")
  12. السلام عليكم، جرب التالي : Private Sub CommandButton1_Click() ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:=">=" & Format(Me.TextBox1, "mm/dd/yyyy"), _ Operator:=xlAnd, Criteria2:="<=" & Format(Me.TextBox2, "mm/dd/yyyy") ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:= _ Me.ComboBox1.Value ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:=Me.ComboBox2.Value TextBox3.Value = [J1].Value End Sub
×
×
  • اضف...

Important Information