برمجة الاكسل | 06 خصائص الكائنات Excel VBA | Objects properties

Поделиться
HTML-код
  • Опубликовано: 21 дек 2021
  • الدرس السادس من كورس برمجة الإكسل Excel Vba Course والذى نتناول فيه شرح أهم الأدوات والعناصر المكونة لبرنامج الاكسل مثل عنصر او كأئن التطبيق و كأئن ورقة العمل وكأئن النطاق أو الخلية وخصائص كلاَ منهم و كيفية التحكم فيها .
    ***********
    تابع الدورة بالترتيب من هنا
    • كورس برمجة الاكسل VBA ...
    ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
    لطلب برنامج من تصميمنا..و متابعة أعمالنا 👇
    / code7programming
    -----------------------------------------------
    لو لسه لم تشترك بالقناة ادعمنا بالاشتراك من هنا
    / @alhassanabuelkhair
    ------------------------------------------------
    برجاء دعمنا بـ
    اشتراك فى القناة Subscribe
    لايك للفيديو Like
    مشاركة الفيديو Share
    #الحسن_أبوالخير
    #كورس_برمجة_الاكسل

Комментарии • 42

  • @mamdouhalieldin1720
    @mamdouhalieldin1720 2 месяца назад

    حبيبي يا بشمهندس الله يجزاك خير......يا ريت الحلقة دي كانت الاول يا استاذنا

    • @alhassanabuelkhair
      @alhassanabuelkhair  2 месяца назад +1

      حبيبي استاذى الفاضل
      بارك الله فيكم ... هذه تعتبر حلقة متقدمة شيئاً ما لذلك كان من الصعب وضعها فى بداية الكورس

    • @mamdouhalieldin1720
      @mamdouhalieldin1720 2 месяца назад

      @@alhassanabuelkhair 🌹❤️😍

  • @user-wg8ey9bt5z
    @user-wg8ey9bt5z 3 месяца назад +1

    جزاك الله خيراً أستاذ

  • @user-sf9vy6kl4e
    @user-sf9vy6kl4e 2 месяца назад +1

    جزاك الله خيراً🌹

  • @khalidaboali4254
    @khalidaboali4254 2 года назад +1

    الله لا يحرمنا من طلتك ومن علمك يا ابو الحسن.. زادك الله علما ورزقك كل خير..

  • @sarwathamdy
    @sarwathamdy 2 года назад +1

    شكرا جزيلا

  • @kadhemal_amery650
    @kadhemal_amery650 2 года назад +1

    كل الخير من الحسن ابو الخير حقيقه إبداع ومحاضرة استفدت منها شكرا لك يا أستاذ

  • @F5BOND
    @F5BOND 2 года назад +1

    كل شكر ودعم لك اخي. اسال الله ان يزيدك علم ويبارك فيك وينفع فيك الامه الاسلاميه

  • @ahmedalhadadi6400
    @ahmedalhadadi6400 2 года назад +1

    بارك الله فيك ربنا يحفظك ويسعدك ويفرح قلبك ويعطيك الصحه والعافيه

  • @MMA15443
    @MMA15443 2 года назад +1

    بارك الله فيك علمك وجعلها الله في ميزان حسناتك 💚💚🇩🇿👍

  • @user-ee7xf2ih3j
    @user-ee7xf2ih3j 2 года назад +1

    تسلم يا أستاذنا والله
    الله عليك ربنا يخليك لنا

  • @morsysaied7337
    @morsysaied7337 2 года назад +1

    باشا والله

  • @salamlibiy2237
    @salamlibiy2237 2 года назад +1

    مبدع دائماً .
    الله يوفقك..

  • @user-jy4hq9im2q
    @user-jy4hq9im2q 2 года назад +1

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

  • @MOHAMEDHASSAN-gp1nt
    @MOHAMEDHASSAN-gp1nt 2 года назад +1

    شخص رائع كالعادة

  • @tamer_elshahat
    @tamer_elshahat 2 года назад +1

    الله ينور استاذ حسن 👍

    • @alhassanabuelkhair
      @alhassanabuelkhair  2 года назад

      من بعض ما عندكم استاذ تامر 🌹👍

  • @mohammadabutalib1225
    @mohammadabutalib1225 2 года назад +1

    سلمت استاذ حسن 💐💐💐

  • @abdoseyid6059
    @abdoseyid6059 2 года назад +1

    واصل يا مبدع ✌🏻✌🏻

  • @poissonnord5481
    @poissonnord5481 2 года назад +1

    👍👍❤👌

  • @mahmoudshaker3813
    @mahmoudshaker3813 2 года назад

    عندي قائمة Additional controls لاتستجيب

  • @salgonaimify
    @salgonaimify 2 года назад +1

    السلام عليكم صباح الخير ممكن كود بحث بين تاريخين من الفورم
    وه بحث غياب طلاب

    • @alhassanabuelkhair
      @alhassanabuelkhair  2 года назад

      و عليكم السلام ورحمه الله استاذ سعد
      حاضر هجهز الكود و أضعه هنا

    • @salgonaimify
      @salgonaimify 2 года назад

      @@alhassanabuelkhair الله يبارك فيك

    • @salgonaimify
      @salgonaimify 2 года назад

      @@alhassanabuelkhair صباح الخير عملت هذا الكود ولاكن فيه مشكلة وهي عدم البحث في جميع الصفحات ولا ارغب في القائمة المنسدلة ( ComboBox ) هذا الكود
      Private Sub TextBox1_Change()
      Dim sh As Worksheet
      Set sh = Sheets("sh1")
      Dim i As Long, x As Long, p As Long
      Me.ListBox1.Clear
      For i = 6 To sh.Range("CU" & Rows.Count).End(xlUp).Row
      For x = 1 To Len(sh.Cells(i, 99))
      p = Me.TextBox1.TextLength
      If LCase(Mid(sh.Cells(i, 99), x, p)) = Me.TextBox1 And Me.TextBox1 "" Then
      With Me.ListBox1
      .AddItem sh.Cells(i, 1)
      .List(ListBox1.ListCount - 1, 0) = sh.Cells(i, 99)
      .List(ListBox1.ListCount - 1, 1) = sh.Cells(i, 100)
      .List(ListBox1.ListCount - 1, 2) = sh.Cells(i, 101)
      .List(ListBox1.ListCount - 1, 3) = sh.Cells(i, 102)
      .List(ListBox1.ListCount - 1, 4) = sh.Cells(i, 103)
      End With
      End If
      Next x
      Next i
      End Sub
      ياليت تساعدني فيه
      ومشكور مقدما