شرح كيفية تفسير اكواد VBA

[Ahmed Hosny]

السلام عليكم .. كل سنه وانتوا طيبن 

اى شيت بيبقى فيها كود انا بستفاد بيه وافتحه بس انا مش ببقى فاهمه ومش عاوز اخده نسخ واحطه وانا مش فاهمه ممكن لو تكرمتوا حد يقولى ماهيه اكواد دى ازاى افهمها ولا اذاكرها ولا اى عشان اقدر اشتغل عليها وافهم كل حاجه فى كود دى معناها اى ؟ وده مثلا كود بيعمل فلتره او بحث بس فعلا انا مش فاهمه لكن فى شيت اللى نزلته فيه كود شغله حلو جدا وشكرا جدا 

Private Sub TextBox1_Change()
    Dim LastRow As Long, RngFiltered As Range, I As Long, Arr
    Static Rng As Range
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If Not Rng Is Nothing Then Rng.EntireRow.Hidden = False
    LastRow = Range("B65535").End(xlUp).Row
    Set Rng = Range("B4:B" & LastRow)
    Arr = Rng.Value
    If Len(TextBox1.Text) > 0 Then
         For I = 1 To UBound(Arr, 1)
             If IsNumeric(Arr(I, 1)) Then Arr(I, 1) = "'" & Arr(I, 1)
         Next I
         Rng.Value = Arr
         Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"
      End If
      Set RngFiltered = Rng.SpecialCells(xlCellTypeVisible)
      ActiveSheet.AutoFilterMode = False
      For I = 1 To UBound(Arr, 1)
          If Left(Arr(I, 1), 1) = "'" Then
             Arr(I, 1) = Mid(Arr(I, 1), 2)
           End If
      Next I
      Rng.Value = Arr
      Rng.EntireRow.Hidden = True
      RngFiltered.EntireRow.Hidden = False
    Application.ScreenUpdating = True
    End Sub

 

[عادل حنفي]

السلام عليكم

باختصار مافيش حلاوه من غير نار والموضوع مش صعب بس عايز شوية تعب في البدايه ومن اجل قراءة الكود لابد ان تعرفي الاساسيات في الاول مع شوية صبر بدون استعجال  او احباط وداخل صفحات هذا المنتدي الكثير من الشروحات من الالف ال الياء بس الموضوع عايز شغل علي نفسك شويه بالقراءة وبعد هذا كله ياتي الدور عليكي في درجة الفهم مع القدرة علي تحليل المطلوب ان يقوم الكود بعمله والطريقة المثلي لعمل ذلك باقل سطور في الكود وده طبعا لن ياتي في البداية

والي كل من يريد التعلم

ابدا - اقرأ - ابحث - لا تتعجل - اصبر - لا احباطات -الخطأ  تعلم منه - لايستطيع احد ان يعلمك كل شئ ولكن ممكن الكثير يجاوبك علي  اسئلة تحتاج الرد عليها

تحياتي

[Ahmed Hosny]

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